| Server IP : 45.40.142.9 / Your IP : 216.73.216.236 Web Server : Apache System : Linux s45-40-142-9.secureserver.net 2.6.32-754.35.1.el6.x86_64 #1 SMP Sat Nov 7 12:42:14 UTC 2020 x86_64 User : bayspec ( 506) PHP Version : 5.6.40 Disable Function : NONE MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/doc/samba-3.6.23/printer-accounting/ |
Upload File : |
#!/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};
}