#!/usr/local/bin/perl

require "cgi-lib.pl";

binmode STDIN;
print &PrintHeader, "\n\n";
print '<html><head><title>General Purpose Java/CGI Test Code</title></head><body>';

print "<P><APPLET CODEBASE=\"../java/\" CODE=\"javacgi.class\" WIDTH=620 HEIGHT=500 ALIGN=\"BOTTOM\">\n";

print '<PARAM NAME="userid0" VALUE="u00010">',"\n";
print '<PARAM NAME="newfileid0" VALUE="u000xx.xxxxxx.xxxx.xxxxxx.xxxx.bkm">',"\n";
print '<PARAM NAME="metafileid0" VALUE="u00010.970122.1551.970102.0000.dbms.bkm">',"\n";
print '<PARAM NAME="metafileid1" VALUE="u00018.980226.1223.980226.1223.dbms.bkm">',"\n";
print '<PARAM NAME="metafileid2" VALUE="u00018.980318.1711.980318.1711.dbms.bkm">',"\n";
print '<PARAM NAME="metafileid3" VALUE="u00018.980319.1643.980319.1643.dbms.bkm">',"\n";
print '<PARAM NAME="metafileid4" VALUE="u00018.980408.1118.980408.1118.dbms.bkm">',"\n";
print '<PARAM NAME="metafileid5" VALUE="u00018.980408.1154.980408.1154.dbms.bkm">',"\n";
print '<PARAM NAME="metafileid6" VALUE="u00018.980413.1748.980413.1748.dbms.bkm">',"\n";
print '</APPLET>',"\n";
print "\n";
print '</BODY>',"\n";
print '</HTML>',"\n";

