Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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;
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement