Subversion Repositories PEEPS

Rev

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

Rev 28 Rev 51
Line 8... Line 8...
8 
 
 8 
 
9 
use strict;
 9 
use strict;
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 
use tableViewer qw/ notInArray /;
 13 
use tableViewer;
14 
our $h = HTML::Tiny->new( mode => 'html' );
 14 
our $h = HTML::Tiny->new( mode => 'html' );
15 
my $dbh = getRCDBH ();
 15 
my $dbh = getRCDBH ();
16 
$ENV{HTTPS} = 'ON' if $ENV{SERVER_NAME} =~ /^peeps/;
 16 
$ENV{HTTPS} = 'ON' if $ENV{SERVER_NAME} =~ /^peeps/;