Changeset 27

Timestamp:

03/14/09 15:33:39 (15 years ago)

Author:

nanardon

Message:

• ooops, typo

File:

• trunk/lib/Vote/Model/Vote.pm (modified) (2 diffs)

trunk/lib/Vote/Model/Vote.pm

@@ -37 +37 @@
 sub db { $_[0]->{db} }
 
+sub random_string {
+    my $lenght = $_[-1] || 8;
+
+    return join('', map { ('a'..'z', 'A'..'Z', 0..9)[rand 62] } (1..$lenght));
+}
+
+sub gen_enc_passwd {
+    my ($self, $passwd) = @_;
+
+    $passwd ||= random_string(8);
+    return(crypt($passwd, '$1$' . random_string(8) . '$'));
+}
+
 sub list_comming_vote {
     my ($self) = @_;
@@ -623 +636 @@
 }
 
+sub mail_passwd_ifnul {
+    my ($self, $voteid) = @_;
+
+    my $list_voting = $self->db->prepare_cached(
+        q{select key from voting where poll = ? and passwd is null}
+    );
+
+    $list_voting->execute($voteid);
+    while (my $res = $list_voting->fetchrow_hashref) {
+        $self->mail_voting_passwd($res->{key});
+    }
+}
+
+sub mail_voting_passwd {
+    my ($self, $id) = @_;
+    
+    my $vinfo = $self->voting_info($id) or return;
+
+
+}
 
 =head1 AUTHOR