Archief - PERL: wat is er fout aan dit mailscript?

Rayne Varga · 2 dec 2004

Ik heb een mailscript in Perl, maar dit lijkt niet te werken. Ik zie echt niet wat eraan mankeert en het komt uit een tutorial, dus ik veronderstel dat alles zou moeten kloppen.

Deze gegevens heb ik gevonden op de statuspagina van de host:

Perl path : /usr/bin/perl
Sendmail path : /usr/sbin/sendmail

Dit is mijn script:

Code:

#!/usr/bin/perl
use CGI;

my $query    = new CGI;
my $sendmail = "/usr/sbin/sendmail -t";
my $subject  = "Subject: ....";
my $content  = $query->param('content');
my $to       = "[email protected]";

open(SENDMAIL, "|$sendmail") or die "Cannot open $sendmail: $!";
print SENDMAIL $subject;
print SENDMAIL $to;
print SENDMAIL "Content-type: text/plain\n\n";
print SENDMAIL $content;
close(SENDMAIL);

print $query->header;
print "E-mail verzonden";

Het bericht e-mail verzonden verschijnt wel, maar ik ontvang geen mail.

Dit is het form dat ik gebruik:

Code:

<form action="mail.pl" method="post">
<table width="800" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="800"><textarea name="content" rows="7" cols="50">De volgende platen zijn besteld:\n\n$content</textarea></td>
</tr>
<tr>
<td align="center"><input type="submit" value="verzenden" />
</table>
</form>

$content is wat tekst gegenereerd dmv PHP.
Het perl bestand is ingesteld met CHMOD op 755.

Sick` · 2 dec 2004

krijg je een error? indien error 500, zet eens op de 1ste regel:
#!/usr/bin/perl -w

en de 2de:
use CGI::Carp qw(fatalsToBrowser);

dan krijg je errors te zien als het al kan compileren.

en verander:
my $to = "[email protected]";
naar:
my $to = "mijnmailadres\@pandora.be";

als je @ niet escaped anziet die '@pandora' als een array.

en zeker zijn dat je upload in ASCII

*edit*

ik moet er wel bijzeggen dat het script vrij onveilig is.

Rayne Varga · 3 dec 2004

Ik krijg geen error 500.
$to heb ik aangepast.
Maar het lijkt nog steeds niet te werken.

Hoezo is het script onveilig? Het wordt trouwens maar door 2 personen gebruikt, dus zo'n enorm groot probleem is dat ook niet.
Weet je misschien een ander en beter alternatief?

Rayne Varga · 8 dec 2004

Niemand meer die mij kan helpen? De thread was intussen al op de 3e pagina beland

ad:

servi · 8 dec 2004

wat ook kan is dat sendmail slecht geconfigureerd is, controleer voor alle veiligheid maar eens of je gewoon handmatig een mail kan versturen met sendmail.

Rayne Varga · 8 dec 2004

servi zei:
wat ook kan is dat sendmail slecht geconfigureerd is, controleer voor alle veiligheid maar eens of je gewoon handmatig een mail kan versturen met sendmail.

en hoe doe ik dat? ik vind daar nergens informatie over

Sick` · 9 dec 2004

als ze mini_sendmail usen moet je de -t switch weglaten (bij sommige versies werkt die niet en is die default actief).

een andere methode is via SMTP versturen, dan moet die module natuurlijk wel op de server aanwezig zijn:

Code:

#!/usr/bin/perl

use CGI qw(header param);
use Net::SMTP;

my $subject = "Mail test";
my $content = param('content');
my $to = '[email protected]';
my $from = '[email protected]';
my $relay = 'localhost';
my $smtp = Net::SMTP->new($relay);

die "SMTP session failed: $!" if (! defined $smtp);

$smtp->mail($from);
$smtp->mail($to);

$smtp->data();
$smtp->datasend("To: $to\n");
$smtp->datasend("From: $from\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n");
$smtp->datasend("$content\n");
$smtp->dataend();
$smtp->quit();

print header;
print "E-mail verzonden";

Als ge nu ne 500 error krijgt betekent het dat de module niet aanwezig is of dat localhost geen SMTP connections ontvangt.

Rayne Varga · 9 dec 2004

Sick` ik heb nu dat scriptje van jou gebruikt. Ik krijg weer geen error. Er verschijnt mooi "e-mail verzonden" zoals het moet, maar ik krijg nog altijd geen mail :confused:

Ik heb nog eens gecontroleerd of het tekstvak de naam content heeft, dat klopt. En ik heb ook mijn e-mailadres aangepast in het perl-scriptje.
Ik begin me toch serieus af te vragen waarom dat maar niet wil werken.

Sick` · 9 dec 2004

add onderaan eens een keer:

print " \nText: \n \n$content";

iets van text dan te zien?

Bunz · 9 dec 2004

Zeker dat je eigen e-mail adres juist is :ironic:

Rayne Varga · 9 dec 2004

Sick` zei:
add onderaan eens een keer:

print " \nText: \n \n$content";

iets van text dan te zien?

$content bevat wel degelijk tekst aangezien ik die al laat afprinten in een tekstvak (eerst gegenereerd ahv PHP). Dat tekstvak heet 'content' en zou moeten doorgestuurd worden. Trouwens, als $content leeg zou zijn, zou ik normaal gezien toch gewoon een lege mail moeten krijgen, of niet?

Sick` · 9 dec 2004

hangt er beetje vanaf wel anti-spam systeem er word gebruikt.
wat je ook eens kan proberen is of het misschien via GET wel gaat ipv via post

http://uw-url.tld/mail.pl?content=testmail

Rayne Varga · 9 dec 2004

Nu via GET geprobeerd en lijkt nog niet te werken.
Achter mijn url staat wel nog de naam van mijn submitknop, ik veronderstel dat dat normaal is?
Het ziet er als volgt uit: http://www.mijnurl.com/sendmail.pl?content=.......&mail=verzenden
(knop heet 'mail' en heeft waarde 'verzenden')

Sick` · 9 dec 2004

is normaal, probeer anders eens je script op .cgi te laten eindigen in plaats van .pl? het kan zijn dat .pl gelinkt is aan mod_perl en dan heb je het raden welk er allemaal preloaded is (Tainting ofzo staat misschien aan).

Rayne Varga · 9 dec 2004

Sick` zei:
is normaal, probeer anders eens je script op .cgi te laten eindigen in plaats van .pl? het kan zijn dat .pl gelinkt is aan mod_perl en dan heb je het raden welk er allemaal preloaded is (Tainting ofzo staat misschien aan).

Dan krijg ik een internal server error (500).

Sick` · 9 dec 2004

zet dan eens vlak onder my $content... :

$content = $content =~ m!^(.+)$! ? $1 : "";

*edit* bij de .pl file eh, niet de .cgi

Rayne Varga · 9 dec 2004

Sick` zei:
zet dan eens vlak onder my $content... :

$content = $content =~ m!^(.+)$! ? $1 : "";

*edit* bij de .pl file eh, niet de .cgi

Dan gebeurt net hetzelfde als voorheen. Nieuwe pagina met tekst "e-mail verzonden" wordt geladen, maar ik ontvang niks.

Sick` · 9 dec 2004

dan zou ik bij je host eens vragen om de error logs te mogen bekijken

khad zo ook overlaatst iet super weird, die manne hadde niet eens een /dev/stdout of /dev/stdin :ironic:

Archief - PERL: wat is er fout aan dit mailscript?

Rayne Varga

Legacy Member

Sick`

Legacy Member

Rayne Varga

Legacy Member

Rayne Varga

Legacy Member

servi

Legacy Member

Rayne Varga

Legacy Member

Sick`

Legacy Member

Rayne Varga

Legacy Member

Sick`

Legacy Member

Bunz

Legacy Member

Rayne Varga

Legacy Member

Sick`

Legacy Member

Rayne Varga

Legacy Member

Sick`

Legacy Member

Rayne Varga

Legacy Member

Sick`

Legacy Member

Rayne Varga

Legacy Member

Sick`

Legacy Member