Some fixes from our YAPC::Brasil Act instance

.gitignore

@@ -4,5 +4,4 @@
 /Makefile
 /inc
 static
-conf
 /var

conf/act.ini.example

@@ -0,0 +1,69 @@
+[general]
+conferences = FIX_ME FIX_ME_TOO AND_ME
+cookie_name = act
+searchlimit = 20
+dir_photos  = photos
+dir_ttc     = var/
+max_imgsize = 320x200
+root        = $(home)/wwwdocs/
+default_language = en
+languages = pt es en
+timezone = America/Chicago
+default_country = US
+
+[bcrypt]
+cost = 5
+salt = FIX_ME_FIX_ME_FI
+
+[database]
+name        = act
+dsn         = dbi:Pg:dbname=FIX_ME;host=FIX_ME
+user        = FIX_ME
+passwd      = FIX_ME
+dump_file   = /FIX_ME/path/to/act_dump.sql
+pg_dump     = /usr/bin/pg_dump
+test_dsn    = dbi:Pg:dbname=FIX_ME;host=FIX_ME
+test_user   = FIX_ME
+test_passwd = FIX_ME
+
+
+[email]
+sendmail    = /usr/sbin/sendmail
+test        = 0
+sender_address = [email protected]
+
+[wiki]
+dbname      = FIX_ME
+dbuser      = FIX_ME
+dbpass      = FIX_ME
+dbhost      = FIX_ME
+dbport      = FIX_ME
+
+[payment]
+open      = 0
+invoices  = 0
+type        = Fake
+
+[payment_type_Fake]
+plugin = Fake
+notify_bcc  = [email protected]
+
+[flickr]
+# see http://www.flickr.com/services/api/
+apikey  = FIX_ME_FIX_ME_FIX_ME_FIX_ME_FIX_
+
+
+[talks]
+durations = 20 40 60
+start_date = 2011-07-01 00:00:00
+end_date   = 2012-07-01 00:00:00
+submissions_open = 1
+
+[rooms]
+rooms = room1 room2
+room1 = Room 1
+room2 = Room 2
+
+[registration]
+open = 1
+max_attendees = 5000

debug.psgi

@@ -0,0 +1,17 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use lib 'lib';
+
+use Act::Dispatcher;
+use Plack::Builder;
+use Plack::App::Directory;
+
+builder {
+    enable 'Session::Cookie';
+    enable "SimpleLogger", level => "warn";
+    enable 'ReverseProxy';
+    enable 'Debug';
+    Act::Dispatcher->to_app;
+};

lib/Act/Dispatcher.pm

@@ -106,6 +106,7 @@ sub to_app {
 sub conference_app {
     my $static_app = Act::Handler::Static->new;
     builder {
+        enable '+Act::Middleware::Auth';
         enable '+Act::Middleware::Language';
         enable sub {
             my $app = shift;

lib/Act/Handler/User/Register.pm

@@ -66,7 +66,7 @@ sub handler
                 "INSERT INTO participations (user_id, conf_id, datetime, ip) VALUES (?,?, NOW(), ?);"
             );
             $sth->execute( $Request{user}->user_id, $Request{conference},
-                           $Request{r}->connection->remote_ip );
+                           $Request{r}->address );
             $sth->finish();
             $Request{dbh}->commit;
             return Act::Util::redirect(make_uri('main'))

lib/Act/Middleware/Language.pm

@@ -16,6 +16,9 @@ sub call {
 
     my $language;
 
+    # failsafe
+    $env->{'psgix.session'}->{'act'} = {} unless exists $env->{'psgix.session'}->{'act'};
+
     # check session
     my $s = $env->{'psgix.session'}{'act'};
     if ($s && $s->{language} && $langs->{$s->{language}}) {
@@ -27,6 +30,7 @@ sub call {
     my $force_language = $req->param('language');
     if ($force_language && $langs->{$force_language} ) {
         $language = $s->{language} = $force_language;
+
         my $uri = $req->uri;
         my @query = $uri->query_form;
         for (my $i; $i < @query; $i+=2 ) {
@@ -66,6 +70,9 @@ sub call {
     # remember it for this request
     $env->{'act.language'} = $language;
 
+    # make sure whatever was picked last, it stays in the session
+    $s->{'language'} = $language;
+
     # fetch localization handle
     $env->{'act.loc'} = Act::I18N->get_handle($language);
 

lib/Act/Wiki.pm

@@ -16,7 +16,7 @@ sub new
     return Wiki::Toolkit->new(
         store     => Act::Wiki::Store->new(charset => 'UTF-8',
                                            map { $_ => $Config->get("wiki_$_") }
-                                           qw(dbname dbuser dbpass)),
+                                           qw(dbname dbuser dbpass dbhost dbport)),
         formatter => Act::Wiki::Formatter->new(),
     );
 }