Re: [MacPerl] FTP client? (fwd)

[pudge@pobox.com (Chris Nandor)]

At 18.09 12/3/97, Terje Bless wrote:
>Paul DuBois wrote:
>>
>>>%find . -name "*" -print > dir.out
>>
>>Actually it won't generate full pathnames, it'll generate
>>pathnames relative to the current directory.
>
>Now we`re *really* getting far afield here. :-(
>So, to get (marginally ;D) back on topic, how about using File::Find
>instead? :-)

That's what I use with Mac::Apps::Anarchie.  Works great (though you would
have to do more to create non-existing directories).  Something like this:

#!perl -w
use Mac::Apps::Anarchie;
use File::Find;

$newdir      = "PowerPudgeIII:Programming:Pudge.Net Upload";
$uploaddir   = '/web/ns-home/client/pudge';
$ftp         = Mac::Apps::Anarchie->new;
$ftp->switchapp(1);
$ftp->host('pudge.net');
$ftp->user($user);
$ftp->pass($pass);
find(\&wanted,$newdir);

sub wanted {
    $lfile = $File::Find::name;
    if (! -d $lfile) {
        ($rfile = $lfile) =~ s/$newdir/$uploaddir/;
        $rfile =~ s|:|/|g;
        $ftp->store($lfile,$rfile,0);
    }
}

--
Chris Nandor               pudge@pobox.com           http://pudge.net/
%PGPKey=('B76E72AD',[1024,'0824 090B CE73 CA10  1FF7 7F13 8180 B6B6'])
#==                    MacPerl: Power and Ease                     ==#
#==    Publishing Date: Early 1998. http://www.ptf.com/macperl/    ==#



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch