[Mldonkey-commits] mldonkey distrib/ChangeLog src/daemon/driver/dr...

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Branch:         
Changes by:     spiralvoice <address@hidden>    06/03/17 18:51:54

Modified files:
        distrib        : ChangeLog 
        src/daemon/driver: driverCommands.ml 

Log message:
        patch #4981

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/distrib/ChangeLog.diff?tr1=1.771&tr2=1.772&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/src/daemon/driver/driverCommands.ml.diff?tr1=1.130&tr2=1.131&r1=text&r2=text

Patches:
Index: mldonkey/distrib/ChangeLog
diff -u mldonkey/distrib/ChangeLog:1.771 mldonkey/distrib/ChangeLog:1.772
--- mldonkey/distrib/ChangeLog:1.771    Fri Mar 17 18:33:16 2006
+++ mldonkey/distrib/ChangeLog  Fri Mar 17 18:51:54 2006
@@ -15,6 +15,7 @@
 =========
 
 2006/03/17
+4981: Dllink: Fix wrong referer in HEAD request
 4980: Multiuser: internal admin_user variable
 4979: Fix hashing large number of files
 
Index: mldonkey/src/daemon/driver/driverCommands.ml
diff -u mldonkey/src/daemon/driver/driverCommands.ml:1.130 
mldonkey/src/daemon/driver/driverCommands.ml:1.131
--- mldonkey/src/daemon/driver/driverCommands.ml:1.130  Fri Mar 17 18:33:16 2006
+++ mldonkey/src/daemon/driver/driverCommands.ml        Fri Mar 17 18:51:54 2006
@@ -2789,7 +2789,7 @@
                     try (List.find(fun (rule_search,rule_value) ->
                             Str.string_match (Str.regexp rule_search) 
u.Url.server 0
                         ) !!referers )
-                    with Not_found -> ("",u.Url.server) in
+                    with Not_found -> ("",Url.to_string u) in
                   Some (Url.of_string rule_value) );
                 H.req_headers = (try
                   let cookies = List.assoc u.Url.server !!cookies in