One Hat Cyber Team

Your IP: 216.73.216.27
Server IP: 13.127.59.50
Server: Linux ip-172-31-46-210 5.15.0-1033-aws #37~20.04.1-Ubuntu SMP Fri Mar 17 11:39:30 UTC 2023 x86_64
Server Software: Apache/2.4.41 (Ubuntu)
PHP Version: 7.4.3-4ubuntu2.29
Buat File | Buat Folder

Dir : ~/usr/share/doc/libcgi-pm-perl/examples/

View File Name : mojo_proxy.pl

#!/usr/bin/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>