Acme-W

 view release on metacpan or  search on metacpan

inc/Module/Install/Fetch.pm  view on Meta::CPAN

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = FileHandle->new;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        my @dialog = split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;

lib/Acme/W.pm  view on Meta::CPAN

    s/([^\$\w\d])shutdown([^\w\d])/$1WwWWwWw$2/g;
    s/([^\$\w\d])shmwrite([^\w\d])/$1WwWWwwW$2/g;
    s/([^\$\w\d])setpwent([^\w\d])/$1WwWWwww$2/g;
    s/([^\$\w\d])setgrent([^\w\d])/$1WwWwWWW$2/g;
    s/([^\$\w\d])readpipe([^\w\d])/$1WwWwWWw$2/g;
    s/([^\$\w\d])readlink([^\w\d])/$1WwWwWwW$2/g;
    s/([^\$\w\d])readline([^\w\d])/$1WwWwWww$2/g;
    s/([^\$\w\d])getpwuid([^\w\d])/$1WwWwwWW$2/g;
    s/([^\$\w\d])getpwnam([^\w\d])/$1WwWwwWw$2/g;
    s/([^\$\w\d])getpwent([^\w\d])/$1WwWwwwW$2/g;
    s/([^\$\w\d])getlogin([^\w\d])/$1WwWwwww$2/g;
    s/([^\$\w\d])getgrnam([^\w\d])/$1WwwWWWW$2/g;
    s/([^\$\w\d])getgrgid([^\w\d])/$1WwwWWWw$2/g;
    s/([^\$\w\d])getgrent([^\w\d])/$1WwwWWwW$2/g;
    s/([^\$\w\d])formline([^\w\d])/$1WwwWWww$2/g;
    s/([^\$\w\d])endpwent([^\w\d])/$1WwwWwWW$2/g;
    s/([^\$\w\d])endgrent([^\w\d])/$1WwwWwWw$2/g;
    s/([^\$\w\d])dbmclose([^\w\d])/$1WwwWwwW$2/g;
    s/([^\$\w\d])continue([^\w\d])/$1WwwWwww$2/g;
    s/([^\$\w\d])closedir([^\w\d])/$1WwwwWWW$2/g;
    s/([^\$\w\d])__LINE__([^\w\d])/$1WwwwWWw$2/g;

lib/Acme/W.pm  view on Meta::CPAN

    s/([^\$\w\d])sin([^\w\d])/$1wWWWW$2/g;
    s/([^\$\w\d])say([^\w\d])/$1wWWWw$2/g;
    s/([^\$\w\d])ref([^\w\d])/$1wWWwW$2/g;
    s/([^\$\w\d])pos([^\w\d])/$1wWWww$2/g;
    s/([^\$\w\d])pop([^\w\d])/$1wWwWW$2/g;
    s/([^\$\w\d])our([^\w\d])/$1wWwWw$2/g;
    s/([^\$\w\d])ord([^\w\d])/$1wWwwW$2/g;
    s/([^\$\w\d])oct([^\w\d])/$1wWwww$2/g;
    s/([^\$\w\d])not([^\w\d])/$1wwWWW$2/g;
    s/([^\$\w\d])map([^\w\d])/$1wwWWw$2/g;
    s/([^\$\w\d])log([^\w\d])/$1wwWwW$2/g;
    s/([^\$\w\d])int([^\w\d])/$1wwWww$2/g;
    s/([^\$\w\d])hex([^\w\d])/$1wwwWW$2/g;
    s/([^\$\w\d])for([^\w\d])/$1wwwWw$2/g;
    s/([^\$\w\d])exp([^\w\d])/$1wwwwW$2/g;
    s/([^\$\w\d])eof([^\w\d])/$1wwwww$2/g;
    s/([^\$\w\d])die([^\w\d])/$1WWWW$2/g;
    s/([^\$\w\d])cos([^\w\d])/$1WWWw$2/g;
    s/([^\$\w\d])cmp([^\w\d])/$1WWwW$2/g;
    s/([^\$\w\d])chr([^\w\d])/$1WWww$2/g;
    s/([^\$\w\d])and([^\w\d])/$1WwWW$2/g;

lib/Acme/W.pm  view on Meta::CPAN

    s/([^\$\w\d])WwWWwWw([^\w\d])/$1shutdown$2/g;
    s/([^\$\w\d])WwWWwwW([^\w\d])/$1shmwrite$2/g;
    s/([^\$\w\d])WwWWwww([^\w\d])/$1setpwent$2/g;
    s/([^\$\w\d])WwWwWWW([^\w\d])/$1setgrent$2/g;
    s/([^\$\w\d])WwWwWWw([^\w\d])/$1readpipe$2/g;
    s/([^\$\w\d])WwWwWwW([^\w\d])/$1readlink$2/g;
    s/([^\$\w\d])WwWwWww([^\w\d])/$1readline$2/g;
    s/([^\$\w\d])WwWwwWW([^\w\d])/$1getpwuid$2/g;
    s/([^\$\w\d])WwWwwWw([^\w\d])/$1getpwnam$2/g;
    s/([^\$\w\d])WwWwwwW([^\w\d])/$1getpwent$2/g;
    s/([^\$\w\d])WwWwwww([^\w\d])/$1getlogin$2/g;
    s/([^\$\w\d])WwwWWWW([^\w\d])/$1getgrnam$2/g;
    s/([^\$\w\d])WwwWWWw([^\w\d])/$1getgrgid$2/g;
    s/([^\$\w\d])WwwWWwW([^\w\d])/$1getgrent$2/g;
    s/([^\$\w\d])WwwWWww([^\w\d])/$1formline$2/g;
    s/([^\$\w\d])WwwWwWW([^\w\d])/$1endpwent$2/g;
    s/([^\$\w\d])WwwWwWw([^\w\d])/$1endgrent$2/g;
    s/([^\$\w\d])WwwWwwW([^\w\d])/$1dbmclose$2/g;
    s/([^\$\w\d])WwwWwww([^\w\d])/$1continue$2/g;
    s/([^\$\w\d])WwwwWWW([^\w\d])/$1closedir$2/g;
    s/([^\$\w\d])WwwwWWw([^\w\d])/$1__LINE__$2/g;

lib/Acme/W.pm  view on Meta::CPAN

    s/([^\$\w\d])wWWWW([^\w\d])/$1sin$2/g;
    s/([^\$\w\d])wWWWw([^\w\d])/$1say$2/g;
    s/([^\$\w\d])wWWwW([^\w\d])/$1ref$2/g;
    s/([^\$\w\d])wWWww([^\w\d])/$1pos$2/g;
    s/([^\$\w\d])wWwWW([^\w\d])/$1pop$2/g;
    s/([^\$\w\d])wWwWw([^\w\d])/$1our$2/g;
    s/([^\$\w\d])wWwwW([^\w\d])/$1ord$2/g;
    s/([^\$\w\d])wWwww([^\w\d])/$1oct$2/g;
    s/([^\$\w\d])wwWWW([^\w\d])/$1not$2/g;
    s/([^\$\w\d])wwWWw([^\w\d])/$1map$2/g;
    s/([^\$\w\d])wwWwW([^\w\d])/$1log$2/g;
    s/([^\$\w\d])wwWww([^\w\d])/$1int$2/g;
    s/([^\$\w\d])wwwWW([^\w\d])/$1hex$2/g;
    s/([^\$\w\d])wwwWw([^\w\d])/$1for$2/g;
    s/([^\$\w\d])wwwwW([^\w\d])/$1exp$2/g;
    s/([^\$\w\d])wwwww([^\w\d])/$1eof$2/g;
    s/([^\$\w\d])WWWW([^\w\d])/$1die$2/g;
    s/([^\$\w\d])WWWw([^\w\d])/$1cos$2/g;
    s/([^\$\w\d])WWwW([^\w\d])/$1cmp$2/g;
    s/([^\$\w\d])WWww([^\w\d])/$1chr$2/g;
    s/([^\$\w\d])WwWW([^\w\d])/$1and$2/g;