home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1349 / wall
Encoding:
Text File  |  1990-12-28  |  1.1 KB  |  58 lines
  1. eval 'exec /bin/perl -wS $0 ${1+"$@"}'
  2.     if 0;
  3.  
  4. # $Id: wall,v 1.1 90/05/18 17:04:20 chip Exp $
  5. #
  6. # A Perl version of the "wall" command.
  7. # Created by Chip Salzenberg, 3 May 1990.
  8. # Changed per Usenet commentary, 18 May 1990.
  9. #
  10. # $Log:    wall,v $
  11. # Revision 1.1  90/05/18  17:04:20  chip
  12. # Initial revision
  13. # 
  14.  
  15. $| = 1;
  16.  
  17. ($me = getlogin) || (($me) = getpwuid($<));
  18. $me = "Somebody" unless $me;
  19.  
  20. print "Enter the message to broadcast.  End with ^D.\n" if -t STDIN;
  21. for (;;) {
  22.     print ">> " if -t STDIN;
  23.     $_ = <STDIN>;
  24.     unless (defined($_)) {
  25.         print "<EOF>\n" if -t STDIN;
  26.         last;
  27.     }
  28.     chop;
  29.     push(@MSG, "$_ \r\n");
  30. }
  31. unless (@MSG) {
  32.     print stderr "wall: no message.\n";
  33.     exit;
  34. }
  35. unshift(@MSG, "\007\r\nBroadcast Message from $me: \r\n");
  36.  
  37. open(WHO, "who|");
  38. while (<WHO>) {
  39.     chop;
  40.     ($user, $tty) = split;
  41.  
  42.     ## Skip ptys.
  43.     next if $tty =~ /^ttyp.$/;
  44.  
  45.     $TTY = "/dev/$tty";
  46.     unless (-c $TTY) {
  47.         print stderr "wall: $tty: no such device\n";
  48.         next;
  49.     }
  50.     unless (open(TTY, ">> $TTY")) {
  51.         print stderr "wall: can't write to $user on /dev/$tty: $!\n";
  52.         next;
  53.     }
  54.     print TTY @MSG;
  55.     close(TTY);
  56. }
  57. close(WHO);
  58.