source: branches/samba-3.3.x/examples/printer-accounting/lp-acct@ 1036

#!/usr/bin/perl
#
# 0 == stdin  == docuement
# 1 == stdout == printer
# 2 == stderr == logging
#
# Regular, with no redirection
#

umask(002);

# -w132 -l66 -i0 -n pkelly -h master.fcp.oypi.com /var/log/lp-acct
require "getopts.pl";
&Getopts("w:l:i:n:h:");

chomp($date = `date '+%Y-%m-%d.%T'`);

($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
        $atime,$mtime,$ctime,$blksize,$blocks)
 = stat(STDIN);

$cnt = 0;
while (sysread(STDIN, $buf, 10240)) {
        print $buf;
        $cnt += ($buf =~ /^L/g);
}

$acct = shift;
if (open(ACCT, ">>$acct")) {
        print ACCT "$date $opt_n $opt_h $size $cnt\n";
        close(ACCT);
} else {
        warn "Err: Can't account for it ($!)\n";
        warn "Log: $date $opt_n $opt_h $size $cnt\n";
}