if ($loginok != 1) {
print "Content-type: text/html\n\n";
- PutHeader("Login");
+ PutHeader("Login", undef, undef, undef, 1);
print "I need a legitimate e-mail address and password to continue.\n";
if (!defined $nexturl || $nexturl eq "") {
# Sets nexturl to be argv0, stripping everything up to and
sub PutHeader {
- my ($title, $h1, $h2, $extra) = (@_);
+ my ($title, $h1, $h2, $extra, $ignoreshutdown) = (@_);
if (!defined $h1) {
$h1 = $title;
print Param("blurbhtml");
print "</TD></TR></TABLE>\n";
+
+ if (Param("shutdownhtml")) {
+ if (!$ignoreshutdown) {
+ print Param("shutdownhtml");
+ exit;
+ }
+ }
}
+DefParam("shutdownhtml",
+ "If this field is non-empty, then Bugzilla will be completely disabled and this text will be displayed instead of all the Bugzilla pages.",
+ "l",
+ "");
+
+
DefParam("warnbannerhtml",
"HTML to prepend to warning messages.",
"l",
}
-PutHeader("Saving new parameters");
+PutHeader("Saving new parameters", undef, undef, undef, 1);
foreach my $i (@::param_list) {
# print "Processing $i...<BR>\n";
}
-PutHeader("Edit parameters");
+
+PutHeader("Edit parameters", undef, undef, undef, 1);
print "This lets you edit the basic operating parameters of bugzilla.\n";
print "Be careful!\n";