rsc

   1 #!/usr/bin/perl
   2
   3 use MIME::Base64;
   4
   5 if(@ARGV < 1) {
   6     print STDERR "usage: rsc HOST CMD ARG...\n";
   7     exit 1;
   8 }
   9
  10 if($ARGV[0] eq "-s") {
  11     if(!defined($ARGV[1])) {
  12         print STDERR "rsc: server side needs arguments\n";
  13         exit 1
  14     }
  15     $arg = decode_base64($ARGV[1]);
  16     $c = "";
  17     for (split /\n/, $arg) {
  18         chomp;
  19         s/\\(.)/$1/g;
  20         $c .= $_;
  21         if(/\\$/) {
  22             $c =~ s/\\$/\n/;
  23             next;
  24         }
  25         push @a, $c;
  26         $c = "";
  27     }
  28     for (@a) {
  29         exec @a;
  30         print STDERR "$a[0]: $!\n";
  31         exit 1;
  32     }
  33 } else {
  34     $host = shift @ARGV;
  35     $arg = "";
  36     for (@ARGV) {
  37         s/([\\\n])/\\$1/g;
  38         $arg .= "$_\n";
  39     }
  40     $ea = encode_base64($arg);
  41     $ea =~ s/\n//g;
  42     if(-t STDIN) {
  43         push @sshopts, "-t";
  44     }
  45     push @sshopts, "-q";
  46     exec "ssh", @sshopts, "$host", "rsc", "-s", $ea;
  47     die "$!";
  48 }