home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78a98.iso / Wtestowe / Clico / UNIX / SAMBA / SOURCE / SAMBA.TAR / samba-1.9.17 / examples / printer-accounting / lp-acct < prev    next >
Text File  |  1996-07-22  |  873b  |  39 lines
  1. #!/usr/bin/perl
  2. #
  3. # $Source: /data/cvs/samba/examples/printer-accounting/lp-acct,v $
  4. # $Id: lp-acct,v 1.1 1996/07/23 03:30:56 samba-bugs Exp $
  5. #
  6. # 0 == stdin  == docuement
  7. # 1 == stdout == printer
  8. # 2 == stderr == logging
  9. #
  10. # Regular, with no redirection
  11. #
  12.  
  13. umask(002);
  14.  
  15. # -w132 -l66 -i0 -n pkelly -h master.fcp.oypi.com /var/log/lp-acct
  16. require "getopts.pl";
  17. &Getopts("w:l:i:n:h:");
  18.  
  19. chomp($date = `date '+%Y-%m-%d.%T'`);
  20.  
  21. ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
  22.         $atime,$mtime,$ctime,$blksize,$blocks)
  23.  = stat(STDIN);
  24.  
  25. $cnt = 0;
  26. while (sysread(STDIN, $buf, 10240)) {
  27.         print $buf;
  28.         $cnt += ($buf =~ /^L/g);
  29. }
  30.  
  31. $acct = shift;
  32. if (open(ACCT, ">>$acct")) {
  33.         print ACCT "$date $opt_n $opt_h $size $cnt\n";
  34.         close(ACCT);
  35. } else {
  36.         warn "Err: Can't account for it ($!)\n";
  37.         warn "Log: $date $opt_n $opt_h $size $cnt\n";
  38. }
  39.