Changeset 162 for trunk/soft/ObsData/ObsData/Archive.pm

Timestamp:

12/18/05 16:20:50 (19 years ago)

Author:

thauvin

Message:

• make Archive dynamique

File:

• trunk/soft/ObsData/ObsData/Archive.pm (modified) (3 diffs, 1 prop)

trunk/soft/ObsData/ObsData/Archive.pm

@@ -5 +5 @@
 use strict;
 use warnings;
-use ObsData::Archive::FlatFile;
-use ObsData::Archive::Compressed;
-use ObsData::Archive::Tar;
-use ObsData::Archive::Zip;
-use ObsData::Archive::Rar;
+require ObsData::Archive::FlatFile;
+require ObsData::Archive::Compressed;
+require ObsData::Archive::Tar;
+require ObsData::Archive::Zip;
+require ObsData::Archive::Rar;
 
 our $CVSID = q$Id$;
@@ -15 +15 @@
 
 my $error = {};
+
+my @dynload = ();
+
+sub register {
+    my ($rule, $class, $priority) = @_;
+    push(
+        @dynload,
+        {
+            rule => $rule,
+            class => $class,
+            priority => $priority,
+        }
+    );
+    1;
+}
 
 sub new {
@@ -36 +51 @@
     
     for ($archive) {
-        /\.tar(\.[^\.]*)?$/ and do {
-            $beclass = 'Tar';
-            last;
-        };
-        /\.(gz|bz2|Z)$/ and do {
-            $beclass = 'Compressed';
-            last;
-        };
-        /\.zip$/ and do {
-            $beclass = 'Zip';
-            last;
-        };
-        /\.rar$/ and do {
-            $beclass = 'Rar';
-            last;
-        };
-        $beclass = 'FlatFile';
+        foreach my $r (sort { $a->{priority} <=> $b->{priority} } @dynload) {
+            if (ref($r->{rule}) eq 'CODE' ?
+                $r->{rule}->($_) :
+                /$r->{rule}/) {
+                $beclass = $r->{class};
+                last;
+            }
+        }
     }