home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / tutorial / eg / syslog.pl < prev    next >
Encoding:
Perl Script  |  1990-03-12  |  1.8 KB  |  82 lines
  1. #
  2. # syslog.pl
  3. #
  4. # tom christiansen <tchrist@convex.com>
  5. #
  6. # call syslog() with a string priority and a list of printf() args
  7. # like syslog(3) but using logger(8).  will only open a new pipe
  8. # to logger if it needs to.
  9. #
  10. #  usage: do 'syslog.pl' || die "syslog.pl: $@";
  11. #
  12. #  then (put these all in a script to test function)
  13. #        
  14. #
  15. #    do openlog($program,'user');
  16. #    do syslog('info','this is another test');
  17. #    do syslog('warn','this is a better test: %d', time);
  18. #    do closelog();
  19. #    
  20. #    do syslog('debug','this is the last test');
  21. #    do openlog("$program $$",'user');
  22. #    do syslog('notice','fooprogram: this is really done');
  23. #
  24. #    $! = 55;
  25. #    do syslog('info','problem was %m'); # %m == $! in syslog(3)
  26.  
  27. package syslog;
  28.  
  29. $logpath = '/usr/ucb/logger';
  30.  
  31. $opriority = $ofacility = $facility = $ident = '';
  32.  
  33. die "syslog: can't call $logpath: $!" unless -x $logpath;
  34.  
  35. sub main'openlog {
  36.     &main'closelog if $logopen;
  37.     ($ident, $facility) = @_;  # package vars
  38. } 
  39.  
  40. sub main'closelog {
  41.     $facility = $ident = '';
  42.     if ($logopen) {
  43.     $logopen = 0;
  44.     close LOG;
  45.     } 
  46. } 
  47.  
  48. sub main'syslog {
  49.     local($priority) = shift;
  50.     local($mask) = shift;
  51.     local($message, $whoami, $oldfh);
  52.  
  53.     $whoami = $ident;
  54.  
  55.     die "syslog: expected both priority and mask" unless $mask && $priority;
  56.  
  57.     $facility = "user" unless $facility;
  58.  
  59.     if (!$ident && $mask =~ /^(\S.*):\s?(.*)/) {
  60.     $whoami = $1;
  61.     $mask = $2;
  62.     } 
  63.  
  64.     $mask =~ s/%m/$!/g;
  65.     $mask .= "\n" unless $mask =~ /\n$/;
  66.  
  67.     $whoami = sprintf ("%s %d", $ENV{'USER'}, $$) unless $whoami;
  68.  
  69.     if ($opriority ne $priority || $ofacility ne $facility) {
  70.     $opriority = $priority;
  71.     $ofacility = $facility;
  72.     close LOG if $logopen++;
  73.     open(LOG, "| $logpath -t '$whoami' -p '$facility.$priority'");
  74.     $oldfh = select(LOG);
  75.     $| = 1;
  76.     select($oldfh);
  77.     } 
  78.     printf LOG "$mask", @_;
  79. }
  80.  
  81. 1;
  82.