Line 4:
Line 4:
[[User:Snoble|Snoble]] 18:29, 28 April 2008 (MDT)
[[User:Snoble|Snoble]] 18:29, 28 April 2008 (MDT)
−
−
−
I am finding that I get a perl warning from this MySQL fragment:
−
−
{
−
my $rec = $DB->get('loggerdemo')
−
|| $DB->new_record('loggerdemo', {type => 'service'});
−
−
my $password = $rec->prop('DbPassword');
−
return "" if $password;
−
−
use MIME::Base64;
−
−
my $rand = sprintf("%08d", int(1_000_000_000 * rand()));
−
my $password = MIME::Base64::encode($rand, "");
−
−
$rec->set_prop('DbPassword', $password);
−
}
−
−
the second "my $password" "masks....." etc.
−
−
suggest removing the "my" on that line.
−
−
--[[User:Brianr|Brianr]] 04:38, 16 May 2008 (MDT)