#!/usr/local/bin/perl -w

$src = "/usr/local/etc/httpd_1.3/cgi-bin/Eliashim";
# month-day-hour-minute-sec
$date=((localtime)[4]+1)."-".(localtime)[3]."-".(localtime)[2]."-".(localtime)[1]."-".(localtime)[0];
$trg = "$src/backup/$date";
system("mkdir $trg");

# Copy directories
foreach $i ("Setup_files", "Users", "Library", "Data_files", "bin", "RCS", "../../docs/Eliashim"){
  system("cp -r $src/$i $trg");
}

# Copy plain files
foreach $j ("db_manager.cgi", "README.INSTALLATION", "README.CHANGES" ){
  system("cp -r $src/$j $trg");
}

system("tar -cvf $src/$date.tar $trg");
system("gzip $src/$date.tar");
