[pkgsrc/trunk]: pkgsrc/net/mldonkey Add patch fixing security problem from up...

[wiz <wiz%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/b0d379b65234
branches:  trunk
changeset: 555118:b0d379b65234
user:      wiz <wiz%pkgsrc.org@localhost>
date:      Tue Feb 24 22:50:45 2009 +0000

description:
Add patch fixing security problem from upstream.

Bump PKGREVISION.

diffstat:

 net/mldonkey/Makefile         |   4 +++-
 net/mldonkey/distinfo         |   3 ++-
 net/mldonkey/patches/patch-aa |  26 ++++++++++++++++++++++++++
 3 files changed, 31 insertions(+), 2 deletions(-)

diffs (56 lines):

diff -r ce5b23981583 -r b0d379b65234 net/mldonkey/Makefile
--- a/net/mldonkey/Makefile     Tue Feb 24 22:13:40 2009 +0000
+++ b/net/mldonkey/Makefile     Tue Feb 24 22:50:45 2009 +0000
@@ -1,8 +1,10 @@
-# $NetBSD: Makefile,v 1.46 2009/02/16 13:11:40 wiz Exp $
+# $NetBSD: Makefile,v 1.47 2009/02/24 22:50:45 wiz Exp $
 #
 
 .include "Makefile.common"
 
+PKGREVISION=           1
+
 RCD_SCRIPTS=           mldonkey
 
 PKG_GROUPS_VARS+=      MLDONKEY_GROUP
diff -r ce5b23981583 -r b0d379b65234 net/mldonkey/distinfo
--- a/net/mldonkey/distinfo     Tue Feb 24 22:13:40 2009 +0000
+++ b/net/mldonkey/distinfo     Tue Feb 24 22:50:45 2009 +0000
@@ -1,5 +1,6 @@
-$NetBSD: distinfo,v 1.46 2009/01/24 12:59:28 wiz Exp $
+$NetBSD: distinfo,v 1.47 2009/02/24 22:50:45 wiz Exp $
 
 SHA1 (mldonkey-2.9.7.tar.bz2) = 59f3e07b85ce05d54cbe2ef5400d47e558d2f250
 RMD160 (mldonkey-2.9.7.tar.bz2) = 29083fcc611851f55df7739a463cf91f200ae9d8
 Size (mldonkey-2.9.7.tar.bz2) = 2720793 bytes
+SHA1 (patch-aa) = 5ae1cd638c0b733e8dd1b40631a8428f3733bf3d
diff -r ce5b23981583 -r b0d379b65234 net/mldonkey/patches/patch-aa
--- /dev/null   Thu Jan 01 00:00:00 1970 +0000
+++ b/net/mldonkey/patches/patch-aa     Tue Feb 24 22:50:45 2009 +0000
@@ -0,0 +1,26 @@
+$NetBSD: patch-aa,v 1.15 2009/02/24 22:50:45 wiz Exp $
+
+https://savannah.nongnu.org/bugs/download.php?file_id=17518
+
+--- src/utils/lib/url.ml.orig  2007-03-17 18:49:32.000000000 +0000
++++ src/utils/lib/url.ml
+@@ -175,6 +175,19 @@ let put_args s args =
+   Buffer.contents res  
+   
+ let of_string ?(args=[]) s =
++  let remove_leading_slashes s =
++    let len = String.length s in
++    let left =
++      let rec aux i =
++        if i < len && s.[i] = '/' then aux (i+1) else i in
++      aux 0 in
++    if left = 0 then s
++    else
++      String.sub s left (len - left) in
++
++  (* redefine s to remove all leading slashes *)
++  let s = remove_leading_slashes s in
++
+   let s = put_args s args in
+   let url =
+     let get_two init_pos =