Edit File: hp5-redir
#!/usr/bin/perl # # 0 == stdin == docuement # 1 == stdout == printer # 2 == stderr == logging # # With redirection to another valid /etc/printcap entry # 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); # send to the real printer now. open(P, "|lpr -Pmgmt0") || die "Can't print to hp5-real ($!)\n"; $cnt = 0; while (sysread(STDIN, $buf, 10240)) { print P $buf; # this is ugly, but it gives the approx in pages. We # don't print graphics, so ... There must be a better way :) $cnt += ($buf =~ /^L/g); } close(P); $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"; }
Back to File Manager