contrib/perl5/eg/g/gcp

   1 #!/usr/bin/perl
   2
   3 # $RCSfile: gcp,v $$Revision: 4.1 $$Date: 92/08/07 17:20:15 $
   4
   5 # Here is a script to do global rcps.  See man page.
   6
   7 $#ARGV >= 1 || die "Not enough arguments.\n";
   8
   9 if ($ARGV[0] eq '-r') {
  10     $rcp = 'rcp -r';
  11     shift;
  12 } else {
  13     $rcp = 'rcp';
  14 }
  15 $args = $rcp;
  16 $dest = $ARGV[$#ARGV];
  17
  18 $SIG{'QUIT'} = 'CLEANUP';
  19 $SIG{'INT'} = 'CONT';
  20
  21 while ($arg = shift) {
  22     if ($arg =~ /^([-a-zA-Z0-9_+]+):/) {
  23         if ($systype && $systype ne $1) {
  24             die "Can't mix system type specifers ($systype vs $1).\n";
  25         }
  26         $#ARGV < 0 || $arg !~ /:$/ || die "No source file specified.\n";
  27         $systype = $1;
  28         $args .= " $arg";
  29     } else {
  30         if ($#ARGV >= 0) {
  31             if ($arg =~ /^[\/~]/) {
  32                 $arg =~ /^(.*)\// && ($dir = $1);
  33             } else {
  34                 if (!$pwd) {
  35                     chop($pwd = `pwd`);
  36                 }
  37                 $dir = $pwd;
  38             }
  39         }
  40         if ($olddir && $dir ne $olddir && $dest =~ /:$/) {
  41             $args .= " $dest$olddir; $rcp";
  42         }
  43         $olddir = $dir;
  44         $args .= " $arg";
  45     }
  46 }
  47
  48 die "No system type specified.\n" unless $systype;
  49
  50 $args =~ s/:$/:$olddir/;
  51
  52 chop($thishost = `hostname`);
  53
  54 $one_of_these = ":$systype:";
  55 if ($systype =~ s/\+/[+]/g) {
  56     $one_of_these =~ s/\+/:/g;
  57 }
  58 $one_of_these =~ s/-/:-/g;
  59
  60 @ARGV = ();
  61 push(@ARGV,'.grem') if -f '.grem';
  62 push(@ARGV,'.ghosts') if -f '.ghosts';
  63 push(@ARGV,'/etc/ghosts');
  64
  65 $remainder = '';
  66
  67 line: while (<>) {
  68     s/[ \t]*\n//;
  69     if (!$_ || /^#/) {
  70         next line;
  71     }
  72     if (/^([a-zA-Z_0-9]+)=(.+)/) {
  73         $name = $1; $repl = $2;
  74         $repl =~ s/\+/:/g;
  75         $repl =~ s/-/:-/g;
  76         $one_of_these =~ s/:$name:/:$repl:/;
  77         $repl =~ s/:/:-/g;
  78         $one_of_these =~ s/:-$name:/:-$repl:/g;
  79         next line;
  80     }
  81     @gh = split(' ');
  82     $host = $gh[0];
  83   next line if $host eq $thishost;      # should handle aliases too
  84     $wanted = 0;
  85     foreach $class (@gh) {
  86         $wanted++ if index($one_of_these,":$class:") >= 0;
  87         $wanted = -9999 if index($one_of_these,":-$class:") >= 0;
  88     }
  89     if ($wanted > 0) {
  90         ($cmd = $args) =~ s/[ \t]$systype:/ $host:/g;
  91         print "$cmd\n";
  92         $result = `$cmd 2>&1`;
  93         $remainder .= "$host+" if
  94             $result =~ /Connection timed out|Permission denied/;
  95         print $result;
  96     }
  97 }
  98
  99 if ($remainder) {
 100     chop($remainder);
 101     open(grem,">.grem") || (printf stderr "Can't create .grem: $!\n");
 102     print grem 'rem=', $remainder, "\n";
 103     close(grem);
 104     print 'rem=', $remainder, "\n";
 105 }
 106
 107 sub CLEANUP {
 108     exit;
 109 }
 110
 111 sub CONT {
 112     print "Continuing...\n";    # Just ignore the signal that kills rcp
 113     $remainder .= "$host+";
 114 }