rendered paste body#!/usr/bin/perl
use CGI qw(:standard);
print header;
print start_html('HPC Account Request'),
h1('HPC Account'),
start_form,
"Instructor NetID: ",textfield('ins'), p,
"Student NetID 1: ",textfield('id1'), p,
"Student NetID 2: ",textfield('id2'), p,
"Student NetID 3: ",textfield('id3'), p,
"Student NetID 4: ",textfield('id4'), p,
"Student NetID 5: ",textfield('id5'), p,
"Student NetID 6: ",textfield('id6'), p,
"Department: ",textfield('dept'), p,
"Abstract: ",textfield('abs'), p,
submit,
end_form,
hr;
if (param()) {
print
"Instructor: ",em(param('ins')), p,
"Student NetID 1: ",em(param('id1')), p,
"Student NetID 2: ",em(param('id2')), p,
"Student NetID 3: ",em(param('id3')), p,
"Student NetID 4: ",em(param('id4')), p,
"Student NetID 5: ",em(param('id5')), p,
"Student NetID 6: ",em(param('id6')), p,
"Department: ",em(param('deot')), p,
"Abstract: ",em(param('abs')), p,
hr;
}
print end_html;