Subversion Repositories VORC

Rev

Rev 65 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 65 Rev 153
Line 13... Line 13...
13 
use CGI::Cookie;
 13 
use CGI::Cookie;
14 
use DBI;
 14 
use DBI;
15 
use HTML::Tiny;
 15 
use HTML::Tiny;
16 
my $h = HTML::Tiny->new( mode => 'html' );
 16 
my $h = HTML::Tiny->new( mode => 'html' );
17 
use WebDB;
 17 
use WebDB;
18 
my $dbh = WebDB->connect ();
 18 
my $dbh = WebDB::connect ();
Line 19... Line 19...
19 
 
 19 
 
20 
my $cookie_string = authenticate(2) || die;
 20 
my $cookie_string = authenticate(2) || die;
21 
my ($EML, $PWD, $LVL) = split /&/, $cookie_string;
 21 
my ($EML, $PWD, $LVL) = split /&/, $cookie_string;
22 
my $user = getUser ($EML);
 22 
my $user = getUser ($EML);