아래 코드는 홈페이지 등록시 웹페이지의 존재유무를 파악해서
에러 코드를 보여줍니다. 즉 서버 에러코드... 등록하려는 홈페이지가 존재하지 않을 경우... 서버측 404, 500 등의
에러 코드를 보여줍니다.
아래순서대로 코드를 add.cgi에 삽입하시면 됩니다.
add.cgi 의 sub main 위에 아래코드를 삽입하고,
use LWP::UserAgent;
# Validate the form input.. 이란 부분을 찾아 아래 코드를 삽입하시면 됩니다.
my $URL = ($in{
URL
});$ua = new LWP::UserAgent;$ua->agent("UrlScope/8.0");$ua->timeout(30); # in
seconds$req = new
HTTP::Request GET
=> ($in{
URL
});$res = $ua->request($req);if ($res->is_error)
{&site_html_add_failure ("URL: $in{
URL
} -" . " " . $res->code . " " . $res->message);return;} if
($res->is_success) {
마지막으로 다음 한줄을 지우거나 콤멘트 처리... #
if ($status eq "ok") {
부디 성공하시길 ...
49
1,134
1999-10-05 14:27:33
닉네임
