[Tkabber-dev] [tclxmpp commit] r87 - * xmpp/bob.tcl: Removed erroneous cid: prefix from CID values.

codesite-noreply at google.com codesite-noreply at google.com
Fri Mar 13 14:50:35 MSK 2009


Author: sgolovan
Date: Fri Mar 13 04:50:12 2009
New Revision: 87

Modified:
    trunk/ChangeLog
    trunk/xmpp/bob.tcl

Log:
	* xmpp/bob.tcl: Removed erroneous cid: prefix from CID values.


Modified: trunk/ChangeLog
==============================================================================
--- trunk/ChangeLog	(original)
+++ trunk/ChangeLog	Fri Mar 13 04:50:12 2009
@@ -1,3 +1,7 @@
+2009-03-13  Sergei Golovan  <sgolovan at nes.ru>
+
+	* xmpp/bob.tcl: Removed erroneous cid: prefix from CID values.
+
  2009-03-12  Sergei Golovan  <sgolovan at nes.ru>

  	* xmpp/bob.tcl, xmpp/pkgIndex.tcl: Added a simple interface to Bits of

Modified: trunk/xmpp/bob.tcl
==============================================================================
--- trunk/xmpp/bob.tcl	(original)
+++ trunk/xmpp/bob.tcl	Fri Mar 13 04:50:12 2009
@@ -69,7 +69,7 @@
                  }
                  set maxAge [::xmpp::xml::getAttr $attrs max-age -1]
                  set data [base64::decode $cdata]
-                if {![regexp {cid:(.*)\+(.*)@bob\.xmpp\.org} $cid -> \
+                if {![regexp {(.*)\+(.*)@bob\.xmpp\.org} $cid -> \
                               algo hash]} {
                      return
                  }
@@ -171,7 +171,7 @@
  }

  proc ::xmpp::bob::cid {data} {
-    return cid:sha-1+[sha1::sha1 $data]@bob.xmpp.org
+    return sha-1+[sha1::sha1 $data]@bob.xmpp.org
  }

  proc ::xmpp::bob::data {type data args} {


More information about the Tkabber-dev mailing list