summaryrefslogtreecommitdiff
path: root/examples/printer-accounting/acct-sum
diff options
context:
space:
mode:
authorSamba Release Account <samba-bugs@samba.org>1996-07-23 03:30:56 +0000
committerSamba Release Account <samba-bugs@samba.org>1996-07-23 03:30:56 +0000
commit8d9143cbcfd930bf0c2cb3073beb6b27104df915 (patch)
tree276cc2a9efd982196d0a4166bba29bc358cfb8b1 /examples/printer-accounting/acct-sum
parent234b8c602209d966c5b82148b521d9711e08c4b3 (diff)
downloadsamba-8d9143cbcfd930bf0c2cb3073beb6b27104df915.tar.gz
samba-8d9143cbcfd930bf0c2cb3073beb6b27104df915.tar.bz2
samba-8d9143cbcfd930bf0c2cb3073beb6b27104df915.zip
Some examples for printer accounting that I use with samba. lp-acct is
an example for a local printer off a samba server, hp5-redir is for a remote printer. acct-sum, does the stats from acct-all. There is an example printcap entry for the redirection of the printer. Lots more to come! <pkelly@ets.net> (This used to be commit 14bae3a0bd380c524409d36c75c13d4a6daa6302)
Diffstat (limited to 'examples/printer-accounting/acct-sum')
-rw-r--r--examples/printer-accounting/acct-sum29
1 files changed, 29 insertions, 0 deletions
diff --git a/examples/printer-accounting/acct-sum b/examples/printer-accounting/acct-sum
new file mode 100644
index 0000000000..ffbfc8d880
--- /dev/null
+++ b/examples/printer-accounting/acct-sum
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+
+while (<>) {
+ ($date, $user, $machine, $size, $pages) = split(' ');
+
+ $Printer{$ARGV}++;
+ $PrinterPages{$ARGV} += $pages;
+
+ $Jobs{$user}++;
+ $Size{$user}+= $size;
+ $Pages{$user}+= $pages;
+}
+
+printf "%-15s %5s %8s %8s\n", qw(User Jobs Pages Size);
+foreach $user (sort keys %Jobs) {
+ printf "%-15s %5d %8d %8d \KB\n",
+ $user, $Jobs{$user}, $Pages{$user}, $Size{$user}/1024;
+}
+
+
+print "\n\n";
+printf "%-15s %5s %8s %8s\n", qw(Printer Jobs Pages);
+foreach $prn (sort keys %Printer) {
+ ($name = $prn) =~ s=.*/==;
+ printf "%-15s %5d %8d\n",
+ $name, $Printer{$prn}, $PrinterPages{$prn};
+}
+
+