[MacPerl] Net::FTP and jpegs

[Katherine Richmond]

Hi everyone,

I posted a question yesterday about using ftp to send a jpeg to a server. I also
asked about the comment field of the file. First I would like to find out why a
jpeg becomes corrupted when it is ftped. I am running the ftp perl script on a
Mac and sending the jpeg to another Mac running WebSTAR FTP. I did set the type
to binary, as was suggested yesterday. Here is my code:

sub ftpFiles {

        my $ftp = Net::FTP->new("myserver.domain.org") or die "Can't connect:$@\n";
        $ftp->login("myClient", "myPassword") or die "Can't login:  $ftp->message";

        foreach my $file (@ARGV) {

                $fileName = basename($file);

                $ftp->binary();
                
                $ftp->put($fileName) or die "Can't put: $fileName  $ftp->message\n"; 

        }

}

Any other ideas as to why the jpeg gets corrupted?

Thanks,
Kathy Richmond