uwsgi/test.psgi

use strict;
use warnings;

my $rpc_value = uwsgi::call('hello', 'foo', 'bar', 'test');

if ($rpc_value) {
	print "rpc value = ".$rpc_value."\n";
}

my $one = sub {
	my $env = shift;
	sleep(1);
	print "one\n";
};

my $two = sub {
	my $env = shift;
	sleep(1);
	print "two\n";
};

my $four = sub {
	my $signum = shift;
	print "i am signal ".$signum."\n" ;
};

uwsgi::register_signal(17, '', $four);
uwsgi::register_signal(30, '', $two);

my $three = sub {
	my $env = shift;
	sleep(1);
	print "three\n";
};


uwsgi::postfork(sub {
	print "forked !!!\n";
});

uwsgi::atexit(sub {
	print "exited\n";
});

my $app = sub {
	my $env = shift;
	uwsgi::signal(17);
	uwsgi::signal(30);

	if ($env->{'psgix.cleanup'}) {
		print "cleanup supported\n";
		push @{$env->{'psgix.cleanup.handlers'}}, $one;
		push @{$env->{'psgix.cleanup.handlers'}}, $two;
		push @{$env->{'psgix.cleanup.handlers'}}, $three;
	}
	uwsgi::cache_set("key1", "val1");
	if ($rpc_value) {
		print uwsgi::call('hello')."\n";
	}
	print 'pid '.$$."\n";
	return [
          '200',
          [ 'Content-Type' => 'text/plain' ],
          [ "Hello World\r\n", $env->{'REQUEST_URI'}, uwsgi::cache_get('key1'), uwsgi::call('hello') ],
	];
};