--- Peter Lemus <[EMAIL PROTECTED]> wrote:
> Hi, folks,
>
> I need to get every possible error on this script
> including errors from system commands.
lol -- looks more like a batch file. ;o]
Seriously, you might consider putting all this in one SOMEFILE.BAT and
running that as an open3(), though that's a gruesome affair....
Have they upgraded Windoze enough to manually redirect the error output
yet? *NIX would make it pretty easy to shunt STDERR to a file (or
anywhere else you wnated it) and then read it back in, but in
Win32....?
I dunno.....
> 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/
=====
print "Just another Perl Hacker\n"; # edited for readability =o)
=============================================================
Real friends are those whom, when you inconvenience them, are bothered less by it than
you are. -- me. =o)
=============================================================
"There are trivial truths and there are great Truths.
The opposite of a trival truth is obviously false.
The opposite of a great Truth is also true." -- Neils Bohr
__________________________________________________
Do You Yahoo!?
Yahoo! Auctions - buy the things you want at great prices
http://auctions.yahoo.com/
