[BUGFIX] @Karl-heinz - http://kh-rademacher.de/4d/remove_g1.html

28/01/2009 - 18:10 von Hermann Hippen | Report spam
Moin Moin :-),

http://kh-rademacher.de/4d/remove_g1.html

| @Karl-Heinz:
| Bitte ersetze das Script RemoveHeaders_include, auf deiner Seite,
| durch dieses: (Nàheres zum Bug findest du in der Forenrundmail)

8<-[ RemoveHeaders_include ]->8
Procedure Ini(H:TStringList);
Begin
// Hier die zu löschenden Header, durch Komma getrennt eingeben.
H.CommaText := 'Approved:,Archive-name:,X-EM-Registration:,X-EM-Version:' +
',Cache-Post-Path:,Cancel-Lock:,Complaints-To:,X-Gateway:' +
',Distribution:,Expires:,Injection-Info:,X-Gentoo-Release:' +
',Last-modified:,List-Archive:,List-Help:,List-Post:,X-ID:' +
',List-Subscribe:,List-Unsubscribe:,X-Motto:,X-List-Id:' +
',Mail-Copies-To:,MIME-Version:,Mime-Version:,X-No-Markup:' +
',NNTP-Posting-Date:,NNTP-Posting-Host:,Organization:,X-No-Markup:';
End;
Procedure RemoveHeaders(M:TStringList);
Var i,j : Integer;
H : TStringList;
Begin
H := TStringList.Create; Ini(H); i := 0;
Repeat
j := 0;
Repeat
If Pos(H[j],M[i]) = 1 Then Repeat M.Delete(i); Until (Copy(M[i],1,1) > ' ') Or (M[i]='');
j := j + 1;
Until j = H.Count;
i := i + 1;
Until (i = M.Count) or (M[i]='');
H.Free;
End;
8<>8

Cu,
Hermann Hippen.
ž' š°º€ø?žžžžž?ø€º°š 'ž
ø€º° '<http://4ds.siteboard.eu>' °º€ø
'ž '40tude-Dialog Scriptwerkstatt' ž'
ø€º°' ž ž ø€º°ššššššš°º€øšž ž '°º€ø
 

Lesen sie die antworten

#1 Karl-Heinz Rademacher
28/01/2009 - 19:41 | Warnen spam
Hallo Hippi!

*Hermann Hippen* schrieb:
http://kh-rademacher.de/4d/remove_g1.html

| @Karl-Heinz:
| Bitte ersetze das Script RemoveHeaders_include, auf deiner Seite,
| durch dieses: (Nàheres zum Bug findest du in der Forenrundmail)



Sorry eine /"Forenrundmail"/ hab ich leider nicht finden können, aber da
auch das Swiss_Knife_OBSAV upgedatet wurde, vermute ich mal den gleichen
Grund für das Einzelskript.;-)

Update done, danke Hermann! :-)

Gruß
Karl-Heinz

,--[ *Die 40tude Dialog - Seiten!* ]
¦ http://kh-rademacher.de/4d
¦ http://kh-rademacher.de/face
`-

Ähnliche fragen