Re: [MacPerl] MacPerl->FTP

[Jim Easterbrook <jim.easterbrook@rd.bbc.co.uk>]

At 10:19 -0600 7/1/98, Mark Manning/Muniz Eng. wrote:
>I was wondering, on the FTP package, when you want to
>transfer a binary file if there is anything you need to put
>as an argument to the BINARY call?  Here is what I am
>doing:
[snip]

I've done this succesfully with the following extract:

  $ftp->mkdir( $path, 1 );
  print $ftp->message."\n";

  if (MacPerl::GetFileInfo( $src ) eq "TEXT") {
    $ftp->ascii( );
    }
  else {
    $ftp->binary( );
    }
  print $ftp->message."\n";

  $ftp->put( $src, $path.$name );
  print $ftp->message."\n";

This is not too dissimilar from what you're doing, so I would expect your
example to work. I like the more verbose feedback I get by printing
$ftp->message.

Jim Easterbrook
BBC Research & Development                     http://www.bbc.co.uk/rd/
***     All opinions are mine and might not be shared by the BBC    ***



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