OnOutgoingMessagecheck

24/11/2010 - 12:39 von Reinhard Irmer | Report spam
Hallo group,


ab und zu erscheint bei der Erstellung von fups diese Nachricht:
http://666kb.com/i/bontzzo0tectihn0g.jpg

Vermutlich ist dieses script dafà¼r verantwortlich:

program OnOutgoingMessageCheck;

{ Version 1 beta 1.1.3 2003/10/13 - 07:32
compile and run with DIALOG version 2.0.6.1
Check the source code or save your data before use.}

{**************************************************************

This procedure check the number of quoted lines that are not
followed by a comment.
It is a guard again bad practices like sending a followup post
without deleting the useless lines in the original or letting
two many lines without comment.

MaxKeptQuotedLineWithNoComment can be adapted to your
preferences

**************************************************************}


CONST
MaxKeptQuotedLineWithNoComment 5;


FUNCTION QuotedGuard (var Message: TStringlist) : boolean;
{This function avoid sending a post where too many quoted lines are
foregoten}

VAR
NumberOfQuotedLinesWhithoutComment : INTEGER;
MessageIndex : INTEGER;

BEGIN
MessageIndex := Message.count-1;
NumberOfQuotedLinesWhithoutComment:=0;
WHILE (MessageIndex > 0)
AND (NumberOfQuotedLinesWhithoutComment <
MaxKeptQuotedLineWithNoComment) DO
BEGIN
IF Trim(Message.Strings[MessageIndex]) <> '' THEN
{empty and blank lines, skip}
IF POS('>', Message.Strings[MessageIndex]) = 1 THEN
NumberOfQuotedLinesWhithoutComment :NumberOfQuotedLinesWhithoutComment+1
ELSE
NumberOfQuotedLinesWhithoutComment := 0;
MessageIndex := MessageIndex-1;
END;
Result := NumberOfQuotedLinesWhithoutComment <
MaxKeptQuotedLineWithNoComment;
END;

procedure OnOutgoingMessageCheck(Message: TStringlist; var Warnings,
Errors: TStringlist);
begin
//Your code goes here
IF NOT QuotedGuard(Message) THEN
BEGIN
// Warnings.Add('Too many quoted lines without comment');
Warnings.Add('Zu viele Quotezeilen ohne Inhalt');
// Errors.Add('Quoted line number check');
Errors.Add('Check Anzahl der Quotezeilen');
END;
end;

begin
end.
-

wà¼rde es genà¼gen, den Wert in dieser Zeile
MaxKeptQuotedLineWithNoComment 5; zu erhöhen, oder muàŸ noch mehr
gemacht werden?

Was haltet ihr von diesem script?
http://DIALOG.datalist.org/scripts/...ntrol.html

Viele Gruesse
Rεìà±hατδ

,[ *Kleinzack* ]-.
[ aus Eisenack ist auf ]
[ dem Classic-Hamster ]
`-´
Downloads: http://tinyurl.com/yjcdmlx
 

Lesen sie die antworten

#1 Harald Maedl
24/11/2010 - 14:32 | Warnen spam
Hallo Reinhard,

Reinhard Irmer schrieb:

Was haltet ihr von diesem script?
http://DIALOG.datalist.org/scripts/...ntrol.html



Wozu soll es denn gut sein? Ich meine, wer so ein Skript einbinden kann,
ist nicht mehr unbedingt ein DAU, zumindest weiß er über Quoting
Bescheid. Ich halte das Skript für eine nette Fingerübung zum Auswerten
des Bodys nach irgendwelchen Gesichtspunkten. Für sinnvoll halte ich es
nicht. YMMV
Grüße
Harald

Ähnliche fragen