#!/usr/bin/perl
# @(#) webserv.pl v1.3 (11/12/96)
# Written by Sarang Gupta (sarang@sarangworld.com)

use Socket;($pr,$pt)=@ARGV;socket(S,PF_INET,SOCK_STREAM,getprotobyname("tcp"));
$stat=bind(S,sockaddr_in($pt,INADDR_ANY))||die;listen(S,SOMAXCONN);
for(;accept(C,S);){while(<C>){if(/get (\S+)/i){print C `cat $pr/$1`;last}}}

# Please visit http://www.sarangworld.com/perlscript.php3 for a full list
# of my Perl scripts, or http://www.sarangworld.com/ to see my website