[Bio] / FigWebServices / seed_ctl.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/seed_ctl.cgi

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

revision 1.5, Sun Apr 3 19:33:59 2005 UTC revision 1.6, Sat Apr 9 17:21:16 2005 UTC
# Line 89  Line 89 
89          unlink($down_file);          unlink($down_file);
90      });      });
91  }  }
92    elsif ($cgi->param("rebuild_subsys_conflicts"))
93    {
94        #
95        # Fork a process to rebuild the subsystem conflicts page
96        #
97    
98        # this should work but doesn't background, so we will do it differently
99        my $conflict = "$FIG_Config::bin/fig update_subsys_conflicts";
100    
101        $fig->run_in_background(sub {
102            print "Started updating the subsystem conflicts by running $conflict at ", scalar(localtime(time)), "\n";
103            system($conflict);
104            print "Finished updating the subsystem conflicts at ", scalar(localtime(time)), "\n";
105        });
106    
107    }
108    
109    
110  #  #
111  # Check params list for other actions (that encode names within the param name).  # Check params list for other actions (that encode names within the param name).
# Line 249  Line 266 
266          else          else
267          {          {
268              $running = "Dead";              $running = "Dead";
269              $but = $cgi->submit(-value => "Remove entry", -name => "delete_job_$job");              $but = $cgi->checkbox(-label => "Remove entry", -name => "delete_job_$job");
270              $color="#D3D3D3";              $color="#D3D3D3";
271          }          }
272    
# Line 271  Line 288 
288          push(@$tbl, [$job, [$running, "td style=\"background: $color\""], $status, $info, $output, $but]);          push(@$tbl, [$job, [$running, "td style=\"background: $color\""], $status, $info, $output, $but]);
289      }      }
290      push(@html, &HTML::make_table(\@hdrs, $tbl));      push(@html, &HTML::make_table(\@hdrs, $tbl));
291        push(@html, $cgi->submit("Process marked deletions"));
292  }  }
293  else  else
294  {  {
# Line 291  Line 309 
309    
310  push(@html, $cgi->h2("Indexes"));  push(@html, $cgi->h2("Indexes"));
311  push(@html, $cgi->p("Recreating indexes can take a while; the SEED server will be unavailable to users while it is running."));  push(@html, $cgi->p("Recreating indexes can take a while; the SEED server will be unavailable to users while it is running."));
312  push(@html, $cgi->submit(-value => "Rebuild indexes", -name => "rebuild_indexes"));  push(@html, $cgi->submit(-value => "Rebuild indexes", -name => "rebuild_indexes"), $cgi->p);
313    push(@html, $cgi->h2("Subsystem Conflicts"), $cgi->p("Rebuilding the subsystem conflicts will take a few minutes, but the SEED server will keep running"));
314    push(@html, $cgi->submit(-value => "Rebuild subsystem conflicts", -name => "rebuild_subsys_conflicts"), $cgi->p); # this will run fig update_subsys_conflicts
315    
316  push(@html, $cgi->end_form);  push(@html, $cgi->end_form);
317    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3