bgui/website/cgi-style.pl

   1 # $Id$
   2 #
   3 # Perl routines to encapsulate various elements of HTML page style.
   4
   5 # For future reference, when is now?
   6 ($se,$mn,$hr,$md,$mo,$yr,$wd,$yd,$dst) = localtime(time);
   7 $yr += 1900;
   8 $mo += 1;
   9 $timestamp = "$mo-$md-$yr";
  10
  11 # Colors for the body
  12 $t_body = "<body>";
  13
  14 if (!defined($hsty_base)) {
  15     $hsty_base = "..";
  16 }
  17 if (!defined($hsty_email)) {
  18     $hsty_email = "webmaster\@$ENV{SERVER_NAME}";
  19 }
  20 if (!defined($hsty_author)) {
  21     $hsty_author = "<a href=\"$hsty_base/mailto.html\">$hsty_email</a>";
  22 }
  23
  24 $i_topbar = "<P><CENTER><A HREF=\"/\">BGUI Developers Site</A> | <A HREF=\"/bugs.html\">BGUI Bug Database</A></CENTER></A>";
  25
  26 if ($hsty_home eq "") {
  27     $hsty_home = "<a href=\"$hsty_base/\"><img src=\"$hsty_base/gifs/home.gif\"
  28   alt=\"FreeBSD Home Page\" border=\"0\" align=\"right\"></a>";
  29 }
  30
  31 sub html_header {
  32     local ($title) = @_;
  33
  34     return "Content-type: text/html\n\n" .
  35         "<html>\n<title>$title</title>\n</head>\n$t_body\n" .
  36         "$i_topbar <h1>$title</h1>\n";
  37 }
  38
  39 sub short_html_header {
  40     local ($title) = @_;
  41
  42     return "Content-type: text/html\n\n" .
  43         "<html>\n<title>$title</title>\n</head>\n$t_body\n" .
  44         "$i_topbar";
  45 }
  46
  47 sub html_footer {
  48     return "<hr><address>$hsty_author<br>$hsty_date</address>\n";
  49 }
  50
  51 sub get_the_source {
  52     return if $ENV{'PATH_INFO'} ne '/get_the_source';
  53
  54     open(R, $0) || do {
  55         print "Oops! open $0: $!\n";  # should not reached
  56         exit;
  57     };
  58
  59     print "Content-type: text/plain\n\n";
  60     while(<R>) { print }
  61     close R;
  62     exit;
  63 }
  64