diff options
| author | Lorry Tar Creator <lorry-tar-importer@lorry> | 2015-06-16 06:44:29 +0000 |
|---|---|---|
| committer | Lorry Tar Creator <lorry-tar-importer@lorry> | 2015-06-16 06:44:29 +0000 |
| commit | f9f3ab3056d94292adb4ab2e1451645bee989769 (patch) | |
| tree | cc5a62954d359d5aad449420bc7ec259b3edb79e /examples/clickable_image.cgi | |
| download | CGI-tarball-master.tar.gz | |
Diffstat (limited to 'examples/clickable_image.cgi')
| -rwxr-xr-x | examples/clickable_image.cgi | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/examples/clickable_image.cgi b/examples/clickable_image.cgi new file mode 100755 index 0000000..78d874f --- /dev/null +++ b/examples/clickable_image.cgi @@ -0,0 +1,56 @@ +#!/usr/bin/env perl + +use strict; +use warnings; + +use CGI; +use Template; + +my $cgi = CGI->new; +my $template_vars; + +if ( $cgi->param ) { + foreach my $var ( qw/ magnification letter x y / ) { + $template_vars->{$var} = $cgi->param( + $var =~ /^[xy]$/ ? "picture.$var" : $var + ); + } +} + +my $tt = Template->new; +print $cgi->header( + -type => 'text/html', + -charset => 'utf-8', +); + +$tt->process( \*DATA,$template_vars ) or warn $tt->error; + +__DATA__ +<!DOCTYPE html> +<html> + <head> + <meta charset="UTF-8"> + <title>A Clickable Image</title> + </head> + <body> + <h1>A Clickable Image</h1> + </a> + <p>Sorry, this isn't very exciting!</p> + <form method="post" action="/clickable_image/"> + <input type="image" name="picture" src="/wilogo.gif" /> + <p>Give me a: + <select name="letter" >[%- FOREACH letter_opt IN [ 'A','B','C','D','E','W' ] %] + <option value="[% letter_opt %]" [% IF letter == letter_opt %]selected[% END %]>[% letter_opt %]</option> + [%- END %]</select> + </p> + <p>Magnification: + [% FOREACH magnification_opt IN [ 1,2,4,20 ] -%] + [%- %]<label><input type="radio" name="magnification" value="[% magnification_opt %]"[% + IF magnification.defined AND magnification == magnification_opt %] checked="checked"[% END + %]/>[% magnification_opt %]X</label> + [% END -%] + [%- IF x.defined AND y.defined %] + <p>Selected Position <strong>([% x %],[% y %])</strong></p> + [% END %] + </body> +</html> |