Changeset 339

Timestamp:

01/24/11 11:01:39 (13 years ago)

Author:

nanardon

Message:

• use File::Magic to discover binary files

File:

• server/trunk/web/lib/Sophie/Scan/RpmParser/Sources.pm (modified) (2 diffs)

server/trunk/web/lib/Sophie/Scan/RpmParser/Sources.pm

@@ -10 +10 @@
 use Encode::Guess;
 use Encode;
-use MIME::Types;
+use File::MMagic;
 
 sub run {
@@ -39 +39 @@
             }
 
-            if (my $plaintext = MIME::Types->new->mimeTypeOf($fname)) {
-                $plaintext->isBinary and return 1;
-            }
-            
             my $rawcontent = $file->get_content;
+
+            my $mm = new File::MMagic;
+            $mm->checktype_contents($rawcontent) =~ /^application\// and return 1;
+
             my $content;
             foreach my $line (split("\n", $rawcontent)) {