#!/usr/bin/perl
=pod
This is a quick utility written as an add on for the hylafax program. 
It was written by Nicholas Bernstein nick@nicholasbernstein.com

It will run fine on command line, but is intended as a cgi, so drop it 
in your cgi-bin and see what happens. 

=cut
print "Content-Type: text/plain\n\n";
$sendqueue=`/usr/bin/faxstat -s`;
$done=`/usr/bin/faxstat -d`;
@newsend=split(/\n/, $sendqueue);
@newdone=split(/\n/, $done);
print "-----------  Queued:  ----------- ";
foreach $line (@newsend) {
	if ($ line !~ /(HylaFAX scheduler|^Modem)/){
		print("$line\n");
	}
}
print "\n\n-----------  Finished:  -----------";
foreach $line (@newdone) {
	if ($ line !~ /(HylaFAX scheduler|^Modem)/){
		print("$line\n");
	}
}