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 13... Line 13...
13 
use Email::Valid;
 13 
use Email::Valid;
14 
use WebDB;
 14 
use WebDB;
15 
use HTML::Tiny;
 15 
use HTML::Tiny;
16 
use Data::Dumper;
 16 
use Data::Dumper;
17 
our $h = HTML::Tiny->new( mode => 'html' );
 17 
our $h = HTML::Tiny->new( mode => 'html' );
18 
$ENV{HTTPS} = 'ON';
 18 
$ENV{HTTPS} = 'ON' if $ENV{SERVER_NAME} =~ /^peeps/;
Line 19... Line 19...
19 
 
 19 
 
20 
my ($FORM, $cookie_string, $ERRMSG);
 20 
my ($FORM, $cookie_string, $ERRMSG);
21 
my @ERRORS;
 21 
my @ERRORS;
22 
my $dbh = getDBConnection ();
 22 
my $dbh = getDBConnection ();