HEX

Warning: set_time_limit() [function.set-time-limit]: Cannot set time limit - prohibited by configuration in /home/u547966/brikov.ru/www/wp-content/plugins/admin-menu-editor/menu-editor.php on line 745
Server: Apache
System: Linux 4.19.0-0.bpo.9-amd64 x86_64 at red40
User: u547966 (5490)
PHP: 5.3.29-mh2
Disabled: syslog, dl, popen, proc_open, proc_nice, proc_get_status, proc_close, proc_terminate, posix_mkfifo, chown, chgrp, accelerator_reset, opcache_reset, accelerator_get_status, opcache_get_status, pcntl_alarm, pcntl_fork, pcntl_waitpid, pcntl_wait, pcntl_wifexited, pcntl_wifstopped, pcntl_wifsignaled, pcntl_wifcontinued, pcntl_wexitstatus, pcntl_wtermsig, pcntl_wstopsig, pcntl_signal, pcntl_signal_dispatch, pcntl_get_last_error, pcntl_strerror, pcntl_sigprocmask, pcntl_sigwaitinfo, pcntl_sigtimedwait, pcntl_exec, pcntl_getpriority, pcntl_setpriority
$ pwd: /usr/share/doc/libcgi-pm-perl/examples/
Upload Files
File: //usr/share/doc/libcgi-pm-perl/examples/mojo_proxy.pl
#!/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>
@ Telegram