1#@!#!123s

: / proc / self / root / usr / share / doc / perl-CGI / examples /

Filename : mojo_proxy.pl

back

#!/usr/bin/env perl

use Mojolicious::Lite;
use Mojolicious::Plugin::CGI;

my %cgi_scripts = (
	'/clickable_image' => "clickable_image.cgi",
	'/cookie'          => "cookie.cgi",
	'/crash'           => "crash.cgi",
	'/file_upload'     => "file_upload.cgi",
	'/wikipedia_ex'    => "wikipedia_example.cgi",
);

foreach my $route ( sort keys( %cgi_scripts ) ) {
	plugin CGI => [ $route => $cgi_scripts{$route} ];
}

any '/' => sub {
	my ( $c ) = @_;
	$c->stash( { cgi_scripts => { %cgi_scripts } } );
	$c->render( 'index' );
};

app->start;

__DATA__
@@ index.html.ep
<!doctype html><html>
	<head><title>CGI Examples</title></head>
	<body>
		<h3>CGI Examples</h3>
		% for my $route ( sort keys( %{ $cgi_scripts } ) ) {
			<a href="<%= $route %>"><%= $cgi_scripts->{$route} %></a><br />
		% }
	</body>
</html>

Name	Size	Last Modified	Owner	Permissions
clickable_image.cgi	1.404 KB	May 23 2016 7:58:56	root	0644
cookie.cgi	2.74 KB	May 23 2016 7:58:56	root	0644
crash.cgi	0.154 KB	May 23 2016 7:58:56	root	0644
file_upload.cgi	2.387 KB	October 13 2016 1:49:56	root	0644
mojo_proxy.pl	0.786 KB	May 23 2016 7:58:56	root	0644
wikipedia_example.cgi	0.9 KB	May 23 2016 7:58:56	root	0644
wilogo.gif	0.447 KB	May 23 2016 7:58:56	root	0644

2017 © D7net \| D704T team