"Jette" <jniKATTE@BAKKEomnix.dk> writes:
> I dk.fritid.dyr.kat.dk har vi fornylig vedtaget at sende et vejledende
> indlæg til gruppen én gang om ugen, i håb om at nye brugere læser det, og
> dermed kan begrænse netikette-diskutioner i gruppen.
Du skulle nu have modtaget velkomstbrevet for denne gruppe. Overvej om
det ikke er en funktionalitet I heller kunne ønske. Hvis det er skal
du have fat i Ask Bjørn Hansen. Han har koden og kan måske endda sætte
det op for jer.
(Det bliver vel stadigvæk sendt ud?)
> Jeg har kigget mange steder på nettet og foreløbig fundet frem til
> nedenstående... jeg synes bare de eksempler jeg finder er _meget_ simple -
> mangler der ikke noget?
Basalt set nej.
> Skal jeg f.eks. ikke generere et unikt message-id? og hvordan gør
> man det i Perl?
En ordentlig newsserver vil selv genererer et passende message-id hvis
man forsøger at sende et indlæg uden message-id.
> [code]
> 1 #!/usr/bin/perl
> 2 use strict;
> 3 use DBI;
Dette modul bruger du ikke i din kodestump.
> 4 use Net::NNTP;
> 5 use News::Article;
Dette modul bruger du ikke i din kodestump.
> 6
> 7 my $server = "news.server.dk";
> 8 my $client = new Net::NNTP $server;
> 9 my $group = "dk.test";
> 10
> 11 my @header = ("Newsgroups: dk.test",
> 12 "Subject: Ignore test",
> 13 "From: test\@somemaildomain.dk");
> 14 my @body = ("This is the body of the article");
> 15 $client->post(@header, "", @body);
Men ellers burde dette virke.
--
Peter Makholm | I have no caps-lock but I must scream...
peter@makholm.net | -- Greg
http://hacking.dk |