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

Diff of /FigWebServices/local_sim_compute.cgi

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

revision 1.2, Fri Jan 13 17:36:56 2006 UTC revision 1.3, Wed Jan 25 18:58:37 2006 UTC
# Line 25  Line 25 
25    
26    
27  #  #
28    # Actions.
29    #
30    
31    if ($cgi->param('start'))
32    {
33        start_computation();
34    }
35    
36    
37    #
38  # Gather information.  # Gather information.
39  #  #
40    
41    push @$html, $cgi->start_form(-name => 'control_form');
42    
43    
44  my $sim_q_size = -s $sim_q;  my $sim_q_size = -s $sim_q;
45  my $sim_q_count;  my $sim_q_count;
46    
# Line 59  Line 72 
72      }      }
73  }  }
74    
75    #
76    # Controls.
77    #
78    
79    if ($sim_q_size)
80    {
81        push @$html, $cgi->submit(-value => "Start sim computation",
82                                  -name => "start");
83    }
84    
85  HTML::show_page($cgi, $html);  HTML::show_page($cgi, $html);
86    
87    #
88    # Start up the queued sims. This means creating a sim askfor pool.
89    #
90    sub start_computation
91    {
92        my $pool_id = $fig->create_sim_askfor_pool();
93    
94        push(@$html, "Created new sim pool $pool_id<p>\n");
95    }

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3