Hi there:
I understand Net::FTPServer already exists. I would like to add
Net::FTPServer::PWP, which is a specialized module for providing FTP
service to users of "Personal Web Pages".
What we understand by PWP (as taken from the README of the module)
This is a
particular scenario where possibly millions of users share a pool of
"stateless" FTP servers that access filesystems where their personal
web pages are stored. In this scenario, it is impractical to assign a
unique user-id to each user for permission control. Also, the
authentication depends on an external AAA server, which in our case is
a RADIUS server.
Regards.
-lem
--
--
#!/usr/bin/perl -w
use strict;
$_[$_]=0 for 0..7;my$i;
for my$a(grep{s@^00@@}unpack'B8'x28,join'',map{chr}split/\*+/,q{61*31*28*
32*20*40*25*63*63*9*52*58*49*18*30*47*20*2*10*4*8*63*63*1*36*2*13*30}){$i
=0;grep{$_[$i++].=$_}split //,$a;length$_[0]==8&&print pack'B8',$_ for@_;
length$_[0]==8&&grep{$_=0}@_;}print"\n";
