umask(002);
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);
open(P, "|lpr -Pmgmt0") || die "Can't print to hp5-real ($!)\n";
$cnt = 0;
while (sysread(STDIN, $buf, 10240)) {
print P $buf;
$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";
}