Changeset 6647

Timestamp:

06/18/09 17:25:30 (15 months ago)

Author:

metamorph68

Message:

Forgot this in previous commit..

Files:

• branches/bugfix-0.9.1/src/tools/harbor.ml (modified) (2 diffs)

branches/bugfix-0.9.1/src/tools/harbor.ml

@@ -59 +59 @@
   inherit Source.source
 
-  method virtual relay : Unix.file_descr -> unit
+  method virtual relay : (string*string) list -> Unix.file_descr -> unit
   method virtual insert_metadata : (string, string) Hashtbl.t -> unit
   method virtual login : (string option)*(string -> string -> bool)
@@ -264 +264 @@
           log#f 3 "Adding source on mountpoint '%s' with type '%s'." uri stype ;
           if not icy then write_answer ~keep:true c "HTTP/1.0 200 OK\r\n\r\n" ;
-          s#relay c
+          s#relay headers c
   with
     | Mount_taken ->