diff options
Diffstat (limited to 'examples/printer-accounting/acct-sum')
-rw-r--r-- | examples/printer-accounting/acct-sum | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/examples/printer-accounting/acct-sum b/examples/printer-accounting/acct-sum deleted file mode 100644 index ffbfc8d8801..00000000000 --- a/examples/printer-accounting/acct-sum +++ /dev/null @@ -1,29 +0,0 @@ -#!/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}; -} - - |