home *** CD-ROM | disk | FTP | other *** search
/ CLIX - Fazer Clix Custa Nix / CLIX-CD.cdr / mac / lib / syslog.pl < prev    next >
Text File  |  1997-05-19  |  1KB  |  45 lines
  1. #
  2. # syslog.pl
  3. #
  4. # $Log: syslog.pl,v $
  5. # Revision 1.3  1997/05/19 12:32:06  neeri
  6. # 5.004 merge, round 1
  7. #
  8. # Revision 1.1.1.2  1997/05/17 21:41:42  neeri
  9. # Import of Perl 5.004
  10. #
  11. # Revision 1.2  1997/04/07 20:52:04  neeri
  12. # Synchronized with MacPerl 5.1.4a1
  13. #
  14. # Revision 1.1.1.1  1997/04/06 21:06:30  neeri
  15. # Import of Perl 5.002
  16. #
  17. # 
  18. # tom christiansen <tchrist@convex.com>
  19. # modified to use sockets by Larry Wall <lwall@jpl-devvax.jpl.nasa.gov>
  20. # NOTE: openlog now takes three arguments, just like openlog(3)
  21. #
  22. # call syslog() with a string priority and a list of printf() args
  23. # like syslog(3)
  24. #
  25. #  usage: require 'syslog.pl';
  26. #
  27. #  then (put these all in a script to test function)
  28. #        
  29. #
  30. #    do openlog($program,'cons,pid','user');
  31. #    do syslog('info','this is another test');
  32. #    do syslog('mail|warning','this is a better test: %d', time);
  33. #    do closelog();
  34. #    
  35. #    do syslog('debug','this is the last test');
  36. #    do openlog("$program $$",'ndelay','user');
  37. #    do syslog('notice','fooprogram: this is really done');
  38. #
  39. #    $! = 55;
  40. #    do syslog('info','problem was %m'); # %m == $! in syslog(3)
  41.  
  42. use Sys::Syslog;
  43.  
  44. 1;
  45.