set rss(miranda) { "url" "http://rss.gmane.org/messages/excerpts/gmane.network.miranda-im.cvs.general" "channels" "#nowotny #miranda-dev" "database" "./scripts/mir.db" "output" "\[parsedescr \"@@item!description@@\" \"@@item!title@@\"\]" "trigger" "!mir" "evaluate-tcl" 1 } proc parsedescr {descr title} { regexp {\[([0-9]+)\]\s*(.*)} $title var0 revision path regexp {Log Message:-----------(.*)Modified Paths:} $descr var1 var2 return "\[\002$revision\002\] $path - $var2" }