1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
#!/usr/bin/perl
#
# $Source: /data/src/mirror/cvs/samba/examples/printer-accounting/lp-acct,v $
# $Id: lp-acct,v 1.1 1996/07/23 03:30:56 samba-bugs Exp $
#
# 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";
}
|
