OK, I've pared this one down as far as it can go, yet I still get the same "Premature end of script headers" errors. I also tried it using CGI, which I figured knows the html spec better than I ever will. Any further ideas?
#!/usr/bin/perl -w use strict; my $preserve_date = '2006-09-01'; my %registrations; print <<EOF; Content-type: text/html <html> <head> <title>Masking Private Data</title> </head> <body> <h2>Masking Private Data</h2> This script is masking private data in the test data set with a depart +ure date before $preserve_date. Records related to later events are +being preserved.<p> </body> </html> EOF 1; sub parse_date { my ($date_str) = @_; my $date = ParseDate($date_str); $date = substr($date,0,4) . '-' . substr($date,4,2) . '-' . substr($ +date,6,2); return $date; }
In reply to Re: Debugging without shell access?
by hesco
in thread Debugging without shell access?
by hesco
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |