File: streamer.psgi

package info (click to toggle)
uwsgi 2.0.31-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 6,564 kB
  • sloc: ansic: 87,066; python: 7,004; cpp: 1,133; java: 708; perl: 678; sh: 585; ruby: 555; makefile: 148; xml: 130; cs: 121; objc: 37; php: 28; erlang: 20; javascript: 11
file content (23 lines) | stat: -rw-r--r-- 378 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
sub streamer {
	my $responder = shift;

	my $writer = $responder->([ 200, [ 'Content-Type', 'text/html' ]]);

	my @chunks = ('One', 'Two', 'Three');

	foreach(@chunks) {
		uwsgi::async_sleep(1);
		# something like $env->{'psgix.suspend'}(); ???
		uwsgi::suspend();
		$writer->write($_."<br/>");
	}

	$writer->close;

}
my $app = sub {

	my $env = shift;

	return \&streamer;
};