timeout.cgi 336 Bytes
Newer Older
valenok's avatar
valenok committed
1 2
#!/usr/bin/env perl

Sergey Lyubka's avatar
Sergey Lyubka committed
3
# Make stdout unbuffered
4 5
use FileHandle;
STDOUT->autoflush(1);
valenok's avatar
valenok committed
6 7 8 9

# This script outputs some content, then sleeps for 5 seconds, then exits.
# Web server should return the content immediately after it is sent,
# not waiting until the script exits.
Sergey Lyubka's avatar
Sergey Lyubka committed
10
print "Content-Type: text/html\r\n\r\n";
valenok's avatar
valenok committed
11
print "Some data";
Sergey Lyubka's avatar
Sergey Lyubka committed
12
sleep 3;