Re: script "freeze"

[Chris Knipe]

Strange...
comment out use strict, and everything works....
Is this a coding error??? I can't see anything in the code that should break 
things, but I do realise it's perhaps not the best of code...

--
Chris.
----- Original Message ----- 
From: "Chris Knipe" <[EMAIL PROTECTED]>
To: <beginners@perl.org>
Sent: Friday, March 18, 2005 4:09 PM
Subject: script "freeze"


Lo all,
I suspect this is Crypt::RandPassword's doing, but if anyone can please 
help, I'd appreciate it (as always)

<code>
#!/usr/bin/perl
use Crypt::RandPasswd;
use Mysql;
use Net::SMTP;
use Number::Format;
use POSIX;
use strict;
use Sys::Syslog;
use warnings;
 # Stage 1: Rotate Test Passwords.
 $Date_Start = POSIX::strftime("%Y-%m-%d", 0, 0, 0, ($MDay - 1), $Mon, 
$Year, $WDay, $YDay, $Isdst);
 my $Pass064 = Crypt::RandPasswd::word('8','10');
 my $Pass128 = Crypt::RandPasswd::word('8','10');
 my $Pass192 = Crypt::RandPasswd::word('8','10');
 my $Pass256 = Crypt::RandPasswd::word('8','10');

print "UPDATE RadiusCheck SET Value='" . $Pass064 . "' WHERE 
UserName='TEST064' AND CustID='0'\n";
print "UPDATE RadiusCheck SET Value='" . $Pass128 . "' WHERE 
UserName='TEST128' AND CustID='0'\n";
print "UPDATE RadiusCheck SET Value='" . $Pass192 . "' WHERE 
UserName='TEST192' AND CustID='0'\n";
print "UPDATE RadiusCheck SET Value='" . $Pass256 . "' WHERE 
UserName='TEST256' AND CustID='0'\n";

die;
</code>
The script never gets to the PRINT statements.  I run it, it works.  I run 
it again, it just sits there with a blank.  Sometimes, one or more of the 
print statements will execute, sometimes all of them, sometimes none of 
them.  This code is as simple as can be... Am I doing anything wrong??

--
Chris.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>