Subversion Repositories PEEPS

Rev

Rev 47 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 47 Rev 48
Line 17... Line 17...
17 
our $h = HTML::Tiny->new( mode => 'html' );
 17 
our $h = HTML::Tiny->new( mode => 'html' );
18 
$ENV{HTTPS} = 'ON' if $ENV{SERVER_NAME} =~ /^peeps/;
 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 = getRCDBH ();
23 
my @FIELDS = qw/ username derby_name derby_short_name default_jersey_number email name_first name_middle name_last password active pronouns birthdate /;
 23 
my @FIELDS = qw/ username derby_name derby_short_name default_jersey_number email name_first name_middle name_last password active pronouns birthdate /;
Line 24... Line 24...
24 
my @PRIVFIELDS = qw/ active /;
 24 
my @PRIVFIELDS = qw/ active /;