diff options
author | Andy Lester <andy@petdance.com> | 2003-06-29 20:27:57 +0000 |
---|---|---|
committer | Andy Lester <andy@petdance.com> | 2003-06-29 20:27:57 +0000 |
commit | 9fe74e4f07bcd7a997b7584ff6fc17d5f7adf137 (patch) | |
tree | 38498b56f54dbf5985b974bbf8cacba8765772ae /script | |
parent | 29da765251c5f91ff8daaab496f6df1adcdf1de5 (diff) |
checks content type
Diffstat (limited to 'script')
-rwxr-xr-x | script/forms | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/script/forms b/script/forms index 71b2133..d15f8a9 100755 --- a/script/forms +++ b/script/forms @@ -9,3 +9,5 @@ my $mech = new WWW::Mechanize(); $mech->get( $url ); $mech->success or die "Can't fetch $url\n", $mech->res->status_line, "\n"; +$mech->is_html or die "$url returns type \"", $mech->ct, "\", not \"text/html\"\n"; + |