Kai Lewendoski: POP3 mit cgi abfragen - Probleme bei Puretec

Hallo,
ich versuche einen normalen Pop3-Account bei Puretec mit einem cgi-script abzufragen.
Ein Bekannter hat so ein Script auch geschreiben, ich habe es installiert und es läuft auch - bis zu der Stelle, an der der Mailserver abbricht und den Zugang verweigert.
Gefunden wird der Server wohl, das Script wird auch ausgeführt, bricht aber, wie gesagt, ab.

Die Fehlermeldung:

"- 255 CGI returned nonzero status
e Can't Authenticate:
e

  • STDOUT OK STDERR OK"

Und hier der entscheidende Teil des Scripts:

_________________________start_________________________________

Net::POP3 is used to access a POP3 mailbox. A POP3 mailbox must be

configured for each mailing list implementing this feature. All

email contained in this POP3 mailbox when the script is run will

be sent to all recipients on the mailing list.

use Net::POP3;

Define local variables. Used to access mailbox on POP3 server.

my $popServer = "pop.puretec.de";
my $popUser = "xxxxxxxxx";
my $popPass = "xxxxxxxx";

Define local variables. Used to locate base path to MOJO script

my $mojoPath = "/homepages/xx/xxxxxxxxxx/xxxxxxx/xxxxx/mojo";

Construct a new Net::POP3 object

$pop = Net::POP3->new($popServer)or die "Can't Connect to Mail Server:
$!\n";;

Logon to the specified mailbox on the POP3 server.

Number of existing messages returned.

$numMessages=$pop->login($popUser, $popPass) or die "Can't Authenticate:
$!\n";

Sequentially process each of the existing messages in

the specified mailbox.

for ($thisMessage = 1; $thisMessage <= $numMessages; $thisMessage++) {

Get the message $thisMessage from the POP3 mailbox.

$messageText = $pop->get($thisMessage) or die "Can't Get Undeleted
Messages:
$!\n";;

_________________________stopp_________________________________

Von einem anderen cgi-account funktionierte die Abfrage problemlos und die puretec-Hotline erklärte mir, dass es auch möglich sei, Mails so abzufragen.
Hat jemand eine Icdee, was ich falsch gemacht habe?

  1. Hiho, <-- das ist 'ne Begruessung

    "- 255 CGI returned nonzero status
    e Can't Authenticate:
    e

    • STDOUT OK STDERR OK"

    [...]

    $numMessages=$pop->login($popUser, $popPass) or die "Can't Authenticate:
    $!\n";

    Es koennte sein, das der Puretec-Server APOP will. Es koennte auch sein, dass du ein falsches PW angegeben hast.

    Das Script ist soweit richtig.

    Gruss, <-- das ist eine Verabschiedung
     CK
     http://wwwtech.de

    --
    s s^s<DATA>se;s (([^\s]))(ord($1)%2?
    chr(ord($1)-5):chr(ord($1)-3))sieg;s s^s$_see;
    __END__
    uwlsy%*Sr%kqdphv%yr%AFN4%dy%zzzyhfm3ihC*1'as'>

    1. Hallo Christian,

      $numMessages=$pop->login($popUser, $popPass) or die "Can't Authenticate:
      $!\n";
      Es koennte sein, das der Puretec-Server APOP will. Es koennte auch sein, dass du ein falsches PW angegeben hast.

      Das Passwort ist definitiv richtig. Wie gesagt, von einem anderen cgi-account aus lief das Script, was die Abfrage betrifft, ohne Probleme

      Was ist "APOP" und wie müsste das eingefügt werden?

      Kai

      1. Hiho,

        Das Passwort ist definitiv richtig. Wie gesagt, von einem anderen cgi-account aus lief das Script, was die Abfrage
        betrifft, ohne Probleme

        Auf demselben Account?
        Dann ist schlicht und ergreifend Net::POP3 nicht installiert.

        Was ist "APOP" und wie müsste das eingefügt werden?

        perldoc Net::POP3

        Gruss,
         CK
         http://wwwtech.de

        --
        s s^s<DATA>se;s (([^\s]))(ord($1)%2?
        chr(ord($1)-5):chr(ord($1)-3))sieg;s s^s$_see;
        __END__
        uwlsy%*Sr%kqdphv%yr%AFN4%dy%zzzyhfm3ihC*1'as'>

        1. Hallo Christian,

          Auf demselben Account?

          Nein, auf einem anderen... auf einem anderen Server...

          Dann ist schlicht und ergreifend Net::POP3 nicht installiert.

          Ich denke doch... eine entsprechende Datei jedenfalls liegt in einem entsprechenden Ordner und ein Pfad (/lib) im script weist auch dahin.
          Wenn ich richtig verstanden habe, reicht das auch... oder muss das root-mäßig noch installiert werden?

          Was ist "APOP" und wie müsste das eingefügt werden?
          perldoc Net::POP3

          Sorry, aber wie komme ich da ran...?

          Danke

          Kai

          1. Hiho,

            Nein, auf einem anderen... auf einem anderen Server...

            Aber der POP3-Account war derselbe?

            Ich denke doch... eine entsprechende Datei jedenfalls liegt in einem entsprechenden Ordner

            und ein Pfad (/lib) im script weist auch dahin.

            Wenn ich richtig verstanden habe, reicht das auch...

            Nein.

            oder muss das root-mäßig noch installiert werden?

            Ja.

            Ein Teil von Net::POP3 ist in C geschrieben.

            Sorry, aber wie komme ich da ran...?

            perldoc.org oder in der Dos-Box (fuer Win-User) einfach perldoc Net::POP3 eingeben.

            Gruss,

            CK

            http://wwwtech.de

            --

            s s^s<DATA>se;s (([^\s]))(ord($1)%2?

            chr(ord($1)-5):chr(ord($1)-3))sieg;s s^s$_see;

            __END__

            uwlsy%*Sr%kqdphv%yr%AFN4%dy%zzzyhfm3ihC*1'as'>

            1. Hiho,

              was ist denn hier passiert?! Ok, nochmal das posting:

              Nein, auf einem anderen... auf einem anderen Server...

              Aber der POP3-Account war derselbe?

              Ich denke doch... eine entsprechende Datei jedenfalls liegt in einem entsprechenden Ordner
              und ein Pfad (/lib) im script weist auch dahin.
              Wenn ich richtig verstanden habe, reicht das auch...

              Nein.

              oder muss das root-mäßig noch installiert werden?

              Ja.

              Ein Teil von Net::POP3 ist in C geschrieben.

              Sorry, aber wie komme ich da ran...?

              perldoc.org oder in der Dos-Box (fuer Win-User) einfach perldoc Net::POP3 eingeben.

              Gruss,
               CK
               http://wwwtech.de

              --
              s s^s<DATA>se;s (([^\s]))(ord($1)%2?
              chr(ord($1)-5):chr(ord($1)-3))sieg;s s^s$_see;
              __END__
              uwlsy%*Sr%kqdphv%yr%AFN4%dy%zzzyhfm3ihC*1'as'>

              1. Moin,

                was ist denn hier passiert?!

                *rofl*, ja das frag ich mich auch.
                sah aber wirklich lustig aus ;-)

                Viele Gruesse,

                n.d.p.