is the screen name of Carsten Eckelmann.
package require base64 package require http package require tdom proc delicious_get_all {username password} { set auth "Basic [base64::encode $username:$password]" set headerl [list Authorization $auth] set tok [http::geturl http://del.icio.us/api/posts/all -headers $headerl] set res [http::data $tok] http::cleanup $tok set pdoc [dom parse $res] set plist [$pdoc selectNodes //post] set posts {} foreach p $plist { lappend posts [list [$p getAttribute href] [$p getAttribute description] [$p getAttribute tag] [$p getAttribute time]] } $pdoc delete set posts } proc delicious_select_by_tag {dlist dtag} { set rl {} foreach p $dlist { set found 0 foreach d $dtag { if {[lsearch [lindex $p 2] $d] > -1} { incr found 1 } else { incr found -1 } } if {$found > 0} { lappend rl $p } } set rl }