#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
my $htmlHead = "../nitsloch1-gpl/scenarios/head";
my $htmlFoot = "../nitsloch1-gpl/scenarios/foot";
my $scenarioDir = "../nitsloch1-gpl/scenarios/";
my $scenarioExt = "zip";
my $infoExt = "txt";
my @scenarioFiles = glob $scenarioDir."*.".$scenarioExt;
sub process_scenarios {
print "\n";
print "";
print "";
print "";
print "\n";
print "| Scenario Name | ";
print "Author | ";
print "Age (Days) | ";
print "Size (KB) |
|---|
\n";
foreach (@_){
my $file = $_;
my $basename = $_;
my $size = -s $_;
my $classA = "gray";
my $classB = "blue";
$size /= 1024;
$size = int $size;
my $age = -M $_;
$age = int $age;
$age++;
if ($age <= 5) {
$classA = "red";
$classB = "red";
}
$basename=~s/.*\/(.*)\.$scenarioExt/$1/;
my $info = "${basename}.${infoExt}";
my ($author, $name);
open INFO, "<$scenarioDir$info";
my $i = 0;
while () {
$i++;
if ($i == 1) {
chomp;
$author = $_;
} elsif ($i == 2) {
chomp;
$name = $_;
}
}
close INFO;
print "| ${name} | ";
print "${author} | ";
print "${age} | ";
print "${size} KB |
\n";
}
print "
\n";
}
sub main {
print "Content-type: text/html\n\n";
open HEAD, "<$htmlHead";
while () {
print;
}
close HEAD;
process_scenarios @scenarioFiles;
open FOOT, "<$htmlFoot";
while () {
print;
}
close FOOT;
}
&main;