5 my $WGET = '/usr/bin/wget' ;
6 my $RSYNC = '/usr/bin/rsync' ;
9 my $tmp_dir = '/tmp/mirmon' ;
11 my $prog = substr($0,rindex($0,'/')+1) ;
13 Usage: $prog [-v] [-q] [-d] [-t timeout] url
16 option d : show debug info
17 option t : timeout in seconds (default $timeout)
19 rysnc://host.dom.com/module/file
20 http://host.dom.com/some/file
21 ftp://host.dom.com/some/file
23 sub Usage { die "$_[0]$Usage" ; }
24 sub Error { die "$prog: $_[0]\n" ; }
25 sub Warn { warn "$prog: $_[0]\n" ; }
27 # usage: &GetOptions(ARG,ARG,..) defines $opt_ID as 1 or user spec'ed value
28 # usage: &GetOptions(\%opt,ARG,ARG,..) defines $opt{ID} as 1 or user value
29 # ARG = 'ID' | 'ID=SPC' | 'ID:SPC' for no-arg, required-arg or optional-arg
30 # ID = perl identifier
31 # SPC = i|f|s for integer, fixedpoint real or string argument
34 Getopt::Long::config('no_ignore_case') ;
35 my %opt = () ; Usage('') unless GetOptions
36 ( \%opt, qw(v q d t=i) ) ;
37 Usage("Arg count\n") unless @ARGV == 1 ;
40 $timeout = $opt{t} if exists $opt{t} ;
43 my $opt_v = '' ; $opt_v = '-v' if $opt{v} ;
44 my $opt_q = '' ; $opt_q = '-q' if $opt{q} ;
46 # make a tmp dir for rsync
48 -d $tmp_dir or mkdir $tmp_dir or Error "can't mkdir $tmp_dir ($!)" ;
50 # handle rsync urls with rsync
51 # rewrite rysnc://host.dom.com/module/file -> host.dom.com::module/file
52 # handle ftp/http urls with wget
54 if ( $url =~ m!^rsync://(.*)$! )
57 my $TMP = "$tmp_dir/$dst" ;
58 unlink $TMP ; # ignore status
59 my $cmd = "$RSYNC $opt_v $opt_q --no-motd --timeout $timeout $url $TMP" ;
60 Warn sprintf "'%s'\n", $cmd if $opt{d} ;
63 { print <TMP> ; close TMP ; }
65 { Warn "can't open $TMP" ; }
68 { my $cmd = "$WGET -O - $opt_v $opt_q -t 1 -T $timeout $url |" ;
69 Warn sprintf "'%s'\n", $cmd if $opt{d} ;
71 { print <CMD> ; close CMD ; }
73 { Warn "can't popen $cmd ($!)" ; }