[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.35, Thu Jun 3 00:17:29 2004 UTC revision 1.36, Mon Jun 14 22:09:40 2004 UTC
# Line 1  Line 1 
1  use FIG;  use FIG;
2  my $fig = new FIG;  my $fig = new FIG;
3    
4    use POSIX;
5  use HTML;  use HTML;
6  use strict;  use strict;
7  use CGI;  use CGI;
# Line 29  Line 30 
30    
31  my $html = [];  my $html = [];
32    
33  my @ver = `cat $FIG_Config::fig_disk/CURRENT_RELEASE`;  my @ver = FIG::file_head("$FIG_Config::fig_disk/CURRENT_RELEASE", 1);
34  chomp $ver[0];  my $ver = $ver[0];
35    chomp $ver;
36    if ($ver =~ /^cvs\.(\d+)$/)
37    {
38        my $d = asctime(localtime($1));
39        chomp($d);
40        $ver .=  " ($d)";
41    }
42  my $p2p_url = &FIG::cgi_url . "/p2p/seed_update_page.cgi";  my $p2p_url = &FIG::cgi_url . "/p2p/seed_update_page.cgi";
43  my $new_p2p_url = &FIG::cgi_url . "/p2p/new_seed_update_page.cgi";  my $new_p2p_url = &FIG::cgi_url . "/p2p/new_seed_update_page.cgi";
44  my $host = $fig->get_local_hostname();  my $host = $fig->get_local_hostname();
45  push(@$html,  push(@$html,
46          "You are currently running SEED version <b>$ver[0]</b> on $host<br>",          "You are currently running SEED version <b>$ver</b> on $host<br>",
47          "To start a peer-to-peer update, <a href=$new_p2p_url>click here</a><br>\n"          "To start a peer-to-peer update, <a href=$new_p2p_url>click here</a><br>\n"
48       );       );
49    

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3