From: Dobrica Pavlinusic Date: Thu, 23 Feb 2012 18:07:21 +0000 (+0100) Subject: display last printer status X-Git-Url: http://git.rot13.org/?p=Printer-Zebra.git;a=commitdiff_plain;h=7059e347a923873dd77b5c1a46b7c020042358be;ds=sidebyside display last printer status --- diff --git a/status.cgi b/status.cgi new file mode 100755 index 0000000..225b3dc --- /dev/null +++ b/status.cgi @@ -0,0 +1,44 @@ +#!/usr/bin/perl +use warnings; +use strict; + +use CGI::Carp qw(fatalsToBrowser); +use autodie; +use POSIX qw(strftime); + +print "Content-type: text/html\r\n\r\n"; + +print qq{ + + +Zebra printers status + + + +}; + +foreach my $filename ( glob '/tmp/zebra/*.status' ) { + my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, + $atime,$mtime,$ctime,$blksize,$blocks) + = stat($filename); + + my $date = strftime "%Y-%m-%d %H:%M:%S", localtime($mtime); + + + + local $/ = undef; + open(my $fh, $filename); + my $status = <$fh>; + close $fh; + + my $style = ''; + $style=' style="color:#c00"' if $status =~ m/error/; + + print "$filename $date\n\n"; + print "$status\n\n"; +} + +print qq{ + + +};