|
Lines 1093-1102
sub checkauth {
Link Here
|
| 1093 |
} |
1093 |
} |
| 1094 |
else { |
1094 |
else { |
| 1095 |
my $retuserid; |
1095 |
my $retuserid; |
| 1096 |
( $return, $cardnumber, $retuserid, $cas_ticket ) = |
1096 |
my $request_method = $query->request_method(); |
| 1097 |
checkpw( $dbh, $q_userid, $password, $query, $type ); |
1097 |
if ($request_method eq 'POST'){ |
| 1098 |
$userid = $retuserid if ($retuserid); |
1098 |
( $return, $cardnumber, $retuserid, $cas_ticket ) = |
| 1099 |
$info{'invalid_username_or_password'} = 1 unless ($return); |
1099 |
checkpw( $dbh, $q_userid, $password, $query, $type ); |
|
|
1100 |
$userid = $retuserid if ($retuserid); |
| 1101 |
$info{'invalid_username_or_password'} = 1 unless ($return); |
| 1102 |
} |
| 1100 |
} |
1103 |
} |
| 1101 |
} |
1104 |
} |
| 1102 |
|
1105 |
|
| 1103 |
- |
|
|