$p=shift;$a=a(shift);i(shift);socket S,2,1,6;bind S,$a;listen S,5;undef$/;while(@ARGV&&($_="$p $a f".shift)||accept(C,S)&&($_=)&&close C){m!^(.*?) (.*?) ([e-i])([^/]*)/!s&&$1 eq$p&&&$3($2,$4,$')}sub e{open F,'>',$_[1];print F $_[2];close F}sub f{t($_,@_)for keys%k}sub g{open(F,'<',$_[1])&& t($_[0],$a,"e$_[1]",);close F}sub h{t($_[0],$_,'i')for keys%k}sub i{$k{$_[0]}=1}sub a{$_[0]=~/:/;pack'CxnC4x8',2,$',split'\.',$`}sub t{socket X,2,1,6;$w=shift;if(connect X,a($w)){print X "$p $_[0] $_[1]/$_[2]";close X}else{undef$k{$p}}}