#!/usr/bin/perl

# sitebuild-confiles
# by Gav Ford
# revford@blueyonder.co.uk
# http://revford.pwp.blueyonder.co.uk
# 2008-02, updated 2008-05-01
# create the complete HTML pages for the site from the contfiles


use Term::ANSIColor qw(:constants);
use FindBin '$RealBin';


require "$RealBin/lib-rf-sitebuild.pl";


# read the posts directory
opendir DIR, "$contdir" or die RED, "Directory $contdir could not be opened.\n";
  @contlist = readdir DIR;
  closedir DIR;
# remove . and ..
@contlist = grep {$_ ne '.' and $_ ne '..'} @contlist;


foreach (@contlist) {
  $myname = $_;
  $myname =~ s/\.cont//;
  $filename = $myname . ".html";

  open FILE, "$contdir\/$_" or die RED, "File $contdir\/$_ could not be opened.\n";
    @content = <FILE>;
    close FILE;

  # open the file to write
  open FILE, "> $htmldir\/$filename" or die RED, "File $htmldir/$filename could not be opened.\n";

  print FILE pageheadfull($filename);

  # write content from .cont
  print FILE @content;

  print FILE pagefootfull($filename);


  # close FILE
  close FILE;
}