Stuff I want to keep handy:
Where am i? Here
# 1: suck in the 3 files, prelude, postlude, and the IVR results text
open(UFILE, $prelude);
@prelude_list = <UFILE>;
close(UFILE);
open(UFILE, $postlude);
@postlude_list = <UFILE>;
close(UFILE);
# 2: now start emitting the results...
# we do some serious surgery on the textfile contents,
# and poop out table and cell data.
print @prelude_list;
print '<h3>Your request has been processed. </h3>';
print '<p>There will be a slight delay before your call is processed.<
+/p>';
print '<p>To view the status of the call, click the link at left label
+led Current Notifications.</p>';
print '<h3>Or you will be directed there automatically in 10 seconds.<
+/h3>';
print @postlude_list;
My computer broked down after perl install
|