submitted by mhamby@logicon.com (Mark Hamby).
# Note! HTML header is complete!
} else {
print "Content-type: text/html\n";
+ print "Content-disposition: attachment; filename=bugzilla_bug_list.html\n";
# Note! Don't finish HTML header yet! Only one newline so far!
}
print "\n";
print "--thisrandomstring\n";
print "Content-type: text/html\n";
+ print "Content-disposition: attachment; filename=bugzilla_bug_list.html\n";
# Note! HTML header not yet closed
}
my $toolong = 0;
$zz = %::FORM;
}
-print "Content-type: text/html\n\n";
+print "Content-type: text/html\n";
+print "Content-disposition: attachement; filename=bugzilla_bug_list.html\n\n";
PutHeader ("Full Text Bug Listing");
ConnectToDatabase();
"show_chart" => \&show_chart,
);
-print "Content-type: text/html\n\n";
+print "Content-type: text/html\n";
+print "Content-disposition: attachment; filename=bugzilla_report.html\n\n";
# If we're here for the first time, give a banner. Else respect the banner flag.
if ( (!defined $::FORM{'product'}) || ($::FORM{'banner'}) )