#!/usr/bin/perl
# cpanel - safeup2date                            Copyright(c) 2009 cPanel, Inc.
#                                                           All rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

use strict;

open( UPTODATE, '-|' ) || exec( 'up2date', @ARGV );
my $inerr = 0;
while (<UPTODATE>) {
    if (m/packages.*not.*found/) {
        $inerr = 1;
    }
    if ( !$inerr ) { print; }
    if (m/^$/) {
        $inerr = 0;
    }
}
close(UPTODATE);