Posted to tcl by Bradipo at Mon Nov 07 18:32:01 GMT 2011view raw
- package require base64
- set something "cn:: QnJhZGlwbw=="
- set result {}
- foreach i [split $something \n ] {
- if [regexp -nocase {^mail[=:] *([^,]*)$} $i dummy email] {
- lappend result "$email $name"
- } elseif [regexp -nocase {^cn:: *(.*)$} $i dummy tmp] {
- puts stderr $i
- puts stderr $dummy
- puts stderr $tmp
- if {[info exists name]} { puts stderr $name }
- set name [::base64::decode $tmp]
- } elseif [regexp -nocase {^cn[=:] *(.*)$} $i dummy tmp] {
- set name $tmp
- }
- }