Peter G, du skrev:
> hamsterens "Incoming NTTP", startede hamsteren utallige instanser af
> Korrnews. Jeg kan gætte mig til at jeg har brug for at starte den med
> et par specifikke parameter. Men hvilke?
Min Hamster ini, i det afsnit der hedder [Actions]
news.nntp.Exec=C:\Hamstertools\Korrnews4.11\ONLY_KN.EXE
news.nntp.Pars=Type:newsnntp Filename:"%1"
news.nntp.Wait=1
Hamsterens GUI ved Incoming NTTP
Start program C:\Hamstertools\Korrnews4.11\ONLY_KN.EXE
med parametre Type:newsnntp Filename:"%1"
Start-Type Normalt
KorrNews 4.2 GUI
General Settings
New
Name newsnntp
Automatiche Funktionen anwenden
Message-Path C:\Hamster\Groups
Header.def newsi.def 'eller hvad du nu vil kalde den'
Du kan eksperimentere lidt med diverse settings på fanebladende.
Jeg har blandt andet, repair OE comb quoting
convert OE '--' til '-- '
allowed charset ascii,iso-8859-1,iso-8859-15,cp-1252,utf-8
> Jeg prøver lige tolke dette du har skrevet som jeg forstår det
>
>> If Header (Newsgroups) begins with "tele2." then Quit
>
> Indlæg fra tele2 grupper bliver ikke behandlet? Hvorfor mon det?
De grupper feeder jeg, så dem vil jeg ikke pille ved.
>> If Not Header (From) matches "Henrik K Hansen" then gosub HKH-Grupper
>
> Alle andre indlæg end dine egne bliver behandlet.
Korrekt, men jeg har ændret gevaldigt i min newsi.def siden.
> Så blev jeg lidt klogere. Kan man bede om lidt ekstra hjælp?
Min nye newsi.def, som jeg har ændret lidt meget
#Dem rører vi ikke#
If Header (Newsgroups) begins with "tele2." or Header (Newsgroups) begins with "hamster" then Quit
If Header (From) matches "Henrik K Hansen" then Quit
If Last(Header(References)) contains "hkh.dyndns.dk" then Quit
#----------------------------------------------------#
#ombryder indgående news til 90 tegn pr linie#
Var %i% : Integer
For %i% = 1 to BodyLines
If Pos(Left(Bodyline(%i%), 1), ">") = 0
Set Bodyline %i% = Wordwrap(Bodyline(%i%), 90, "")
endif
Next
#----------------------------------------------------#
#Sletter en unødvendig Reply-To header#
If Header(From) contains Header(Reply-To)
Delete Header Reply-To
endif
#-----------------------------------------------------#
#Sletter imo unødvendig headere#
#Delete Header X-Face:
Delete Header X-Accept-Language:
Delete Header X-Priority:
Delete Header X-MSMail-Priority:
Delete Header X-MimeOLE:
#-----------------------------------------------------#
#Tjekker om det er et svar, hvis det er og der ikke er et > i en af de 4
#første linier, bliver der skrevet Forbandede Top Poster i begyndelsen
#af emnelinien 'som jeg filtre på med min newsreader', og der bliver sat
#en header der viser hvor mange linier der er vedhængt som bundpost.
If Header(References) > ""
for %x% = 1 to 4
if Bodyline(%x%) matches "^>.*"
goto BottomPoster
endif
next
Var %Subject%: String = Header("Subject")
Set %Subject% = "Forbandede Top Poster "+ %Subject%
Subject = %Subject%
Var %Citeredelinier% : String = Str(MatchedLines('^>'))
%Citeredelinier% = Str(MatchedLines('^>'))
Set Header X-Top-Poster: Som medsendte %Citeredelinier% uciterede linier.
:BottomPoster
--
Henrik
No script, no fun.