Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

delete_page: speed up by not querying for replacement text

  • Loading branch information...
commit 3cba7421d2470fcde757331c64cc699ac620eb1c 1 parent 91a06ed
Bo Adler authored
View
2  remote/analysis/Makefile
@@ -30,7 +30,7 @@
# POSSIBILITY OF SUCH DAMAGE.
# Vars we use in our rules to build ocaml programs
-PACKAGES = unix,str,vec,mapmin,hashtbl_bounded,fileinfo,xml-light,intvmap,extlib,mysql,netsys,netclient,netstring,camlzip,json-wheel,json-static,sexplib.syntax
+PACKAGES = unix,str,vec,mapmin,hashtbl_bounded,fileinfo,xml-light,intvmap,extlib,mysql,netsys,netclient,netstring,camlzip,json-wheel,json-static,sexplib.syntax
SYNTAX = camlp4o
OUR_LIBS = wikitrust_lib.cma
OUR_LIBS_OPT = wikitrust_lib.cmxa
View
6 remote/analysis/server_coloring_dispatcher.ml
@@ -69,7 +69,7 @@ exception Option_error of string;;
let max_concurrent_procs = ref 1
let set_max_concurrent_procs m = max_concurrent_procs := m
-let sleep_time_sec = 2
+let sleep_time_sec = 1
let forever = ref true
let sig_handler = function _ -> forever := false
@@ -207,8 +207,10 @@ let process_page (page_id: int) (page_title: string) =
in
let child_db = create_db child_dbh child_global_dbh in
(* first, delete the page id if requested; will recolor, as well *)
- if page_title = "XXX DELETE ME" then
+ if page_title = "XXX DELETE ME" then begin
child_db#delete_page page_id;
+ forever := false;
+ end;
let processed_well = ref false in
let times_tried = ref 0 in
View
1  util/ucsc-install/Makefile
@@ -25,6 +25,7 @@ api:
dispatcher:
mkdir -p $(WIKITRUST_DIR)/bin
+ mv $(WIKITRUST_DIR)/bin/dispatcher $(WIKITRUST_DIR)/bin/dispatcher.old
cp -a $(TOP)/remote/analysis/dispatcher $(WIKITRUST_DIR)/bin/
cp -a $(TOP)/remote/admin/wikitrust $(WIKITRUST_DIR)/bin/
cp -a $(TOP)/remote/admin/wikitrustd $(WIKITRUST_DIR)/bin/
Please sign in to comment.
Something went wrong with that request. Please try again.