File: nph-slowdata

package info (click to toggle)
libwww-perl 5.36-1.1
  • links: PTS
  • area: main
  • in suites: slink
  • size: 848 kB
  • ctags: 400
  • sloc: perl: 6,366; makefile: 51; sh: 6
file content (26 lines) | stat: -rwxr-xr-x 481 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
#!/usr/local/bin/perl

# This script outputs some data slowly. It can be used to check that
# pipelined processing of response content really works.  We use syswrite
# so that the script will notice when the connection is broken.

out("HTTP/1.0 200 OK\r
Content-Type: text/plain\r
\r
");

for (1..5) {
    out("The number is now $_\n");
    sleep(1);
}
exit;


sub out
{
    my $data = shift;
    my $l = length $data;
    if (syswrite(STDOUT, $data, $l) != $l) {
	exit 1;
    }
}