#!/usr/bin/perl
#
require 'stat.pl';

# Path to where the image file is stored
#$dir = "/home/webcam/public_html/";
$dir = "/home/users/webcam/";

#Filename the images are stored as
#$filename1 = "fullsize.jpg";
$filename1 = "image.jpg";
$filename2 = "halfsize.jpg";

#archivverzeichnis
$archivdir = "archiv/";

#destinationfile
#$desti = `date -d 'yesterday' '+/home/w/public_html/proj/akademie/log/%y%m%d.txt'`;
$desti = `date '+%Y%m%d%H%M%S'`;
chop $desti;





$basefile1 = $dir . $filename1;
@fstat1 = stat($basefile1);

$timestap1_new = join ("",@fstat1);

#print "$timestap1_new \n";
#print "${dir}${filename1}.txt \n";

open (INTERN,"${dir}${filename1}.txt")  || die "1 can't open $file $!" ;
$timestap1_old = <INTERN>;
close INTERN;


if ($timestap1_new==$timestap1_old) {}
else {
###print "new timestamp 1 !!! \n";
###print "cp ${dir}${filename1} ${dir}${archivdir}${desti}${filename1}";
 system "cp ${dir}${filename1} ${dir}${archivdir}${desti}${filename1}";
 open (INTERN,">${dir}${filename1}.txt")  || die "2 can't open $file $!" ;
 print INTERN "$timestap1_new";
 close INTERN;
 }




#$basefile2 = $dir . $filename2;
#@fstat2 = stat($basefile2);
#
#$timestap2_new = join ("",@fstat2);
#
##print "$timestap2_new \n";
##print "${dir}${filename2}.txt \n";
#
#open (INTERN,"${dir}${filename2}.txt")  || die "3 can't open $file $!" ;
#$timestap2_old = <INTERN>;
#close INTERN;
#
#if ($timestap2_new==$timestap2_old) {}
#else {
####print "new timestamp 2 !!! \n";
####print "cp ${dir}${filename2} ${dir}${archivdir}${desti}${filename2}";
# system "cp ${dir}${filename2} ${dir}${archivdir}${desti}${filename2}";
# open (INTERN,">${dir}${filename2}.txt")  || die "4 can't open $file $!" ;
# print INTERN "$timestap2_new";
# close INTERN;
# }



#