Subversion Repositories PEEPS

Rev

Rev 2 | Rev 4 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 3
Line 10... Line 10...
10 
use PEEPS;
 10 
use PEEPS;
11 
use CGI qw/param header start_html url/;
 11 
use CGI qw/param header start_html url/;
12 
use CGI::Cookie;
 12 
use CGI::Cookie;
13 
our $h = HTML::Tiny->new( mode => 'html' );
 13 
our $h = HTML::Tiny->new( mode => 'html' );
14 
my $dbh = getRCDBH ();
 14 
my $dbh = getRCDBH ();
- 
 
 15 
$ENV{HTTPS} = 'ON';
15 
$dbh->{PrintError} = 1;
 16 
$dbh->{PrintError} = 1;
Line 16... Line 17...
16 
 
 17 
 
17 
my $cookie_string = authenticate (1) || die;
 18 
my $cookie_string = authenticate (1) || die;
18 
my ($EML, $PWD, $LVL) = split /&/, $cookie_string;
 19 
my ($EML, $PWD, $LVL) = split /&/, $cookie_string;