Changi NNTP Server 1.2

[ Seitenende | Vorige Seite | Nächste Seite | Inhaltsverzeichnis | Index ]

Hinzufügen eines Autoresponders

Die Datei TestHandler.pl enthält eine Testversion eines Autoresponders, in Perl für OS/2 geschrieben. Um ihn zu aktivieren, fügen Sie die folgenden Zeilen der newsfeeds Datei hinzu:
test-message-handler:*.test:Tp:perl5.exe TestHandler.pl
Perl5.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

TestHandler.pl

#!/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" ;

[ Seitenanfang | Vorige Seite | Nächste Seite | Inhaltsverzeichnis ]


URL: changi/manual/syslogd.html
Created: 5 December 1996
Revised: 5 December 1996
Author: Alistair J. R. Young <avatar@arkane.demon.co.uk>