Re: [ot] fun fs with perl

[Magnus Bodin]

On Thu, May 30, 2002 at 08:04:01PM +0200, Magnus Bodin wrote:
> 
> ANYONE that still has a copy of, please mail it to me privatly.

As a result, it popped up here yesterday:

        http://giantlaser.com/javafs/ 

/magnus

-- 
#!/usr/bin/perl
$SIG{ALRM}=sub{exit;};alarm 5;$r=<STDIN>;if($r=~m#^GET / HTTP/1#i){alarm 20;
$L="\012\015";print "HTTP/1.1 200 OK$L\Connection: close$L\Content-type: text". 
"/plain$L$L\Just another stupid .sig-webserver. The time is ".localtime().$L;}