Leser: 1
|< 1 2 >| | 19 Einträge, 2 Seiten |
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
use Mail::Sender; use strict; sub handler { #print "hier fängts an<br>"; sendMail(to=>"meineadresse\@xyz123.de", subject=>"Test-Betreff", msg=>"Test-Text"); #print "und hier hörts auf"; return 0; } sub sendMail { my %args = @_; my $sender = new Mail::Sender { smtp => 'localhost', from => 'vonhier123@xyz123.de', # auth => 'LOGIN', # authid => 'username', # authpwd => 'passwort', on_errors => undef, }; $sender->MailMsg({to => $args{'to'}, subject => $args{'subject'}, msg => $args{msg}}); } 1;
1
2
3
4
5
6
7
8
9
10
11
12
<VirtualHost aaa.bbb.ccc.ddd>
ServerName www.xyz.de
DocumentRoot /var/www/www.xyz.de/
PerlModule test::mail
<Location /mail>
SetHandler perl-script
PerlHandler test::mail
</Location>
</VirtualHost>
1
2
3
4
5
6
7
8
9
USER PID CPU MEM VSZ RSS TTY STAT START TIME COMMAND
root 619 0.0 1.4 36244 14732 ? S Mar30 2:49 /usr/sbin/apache
www-data 9300 84.8 31.2 339028 317464 ? R 13:42 2:15 /usr/sbin/apache
www-data 9301 0.0 1.4 36244 14904 ? S 13:42 0:00 /usr/sbin/apache
www-data 9302 0.0 1.6 37708 16904 ? S 13:42 0:00 /usr/sbin/apache
www-data 9304 0.0 1.4 36244 14900 ? S 13:42 0:00 /usr/sbin/apache
www-data 9305 0.0 1.4 36244 14900 ? S 13:42 0:00 /usr/sbin/apache
www-data 9307 0.0 1.4 36244 14752 ? S 13:42 0:00 /usr/sbin/apache
www-data 9312 0.0 1.4 36244 14752 ? S 13:44 0:00 /usr/sbin/apache
|< 1 2 >| | 19 Einträge, 2 Seiten |