1 #!/usr/bin/perl 2 3 # Copyright (c) International Business Machines Corp., 2001 4 # 5 # This program is free software; you can redistribute it and/or modify 6 # it under the terms of the GNU General Public License as published by 7 # the Free Software Foundation; either version 2 of the License, or 8 # (at your option) any later version. 9 # 10 # This program is distributed in the hope that it will be useful, 11 # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See 13 # the GNU General Public License for more details. 14 # 15 # You should have received a copy of the GNU General Public License 16 # along with this program; if not, write to the Free Software 17 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA 18 19 # FILE : ltpoutput 20 # DESCRIPTION : rips failures out of the output from PAN 21 # HISTORY : 22 # 10/20/2001 Paul Larson (plars (at] austin.ibm.com) 23 # written 24 25 (1 + $#ARGV) || die "Usage: ltpoutput FILE\n"; 26 27 $buf = ""; 28 foreach $_ (<>) { 29 $line = $_; 30 $buf = $buf . $line; 31 if($line =~ '<<<test_end>>>') { 32 if($buf =~ "termination_id=[^0]") { 33 $buf =~ tr/<>/-/; 34 print $buf; 35 } 36 $buf = ""; 37 } 38 if($line =~ "^pan reported") { 39 print $line; 40 } 41 } 42
