#!/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, 706, 108, 461, 462, 463, 464, 465);
print "Content-type: text/html\n\n";
print "
ORFText News";
print "ORFText News
";
print 'pol | loc [T] | web';
foreach (@pages) {
if ($_ == 101) {
print "Politik
";
} elsif ($_ == 102) {
print "Chronik
";
} elsif ($_ == 706) {
print "Tirol
";
} elsif ($_ == 108) {
print "Web/Media
";
}
my @subpages = glob "/run/ttxd/spool/2/${_}_*.vtx";
foreach (@subpages) {
my $file_age = time() - (stat ($_))[9];
print `./html.pl $_` if $file_age < 1000;
#print "$_ : $file_age" if $file_age > 1000;
}
#print `./html.pl /run/ttxd/spool/2/${_}_00.vtx` if -e "/run/ttxd/spool/2/${_}_00.vtx";
}
print "";