1 |
#! /usr/local/bin/perl |
#! /usr/local/bin/perl |
2 |
|
|
3 |
BEGIN { $APP_PATH="foo/bar"; } |
BEGIN { $APP_PATH="/home/httpd/html/webmail/cgi-bin/"; } |
4 |
|
|
5 |
# @ ---------------------------------------------------------------------------------------------------------- |
# @ ---------------------------------------------------------------------------------------------------------- |
6 |
# @ This code is (c) 1999 Alexandre Aufrere and NikoSoft. |
# @ This code is (c) 1999 Alexandre Aufrere and NikoSoft. |
199 |
$addrresolved=~ s/^[0-9]*\s(.*)/$1/; |
$addrresolved=~ s/^[0-9]*\s(.*)/$1/; |
200 |
|
|
201 |
return $addrresolved; |
return $addrresolved; |
|
} |
|
202 |
|
} |