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 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; warn "loaded tableViewer..";
 14 
use tableViewer; warn "loaded 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';
 17 
$ENV{HTTPS} = 'ON' if $ENV{SERVER_NAME} =~ /^peeps/;
Line 18... Line 18...
18 
 
 18 
 
19 
my $cookie_string = authenticate (3) || die;
 19 
my $cookie_string = authenticate (3) || die;
20 
our ($EML, $PWD, $LVL) = split /&/, $cookie_string;
 20 
our ($EML, $PWD, $LVL) = split /&/, $cookie_string;