#!/usr/bin/perl 

use strict;
use File::Copy;

my $srcdir="/home/www/bolling-cam/today";
my $archdir="/home/www/bolling-cam/archive";
my $destdir;
my $filename;
my $year;
my $month_day;
my $time;
my $date_output;
my $year_today;
my $month_day_today;
my $hour_minute_today;
my $junk;

$date_output=`date +%Y_%D_%T`;
($year_today,$month_day_today,$hour_minute_today)=split(/_/,$date_output);
$month_day_today =~ s/(\d*)\/(\d*)\/.*/$1$2/;
$hour_minute_today =~ s/(\d*):(\d*):.*/$1$2/;
###Make today's dir in archive
$destdir=$archdir . "/" . $year_today . "-" . $month_day_today;
if (!mkdir($destdir,0775)){
	die "Can't make dir $destdir: $!\n";
}

###Move yesterday's images to archive
opendir(IMAGES, $srcdir) 
	|| die "Can't open dir $srcdir: $!\n";
while($filename=readdir(IMAGES)){
	if ($filename =~ /^\./) {next};
	if ($filename eq "current.jpg") {next};
	if (!move("$srcdir/$filename",$destdir)){
		die "Can't move file $srcdir/$filename: $!\n";
		}
}
closedir(IMAGES);