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

Diff of /FigWebServices/index.cgi

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

revision 1.4, Wed Dec 17 16:27:11 2003 UTC revision 1.5, Tue Dec 23 16:53:37 2003 UTC
# Line 29  Line 29 
29  $ENV{"PATH"} = "$FIG_Config::bin:$FIG_Config::ext_bin:" . $ENV{"PATH"};  $ENV{"PATH"} = "$FIG_Config::bin:$FIG_Config::ext_bin:" . $ENV{"PATH"};
30    
31  my $html = [];  my $html = [];
32  push(@$html,"To start a peer-to-peer update, <a href=$FIG_Config::cgi_url/seed_update_page.cgi>click here</a><br><br>\n");  my @ver = `cat $FIG_Config::fig_disk/CURRENT_RELEASE`;
33    chop $ver[0];
34    push(@$html,
35            "You are currently running SEED version <b>$ver[0]</b><br>",
36            "To start a peer-to-peer update, <a href=$FIG_Config::cgi_url/seed_update_page.cgi>click here</a><br>\n"
37         );
38    
39    
40  my($pattern,$seq_pat,$tool);  my($pattern,$seq_pat,$tool);
41  my $user = $cgi->param('user');  my $user = $cgi->param('user');

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3