/usr/share/perl5/CGI/examples

Name	Size	Mode	Actions
WORLD_WRITABLE/	-	0755	rm
caution.xbm	741	0644	edit dl rm
clickable_image.cgi	808	0644	edit dl rm
cookie.cgi	2263	0644	edit dl rm
crash.cgi	131	0644	edit dl rm
customize.cgi	2454	0644	edit dl rm
diff_upload.cgi	1595	0644	edit dl rm
file_upload.cgi	1998	0644	edit dl rm
frameset.cgi	2076	0644	edit dl rm
index.html	3487	0644	edit dl rm
internal_links.cgi	1019	0644	edit dl rm
javascript.cgi	3049	0644	edit dl rm
make_links.pl	196	0644	edit dl rm
monty.cgi	2086	0644	edit dl rm
multiple_forms.cgi	1599	0644	edit dl rm
nph-clock.cgi	359	0644	edit dl rm
nph-multipart.cgi	263	0644	edit dl rm
popup.cgi	1024	0644	edit dl rm
save_state.cgi	2311	0644	edit dl rm
tryit.cgi	780	0644	edit dl rm

Edit: /usr/share/perl5/CGI/examples/frameset.cgi (2076B)

#!/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";
}

#!/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 <$TITLE EOF ; exit 0; } sub print_html_header { print $query->start_html($TITLE); } sub print_end { print qq{

More Examples}; print $query->end_html; } sub print_query { $script_name = $query->script_name; print "

Frameset Query

\n"; print $query->start_form(-action=>"$script_name/response",-TARGET=>"response"); print "What's your name? ",$query->textfield('name'); print "

What's the combination?

", $query->checkbox_group(-name=>'words', -values=>['eenie','meenie','minie','moe']); print "

What's your favorite color? ", $query->popup_menu(-name=>'color', -values=>['red','green','blue','chartreuse']), "

"; print $query->submit; print $query->endform; } sub print_response { print "

Frameset Result

\n"; unless ($query->param) { print "No query submitted yet."; return; } print "Your name is ",$query->param(name),"\n"; print "

The keywords are: ",join(", ",$query->param(words)),"\n"; print "

Your favorite color is ",$query->param(color),"\n"; }