Updated mirmon to version 2.10

[mirror-monitor.git] / mirmon / probe

diff --git a/mirmon/probe b/mirmon/probe
index fd6a5f860108206218f5ff4b90bc67e970c6ea6e..811c39a79cccbe4c78a2bf119c888d853653fdda 100755 (executable)
--- a/mirmon/probe
+++ b/mirmon/probe
@@ -16,7 +16,7 @@ option q : be quiet
 option d : show debug info
 option t : timeout in seconds (default $timeout)
 argument url :
 option d : show debug info
 option t : timeout in seconds (default $timeout)
 argument url :

-  rysnc://host.dom.com/module/file
+  rsync://host.dom.com/module/file

    http://host.dom.com/some/file
     ftp://host.dom.com/some/file
 USAGE
    http://host.dom.com/some/file
     ftp://host.dom.com/some/file
 USAGE


@@ -52,11 +52,13 @@ my $opt_q = '' ; $opt_q = '-q' if $opt{q} ;
 # handle ftp/http urls with wget
 
 if ( $url =~ m!^rsync://(.*)$! )
 # handle ftp/http urls with wget
 
 if ( $url =~ m!^rsync://(.*)$! )

-  { my $dst = $1 ;
+  { my $src = $1 ;
+    my $dst = $src ;

     $dst =~ s![/\s]!_!g ;
     my $TMP = "$tmp_dir/$dst" ;
     $dst =~ s![/\s]!_!g ;
     my $TMP = "$tmp_dir/$dst" ;

+    $src =~ s!/!::! ;

     unlink $TMP ; # ignore status
     unlink $TMP ; # ignore status

-    my $cmd = "$RSYNC $opt_v $opt_q --no-motd --timeout $timeout $url $TMP" ;
+    my $cmd = "$RSYNC $opt_v $opt_q --no-motd --timeout $timeout $src $TMP" ;

     Warn sprintf "'%s'\n", $cmd if $opt{d} ;
     system $cmd ;
     if ( open TMP, $TMP )
     Warn sprintf "'%s'\n", $cmd if $opt{d} ;
     system $cmd ;
     if ( open TMP, $TMP )