Opened by jan7891 at 2004-08-31 17:20
User since
2004-05-14
231 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-05-14
231 Artikel
BenutzerIn
wieso machst dus nicht mit nem 'normalen' skript zum Mailversenden
weinfach ein Dateihandel mit dem Namen MAIL öffnen usw
wenn du googelst(im duden stehendes wort) unter perl mail versenden findest du bestimmt was und des isst dann leichter
ich schau mal ob ich meinz noch find
ahh
\n\n
<!--EDIT|jemand|1093960139-->
weinfach ein Dateihandel mit dem Namen MAIL öffnen usw
wenn du googelst(im duden stehendes wort) unter perl mail versenden findest du bestimmt was und des isst dann leichter
ich schau mal ob ich meinz noch find
ahh
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#!usr/bin/perl
##zusatz
use CGI::Carp qw(fatalsToBrowser);
my $mailto = 'ad@res.se';
my $subject = 'Mailtest';
my $mailtext = 'Dies ist ein Test';
my $Sendmail_Prog = "/usr/lib/sendmail";
printhead('Mailtest');
open(MAIL, 'sendmail') || print "Mailprogramm konnte nicht gestartet werden\n";
print MAIL "To: $mailto\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$mailtext\n";
close(MAIL) || print "Fehler beim Mailversenden!";
print 'Test erfolgreich';
printfoot();
sub printhead {
print "Content-type: text/html\n\n";
print '<html><head><title>';
print $_[0];
print '</title></head>'; }
sub printfoot {
print '</body>';
print '</html>'; }
<!--EDIT|jemand|1093960139-->
print uc 'i',chr(29*4).q+'s +.++($_=q-m-),++$_;
print chr for 116,$_[0],97,$_[0],98;
print 'ug,',chr(), scalar reverse qq?!erutaef a s'ti?;
print chr for 116,$_[0],97,$_[0],98;
print 'ug,',chr(), scalar reverse qq?!erutaef a s'ti?;