rev 1321 - trunk/siesta/lib/Siesta/Plugin

[prev] [thread] [next] [lurker] [Date index for 2003/08/12]

Author: richardc
Date: 2003-08-12 16:09:10 +0100 (Tue, 12 Aug 2003)
New Revision: 1321

Modified:
   trunk/siesta/lib/Siesta/Plugin/Challenge.pm
   trunk/siesta/lib/Siesta/Plugin/Subscribe.pm
Log:
this is just plain wrong, but Crypt::RandPasswd hangs 3 times in 10

Modified: trunk/siesta/lib/Siesta/Plugin/Challenge.pm
===================================================================
--- trunk/siesta/lib/Siesta/Plugin/Challenge.pm	2003-08-12 13:06:58 UTC (rev 1320)
+++ trunk/siesta/lib/Siesta/Plugin/Challenge.pm	2003-08-12 15:09:10 UTC (rev 1321)
@@ -1,7 +1,6 @@
 package Siesta::Plugin::Challenge;
 use strict;
 use Siesta::Plugin;
-use Crypt::RandPasswd;
 use base 'Siesta::Plugin';
 
 # suggested usage  set_plugins( subscribe => qw( Challenge Subscribe ) );
@@ -18,7 +17,7 @@
     my $newmember = 0;     # is this a new member
     my $member = Siesta::Member->load( $mail->from );
     unless ($member) {
-        my $password = Crypt::RandPasswd->word(6, 10);
+        my $password = `pwgen -1`; # XXX bad and wrong!
         $member = Siesta::Member->create({ email    => $mail->from,
                                            password => $password });
         $newmember = 1;

Modified: trunk/siesta/lib/Siesta/Plugin/Subscribe.pm
===================================================================
--- trunk/siesta/lib/Siesta/Plugin/Subscribe.pm	2003-08-12 13:06:58 UTC (rev 1320)
+++ trunk/siesta/lib/Siesta/Plugin/Subscribe.pm	2003-08-12 15:09:10 UTC (rev 1321)
@@ -3,7 +3,6 @@
 use strict;
 use Siesta::Plugin;
 use base 'Siesta::Plugin';
-use Crypt::RandPasswd;
 
 sub description {
     'A system plugin used for subscribing a member to the list';
@@ -26,7 +25,7 @@
     my $user = Siesta::Member->load( $email );
     my $newuser;
     unless ($user) {
-        my $password = Crypt::RandPasswd->word(6, 10);
+        my $password = `pwgen -1`; # XXX bad and wrong!
         $user = Siesta::Member->create({ email    => $email,
                                          password => $password });
         $newuser = 1;

• rev 1321 - trunk/siesta/lib/Siesta/Plugin richardc 16:09 on 12 Aug 2003

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52