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 {Recieved:.+\[([\.\d]+)\]} $line -> IP } return $IP }