<%once>
$AuthDBH = DBI->connect('dbi:mysql:authority:10.33.8.159', 'appadmin', 'f00tbal
l')  or die "poop sandwich";
$RepDBH = DBI->connect('dbi:mysql:reports:10.33.8.159', 'appadmin', 'f00tball')
 or die "poop sandwich";

 use Auth::User;
 use Digest::SHA1;

</%once>
<%init>
 my %cookies = Apache2::Cookie->fetch($r);
 my $guest = User->guest;
 my $user;

 if (exists $cookies{user_login})
 {
   my %user_info = $cookies{user_login}->value;

   if ( $user_info{used_id} && $user_info{MAC})
   {
     my $MAC = Digest::SHA1::sha1_hex($user_info{user_id}, "Get the S1gnal!");

     if ( $user_info{MAC} eq $MAC )
     {
       $user = User->new($user_info{used_id});
     }
   }
 }

 local $User = $user || $guest;

 $m->call_next

</%init>
<%flags>
 inherit=>undef
</%flags>