check_zarafa.pl
changeset 1 3ce34c10c732
parent 0 c6e374ba7961
child 2 efb66d9b56ff
--- a/check_zarafa.pl	Thu May 12 14:39:14 2011 +0200
+++ b/check_zarafa.pl	Thu May 12 15:06:00 2011 +0200
@@ -74,7 +74,11 @@
     my @webside      = ();
     my $last_verbose = "";
 
-    push @webside, split( "\n", get($url) );
+    my $side = get($url);
+
+    return "can't get $url" if ( !$side );
+
+    push @webside, split( "\n", $side );
     foreach (@webside) {
         /$search/ or next;
         $last_verbose = $1 and last;