Changeset 272

Timestamp:

07/01/06 17:11:09 (6 years ago)

Author:

knok

Message:

Added Container Hook system.
closes: #4.

Location:

MMagic/trunk

Files:

• ChangeLog (modified) (1 diff)
• MMagic.pm (modified) (4 diffs)
• t/06-conthook.t (added)

MMagic/trunk/ChangeLog

@@ +1 @@
+2006-07-01  NOKUBI Takatsugu  <knok@daionet.gr.jp>
+
+        * MMagic.pm (checktype_container): Added container check.
+          (Powerd by CodeFest 2006 Akihabara
+           https://members.fsij.org/trac/codefestakihabara2006)
+
 2006-06-26  NOKUBI Takatsugu  <knok@daionet.gr.jp>
 

MMagic/trunk/MMagic.pm

@@ -423 +423 @@
              '\.htm$' => 'text/html',
     };
+    # content hook
+    $self->{chook} = {};
     return bless $self, $class;
 }
@@ -492 +494 @@
 }
 
+sub addContainerHook {
+    my $self = shift;
+    my $mtype = shift;
+    my $funcref = shift;
+    $self->{chook}->{$mtype} = $funcref;
+}
+
 # Not implimented.
 #
@@ -619 +628 @@
     return 'application/octet-stream' if (length($data) <= 0);
 
+    $mtype = checktype_contents($self, $data);
+    return $mtype unless $mtype eq "";
+
     $mtype = checktype_magic($self, $data);
 
@@ -630 +642 @@
 
     return $mtype;
+}
+
+sub checktype_container {
+    my $self = shift;
+    my $data = shift;
+    my $href = $self->{chook};
+    foreach my $mtype (keys %$href) {
+        my $ret = &{$href->{$mtype}}($self, $data);
+        return $ret if $ret ne "";
+    }
+    return "";
 }