From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 25 Feb 2019 20:54:58 +0000 (+0100)
Subject: display xerox job queue by scraping web
X-Git-Url: http://git.rot13.org/?p=safeq;a=commitdiff_plain;h=850a05ac01c0bac617af75c7f69ec2f9e35abecc

display xerox job queue by scraping web

because ipp or lp doesn't seem to return same information and we really
need to know when something has gone wrong
---

diff --git a/xq.pl b/xq.pl
new file mode 100755
index 0000000..f90a308
--- /dev/null
+++ b/xq.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+use Data::Dump qw(dump);
+
+my $ip = shift @ARGV || '10.60.3.35';
+my $debug = $ENV{DEBUG} || 0;
+
+open(my $curl, '-|', "curl --silent http://$ip/jblist.htm");
+my $info;
+while(<$curl>) {
+	if ( m/var (stats|types|info|hdrs)=(.*);/ ) {
+		my $json = $2;
+		my $v = eval $json; # this is not valid JSON, but perl's eval doesn't mind
+		#warn "# JSON $json -> ",dump($v);
+		$info->{$1} = $v;
+	}
+}
+
+warn "# info=",dump($info) if $debug;
+
+my $fmt = "%-8s|%-16s|%-16s|%-16s|%-16s|%s\n"; # last should be %d, but this doesn't work for header
+printf $fmt, 'id', @{ $info->{hdrs} };
+
+foreach my $l ( @{ $info->{info} } ) {
+	warn "## l=",dump($l) if $debug > 1;
+	
+	printf $fmt,
+		$l->[0], $l->[1], $l->[2], $info->{stats}->[ $l->[3] ], $info->{types}->[ $l->[4] ], $l->[5];
+}