Hi, folks,
I need to get every possible error on this script
including errors from system commands.
sub DEBUG () { 1 }; # set level of debugness.
open (STDERR, ">c:/admin/errorcms.log") or die $!;
select STDERR;
print "File/s being copied
now.............................\n";
use file::spec;
system ("net use q: /delete"); #if drive is already
mapped, un-map the drive.
system ("net use r: /delete");
system ("net use s: /delete");
system ("net use t: /delete");
system ("net use u: /delete");
system ("net use v: /delete");
system ("net use w: /delete");
system ("net use x: /delete");
system ("net use y: /delete");
system ("net use f: /delete");
system ("net use r: \\\\sf_sys01\\cmsopen"); # map
network drives:
system ("net use s: \\\\de_sys01\\cmsopen");
system ("net use t: \\\\da_sys01\\cmsopen");
system ("net use u: \\\\cc_sys01\\cmsopen");
system ("net use v: \\\\prsys01\\cmsopen");
system ("net use w: \\\\lesys01\\cmsopen");
system ("net use x: \\\\oc_sys01\\cmsopen");
system ("net use y: \\\\dc_sys01\\cmsopen");
system ("net use f: \\\\la_sys01\\cmsopen");
system ("set
PATH=c:\;q:;r:;s:;t:;u:;v:;w:;x:;y:;z:;%PATH%");
use file::spec;
use win32;
open (DIRS, 'c:/admin/paths.txt') || die "can't open
file he: $!\n";
sleep 1;
while ($path=<DIRS>) { # read paths line by line.
chdir ("c://admin//cmsfiles");
system ("copy *.* $path") || print "File/s
was/were copied to $path ....\n";
sleep 1;
}
system ("net use r: /delete"); #unmap the network
drives.
system ("net use s: /delete");
system ("net use t: /delete");
system ("net use u: /delete");
system ("net use v: /delete");
system ("net use w: /delete");
system ("net use x: /delete");
system ("net use y: /delete");
# system ("net use f: /delete"); #ok to keep mapped..
print "\n";
print "\n";
print "New cmsopen files have been copied
successfully..............\n";
close (DIRS);
close STDERR;
=====
Peter Lemus
Computer Networks Engineer
[EMAIL PROTECTED]
My Dad always tought me; when you do good; expect to receive good; when you do bad;
expect the bad...sooner or later.
__________________________________________________
Do You Yahoo!?
Yahoo! Auctions - buy the things you want at great prices
http://auctions.yahoo.com/
