test-message-handler:*.test:Tp:perl5.exe TestHandler.plPerl5.exe muß im Pfad liegen, und es wird vorgeschlagen, daß jeder, der dieses Script benutzen möchte, Perl in den Speicher lädt, weil es ein ganz schön großer Interpreter ist, den Sie sicher nicht andauernd laden wollen.
Um dies zu tun, benutzen Sie die emxload-Funktion von einem der EMX-Packete, mit folgender Zeile in startup.cmd:
g:\emx\bin\emxload -e g:\bin\sbin\perl5.exe
#!/bin/perl5.exe # Handle Usenet test messages by issuing the standard reply require "ctime.pl" ; $date = &ctime(time) ; open (TESTMSG, ">test.temp") ; print TESTMSG <<"EOIT" ; Insert your server's response message here. The posting was received by this server on $date Your original article is reproduced below for your perusal: EOIT while (<>) { print TESTMSG ">", $_ ; /^Reply-To: (.*)/ && ($replyto = $1) ; /^From: (.*)/ && ($from = $1) ; /^Subject: (.*)/ && ($subject = $1) ; } close (TESTMSG) ; if ($subject =~ /.*ignore.*/) { unlink "test.temp" ; exit 0 ; } open (TESTMSG, "<test.temp") ; ($replyto == "") && ($replyto = $from) ; open (MAILSEND, "| sendmail -Cf:\\mptn\\etc\\sendmail.cf -t") ; print MAILSEND "From: news\@your.site.name (News Autoresponder)\n" ; print MAILSEND "To: ", $replyto, "\n" ; print MAILSEND "Subject: Re: ", $subject, "\n\n" ; while (<TESTMSG>) { print MAILSEND ; } print MAILSEND ".\n" ; close (MAILSEND) ; close (TESTMSG) ; unlink "test.temp" ;
URL: changi/manual/syslogd.html Created: 5 December 1996 Revised: 5 December 1996 Author: Alistair J. R. Young <avatar@arkane.demon.co.uk> |