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

Diff of /FigWebServices/check_subsys.cgi

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

revision 1.20, Tue Jan 9 02:39:15 2007 UTC revision 1.21, Tue Jan 9 21:18:14 2007 UTC
# Line 140  Line 140 
140      my($col_hdrs1,$col_hdrs2,$tab1,$tab2,$x);      my($col_hdrs1,$col_hdrs2,$tab1,$tab2,$x);
141    
142      my $user=$cgi->param('user');      my $user=$cgi->param('user');
143      my @raw_output = &get_check_data($cgi,$subsys);      my @raw_output = &get_check_data($cgi,$subsys,$fig);
144    
145  #   my @raw_output = &FIG::run_gathering_output("$FIG_Config::bin/check_subsystems", $subsys);  #   my @raw_output = &FIG::run_gathering_output("$FIG_Config::bin/check_subsystems", $subsys);
146  #   warn "Got raw output @raw_output\n";  #   warn "Got raw output @raw_output\n";
# Line 212  Line 212 
212  }  }
213    
214  sub get_check_data {  sub get_check_data {
215      my($cgi,$subsys) = @_;      my($cgi,$subsys,$fig) = @_;
216      my @raw_output;      my @raw_output;
217    
218      if ($cgi->param('fast') && (-e "$FIG_Config::data/Subsystems/$subsys/warnings"))      if ($cgi->param('fast') && (-e "$FIG_Config::data/Subsystems/$subsys/warnings"))
219      {      {
220          @raw_output = `cat $FIG_Config::data/Subsystems/$subsys/warnings`;          @raw_output = $fig->file_read("$FIG_Config::data/Subsystems/$subsys/warnings");
221      }      }
222      else      else
223      {      {
# Line 255  Line 255 
255      foreach my $sub (@subs)      foreach my $sub (@subs)
256      {      {
257          my $ts = localtime($^T - ((-M "$FIG_Config::data/Subsystems/$sub/warnings") * 24 * 60 * 60));          my $ts = localtime($^T - ((-M "$FIG_Config::data/Subsystems/$sub/warnings") * 24 * 60 * 60));
258          my @tmp = `cat $FIG_Config::data/Subsystems/$sub/warnings`;          my @tmp = $fig->file_read("$FIG_Config::data/Subsystems/$sub/warnings");
259          my @mismatches   = grep { ($_ =~ /mismatch\t(\S+)\t([^\t]+)/) } @tmp;          my @mismatches   = grep { ($_ =~ /mismatch\t(\S+)\t([^\t]+)/) } @tmp;
260          my $mismatchesN  = (@mismatches > 0) ? @mismatches : 0;          my $mismatchesN  = (@mismatches > 0) ? @mismatches : 0;
261          my @left_out     = grep { ($_ =~ /left-out\t(\S+)\t([^\t]+)/) } @tmp;          my @left_out     = grep { ($_ =~ /left-out\t(\S+)\t([^\t]+)/) } @tmp;

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3