Re: Moving Log files remotely

You may need to run your process as a valid user for \\NTSERVER . A simple test would be to click start->run, then in the textbox type \\NTSERVER, and if it brings up a login box you know that you need to mount/logon to that server first. You may be able to use Win32::AdminMisc to help you.

As a side note, you could shorten your timestamp code from

($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
$mon = (1,2,3,4,5,6,7,8,9,10,11,12)[$mon];

if($mon  < 10){$mon  = "0" . $mon;}           # add a leading zero to 
+one-digit months
if($mday < 10){$mday = "0" . $mday;}    # add a leading zero to one-di
+git days
if($hour < 10){$hour = "0" . $hour;}    # add a leading zero to one-di
+git hours
if($min  < 10){$min  = "0" . $min;}           # add a leading zero to 
+one-digit minutes
if($sec  < 10){$sec  = "0" . $sec;}            # add a leading zero to
+ one-digit seconds

$dirname  = substr($year,1,3) . $mon . $mday . $hour . $min . $sec;
[download]

to this

my @time = localtime();
$time[4]++; # convert from 0 based index to 1 based index
$time[5]-=100; # 2digits=subtract 100 or 4digits=add 1900
$time[$_] = $time[$_]<10? "0".$time[$_]:$time[$_] for (0..5);

$dirname = $time[5].$time[4].$time[3].$time[2].$time[1].$time[0];
[download]

--
hiseldl
"Act better than you feel"

Comment on Re: Moving Log files remotely Select or Download Code

Replies are listed 'Best First'.
Re: Re: Moving Log files remotely by fglock (Vicar) on Sep 10, 2002 at 20:28 UTC
`$time[5]-=100;` is scary for people who had Y2K problems. ++ anyway.	[reply] [d/l]
Re: Moving Log files remotely by hiseldl (Priest) on Sep 10, 2002 at 20:37 UTC
if you can `use POSIX;` which I just tried on my win2k box and worked, you could use something like this instead: `use POSIX; # %Y = 4 digit year and %y = 2 digit year $dirname = strftime("%Y%m%d%H%M%S", localtime);` [download] Also, you may want to add the PID on the end just in case it runs more than once for the same second. :) -- hiseldl "Act better than you feel"	[reply] [d/l] [select]