1#************************************************************** 2# 3# Licensed to the Apache Software Foundation (ASF) under one 4# or more contributor license agreements. See the NOTICE file 5# distributed with this work for additional information 6# regarding copyright ownership. The ASF licenses this file 7# to you under the Apache License, Version 2.0 (the 8# "License"); you may not use this file except in compliance 9# with the License. You may obtain a copy of the License at 10# 11# http://www.apache.org/licenses/LICENSE-2.0 12# 13# Unless required by applicable law or agreed to in writing, 14# software distributed under the License is distributed on an 15# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16# KIND, either express or implied. See the License for the 17# specific language governing permissions and limitations 18# under the License. 19# 20#************************************************************** 21 22 23 24# 25# checkit - a perl script to check the output of 'dircmp' 26# 27 28$return = 0; 29$possible_error = 0; 30$possible_error_descript = ""; 31while( <STDIN> ) 32{ 33 if( /^diff/ ) 34 { 35 $possible_error = 1; 36 $possible_error_descript = $_; 37 } 38 elsif( /^Binary/ ) 39 { 40 print STDERR "ERROR : $_"; 41 $return++; 42 } 43 elsif( /^[0-9]/ && $possible_error == 1 ) 44 { 45 print STDERR "ERROR : diff ".$possible_error_descript; 46 $return++; 47 $possible_error = 0; 48 } 49 else 50 { 51 $possible_error = 0; 52 } 53} 54if( $return != 0 ) 55{ 56 unlink "$ARGV[0]"; 57} 58exit $return; 59