Package: amsn
Version: 0.97~rc1+dfsg1-5
Severity: normal
Tags: patch
In last times I received some offline messages; if I click to see them,
I get an error (the same described here
http://www.amsn-project.net/forums/viewtopic.php?p=23974)
After some very difficult checks ;) I found that the problem stays in
the string passed to base64::decode: it's not a valid Base64 string!
You can check with a simple perl command (so we can exclude a bug in
the tcl base64 implementation):
perl -MMIME::Base64 -e'print(MIME::Base64::decode("=wqDCoFVyaWVs?= ") . "\n")'
doesn't output anything, while
perl -MMIME::Base64 -e'print(MIME::Base64::decode("wqDCoFVyaWVs?= ") . "\n")'
yes.
The problem seems to lie in the first "=": the only place where that
character is allowed is the string end, as padding (and there could be
at most two of them).
Deleting that "=" the string is valid. The patch I attach works for me.
ciao
Riccardo
-- System Information:
Debian Release: lenny/sid
APT prefers unstable
APT policy: (500, 'unstable')
Architecture: i386 (i686)
Kernel: Linux 2.6.22-3-686 (SMP w/2 CPU cores)
Locale: [EMAIL PROTECTED], [EMAIL PROTECTED] (charmap=ISO-8859-15)
Shell: /bin/sh linked to /bin/bash
Versions of packages amsn depends on:
ii libc6 2.6.1-6 GNU C Library: Shared libraries
ii libgcc1 1:4.2.2-3 GCC support library
ii libice6 2:1.0.4-1 X11 Inter-Client Exchange library
ii libjpeg62 6b-14 The Independent JPEG Group's JPEG
ii libpng12-0 1.2.15~beta5-3 PNG library - runtime
ii libsm6 2:1.0.3-1+b1 X11 Session Management library
ii libsnack2 2.2.10-dfsg1-4 Sound functionality extension to T
ii libstdc++6 4.2.2-3 The GNU Standard C++ Library v3
ii libx11-6 2:1.0.3-7 X11 client-side library
ii python 2.4.4-6 An interactive high-level object-o
ii tcl8.4 8.4.16-4 Tcl (the Tool Command Language) v8
ii tcltls 1.5.0.dfsg-6 the TLS OpenSSL extension to Tcl
ii tk8.4 8.4.16-2 Tk toolkit for Tcl and X11, v8.4 -
ii zlib1g 1:1.2.3.3.dfsg-7 compression library - runtime
amsn recommends no packages.
-- no debconf information
--- protocol.tcl 2007-11-17 20:01:40.000000000 +0100
+++ protocol.tcl- 2007-11-07 05:25:25.000000000 +0100
@@ -2910,7 +2910,7 @@
}
if {$type == "B" } {
- set decoded [base64::decode [string trimleft
$data "="]]
+ set decoded [base64::decode $data]
} elseif {$type == "Q" } {
set decoded [urldecode $data]
} else {
