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 15... Line 15...
15 
#my $cookie_string = authenticate(1) || die;
 15 
#my $cookie_string = authenticate(1) || die;
16 
#my ($EML, $PWD, $LVL) = split /&/, $cookie_string;
 16 
#my ($EML, $PWD, $LVL) = split /&/, $cookie_string;
17 
my $query = new CGI;
 17 
my $query = new CGI;
18 
my ($FORM, $userref, $buttonValue, $PEEPSid);
 18 
my ($FORM, $userref, $buttonValue, $PEEPSid);
19 
my ($USRMSG, $USRMSGERR, $RO, $PEEPSid_input, $recovery_options) = ("", "", "", "", "");
 19 
my ($USRMSG, $USRMSGERR, $RO, $PEEPSid_input, $recovery_options) = ("", "", "", "", "");
20 
$ENV{HTTPS} = 'ON';
 20 
$ENV{HTTPS} = 'ON' if $ENV{SERVER_NAME} =~ /^peeps/;
Line 21... Line 21...
21 
 
 21 
 
22 
#if ($ENV{'QUERY_STRING'}) {
 22 
#if ($ENV{'QUERY_STRING'}) {
23 
if ($ENV{'REQUEST_METHOD'} eq "POST") {
 23 
if ($ENV{'REQUEST_METHOD'} eq "POST") {
24 
	$FORM->{account} = $query->param('account');
 24 
	$FORM->{account} = $query->param('account');