via-userv

   1 #!/usr/bin/perl -w
   2 #
   3 # recipient format:
   4 #    userv HOST USER SERVICE
   5
   6 use strict;
   7 die unless @ARGV==4;
   8 our ($msg,$host,$user,$service) = @ARGV;
   9
  10 if (open PIPE, "|-", "ssh", $host, "userv", "-t", "2", $user, $service) {
  11     print PIPE "$msg\n";
  12     close PIPE;
  13 }
  14
  15 die $! if $? != 0;