Changeset 9 for trunk/lib

Timestamp:

03/06/09 05:09:15 (15 years ago)

Author:

nanardon

Message:

• use session to store login/pass

Location:

trunk/lib

Files:

• Vote.pm (modified) (2 diffs)
• Vote/Controller/Ballot.pm (modified) (3 diffs)

trunk/lib/Vote.pm

@@ -14 +14 @@
 #                 directory
 
-use Catalyst qw/-Debug ConfigLoader Static::Simple/;
+use Catalyst qw/
+    -Debug
+    ConfigLoader
+    Static::Simple
+    Session
+    Session::Store::DBI
+    Session::State::Cookie
+    /;
 
 our $VERSION = '0.01';
@@ -29 +36 @@
 __PACKAGE__->config( name => 'Vote' );
 
+__PACKAGE__->config->{session} = {
+    expires   => 1800,
+    dbi_table => 'sessions',
+    dbi_dsn => 'noo',
+};
+
+
 # Start the application
 __PACKAGE__->setup;
+
+# This is after because db config is in config file
+__PACKAGE__->config->{session}{dbi_dsn} = 'dbi:Pg:' . __PACKAGE__->config->{db};
 
 

trunk/lib/Vote/Controller/Ballot.pm

@@ -33 +33 @@
     $c->stash->{voteid} = $id;
 
+    my $uid = $c->session->{uid} || $c->req->param('uid');
+    my $password = $c->session->{password} || $c->req->param('password');
+
+    if (!($uid && $password)) {
+        $c->stash->{template} = 'ballot/login.tt';
+        return;
+    }
+    $c->session->{uid} = $uid;
+    $c->session->{password} = $password;
+
     my $vote = $c->model('Vote');
     my %choices;
@@ -38 +48 @@
         $choices{$_->{key}} = $_->{label};
     }
+    $c->stash->{choices} = { %choices };
+    $c->stash->{sbal} = { map { $_ => 1 } $c->req->param('sbal') };
 
     my $uid = 'Olivier Thauvin'; # for test now
-    if ($c->req->param('ballot')) {
+    if ($c->req->param('confirm')) {
         $vote->register_ballot(
             $uid,
@@ -50 +62 @@
             $c->req->address,
         ); # TODO trap error
+        $c->forward('done');
     }
 }
 
+sub done : Private {
+    my ( $self, $c ) = @_;
+    $c->response->body('Vote réussi.');
+    $c->delete_session('Vote terminé');
+}
 
 =head1 AUTHOR