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 WebDB;
 10 
use WebDB;
11 
use HTML::Tiny;
 11 
use HTML::Tiny;
12 
use PEEPS;
 12 
use PEEPS;
13 
use CGI qw/param header start_html url url_param/;
 13 
use CGI qw/param header start_html url url_param/;
14 
my $h = HTML::Tiny->new( mode => 'html' );
 14 
my $h = HTML::Tiny->new( mode => 'html' );
15 
$ENV{HTTPS} = 'ON';
 15 
$ENV{HTTPS} = 'ON' if $ENV{SERVER_NAME} =~ /^peeps/;
Line 16... Line 16...
16 
 
 16 
 
Line 17... Line 17...
17 
my %F;
 17 
my %F;
18 
 
 18