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
  12
  13 # Ultra-trivial templating engine
  14
  15
  16 my $pathinfo = $ENV{PATH_INFO};
  17 unless ($pathinfo) {
  18         my $gcgi = Girocco::CGI->new('HTML Templater');
  19         print "<p>Hi, this is your friendly HTML templater speaking. Pass me template name.</p>\n";
  20         exit;
  21 }
  22
  23 unless ($pathinfo !~ m#\./# and open(TEMPLATE, "$Girocco::Config::basedir/html/$pathinfo")) {
  24         my $gcgi = Girocco::CGI->new('HTML Templater');
  25         print "<p>Invalid template name.</p>\n";
  26         exit;
  27 }
  28
  29 my ($gcgi, $section, $heading);
  30
  31 while (<TEMPLATE>) {
  32         chomp;
  33         if (s/^\@section=//) {
  34                 $section = $_;
  35                 next;
  36         } elsif (s/^\@heading=//) {
  37                 $heading = $_;
  38                 next;
  39         } elsif (s/^\@header//) {
  40                 $gcgi = Girocco::CGI->new($heading, $section);
  41                 next;
  42         } else {
  43                 print "$_\n";
  44         }
  45 }
  46
  47 close TEMPLATE;
  48
  49 $gcgi and $gcgi->srcname("html/$pathinfo");