#!/usr/bin/perl

use File::Glob  ();
use Digest::MD5 ();

$| = 1;
print "cPanel Horde Patch Check v1.0: ";

my @horde_files = File::Glob::glob('/usr/local/cpanel/base/horde/lib/Horde/*/*.php');
push(
    @horde_files,
    File::Glob::glob('/usr/local/cpanel/base/horde/lib/Horde/*.php')
);

my $ctx = Digest::MD5->new;

foreach my $file (@horde_files) {
    if ( open( my $fh, '<', $file ) ) {
        $ctx->addfile($fh);
        close($fh);
    }
}
my $digest = $ctx->hexdigest;
if ( $digest eq 'c6bfb9ba4b5d3e5b602fd26c01d93545' ) {
    print "Patch Verified\n";
}
else {
    print "Not Patched\n";
}