equal
deleted
inserted
replaced
271 LINE: |
271 LINE: |
272 for my $line (split /\n/, $oh . $eh) { |
272 for my $line (split /\n/, $oh . $eh) { |
273 |
273 |
274 $line .= "\n"; |
274 $line .= "\n"; |
275 print "[@cmd]: $line"; |
275 print "[@cmd]: $line"; |
276 print $raw $line if defined $raw; |
276 print $raw "[" . gmtime() . " +0000] $line" if defined $raw; |
277 |
277 |
278 # try to determine uploader |
278 # try to determine uploader |
279 if ($line =~ /^processing changesfile '([^']+)'$/) { |
279 if ($line =~ /^processing changesfile '([^']+)'$/) { |
280 $c = $1; |
280 $c = $1; |
281 $u = $uploaders->{$c}; |
281 $u = $uploaders->{$c}; |
320 |
320 |
321 # everything not matching any other pattern |
321 # everything not matching any other pattern |
322 $m->{$f} = '' unless defined $m->{$f}; |
322 $m->{$f} = '' unless defined $m->{$f}; |
323 $m->{$f} .= "[uncaught line]: $line\n"; |
323 $m->{$f} .= "[uncaught line]: $line\n"; |
324 |
324 |
325 print $uncaught $line if defined $uncaught; |
325 print $uncaught "[" . gmtime() . " +0000] $line" if defined $uncaught; |
326 |
326 |
327 } |
327 } |
328 |
328 |
329 return $m; |
329 return $m; |
330 |
330 |