Subversion Repositories PEEPS

Rev

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

Rev 2 Rev 3
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';
Line 20... Line 21...
20 
 
 21 
 
21 
#if ($ENV{'QUERY_STRING'}) {
 22 
#if ($ENV{'QUERY_STRING'}) {
22 
if ($ENV{'REQUEST_METHOD'} eq "POST") {
 23 
if ($ENV{'REQUEST_METHOD'} eq "POST") {
23 
	$FORM->{account} = $query->param('account');
 24 
	$FORM->{account} = $query->param('account');