|
Lines 1072-1081
sub checkauth {
Link Here
|
| 1072 |
} |
1072 |
} |
| 1073 |
else { |
1073 |
else { |
| 1074 |
my $retuserid; |
1074 |
my $retuserid; |
| 1075 |
( $return, $cardnumber, $retuserid, $cas_ticket ) = |
1075 |
my $request_method = $query->request_method(); |
| 1076 |
checkpw( $dbh, $q_userid, $password, $query, $type ); |
1076 |
if ($request_method eq 'POST'){ |
| 1077 |
$userid = $retuserid if ($retuserid); |
1077 |
( $return, $cardnumber, $retuserid, $cas_ticket ) = |
| 1078 |
$info{'invalid_username_or_password'} = 1 unless ($return); |
1078 |
checkpw( $dbh, $q_userid, $password, $query, $type ); |
|
|
1079 |
$userid = $retuserid if ($retuserid); |
| 1080 |
$info{'invalid_username_or_password'} = 1 unless ($return); |
| 1081 |
} |
| 1079 |
} |
1082 |
} |
| 1080 |
} |
1083 |
} |
| 1081 |
|
1084 |
|
| 1082 |
- |
|
|