[Bio] / FortyEight / Mantis.pm Repository:
ViewVC logotype

Diff of /FortyEight/Mantis.pm

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

revision 1.3, Fri Feb 15 19:17:39 2008 UTC revision 1.4, Fri Feb 15 20:24:59 2008 UTC
# Line 3  Line 3 
3  package Mantis;  package Mantis;
4    
5  use Data::Dumper;  use Data::Dumper;
6    use FIG_Config;
7  use POSIX;  use POSIX;
8  use LWP::UserAgent;  use LWP::UserAgent;
9  use File::Basename;  use File::Basename;
# Line 189  Line 190 
190          }          }
191    
192          eval {          eval {
193              my $txt = "Last ten lines of error file $path:\n";              my $url_base = $FIG_Config::fortyeight_home;
194              $txt .= `ls -l $path`;              $url_base =~ s,/[^/]+\.cgi,,;
195              $txt .= "\n";  
196                my $size = -s $path;
197    
198                my $txt;
199                my $base = basename($path);
200                my $url = "$url_base/rast.cgi?page=ShowErrorFile&job=$opts{job_id}&file=$base";
201    
202                $txt .= "Error file $base exists ($size bytes)\n";
203                $txt .= "$url\n";
204                $txt .= "Last ten lines of file:\n\n";
205              $txt .= `tail -10 $path`;              $txt .= `tail -10 $path`;
206    
207              insert_note($dbh, $bug_id, $reporter, $txt);              insert_note($dbh, $bug_id, $reporter, $txt);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3