cgi/html.cgi

   1 #!/usr/bin/perl
   2 # (c) Petr Baudis <pasky@suse.cz>
   3 # GPLv2
   4
   5 use strict;
   6 use warnings;
   7
   8 use lib ".";
   9 use Girocco::CGI;
  10 use Girocco::Config;
  11 use Girocco::Util;
  12
  13
  14 # Ultra-trivial templating engine
  15
  16
  17 my $pathinfo = $ENV{PATH_INFO};
  18 unless ($pathinfo) {
  19         my $gcgi = Girocco::CGI->new('HTML Templater');
  20         print "<p>Hi, this is your friendly HTML templater speaking. Pass me template name.</p>\n";
  21         exit;
  22 }
  23
  24 unless ($pathinfo !~ m#\./# and open(TEMPLATE, "$basedir/html/$pathinfo")) {
  25         my $gcgi = Girocco::CGI->new('HTML Templater');
  26         print "<p>Invalid template name.</p>\n";
  27         exit;
  28 }
  29
  30 my ($gcgi, $section, $heading);
  31
  32 while (<TEMPLATE>) {
  33         chomp;
  34         if (s/^\@section=//) {
  35                 $section = $_;
  36                 next;
  37         } elsif (s/^\@heading=//) {
  38                 $heading = $_;
  39                 next;
  40         } elsif (s/^\@header//) {
  41                 $gcgi = Girocco::CGI->new($heading, $section);
  42                 next;
  43         } else {
  44                 print "$_\n";
  45         }
  46 }
  47
  48 close TEMPLATE;
  49
  50 $gcgi and $gcgi->srcname("html/$pathinfo");