[UPDATE] L1 Script - UnUsedHeaderCount_include

04/02/2009 - 11:47 von Hermann Hippen | Report spam
Moin Moin :-),

Da zum Beispiel statt 'Mime-Version:' es auch mal 'MIME-Version' heissen
kann und der so nicht in der RFC Liste eingetragene Headername dan als
Fremdheader geführt würde, wurde die Prüfroutine entsprechend angepasst.
Der Eintrag in der List und der Eintrag im Header werden beim Vergleich
in als kleingeschriebene Strings verglichen. So sind fehlerhafte
Eintràge im log ausgeschlossen.

Erklàrung und Installationshinweise:
<news:030209.133559.d.c.s.4-d.2948@news.h-hippen.de>

8<--[ UnUsedHeaderCount_include ]-->8
//UnUsedHeaderCount_include Stand 03.02.2009
Procedure UUHC_INI(Var RFCHeader:TStringList; Var UUHCDATFILE:String);
Var DlgRootDir:String;
Begin
//Hier die Header eingeben die NICHT gezàhlt werden sollen.
RFCHeader.CommaText: 'Also-Control:,Alternate-Recipient:,Apparently-To:,Approved:,Article-Names:,Article-Updates:,'
+ 'Autoforwarded:,Auto-Forwarded:,bcc:,cc:,Client:,Comments:,Content-Base:,Content-Conversion:,'
+ 'Content-Description:,Content-Disposition:,Content-ID:,Content-Identifier:,Content-Language:,'
+ 'Content-Length:,Content-Location:,Content-MD5:,Content-Return:,Content-SGML-Entity:,'
+ 'Content-Transfer-Encoding:,Content-Type:,Control:,Conversion:,Conversion-With-Loss:,'
+ 'Date:,Delivery:,Delivery-Date:,Delivery-Report:,Discarded-X400-IPMS-Extensions:,'
+ 'Discarded-X400-MTS-Extensions:,Disclose-Recipients:,Disposition:,Distribution:,DL-Expansion-History:,'
+ 'DL-Expansion-History-Indication:,Encoding:,Errors-To:,Expires:,Expiry-Date:,Extension:,Fax:,'
+ 'Fcc:,Followup-To:,For-Comment:,For-Handling:,Forwarded:,From ,From:,Generate-Delivery-Report:,'
+ 'History:,ID:,Identifier:,Importance:,Incomplete-Copy:,Information-Types:,In-Reply-To:,Keywords:,'
+ 'Language:,Length:,Lines:,Mailer:,Mail-System-Version:,MD5:,Message-ID:,Message-Type:,'
+ 'Mime-Version:,Newsgroups:,Newsreader:,Obsoletes:,Organisation:,Organization:,'
+ 'Original-Encoded-Information-Types:,Originating-Client:,Path:,Phone:,Precedence:,'
+ 'Prevent-NonDelivery-Report:,Priority:,Received:,Recipient:,References:,Reply-By:,Reply-To:,'
+ 'Report:,Resent-:,Resent-bcc:,Resent-cc:,Resent-Date:,Resent-From:,Resent-Message-ID:,'
+ 'Resent-Reply-To:,Resent-Return:,Resent-To:,Return-Path:,Return-Receipt-To:,See-Also:,'
+ 'Sender:,Sensitivity:,Status:,Subject:,Summary:,Supersedes:,Telefax:,To:,'
+ 'Transfer-Encoding:,Type:,Version:X400-Content-Return:,X400-Content-Return:,X-Mailer:,'
+ 'X-Newsreader:,Xref:';

// Hier den Pfad zum Dialog-Programm Verzeichnis angeben:zur Datei UUHCDAT.TXT eingeben
DlgRootDir := 'E:\Programme\40tude Dialog\'
// ab hier nüscht mehr àndern
UUHCDATFILE := DlgRootDir + 'logs\UUHCDAT.TXT';
End;
Procedure UUHC(Var Message: TStringList);
Var RFCHeader,
UUHCDAT : TStringList;
UUHCDATFILE,
tmp : String;
i,j,s1,s2 : Integer;
Found : Boolean;
Begin
RFCHeader := TStringList.Create;
UUHCDAT := TStringList.Create;
UUHC_INI(RFCHeader,UUHCDATFILE);
If FileExists(UUHCDATFILE) Then UUHCDAT.LoadFromFile(UUHCDATFILE);
i := 0;
Repeat
j := 0;
Found := False;
Repeat
If Pos(Lowercase(RFCHeader[j]),Lowercase(Message[i])) = 1 Then Found := True;
j := j + 1;
until (j = RFCHeader.Count) Or (Found=True);
If (Found = False) And (Message[i][1] >' ') And (Message[i][1] > Chr(9)) Then
Begin
tmp := Copy( Message[i], 1, Pos(':', Message[i]));
If UUHCDAT.Values[tmp] > '' Then UUHCDAT.Values[tmp] := IntToStr(StrToInt(UUHCDAT.Values[tmp]) + 1)
Else UUHCDAT.Add(tmp + '=1');
End;
I := I + 1;
Until Message[i] = '';
For I:=0 to UUHCDAT.Count-1 Do
For J:=0 to i-1 Do
Begin
s1:=StrToInt(UUHCDAT.Values[UUHCDAT.Names[J]]);
s2:=StrToInt(UUHCDAT.Values[UUHCDAT.Names[J+1]]);
If s2 > s1 Then UUHCDAT.Exchange(j,j+1);
End;
UUHCDAT.SaveToFile(UUHCDATFILE);
RFCHeader.Free;
UUHCDAT.Free;
End;
8<>8

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

Lesen sie die antworten

#1 Wolfgang Bauer
05/02/2009 - 11:57 | Warnen spam
Servus Hermann.
Hermann Hippen wrote:

Ich habe mir nun mal die UUHCDAT.TXT angesehen und dort auch diese
Header gesehen.

User-Agent:"4
NNTP-Posting-Host:8
NNTP-Posting-Date:x

Sind das wirklich Header die in der RFC Liste nicht eingetragen sind
also als Fremdheader eingestuft werden? Oder sollte ich die -
//Hier die Header eingeben die NICHT gezàhlt werden sollen.

- da hinzufügen?

Freundliche Grüße
Wolfgang
http://www.wolfgang-bauer.at
40tude-Dialog DER Newsreader unter Windows http://dialog.datalist.org/
Newsgruppe news:de.comm.software.40tude-dialog
40tude-Dialog Forum http://4ds.siteboard.eu/

Ähnliche fragen