From 7059e347a923873dd77b5c1a46b7c020042358be Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Thu, 23 Feb 2012 19:07:21 +0100 Subject: [PATCH] display last printer status --- status.cgi | 44 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 44 insertions(+) create mode 100755 status.cgi 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{ + + +}; -- 2.20.1