Subversion Repositories PEEPS

Rev

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

Rev 3 Rev 4
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 
$ENV{HTTPS} = 'ON' if $ENV{SERVER_NAME} =~ /^peeps/;
16 
$dbh->{PrintError} = 1;
 16 
$dbh->{PrintError} = 1;
Line 17... Line 17...
17 
 
 17 
 
18 
my $cookie_string = authenticate (1) || die;
 18 
my $cookie_string = authenticate (1) || die;
19 
my ($EML, $PWD, $LVL) = split /&/, $cookie_string;
 19 
my ($EML, $PWD, $LVL) = split /&/, $cookie_string;