| $titel | $titelr |
| $menue | |
EOM } ############################################################################ # HTML-Foot ############################################################################ sub html_foot { my $adminlink = ( -e "config.link" ? qq( || CONFIG) : " " ) ; print <<"EOM" ; | |
© M.Garms 2002 Script-Basis by perluntiy.de
/\n\n/ig ; $TMPL{'TEXT'}=~ s/<([^>]|\n)*>/ /g ; #Werte einsetzen #$mailtmpl =~ s/\[NEWS_(.*?)\]/$TMPL{$1}/g ; #$mailtmpl =~ s///g ; $r=&mailing($mailadr,$sender,$subject,$text) ; #$r="gesendet: $mailadr,$sender,$subject,$text"; # print "&mailing:$sender,$subject,$mailtmpl"; #return $r; } ############################################################################ # ADMIN: Das eigentliche Mailing # UNIX/Linux -> wird per Sendmail verschickt # MAIL-LOG'= 'datei' lokales speichern 'mail' versenden, anderes=off ############################################################################ sub mailing { my ($mailto,$mailfrom,$mailsub,@mailtext) = @_ ; my $fname=&date_time; #my $mprog='./usr/lib/sendmail'; #my $mprog='../usr/sbin/sendmail'; my $mprog='/usr/lib/sendmail -t'; my $r; ### #Mail per SENDMAIL unter Unix verschicken my $to='m.garms@sternwerkstatt.de'; my $from='m.garms@sternwerkstatt.de'; my $subject='testmail'; my $text='Dies ist der neue Mailtext'; my $mailprog = '/usr/lib/sendmail -t'; # Open The Mail Program open(MAIL,"|$mailprog -t"); print MAIL "To: $to\n"; print MAIL "From: $from\n"; print MAIL "Subject: $subject\n"; print MAIL "$text\n"; close (MAIL); $mailtmp=join(/ /,@mailtext) ; #open(MAIL,"|$mailprog -t"); #open(MAIL,"| $mprog -t") || die "Kann die E-Mail ueber -$mprog- nicht verschicken. Es ist eventl. der falsche sendmail-Pfad eingestellt." ; #print MAIL "To: $mailto\n"; #print MAIL "From: $mailfrom\n"; #print MAIL "Subject: $mailsub\n\n" ; #print MAIL $mailtmp ; #close (MAIL) ; } ############################################################################ # ENDE ############################################################################