FTP Abfrage ?

[Marko Sollen]

Hallo leute,

ich krieg es einfach nicht hin abzufragen ob der login an dem FTP Server nun erfolgreich war oder nicht :(

So hab ichs versucht:

ftp = Net::FTP->new("$Host");
$ftp->login("anonymous","[e-mail]");
print $ftp;
if ($ftp=~ /7070c/)
{
  print LOG "Can‚t loggin as anonymous...\n";
  print "Can‚t loggin as anonymous...\n";
  last;
}

print "Login as anoynmous succesfull!\n";
$ftp->quit;

Nur ist der Wert von $ftp leider nicht immer 7070c wenn es fehlschlägt. Wie kann ich dabei jetzt abfragen ob der login erfolgreich war oder ob er abgelehnt wurde?

vielen dank.
marko

[klaus]

Hallo marko,

$ftp = Net::FTP->new("$Host");
$ftp->login("anonymous","[e-mail]");

<zitat_aus_modul-doku>
methods
Unless otherwise stated all methods return either a true or false value, with true meaning that the operation was a
success. When a method states that it returns a value, failure will be returned as undef or an empty list.
</zitat_aus_modul-doku>

dadurch ergibt sich beispielsweise folgender Code:
   $ftp->login("anonymous","[e-mail]") or die "Nix da mit login";
oder
   if($ftp->login("anonymous","[e-mail]"))
     {
     &mach_weiter();
     }
   else
    {
    &maul_herum_wegen_login_fehler();
    }

Dies entspricht dem üblichen Verhalten von MEthoden und Funktionen in Perl.

Alles klar?

Klaus