'''Public Repository for SpamMap Development'''

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