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

Diff of /FigWebServices/pir.cgi

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

revision 1.28, Fri Apr 8 20:22:23 2005 UTC revision 1.29, Fri Apr 8 20:43:32 2005 UTC
# Line 191  Line 191 
191   if ($numberpirfams < $size) {$size=$numberpirfams}   if ($numberpirfams < $size) {$size=$numberpirfams}
192    
193   # info about the file that they can download   # info about the file that they can download
194   my $ftpfiletime=0;   my $ftpfile='<p>The comparison file has not been built yet. Please proceed.</p>';
195   if (-e "$FIG_Config::temp/seed2pir.txt") {   if (-e "$FIG_Config::temp/seed2pir.txt") {
196    my @stat=stat("$FIG_Config::temp/seed2pir.txt");    my @stat=stat("$FIG_Config::temp/seed2pir.txt");
197    $ftpfiletime=localtime($stat[7]);    $ftpfile="<p>The comparison file was last built at ". localtime($stat[8]) . "</p>\n".
198        "<p>You may download the file from <a href=\"" . $FIG_Config::temp_base . "seed2pir.txt\">seed2pir.txt</a></p>\n";
199   }   }
200    
201   push (@$html, $cgi->start_form(-action => "pir.cgi"),   push (@$html, $cgi->start_form(-action => "pir.cgi"),
# Line 233  Line 234 
234    $cgi->p, $cgi->hr, $cgi->p,"\n",    $cgi->p, $cgi->hr, $cgi->p,"\n",
235    $cgi->p("<strong>Data for PIR</strong>"),    $cgi->p("<strong>Data for PIR</strong>"),
236    "<a href=\"/FIG/Html/pir.html#ftpdown\" class=\"help\" target=\"pirhelp\">Help on Data for PIR</a>\n",    "<a href=\"/FIG/Html/pir.html#ftpdown\" class=\"help\" target=\"pirhelp\">Help on Data for PIR</a>\n",
237    $cgi->p("The latest version of the SEED to PIR comparisons for download was generated on $ftpfiletime\n"),    $ftpfile,
238    $cgi->p("Please click the button to create a new file.\n"),    $cgi->p("Please click the button to create a new file.\n"),
239    $cgi->submit('submit', 'Create Download File'),"\n",    $cgi->submit('submit', 'Create Download File'),"\n",
240    

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3