home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-convex / clones / w < prev    next >
Encoding:
Text File  |  1990-12-10  |  914 b   |  35 lines
  1. #!/usr/local/bin/perl
  2.  
  3. $cols = ($ENV{"TERMCAP"} =~ /:co#(\d+):/) ? $1 : 80;
  4.  
  5. $PIPE = "/bin/who|";
  6. open PIPE || die "$0: can't open $PIPE: $!\n";
  7.  
  8. while (<PIPE>) {
  9.     chop; split;
  10.     $users{$_[1]} = $_[0];
  11.     next unless $#_ > 4;
  12.     ( $whence = $_[5] ) =~ s/^\((.*)\)$/\1/;
  13.     $whence =~ s/(.*):.*/$1/;
  14.     $whence =~ s/(................).*/$1/;
  15.     $whence =~ s/\.convex\.(c(o(m)?)?)?$//;
  16.     $whence =~ s/^130\.168\.//;
  17.     $whence{$_[1]} = $whence;
  18. } 
  19.  
  20. $PIPE = "/usr/ucb/w " . join(' ', @ARGV) . "|"; open PIPE || die "$0: can't open $PIPE: $!\n";
  21. $_ = <PIPE>; print;
  22.  
  23. $_ = <PIPE>; 
  24. s/^(.................).(.*)$/$1whence    $2/;
  25. print;
  26.  
  27. while (<PIPE>) {
  28.     chop; split;
  29.     $whence = ($users{$_[1]} eq $_[0]) ? $whence{$_[1]} : "(new login)";
  30.     /(.................).(.*)/;
  31.     $line = sprintf ("%s%-10s%s", $1, $whence, $2);
  32.     eval '$line =~ s/^(' . ('.' x $cols) . ').*/$1/';
  33.     print $line,"\n";
  34. } 
  35.