allow the search indexing to run as a background task
authorTony Cook <tony@develop-help.com>
Fri, 6 May 2011 10:01:27 +0000 (20:01 +1000)
committerTony Cook <tony@develop-help.com>
Fri, 6 May 2011 10:01:27 +0000 (20:01 +1000)
site/cgi-bin/modules/BSE/TB/BackgroundTask.pm
site/data/db/bse_background_tasks.data

index 0bbe92a..80faa72 100644 (file)
@@ -5,7 +5,7 @@ use BSE::Util::SQL qw(now_sqldatetime);
 use Carp qw(confess);
 use Errno qw(EPERM EACCES);
 
-our $VERSION = "1.000";
+our $VERSION = "1.001";
 
 sub columns {
   return qw/id description modname binname bin_opts stoppable start_right running task_pid last_exit last_started last_completion long_desc/;
@@ -110,6 +110,9 @@ sub start {
     BSE::DB->forked;
   }
 
+  # so whatever we start doesn't think it's CGI
+  delete @ENV{qw/REQUEST_METHOD DOCUMENT_ROOT QUERY_STRING/};
+
   # child process
   my $null = $^O eq 'MSWin32' ? "NUL" : "/dev/null";
   untie *STDIN;
index 5cec783..d01c6ae 100644 (file)
@@ -1,5 +1,5 @@
 --
-# VERSION=1.000
+# VERSION=1.001
 id: bse_gen
 description: Regenerate Site
 binname: perl util/gen.pl
@@ -48,3 +48,11 @@ long_desc: <<TEXT
 audit_log_age=60
 </pre>
 TEXT
+
+id: bse_make_index
+description: Rebuild the search index
+binname: perl cgi-bin/admin/makeIndex.pl
+bin_opts: -v
+long_desc: <<TEXT
+Rebuild the search index.
+TEXT