1#************************************************************************* 2# 3# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 4# 5# Copyright 2000, 2010 Oracle and/or its affiliates. 6# 7# OpenOffice.org - a multi-platform office productivity suite 8# 9# This file is part of OpenOffice.org. 10# 11# OpenOffice.org is free software: you can redistribute it and/or modify 12# it under the terms of the GNU Lesser General Public License version 3 13# only, as published by the Free Software Foundation. 14# 15# OpenOffice.org is distributed in the hope that it will be useful, 16# but WITHOUT ANY WARRANTY; without even the implied warranty of 17# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18# GNU Lesser General Public License version 3 for more details 19# (a copy is included in the LICENSE file that accompanied this code). 20# 21# You should have received a copy of the GNU Lesser General Public License 22# version 3 along with OpenOffice.org. If not, see 23# <http://www.openoffice.org/license.html> 24# for a copy of the LGPLv3 License. 25# 26#************************************************************************* 27 28# 29# checkit - a perl script to check the output of 'dircmp' 30# 31 32$return = 0; 33$possible_error = 0; 34$possible_error_descript = ""; 35while( <STDIN> ) 36{ 37 if( /^diff/ ) 38 { 39 $possible_error = 1; 40 $possible_error_descript = $_; 41 } 42 elsif( /^Binary/ ) 43 { 44 print STDERR "ERROR : $_"; 45 $return++; 46 } 47 elsif( /^[0-9]/ && $possible_error == 1 ) 48 { 49 print STDERR "ERROR : diff ".$possible_error_descript; 50 $return++; 51 $possible_error = 0; 52 } 53 else 54 { 55 $possible_error = 0; 56 } 57} 58if( $return != 0 ) 59{ 60 unlink "$ARGV[0]"; 61} 62exit $return; 63