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

BEGIN { unshift @INC, '/scripts', '/usr/local/cpanel'; }

use Cpanel::RpmUtils;
use cPanelRPM;

system("rm","-rf","/root/.cpupdates");
#clean

my $rpm = cPanelRPM->new();

my $mday = $rpm->{"mday"};
my $mon = $rpm->{"mon"};
my $year = $rpm->{"year"};

open(CPUP,"/root/.cpupdates/$mon-$mday-$year.updates");
while(<CPUP>) {
   s/\n//g;
   my($rpm,$rpmv,$file,$rpmbuilddate,$downdir) = split(/=/, $_, 5);
   if ($rpm eq "rpm") {
      my $crpmv = `rpm -q rpm`;
      chomp($crpmv);
      if ($crpmv ne $rpmv) {
         Cpanel::RpmUtils::rpmcmd("-Uvh","http://httpupdate.cpanel.net/${downdir}/${file}");
      }
   }
}
close(CPUP);