Leser: 3
3 Einträge, 1 Seite |
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
26
27
28
29
30
31
32
33
34
35
#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
$mailto = "test\@domain.de"; # Normalerweiße meine aber für Forumeintrag geändert
$mailfrom = "test";
$subject = "anmeldung jutu 07";
$mailtext = "blablajsdf";
$sendmail = "/usr/lib/sendmail -t -i";
open ( MAIL, "| $sendmail" );
print MAIL "From: $mailfrom\n";
print MAIL "To: $mailto\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$mailtext\n";
print MAIL "\n.\n";
close ( MAIL );
print <<EOD;
Content-type: text/html\n\n
<html>
<head>
<title></title>
<meta content="">
<style></style>
</head>
<body> verschickt!
</body>
</html>
EOD
open ( MAIL, "| $sendmail" ) or die $!;
3 Einträge, 1 Seite |