#!/usr/bin/perl -w

use POSIX qw(strftime);

print "Page filename: ";
my $name = <STDIN>;
chomp($name);

print "Page title: ";
my $title = <STDIN>;
chomp($title);

print "Description: ";
my $desc = <STDIN>;
chomp($desc);

open(F, "<template.html") || die "open";
open(G, ">$name.html") || die "open for write";;

my $date = strftime("%A, %B %d %Y", localtime time);

while(<F>) {
  $_ =~ s/FIXME: TITLE/$title/g;
  $_ =~ s/FIXME: DATE/$date/g;
  $_ =~ s/FIXME: DESC/$desc/g;
  print G $_;
}

close(F) || die "close";
close(G) || die "close";