#!/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{
};