home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume39 / planner / part01 / logfinger < prev    next >
Encoding:
Text File  |  1993-08-23  |  603 b   |  26 lines
  1. #!/usr/bin/perl -- # -*-Perl-*-
  2.  
  3. $me = "franklin";
  4. $logfile = "/users/students/franklin/.fingerees";
  5. $pscommand = "ps -auw";
  6.  
  7. open(PS, "$pscommand |");
  8. @fingers = grep(/(f\s+$me)|(finger\s+$me)/, <PS>);
  9. close(PS);
  10.  
  11. ($num) = unpack("A9", `wc -l $logfile`); # =~ s/^\s*(\d+).*\n/\1/;
  12. ($num2) = $num/2;
  13. printf "I have been fingered %d time", $num2;
  14. print "s" if ($num - 1);
  15. print " today\n";
  16. close(STDOUT);
  17.  
  18. open(LOG, ">>$logfile");
  19. foreach $line (@fingers) {
  20.     ($user) = $line =~ /^\s*(\S+)/;
  21.     print LOG "$user, at ", `date`;
  22. }
  23.  
  24. print(LOG "somebody, at ", `date`) if (! ($#fingers + 1));
  25. close(LOG);
  26.