Lib/std/perl-cgi

   1 #!/usr/bin/env perl
   2
   3 #=========================================================
   4 # STDfilenameDTS
   5 # File ID: STDuuidDTS
   6 # Standardoppsett til index.cgi
   7 # (C)opyright STDyearDTS- Øyvind A. Holm <sunny@sunbase.org>
   8 # Lisens: GNU General Public License versjon 2 eller nyere
   9 #=========================================================
  10
  11 require 5.003;
  12
  13 BEGIN {
  14     $main::Debug = 0; # Skriver masse debuggingsinfo til $debug_file
  15     $main::Utv = (-e "utv.mrk") ? 1 : 0;
  16     $main::utv_str = $main::Utv ? " (utv)" : "";
  17     $main::writable_dir = $main::Utv ? "/tmp" : "/tmp/utv";
  18     $suncgi::Border = 0;
  19     if ($main::Utv) {
  20         unshift(@INC, qw{/home/badata/Utv/perllib /home/badata/Utv/basnakk});
  21     } else {
  22         unshift(@INC, qw{/home/badata/Stable/perllib /home/badata/Stable/basnakk});
  23     }
  24 }
  25
  26 use strict;
  27 use warnings;
  28 use Fcntl ':flock';
  29
  30 use suncgi;
  31
  32 $| = 1;
  33
  34 # Ting som suncgi.pm vil ha:
  35 $Url = $main::Utv ? "http://" : "http://";
  36 $debug_file = "$main::writable_dir/DEBUG";
  37 $error_file = "$main::writable_dir/ERROR";
  38 $log_dir = "$main::writable_dir/log";
  39 $request_log_file = "$log_dir/request.log";
  40 $log_requests = 1;
  41 $WebMaster = 'sunny@sunbase.org';
  42 $doc_width = '95%';
  43
  44 $css_default = <<END;
  45 <style type="text/css">
  46   <!--
  47   body { color: #000000; background: #fefbeb; font-family: sans-serif; }
  48   p, big, th, td, ul, li, h1, h2, h3 { font-family: sans-serif; }
  49   pre { font-family: monospace; }
  50   td.for { font-weight: bold; text-align: right; }
  51   td.oinp, p.oinp { font-weight: bold; text-align: left; }
  52   td.einp { font-weight: lighter; text-align: left; font-size: small; }
  53   div.footer { font-family: sans-serif; font-size: x-small; }
  54   -->
  55 </style>
  56 END
  57
  58 $Opt = get_cgivars();
  59
  60 print_header("Det virket visst.");
  61
  62 tab_print("<h1>Vi er oppe og går</h1>\n");
  63
  64 __END__
  65
  66 =pod
  67
  68 =head1 LICENCE
  69
  70 This program is free software; you can redistribute it and/or modify it
  71 under the terms of the GNU General Public License as published by the
  72 Free Software Foundation; either version 2 of the License, or (at your
  73 option) any later version.
  74
  75 This program is distributed in the hope that it will be useful, but
  76 WITHOUT ANY WARRANTY; without even the implied warranty of
  77 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  78 See the GNU General Public License for more details.
  79
  80 You should have received a copy of the GNU General Public License along
  81 with this program.
  82 If not, see L<http://www.gnu.org/licenses/>.
  83
  84 =cut