use strict;
    use warnings;
	use String::CRC32;
	use Xchat qw( :all );
     
    register('CRC Check Script', '1.0', 'Check CRC');
     
	hook_print('DCC RECV Complete', \&check_crc);
     
sub check_crc {
		my $filename = $_[0][0];
		my $filepath = $_[0][1];
		        if ($_[0][0] =~ /([a-fA-F0-9]{8})/){
				    open(SOMEFILE, $filepath);
					binmode SOMEFILE;
					my $crc = crc32(*SOMEFILE);
					close(SOMEFILE);
					my $hexval = uc(sprintf("%x", $crc));
				if ($filename =~ $hexval)  {
				delaycommand("CRC is \00303OK!"); 
				} else {
				delaycommand("CRC is \00306NOT OK! - " .$hexval);
				}     
        return EAT_NONE;
}
};

sub delaycommand {
        my $command = $_[0];
        hook_timer( 0,
                sub {
                        prnt($command);
                        return REMOVE;
                }
        );
        return EAT_NONE;
}