version 1.61, 2003/04/30 21:10:50
|
version 1.62, 2003/05/23 07:04:44
|
Line 62 sub caparesponse_check {
|
Line 62 sub caparesponse_check {
|
$message .="no ws in :$response:\n"; |
$message .="no ws in :$response:\n"; |
} |
} |
|
|
|
if (length($response) > 500) { return "TOO_LONG: Answer too long"; } |
|
|
if ($type eq '' ) { |
if ($type eq '' ) { |
$message .= "Didn't find a type :$type:$expr: defaulting\n"; |
$message .= "Didn't find a type :$type:$expr: defaulting\n"; |
if ( $answer eq ($answer *1.0)) { $type = 2; |
if ( $answer eq ($answer *1.0)) { $type = 2; |