'''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
 } 
----