#!/usr/bin/perl -X
use strict;
use warnings;
use 5.010;
my @pages = (101, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 127, 128, 129, 130, 131, 132, 133, 134, 102, 136, 137, 138, 139, 140, 141, 142, 143, 108, 461, 462, 463, 464, 465);
print "Content-type: text/html\n\n";
print "ORFText News";
print "ORFText News
";
foreach (@pages) {
print `./html.pl /run/ttxd/spool/2/${_}_00.vtx` if -e "/run/ttxd/spool/2/${_}_00.vtx";
}
print "";