/[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.66 by spiralvoice, Thu Jul 14 14:02:28 2005 UTC revision 1.67 by spiralvoice, Thu Jul 14 15:34:15 2005 UTC
# Line 306  let _ = Line 306  let _ =
306                CommonNetwork.network_recover_temp r                CommonNetwork.network_recover_temp r
307              with _ -> ()              with _ -> ()
308          );          );
309          _s "done"          let buf = o.conn_buf in
310            if o.conn_output = HTML then
311              html_mods_table_one_row buf "serversTable" "servers" [
312                ("", "srh", "Recover temp finished"); ]
313            else
314              Printf.bprintf buf "Recover temp finished";
315            _s ""
316      ), ":\t\t\t\trecover lost files from temp directory";      ), ":\t\t\t\trecover lost files from temp directory";
317    
318      "vc", Arg_multiple (fun args o ->      "vc", Arg_multiple (fun args o ->
# Line 1777  style=\\\"padding: 0px; font-size: 10px; Line 1783  style=\\\"padding: 0px; font-size: 10px;
1783  the name between []"  the name between []"
1784      ), ":\t\t\t\t$bprint options values by section$n";      ), ":\t\t\t\t$bprint options values by section$n";
1785    
 (*  
     "options", Arg_multiple (fun args o ->  
         let buf = o.conn_buf in  
         match args with  
           [] ->  
             let sections = ref [] in  
             Printf.bprintf buf "Available sections for options: \n";  
             List.iter (fun  (section, message, option, optype) ->  
                 if not (List.mem section !sections) then begin  
                     Printf.bprintf buf "  $b%s$n\n" section;  
                     sections := section :: !sections  
                   end  
             ) gui_options_panel;  
   
             List.iter (fun (section, list) ->  
                 if not (List.mem section !sections) then begin  
                     Printf.bprintf buf "  $b%s$n\n" section;  
                     sections := section :: !sections  
                   end)  
             ! CommonInteractive.gui_options_panels;  
             "\n\nUse 'options section' to see options in this section"  
   
         | sections ->  
             List.iter (fun s ->  
                 Printf.bprintf buf "Options in section $b%s$n:\n" s;  
                 List.iter (fun (section, message, option, optype) ->  
                     if s = section then  
                       Printf.bprintf buf "  %s [$r%s$n]= $b%s$n\n"  
                         message option  
                         (get_fully_qualified_options option)  
                 ) gui_options_panel;  
   
                 List.iter (fun (section, list) ->  
                     if s = section then  
                       List.iter (fun (message, option, optype) ->  
                           Printf.bprintf buf "  %s [$b%s$n]= $b%s$n\n"  
                             message option  
                             (get_fully_qualified_options option)  
                       ) list)  
                 ! CommonInteractive.gui_options_panels;  
             ) sections;  
             "\nUse '$rset option \"value\"$n' to change a value where options is  
 the name between []"  
     ), ":\t\t\t\t$bprint options values by section$n";  
 *)  
   
1786    ]    ]
1787    
1788  (*************************************************************************)  (*************************************************************************)
# Line 1838  let _ = Line 1798  let _ =
1798      "reshare", Arg_none (fun o ->      "reshare", Arg_none (fun o ->
1799          let buf = o.conn_buf in          let buf = o.conn_buf in
1800          shared_check_files ();          shared_check_files ();
1801          _s "check done"          if o.conn_output = HTML then
1802              html_mods_table_one_row buf "serversTable" "servers" [
1803                ("", "srh", "Reshare check done"); ]
1804            else
1805              Printf.bprintf buf "Reshare check done";
1806            _s ""
1807      ), ":\t\t\t\tcheck shared files for removal";      ), ":\t\t\t\tcheck shared files for removal";
1808        
1809      "shares", Arg_none (fun o ->      "shares", Arg_none (fun o ->
1810    
1811          let buf = o.conn_buf in          let buf = o.conn_buf in
1812            
1813          if use_html_mods o then begin          if use_html_mods o then begin
1814              Printf.bprintf buf "\\<div class=\\\"shares\\\"\\>\\<table class=main cellspacing=0 cellpadding=0\\>              Printf.bprintf buf "\\<div class=\\\"shares\\\"\\>\\<table class=main cellspacing=0 cellpadding=0\\>
1815  \\<tr\\>\\<td\\>  \\<tr\\>\\<td\\>
1816  \\<table cellspacing=0 cellpadding=0  width=100%%\\>\\<tr\\>  \\<table cellspacing=0 cellpadding=0  width=100%%\\>\\<tr\\>
1817  \\<td class=downloaded width=100%%\\>\\</td\\>  \\<td class=downloaded width=100%%\\>\\</td\\>
1818  \\<td nowrap class=\\\"fbig pr\\\"\\>\\<a onclick=\\\"javascript: {  \\<td nowrap class=\\\"fbig pr\\\"\\>\\<a onclick=\\\"javascript: {
1819                     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')
1820                     var reg = new RegExp (' ', 'gi') ;                     var reg = new RegExp (' ', 'gi') ;
1821                     var outstr = getdir.replace(reg, '+');                     var outstr = getdir.replace(reg, '+');
# Line 1859  let _ = Line 1824  let _ =
1824                      }\\\"\\>Add Share\\</a\\>                      }\\\"\\>Add Share\\</a\\>
1825  \\</td\\>  \\</td\\>
1826  \\</tr\\>\\</table\\>  \\</tr\\>\\</table\\>
1827  \\</td\\>\\</tr\\>  \\</td\\>\\</tr\\>
1828  \\<tr\\>\\<td\\>";  \\<tr\\>\\<td\\>";
1829    
1830              html_mods_table_header buf "sharesTable" "shares" [              html_mods_table_header buf "sharesTable" "shares" [
1831                ( "0", "srh ac", "Click to unshare directory", "Unshare" ) ;                ( "0", "srh ac", "Click to unshare directory", "Unshare" ) ;
1832                ( "1", "srh ar", "Priority", "P" ) ;                ( "1", "srh ar", "Priority", "P" ) ;
1833                ( "0", "srh", "Directory", "Directory" ) ;                ( "0", "srh", "Directory", "Directory" ) ;
1834                ( "0", "srh", "Strategy", "Strategy" ) ];                ( "0", "srh", "Strategy", "Strategy" ) ];
1835                
1836              let counter = ref 0 in              let counter = ref 0 in
1837    
1838  (* TODO update HTML for incoming directories now in shared_directories  (* TODO update HTML for incoming directories now in shared_directories
# Line 1875  let _ = Line 1840  let _ =
1840  \\<td class=\\\"sr ar\\\"\\>0\\</td\\>\\<td title=\\\"Incoming\\\" class=\\\"sr\\\"\\>%s\\</td\\>\\</tr\\>" !!incoming_directory;  \\<td class=\\\"sr ar\\\"\\>0\\</td\\>\\<td title=\\\"Incoming\\\" class=\\\"sr\\\"\\>%s\\</td\\>\\</tr\\>" !!incoming_directory;
1841  *)  *)
1842    
1843              List.iter (fun shared_dir ->              List.iter (fun shared_dir ->
1844                  incr counter;                  incr counter;
1845                  Printf.bprintf buf "\\<tr class=\\\"%s\\\"\\>                  Printf.bprintf buf "\\<tr class=\\\"%s\\\"\\>
1846          \\<td title=\\\"Click to unshare this directory\\\"          \\<td title=\\\"Click to unshare this directory\\\"
1847          onMouseOver=\\\"mOvr(this);\\\"          onMouseOver=\\\"mOvr(this);\\\"
1848          onMouseOut=\\\"mOut(this);\\\"          onMouseOut=\\\"mOut(this);\\\"
1849          onClick=\\\'javascript:{          onClick=\\\'javascript:{
1850          parent.fstatus.location.href=\\\"submit?q=unshare+\\\\\\\"%s\\\\\\\"\\\";          parent.fstatus.location.href=\\\"submit?q=unshare+\\\\\\\"%s\\\\\\\"\\\"
1851          setTimeout(\\\"window.location.reload()\\\",1000);}'          setTimeout(\\\"window.location.reload()\\\",1000);}'
1852          class=\\\"srb\\\"\\>Unshare\\</td\\>          class=\\\"srb\\\"\\>Unshare\\</td\\>
1853          \\<td class=\\\"sr ar\\\"\\>%d\\</td\\>          \\<td class=\\\"sr ar\\\"\\>%d\\</td\\>

Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67

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