Archive Logs

Hi Folks

Need help in getting the code to work in a Win32 perl system.
I was able to get it to work in a Linux system but not on a Windows 2000
Server.
Could you folks please review the code between Archive Logs Report and
exit 0;
I just gave up and put in the code that works in a shell script.

Thanks for your help. 
------------------------------------------------------------------------
-------

#!/Perl/bin/perl.exe -w 

################################################### 
# 
# This script moves the working file into a 
# archive directory and place a date stamp
# on the archive files.
# 
################################################### 
######################  Start of Script  ###################### 
$time_string = time_string();
######################  Archive Logs Report  ###################### 

c:
cd \
cd \EDS\CLM\Merge_Processing_Area             # <-- Source location of
the files to be archive
tar -czvf c:\EDS\CLM\Weekly_Archive_Logs\%DATE%.tgz * >>
c:\CLM\Weekly.log  # <-- Location of archive to be placed with date
stamp and logged. 
cd \

exit 0; 

######################  Time stamp  ###################### 
# Create timestring for log file 
sub time_string { 
my ($time_string, $sc, $mi, $hr, $dy, $mo, $yr); 
 
($sc, $mi, $hr, $dy, $mo, $yr) = localtime(time); 
$mo += 1; 
$yr += 1900; 
$time_string = sprintf( "%04d%2d%02d", 
     $yr, $mo, $dy ); 
return $time_string; 
}
######################  End of Script  ######################

• Archive Logs by Tim Martin
• Re: Archive Logs by Rob Dixon