# Copyright 2000 - 2004 George Shaffer
# Anyone may use or modify this code for any purpose PROVIDED
# that as long as it is recognizably derived from this code,
# that this copyright notice, remains intact and unchanged.
# No warrantees of any kind are expressed or implied.

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
      localtime(time());
my @daytab = ("Sun","Mon","Tue","Wed","Thu","Fri","Sat");
my $day = $daytab[$wday];

system("attrib -a -h -r -s \"c:\\winnt\\Profiles\\mainuser\\Temporary Internet Files\\*.*\" /s");
system("attrib -a -h -r -s \"c:\\winnt\\Profiles\\admin\\Temporary Internet Files\\*.*\" /s");
system("attrib -a -h -r -s \"c:\\winnt\\Profiles\\anotheruser\\Temporary Internet Files\\*.*\" /s");

system("xcopy c:\\boot.ini d:\\backups\\nt\\$day\\c_drive\\ /r /h  /c");
system("xcopy \"c:\\program files\\*.*\" \"d:\\backups\\nt\\$day\\c_drive\\program files\\\" /s /a /r /h  /c");
system("xcopy c:\\regback\\$day\\*.* d:\\backups\\nt\\$day\\c_drive\\regback\\$day\\ /s /a /r /h  /c");
system("xcopy c:\\winnt\\*.* d:\\backups\\nt\\$day\\c_drive\\winnt\\ /s /a /r /h  /c");
system("xcopy c:\\winnt_recovery_system\\*.* d:\\backups\\nt\\$day\\c_drive\\winntbak\\ /s /a /r /h  /c");

system("attrib -a d:\\my_website\\catalog.wci\\*.* /s");
system("attrib -a d:\\applications\\netscape\\users\\default\\cache\\*.* /s");

system("xcopy d:\\applications\\*.* d:\\backups\\nt\\$day\\d_drive\\apps\\ /s /a /r /h  /c");
system("xcopy d:\\customer_web_site\\*.* d:\\backups\\nt\\$day\\d_drive\\atla\\ /s /a /r /h  /c");
system("xcopy d:\\utilities\\*.* d:\\backups\\nt\\$day\\d_drive\\bin\\ /s /a /r /h  /c");
system("xcopy d:\\downloaded_files\\*.* d:\\backups\\nt\\$day\\d_drive\\download\\ /s /a /r /h  /c");
system("xcopy d:\\my_website\\*.* d:\\backups\\nt\\$day\\d_drive\\geodsoft\\ /s /a /r /h  /c");
system("xcopy d:\\other_app_data\\*.* d:\\backups\\nt\\$day\\d_drive\\history\\ /s /a /r /h  /c");
system("xcopy d:\\more_web_sites\\*.* d:\\backups\\nt\\$day\\d_drive\\inetpub\\ /s /a /r /h  /c");
system("xcopy d:\\user_data\\*.* d:\\backups\\nt\\$day\\d_drive\\users\\ /s /a /r /h  /c");

system("echo.");
system("echo Done archiving C: and D:.  About to copy archive to F:");
system("echo.");

if (-e "f:\\") {
   my $date = get_yymmdd(time());
   print "F: is mounted.  Date is $date\n";
   system("xcopy d:\\backups\\nt\\$day\\*.* f:\\nt$date\\ /s /r /h");
   system("copy d:\\backups\\nt\\backup.log f:\\nt$date");
}

sub get_yymmdd {
   my $time = shift;
   my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
   $year = substr($year + 1900,2,2);
   my $yymmdd = (sprintf "%02.2d", $year) . (sprintf "%02.2d", $mon+1) .
      (sprintf "%02.2d", $mday);
   return $yymmdd;
}