Prince99 has asked for the wisdom of the Perl Monks concerning the following question:
sub PrintForm { &Open_File; &Read_File; &Close_File; print header( -type => 'text/html' ), start_html( -title => 'PMI Human Resources', -background=>'/yellow_stucco.gif'), start_form(-method => 'post', -action => 'editpositions.pl'), scrolling_list(-name=>'list_name', -values => \@JobTitle, -size => 1), br, br, submit(-name => 'Add', -value => 'Add Position'), br,br; if (@JobTitle) { print submit(-name => 'Edit', -value => 'Edit Position'), br,br, submit(-name => 'Delete', -value => 'Delete Position'), br,br, end_form; } print start_form(-method => 'post', -action => '../EditDeptInfo.p +l.bak'), hidden('Manager', 'Manager'), submit(-name => 'Cancel', -value => 'Cancel'), end_form, end_html;
print header(-type => 'text/html\n\n'), start_html(-title => 'PMI Human Resources', -background=>'/yellow_stucco.gif'), start_form(-method => 'post', -action => 'editpositions.pl' ), "What is the Job Title?", textfield('JobTitle', '', 30, 80), br, br, "What is the Date Listed?", textfield( 'DateListed', '', 30, 80), br, br, "What is the Job Description?", textarea('Description', '', 10, 80), br, br, submit(-name => 'AddFile', -value=> 'AddFile'), end_form, start_form( -method => 'post', -action => 'editpositions.pl'), p, hidden('Manager', 'Manager'), submit(-name => 'submit', -value=> 'Cancel'), end_form, end_html; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: cgi improper file upload???
by petdance (Parson) on Jun 07, 2001 at 00:32 UTC | |
by Prince99 (Scribe) on Jun 07, 2001 at 00:39 UTC |