#!/usr/bin/perl

use strict;

my %testsuites = ( 'css2.1' => '/site/wiki.csswg.org/wikidata/pages/test/css2.1/submit' );

unless (exists $testsuites{$ENV{QUERY_STRING}}) {
  print "Content-type: text/plain\n\nInvalid input.";
  exit;
}

opendir DIR, $testsuites{$ENV{QUERY_STRING}}
  || print "Content-type: text/plain\n\nCannot open directory !";

my @names = readdir(DIR);

closedir DIR;

@names = sort { $a <=> $b } @names;
do {
  $_ = pop @names;
} until (/^(\d+)\.txt$/);

my $next = $1 + 1;

print "Content-type: text/html\n\n";
print qq|
<DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
<title>CSS2.1 Test Submission Form</title>
<form method="post" action="/test/css2.1/submit/$next"><p>
  <input type="hidden" name="do" value="edit" />
  <input type="hidden" name="rev" value="" />
  <input type="submit" value="Create New CSS2.1 Test Suite Submission #$next"/>
</form>
|