OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
doc
/
libcgi-pm-perl
/
examples
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
02/11/2020 08:10:07 AM
rwxr-xr-x
📄
clickable_image.cgi
1.4 KB
12/12/2017 09:11:51 PM
rwxr-xr-x
📄
cookie.cgi
2.74 KB
12/12/2017 09:11:51 PM
rwxr-xr-x
📄
crash.cgi
158 bytes
12/12/2017 09:11:51 PM
rwxr-xr-x
📄
file_upload.cgi
2.39 KB
12/12/2017 09:11:51 PM
rwxr-xr-x
📄
mojo_proxy.pl
805 bytes
12/12/2017 09:11:51 PM
rw-r--r--
📄
wikipedia_example.cgi
922 bytes
12/12/2017 09:11:51 PM
rwxr-xr-x
📄
wilogo.gif
458 bytes
05/23/2016 07:58:56 AM
rw-r--r--
Editing: clickable_image.cgi
Close
#!/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>