Last week I opted to use the CGI.pm module to print headers for me since I
was having trouble using print "Content-type: text/html \n\n"
Now, I am being told that the following file is not producing a valid
header. Anyone see why this might be the case?
"bugtrack_admin.cgi" 28 lines, 1065 characters
#! /usr/local/bin/perl5 -T
use strict;
use lib "/oracle/web/docs-intranet/cgi/dispatcher/lib";
use Request;
use CGI qw(:standard);
my $q = new CGI;
my $parameter = $q->param("parameter");
my $submit = $q->param("submit");
print header; #here the header is being printed
if ($parameter eq "admin") {
BugTrack->admin_details ($q->param("id"));
} elsif ($submit eq "Update") {
BugTrack->update_request ( 'request_id' => $q->param("request_id"),
'request_priority' => $q->param("request_priority"),
'request_title' => $q->param("request_title"),
'browser' => $q->param("browser"),
'os' => $q->param("os"),
'bugtrack_status' => $q->param("bugtrack_status"),
'request_details' => $q->param("request_details"),
'bug_domain' => $q->param("bug_domain"),
'bugtrack_completion_date' => $q->param("bugtrack_completion_date"),
'category' => $q->param("category"),
'cause' => $q->param("cause"),
'solution' => $q->param("solution"),
'notes' => $q->param("notes"),
'track' => $q->param("track"),
);
}
Thanks
Peter Cline
Inet Developer
New York Times Digital
