Public Repository for SpamMap Development
## Returns the oldest valid (maybe) IP address
## in the header from a spam
proc getIP { header } {
set header [ split $header \n ]
foreach line $header {
regexp {Received:.+\[([\.\d]+)\]} $line -> IP
}
return $IP
} Holy Moly! Three Viagra and one Nigeria this morning...