#!/usr/bin/perl -w

# kupu_blog.cgi

# Example script that implements a rudimentary blogging
# application using kupu within a HTML form

use CGI;

my $template = '/var/www/craic_external/html/oreilly/kupu/blog_template.html';
my $filePath = '/var/www/craic_external/html/oreilly/kupu/blogdir';
my $htmlPath = 'http://www.craic.com/oreilly/kupu/blogdir';
my $srcFile  = 'http://www.craic.com/oreilly/kupu/kupu/common/kupublank.html';

my $cgi = new CGI;

# Load in a new entry if there is one
my $errorMsg = '';
my $newText = '';
if($cgi->param('kupu')) {
   $newText = $cgi->param('kupu');
   $newText =~ s/\>/\>\n/g;
   my $title = '';
   if($cgi->param('title')) {
      $title = $cgi->param('title');
      saveFile($filePath, $newText, $title);
   } else {
      $errorMsg = qq[<span style="color: red;">ERROR: No title was specified</span><br> <br>];
   }
}

# Load kupu template page

my $text = loadFile($template);

# Fetch existing entries

my $existingBlog = loadBlog($htmlPath, $filePath);

# Replace the placeholder variables in the template page

$text =~ s/\$errorMsg/$errorMsg/;
$text =~ s/\$srcFile/$srcFile/;
$text =~ s/\$existingBlog/$existingBlog/;

# Output the blog entries and the embedded kupu editor

print qq[Content-type: text/html\n\n];

print $text;

exit;


#--------------------------------------------------------------

sub loadFile {

   my $filename = shift;
   my $text = '';

   open INPUT, "< $filename" or die "$0: Unable to open file to read: $filename\n";
   while(<INPUT>) {
       $text .= $_;
   }
   close INPUT;

   $text;
}

#--------------------------------------------------------------

sub saveFile {

   # Save each blog entry to a separate file file__.html
   # Add a line to the index file blog.log

   my $filePath = shift;
   my $text = shift;
   my $title = shift;

   my $logFile = qq[$filePath/blog.log];

   my $timestamp = `date +"%Y%m%d_%H%M%S"`;
   $timestamp =~ s/\s*//g;
   my $name = qq[file_${timestamp}.html];
   $filename = sprintf qq[%s/%s], $filePath, $name;

   open OUTPUT, "> $filename" or die "$0: Unable to open file to write: $filename\n";
   print OUTPUT $text;
   close OUTPUT;

   open OUTPUT, ">> $logFile" or die "$0: Unable to open log: $logFile\n";
   print OUTPUT qq[$name\t$title\n];
   close OUTPUT;
}

#--------------------------------------------------------------

sub loadBlog {

   my $htmlPath = shift;
   my $filePath = shift;

   # Get the lines from the index blog.log
   my $logFile = qq[$filePath/blog.log];
   my @lines = ();
   if(-e $logFile) {
      open INPUT, "< $logFile";
      while(<INPUT>) {
         if(/^\S+/) {
	    chomp $_;
            push @lines, $_;
         }
      }
      close INPUT;
   }    

   # Build a block of HTML that lists the existing entries 
   # with the most recent one first
   my $text = '';
   if(@lines > 0) {
      $text .= qq[<table border="0" cellspacing="5">\n];
      foreach my $line ( reverse @lines) {
         my ($file, $title) = split /\t/, $line;
         my $linkname = qq[$htmlPath/$file];
         my $time = getTimestamp($file);
         $text .= qq[<tr><td>$time</td><td><a href="$linkname">$title</a></td></tr>\n];
      } 
      $text .= qq[</table>\n];
   } else {
      $text .= qq[There are no entries in this blog<br>\n];
   }

   $text;
}


#--------------------------------------------------------

sub getTimestamp {
    my $string = shift;
    my $strout = '';
    if($string =~ /_(\d\d\d\d)(\d\d)(\d\d)_(\d\d)(\d\d)(\d\d)/) {
	$strout = sprintf qq[%02d/%02d/%04d %02d:%02d], $2, $3, $1, $4, $5;
    }
    $strout;
}