in reply to html output to a file
#!/usr/bin/perl -w use strict; use CGI qw/:standard *table *Tr *td/; require "/home/httpd/cgi-bin/per +l_scripts/syb_handlers.pl"; use Sybase::DBlib; use CGI::Carp qw(fatalsToBrowser); &dbmsghandle ("message_handler"); &dberrhandle ("error_handler"); open(OUTPUTFILE, ">/home/output.htm") or die $!; # print OUTPUTFILE header; print OUTPUTFILE "<html><head>\n"; print OUTPUTFILE "<title>My Title</title></head><body>\n"; print OUTPUTFILE (loads of lines of html resulting from the database +queries) print OUTPUTFILE "</body></html>\n"; close(OUTPUTFILE);
|
|---|