Public Repository for SpamMap Development
proc getIP { header } { set header [ split $header \n ] foreach line $header { regexp {Recieved:.+\[([\.\d]+)\]} $line -> IP } return $IP }