view release on metacpan or  search on metacpan

lib/Net/FTPServer/RO_FTPThis/Server.pm  view on Meta::CPAN

sub user_login_hook {
    my $self = shift;
    my $user = shift;
    my $user_is_anon = shift;

    # reject non-anonymous login
    die "only anonymous ftp mode supported" unless $user_is_anon;

    my $dir = $self->config("root directory");
    my @st = stat($dir) or die "Can't stat '$dir': $!";
    my @pw;
    if ($st[4] == 0) {
        @pw = getpwnam("nobody") or die "Can't get user nobody";
    } else {
        @pw = getpwuid($st[4]) or die "Can't get user with UID $st[4]";
    }

    if ($> == 0) {
        # chroot to directory and change to directory's owner