Posted to tcl by Bradipo at Mon Nov 07 18:32:01 GMT 2011view raw

  1. package require base64
  2.  
  3. set something "cn:: QnJhZGlwbw=="
  4.  
  5. set result {}
  6. foreach i [split $something \n ] {
  7. if [regexp -nocase {^mail[=:] *([^,]*)$} $i dummy email] {
  8. lappend result "$email $name"
  9. } elseif [regexp -nocase {^cn:: *(.*)$} $i dummy tmp] {
  10. puts stderr $i
  11. puts stderr $dummy
  12. puts stderr $tmp
  13. if {[info exists name]} { puts stderr $name }
  14. set name [::base64::decode $tmp]
  15. } elseif [regexp -nocase {^cn[=:] *(.*)$} $i dummy tmp] {
  16. set name $tmp
  17. }
  18. }
  19.