Changeset 28 for trunk/lib/Vote/Model/Vote.pm

Timestamp:

03/14/09 16:02:04 (15 years ago)

Author:

nanardon

Message:

• add: send mail to voting people

File:

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

trunk/lib/Vote/Model/Vote.pm

@@ -6 +6 @@
 use Vote;
 use DBI;
+use Mail::Mailer;
 
 =head1 NAME
@@ -637 +638 @@
 
 sub mail_passwd_ifnul {
-    my ($self, $voteid) = @_;
+    my ($self, $voteid, $mailinfo) = @_;
 
     my $list_voting = $self->db->prepare_cached(
-        q{select key from voting where poll = ? and passwd is null}
+        q{select key from voting where poll = ? and passwd is null or passwd = ''}
     );
 
     $list_voting->execute($voteid);
     while (my $res = $list_voting->fetchrow_hashref) {
-        $self->mail_voting_passwd($res->{key});
+        $self->mail_voting_passwd($res->{key}, $mailinfo);
     }
 }
 
 sub mail_voting_passwd {
-    my ($self, $id) = @_;
+    my ($self, $id, $mailinfo) = @_;
     
     my $vinfo = $self->voting_info($id) or return;
-
-
+    my $voteinfo = $self->vote_info($vinfo->{poll});
+
+    my $passwd = random_string(8);
+    my $encpasswd = $self->gen_enc_passwd($passwd);
+
+    my $upd_voting = $self->db->prepare_cached(
+        q{update voting set passwd = ? where key = ?}
+    );
+
+    $upd_voting->execute($encpasswd, $id);
+
+    # TODO complete this properly:
+    my $mailer = new Mail::Mailer 'smtp', Server => 'mailhost';
+    $mailer->open({
+        From => 'Voting system <nomail@nomail.com>',
+        To => $vinfo->{mail},
+        Subject => 'Vote passwd',
+    });
+    print $mailer <<EOF;
+Vous êtes convié à voter:
+$voteinfo->{label}
+
+Votre identifiant est: $vinfo->{id}
+Votre mot de passe est: $passwd
+
+Cordialement.
+EOF
+    $mailer->close;
+
+    $self->db->commit;
 }