Up to [Platon] / scripts / shell / votemail

Scripts for catching spam and spamers.

# Function for skipping header
function skip_header()
{
    do 
        getline txt ;
    while ( length(txt) > 0 ) 
    
    return
}

# First skip header
BEGIN {
    skip_header()
    reply_lines = 0;
    new_lines   = 0;
    empty_lines = 0;
    replies     = 0;
    signatures  = 0;
}

END {
    print "Reply lines: " reply_lines;
    print "New   lines: " new_lines;
    print "Empty lines: " empty_lines;
    print "Replies    : " replies;
    print "Signatures : " signatures;
}

# Empty lines
/^$/ {
    empty_lines++;
    next;
}

# Reply to somebody
#On Wed, Jan 23, 2002 at 10:18:27AM +0100, klokan wrote:
/^On \(Mon|Tue|Wed|Thu|Fri|Sat|Sun\)\(.*\) wrote:$/ {
    replies++;
    next;
}

# Text in reply
/^> / {
    reply_lines++;
    next;
}

# Counter for signatures from haluze
/http:\/\/www\.Haluze\.sk/ {
    signatures++;
    next;
}

# Normal text
{
    new_lines++;
#    print NR "    " $0
    next;
}

# vim: set autoindent