/[mldonkey]/mldonkey/src/daemon/driver/driverCommands.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/driver/driverCommands.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.89 by spiralvoice, Thu Sep 8 12:30:28 2005 UTC revision 1.90 by spiralvoice, Tue Sep 13 09:54:45 2005 UTC
# Line 1877  let _ = Line 1877  let _ =
1877                     var getdir = prompt('Input: <priority#> <directory> (surround dir with quotes if necessary)','0 /home/mldonkey/share')                     var getdir = prompt('Input: <priority#> <directory> (surround dir with quotes if necessary)','0 /home/mldonkey/share')
1878                     var reg = new RegExp (' ', 'gi') ;                     var reg = new RegExp (' ', 'gi') ;
1879                     var outstr = getdir.replace(reg, '+');                     var outstr = getdir.replace(reg, '+');
1880                     parent.fstatus.location.href='submit?q=share+' + outstr;                     parent.fstatus.location.href='submit?q=share+' + encodeURI(outstr);
1881                     setTimeout('window.location.reload()',1000);                     setTimeout('window.location.reload()',1000);
1882                      }\\\"\\>Add Share\\</a\\>                      }\\\"\\>Add Share\\</a\\>
1883  \\</td\\>  \\</td\\>
# Line 1921  let _ = Line 1921  let _ =
1921          \\<td class=\\\"sr ar\\\"\\>%s\\</td\\>          \\<td class=\\\"sr ar\\\"\\>%s\\</td\\>
1922          \\<td class=\\\"sr\\\"\\>%s\\</td\\>\\</tr\\>"          \\<td class=\\\"sr\\\"\\>%s\\</td\\>\\</tr\\>"
1923                  (if !counter mod 2 == 0 then "dl-1" else "dl-2")                  (if !counter mod 2 == 0 then "dl-1" else "dl-2")
1924                  dir                  (Url.encode dir)
1925                  shared_dir.shdir_priority                  shared_dir.shdir_priority
1926                  dir                  dir
1927                  shared_dir.shdir_strategy                  shared_dir.shdir_strategy
# Line 2100  let _ = Line 2100  let _ =
2100                  incr counter;                  incr counter;
2101    
2102                  let ed2k = Printf.sprintf "ed2k://|file|%s|%s|%s|/"                  let ed2k = Printf.sprintf "ed2k://|file|%s|%s|%s|/"
2103                      (Filename.basename impl.impl_shared_codedname)                      (Url.encode (Filename.basename impl.impl_shared_codedname))
2104                    (Int64.to_string impl.impl_shared_size)                    (Int64.to_string impl.impl_shared_size)
2105                    (Md4.to_string impl.impl_shared_id) in                    (Md4.to_string impl.impl_shared_id) in
2106    
# Line 2157  let _ = Line 2157  let _ =
2157          List.iter (fun impl ->          List.iter (fun impl ->
2158            if (impl.impl_shared_id <> Md4.null) then            if (impl.impl_shared_id <> Md4.null) then
2159             Printf.bprintf buf "ed2k://|file|%s|%s|%s|/\n"             Printf.bprintf buf "ed2k://|file|%s|%s|%s|/\n"
2160                (Filename.basename impl.impl_shared_codedname)                (Url.encode (Filename.basename impl.impl_shared_codedname))
2161                (Int64.to_string impl.impl_shared_size)                (Int64.to_string impl.impl_shared_size)
2162                (Md4.to_string impl.impl_shared_id);                (Md4.to_string impl.impl_shared_id);
2163          ) list;          ) list;

Legend:
Removed from v.1.89  
changed lines
  Added in v.1.90

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26