/[gedafe]/trunk/lib/perl/Gedafe/Start.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/perl/Gedafe/Start.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1 by dpavlin, Mon Feb 14 18:52:26 2005 UTC revision 14 by dpavlin, Sun May 8 15:01:05 2005 UTC
# Line 113  sub Start(%) Line 113  sub Start(%)
113          GUI_CheckFormID(\%s, $user);          GUI_CheckFormID(\%s, $user);
114    
115          my $ticket_value;          my $ticket_value;
116          my $dbh = AuthConnect(\%s, \$user, \$cookie,\$ticket_value) or do {          my $dbh;
117                  die "Couldn't connect to database or database error";  
118          };          if ($g{conf}{preauth_user}) {
119                    use Gedafe::DB qw(DB_Connect);
120                    $dbh = DB_Connect($g{conf}{preauth_user},($g{conf}{preauth_passwd} || ''));
121                    $user = $g{conf}{preauth_user};
122            } else {
123                    $dbh = AuthConnect(\%s, \$user, \$cookie,\$ticket_value) or do {
124                            die "Couldn't connect to database or database error";
125                    };
126            }
127                    
128          $s{dbh}=$dbh;          $s{dbh}=$dbh;
129          $s{user}=$user;          $s{user}=$user;

Legend:
Removed from v.1  
changed lines
  Added in v.14

  ViewVC Help
Powered by ViewVC 1.1.26