28 lines
563 B
Plaintext
Executable File
28 lines
563 B
Plaintext
Executable File
#!/usr/local/bin/perl5
|
|
|
|
# Simply displays the key/value pairs. Here is how the output
|
|
# would look for multipart/form-data forms:
|
|
#
|
|
# full_name = Foo Bar
|
|
# picture = 812186386__bar.gif
|
|
# readme = 812186386__bar.txt
|
|
#
|
|
# As of v1.8, CGI::Lite no longer returns the entire path name for
|
|
# uploaded files.
|
|
|
|
use CGI::Lite;
|
|
|
|
$cgi = new CGI::Lite;
|
|
|
|
$cgi->set_directory ("/usr/shishir") || die "Directory doesn't exist.\n";
|
|
|
|
# We're ignoring the returned value.
|
|
|
|
$cgi->parse_form_data;
|
|
|
|
print "Content-type: text/plain", "\n\n";
|
|
|
|
$cgi->print_data;
|
|
|
|
exit (0);
|