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 12... Line 12...
12 
use CGI qw/param cookie header start_html url/;
 12 
use CGI qw/param cookie header start_html url/;
13 
use HTML::Tiny;
 13 
use HTML::Tiny;
14 
use tableViewer;
 14 
use tableViewer;
15 
use PEEPS;
 15 
use PEEPS;
16 
our $h = HTML::Tiny->new( mode => 'html' );
 16 
our $h = HTML::Tiny->new( mode => 'html' );
- 
 
 17 
$ENV{HTTPS} = 'ON';
Line 17... Line 18...
17 
 
 18 
 
18 
my $cookie_string = authenticate () || die;
 19 
my $cookie_string = authenticate () || die;
19 
our ($EML, $PWD, $LVL) = split /&/, $cookie_string;
 20 
our ($EML, $PWD, $LVL) = split /&/, $cookie_string;