Lib/perllib/index.cgi

   1 #!/usr/bin/env perl
   2
   3 # $Id: index.cgi,v 1.2 2000/09/01 10:38:33 sunny Exp $
   4 # Test-index.cgi som ikke skal brukes til noe annet enn testing av suncgi.pm
   5
   6 use suncgi;
   7
   8 $WebMaster="jeg\@er.snill.edu";
   9 $rcs_id = '$Id: index.cgi,v 1.2 2000/09/01 10:38:33 sunny Exp $';
  10 $counter_file = "counter.txt";
  11 $error_file = "errorfile.txt";
  12 $Url = "index.cgi";
  13
  14 %Opt = get_cgivars();
  15 print_doc("test.shtml");
  16 printf "get_countervalue(\"$counter_file\") før increase: %s\n", get_countervalue($counter_file);
  17 increase_counter("counter.txt");
  18 printf "get_countervalue(\"$counter_file\") etter increase: %s\n", get_countervalue($counter_file);
  19 tab_print(<<END);
  20 Hei og hå. her har vi æøåÆØÅ og ¢©@¹@£¡££$£¡ masse drit kort sagt.
  21 127: \x7f
  22 128:
  23 255: ÿ
  24 æææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ
  25 yah
  26 END
  27 exit;
  28
  29 ##############################
  30
  31 print_header("Yess man");
  32
  33 print "print her, og $Tabs = $suncgi::Tabs\n";
  34 tab_print("Heia\n");
  35 Tabs(2);
  36 print "print her, og $Tabs = $suncgi::Tabs\n";
  37 tab_print("Heia\n");
  38 print "local Tabs = $Tabs\n";
  39
  40 #### End of file $Id: index.cgi,v 1.2 2000/09/01 10:38:33 sunny Exp $ ####