diff options
author | bbaetz%acm.org <> | 2003-05-05 08:15:19 +0000 |
---|---|---|
committer | bbaetz%acm.org <> | 2003-05-05 08:15:19 +0000 |
commit | 9488a8906592564ec2e7601041f3ea5484cde3cc (patch) | |
tree | b9308d1a3dcf639d1e561ede1186ff58afc01834 /importxml.pl | |
parent | Bug 204104 - internal error in Search.pm when searching for invalid (diff) | |
download | bugzilla-9488a8906592564ec2e7601041f3ea5484cde3cc.tar.gz bugzilla-9488a8906592564ec2e7601041f3ea5484cde3cc.tar.bz2 bugzilla-9488a8906592564ec2e7601041f3ea5484cde3cc.zip |
Bug 201816 - use CGI.pm for header output
r=joel, a=justdave
Diffstat (limited to 'importxml.pl')
-rwxr-xr-x | importxml.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/importxml.pl b/importxml.pl index 40182c954..afc02faa9 100755 --- a/importxml.pl +++ b/importxml.pl @@ -59,6 +59,8 @@ BEGIN { chdir $::path; use lib ($::path); +use Bugzilla; + use XML::Parser; use Data::Dumper; $Data::Dumper::Useqq = 1; @@ -136,7 +138,7 @@ sub Lock { open(LOCKFID, ">>data/maillock") || die "Can't open data/maillock: $!"; my $val = flock(LOCKFID,2); if (!$val) { # '2' is magic 'exclusive lock' const. - print "Content-type: text/html\n\n"; + print Bugzilla->cgi->header(); print "Lock failed: $val\n"; } chmod 0666, "data/maillock"; |