version 1.71, 2004/03/12 21:06:19
|
version 1.72, 2004/03/13 00:36:11
|
Line 55 sub caparesponse_check {
|
Line 55 sub caparesponse_check {
|
#type's definitons come from capaParser.h |
#type's definitons come from capaParser.h |
my $message=''; |
my $message=''; |
#remove leading and trailing whitespace |
#remove leading and trailing whitespace |
|
if (!defined($response)) { |
|
$response=''; |
|
} |
if ($response=~ /^\s|\s$/) { |
if ($response=~ /^\s|\s$/) { |
$response=~ s:^\s+|\s+$::g; |
$response=~ s:^\s+|\s+$::g; |
$message .="Removed ws now :$response:\n"; |
$message .="Removed ws now :$response:\n"; |