set rlsgrp "$release"
regsub -nocase {[._-]int$|\_internal$|_house$} $rlsgrp {} rlsgrp
set t [split $rlsgrp -]
if {[llength $t] > 1} {set grp [lindex $t end]} else {set grp "NOGRP"}
for each i $spgrps {if {[string match -noc *$i $rlsgrp]} {set grp "$i"}}
set affro [mysqlexec $handle "INSERT INTO predb (rlsname,section,ctime,grp) VALUES ('$release' , '$section' , '[unixtime]' , '$grp')"]