Changeset 233 for trunk/cgi-bin/CommonWeb.pm

Timestamp:

04/15/05 18:11:39 (20 years ago)

Author:

Kris Deugau

Message:

/trunk

Merge /branches/acl r221, 222, 223, 225, 226 back to trunk

File:

• trunk/cgi-bin/CommonWeb.pm (modified) (1 diff)

trunk/cgi-bin/CommonWeb.pm

@@ -53 +53 @@
 }
 
-sub printHeader($) #(cgiurl)
-{
-        my $cgiURL = $_[0];
-        print "Content-type: text/html\n\n";
-        open(FILE, "../header.inc") || die $!;
-        while (<FILE>) 
-        {
-                $_ =~ s/\$\$CGIURL\$\$/$cgiURL/g;
-                print $_;
-        }
-        close(FILE);
+
+sub printHeader {
+  my $title = shift;
+  print "Content-type: text/html\n\n";
+# This doesn't work well.  Must investigate.
+#  my $realm = shift;
+#  print qq(WWW-Authenticate: Basic realm="$realm"\n) if $realm;
+  open FILE, "../header.inc"
+        or carp $!;
+  my $html = join('',<FILE>);
+  close FILE;
+
+  $html =~ s/\$\$TITLE\$\$/$title/;
+# Necessary for mangling arbitrary bits of the header
+  my $i=0;
+  while (defined(my $param = shift)) {
+    $html =~ s/\$\$EXTRA$i\$\$/$param/g;
+    $i++;
+  }
+  print $html;
 }