Hackfut Security File Manager
Current Path:
/usr/share/perl5/CGI/examples
usr
/
share
/
perl5
/
CGI
/
examples
/
📁
..
📁
WORLD_WRITABLE
📄
caution.xbm
(741 B)
📄
clickable_image.cgi
(808 B)
📄
cookie.cgi
(2.21 KB)
📄
crash.cgi
(131 B)
📄
customize.cgi
(2.4 KB)
📄
diff_upload.cgi
(1.56 KB)
📄
file_upload.cgi
(1.95 KB)
📄
frameset.cgi
(2.03 KB)
📄
index.html
(3.41 KB)
📄
internal_links.cgi
(1019 B)
📄
javascript.cgi
(2.98 KB)
📄
make_links.pl
(196 B)
📄
monty.cgi
(2.04 KB)
📄
multiple_forms.cgi
(1.56 KB)
📄
nph-clock.cgi
(359 B)
📄
nph-multipart.cgi
(263 B)
📄
popup.cgi
(1 KB)
📄
save_state.cgi
(2.26 KB)
📄
tryit.cgi
(780 B)
Editing: frameset.cgi
#!/usr/local/bin/perl use CGI; $query = new CGI; print $query->header; $TITLE="Frameset Example"; # We use the path information to distinguish between calls # to the script to: # (1) create the frameset # (2) create the query form # (3) create the query response $path_info = $query->path_info; # If no path information is provided, then we create # a side-by-side frame set if (!$path_info) { &print_frameset; exit 0; } # If we get here, then we either create the query form # or we create the response. &print_html_header; &print_query if $path_info=~/query/; &print_response if $path_info=~/response/; &print_end; # Create the frameset sub print_frameset { $script_name = $query->script_name; print <<EOF; <html><head><title>$TITLE</title></head> <frameset cols="50,50"> <frame src="$script_name/query" name="query"> <frame src="$script_name/response" name="response"> </frameset> EOF ; exit 0; } sub print_html_header { print $query->start_html($TITLE); } sub print_end { print qq{<P><hr><A HREF="../index.html" TARGET="_top">More Examples</A>}; print $query->end_html; } sub print_query { $script_name = $query->script_name; print "<H1>Frameset Query</H1>\n"; print $query->start_form(-action=>"$script_name/response",-TARGET=>"response"); print "What's your name? ",$query->textfield('name'); print "<P>What's the combination?<P>", $query->checkbox_group(-name=>'words', -values=>['eenie','meenie','minie','moe']); print "<P>What's your favorite color? ", $query->popup_menu(-name=>'color', -values=>['red','green','blue','chartreuse']), "<P>"; print $query->submit; print $query->endform; } sub print_response { print "<H1>Frameset Result</H1>\n"; unless ($query->param) { print "<b>No query submitted yet.</b>"; return; } print "Your name is <EM>",$query->param(name),"</EM>\n"; print "<P>The keywords are: <EM>",join(", ",$query->param(words)),"</EM>\n"; print "<P>Your favorite color is <EM>",$query->param(color),"</EM>\n"; }
Upload File
Create Folder