Further CRC32 and source enhancements

adbren.pl

@@ -141,6 +141,12 @@
         my $ed2k = AniDB::UDPClient::ed2k_hash($file);
         my $size = -s $file;
         print "ed2k://|file|" . $file . "|" . $size . "|" . $ed2k . "|\n";
+        my $crc32 = calculate_crc($file);
+        my $verified = "Unverified";
+        if (index(lc($file), lc($crc32)) != -1) {
+            $verified = "Verified";
+        }
+        print $verified . " " . $crc32 . "\n";
     }
     exit;
 }
@@ -212,20 +218,15 @@ sub CLEANUP {
     # Manually calculate crc if anidb doesn't return one
     if ( $fileinfo->{'crc32'} eq "" ) {
         print "Calculating manual crc32 for $filename\n";
-        my $crc = Digest::CRC->new(type=>"crc32");
-        open(my $handle, $filepath);
-        $crc->addfile(*$handle);
-        close($handle);
-        my $hash = $crc->hexdigest;
-        $hash =~ tr/a-z/A-Z/;
+        my $hash = calculate_crc($filepath);
         $fileinfo->{'crc32'} = $hash;
         print "Calculated $hash\n";
     }
     # Annotate files with non-standard sources
     my $src = $fileinfo->{'source'};
     if ( $src eq "HDTV" or $src eq "www" or $src eq "" ) {
         $src = "";
-    } else {
+    } elsif ($src !~ /^\[/) {
         $src = "[" . $src . "]";
     }
     $fileinfo->{'source'} = $src;
@@ -298,6 +299,17 @@ sub CLEANUP {
 }
 $a->logout();
 
+sub calculate_crc {
+    my $filepath = shift(@_);
+    my $crc = Digest::CRC->new(type=>"crc32");
+    open(my $handle, $filepath);
+    $crc->addfile(*$handle);
+    close($handle);
+    my $hash = $crc->hexdigest;
+    $hash =~ tr/a-z/A-Z/;
+    return $hash
+}
+
 sub print_help {
     print <<EOF;
 adbren.pl [options] <file1\/dir1> [file2\/dir2] ...