Difference between revisions of "SME Server talk:Documentation:Developers Manual"

From SME Server
Jump to navigationJump to search
m
Line 1: Line 1:
 
 
Is bandwidth usage an issue ? that was why i had the index page with links to chapters
 
Is bandwidth usage an issue ? that was why i had the index page with links to chapters
  
Line 5: 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)

Revision as of 12:38, 16 May 2008

Is bandwidth usage an issue ? that was why i had the index page with links to chapters

http://wiki.contribs.org/index.php?title=SME_Server:Documentation:Developers_Manual&oldid=9456

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.

--Brianr 04:38, 16 May 2008 (MDT)