#!/usr/bin/perl

use strict;
use warnings;

sub Main ();
sub ModTime ($);
sub Update ();

$config'htmldir = '/Library/WebServer/Documents/albany/';

Main;

sub Main () {
  chdir $config'htmldir or die "chdir failed: $!\n";
  while (1) {
    my $datatime = ModTime "index.html";
    my $flagtime = ModTime "flag.txt";
    if ((!defined $flagtime) || $flagtime < $datatime) { 
      print "Uploading ($flagtime < $datatime).\n";
      Update; 
      print "Done.\n";
      }
    else { 
#     print "Waiting.\n";
      sleep 15; 
      }
    }
  }

sub ModTime ($) {
  my $fn = shift;
  return ((stat $fn)[9]);
  }

sub Update () {
  system 'ftp -u ftp://somebody@www.poslfit.com/albany/2005/me/ *.html *.css >> ftp.log';
  open my $fh, ">flag.txt" or die "Can't create flag.txt: $!\n";
  print $fh "testing\n";
  close $fh;
  }
