nicht angemeldet
Hallo,
Es wäre wirklich gut, wenn Du Dir Perl lokal installieren würdest, und dann das Script auch ordentlich lokal testest.
<shelloutput>
D:\tests>perl alex2.pl
Content-type: text/html
Undefined subroutine &main::sendEmail called at alex2.pl line 79.
</shelloutput>
Wobei die Zeile mit 'Undefined ' sicherlich per STDERR gekommen ist, also über den Webserver normalerweise nicht angezeigt wird.
Und dann ist es klar, daß nix mehr kommt.
Ach ja übrigens, die Funktion hattest Du 'sendMail' genannt.
So das mal fürs erste.
Hinzu kommt, daß Du mit
sub dbEintrag
{
read(STDIN,$query_string,$ENV{'CONTENT_LENGTH'});
[...]
probierst, die Parameter nochmals einzulesen. Das wird so nicht gehen, da spätestens bei read(STDIN...) nichts mehr kommen wird, da es ja schon durch die funktion sendMail() geschehen ist.
Du mußt also eine gemeinsame Parameterverwaltung realisieren. Einfach nur zwei Unterprogramme machen alleine genügt nicht.
Wie schon weiter oben gesagt, ist das Zusammenführen zweier scripts eine heikle Angelegenheit. Wenn Dir die Perlkenntnisse dazu fehlen, so hast Du nur zwei Chancen.
1.)Du eignest sie Dir an,
2.) Du suchst Dir jemanden, der das für Dich erledigt.
Könnte allerdings auch Geld kosten.
Aber, so wie es für mich aussieht, ist das ja sowieso ein kommerzielles Projekt, dak wirst Du, wenn nötig schon ein paar Mark abgeben können.
Grüße
Klaus