$title

#!/usr/bin/perl -Tw use strict; $|++; use Data::Dumper; my $testcase_dir = "./testcases"; opendir(TESTCASEDIR, $testcase_dir) or die; my @testcases = grep { !/^\./ && !/~$/ && -f "$testcase_dir/$_" } readdir(TESTCASEDIR); closedir(TESTCASEDIR); my $title = "Selenium test suite for Litmus"; print< $title EOS for my $testcase (@testcases) { print "\n"; print "\n"; print "\n"; } print< EOS

$title

"; open(TESTCASE, "$testcase_dir/$testcase") or die; while () { if (/^

(.*)<\/td><\/tr>/) { print $1; last; } } close(TESTCASE); print "