Changeset 48

Timestamp:

11/24/05 06:35:42 (19 years ago)

Author:

thauvin

Message:

• make ObsData::repository parsing directory

Location:

trunk/soft/ObsData

Files:

• ObsData.pm (modified) (2 diffs, 1 prop)
• ObsData/Repository.pm (modified) (2 diffs, 1 prop)

trunk/soft/ObsData/ObsData.pm

@@ -8 +8 @@
 use DBD::SQLite;
 use POSIX qw(strftime);
+use ObsData::Repository;
 
 my @loglevel = (
@@ -251 +252 @@
     
     foreach my $datatype (keys %datadir) {
-        if(opendir(my $dirhandle, $datadir{$datatype})) {
-            close($dirhandle);
-        } else {
-            $self->loging(5, "can't open directory %s set for %s", $datadir{$datatype}, $obs);
-        }
+        my $or = ObsData::Repository->new(
+            $self,
+            $datadir{$datatype},
+            obs => $obs,
+            datatype => $datatype,
+        );
     }
 }

trunk/soft/ObsData/ObsData/Repository.pm

@@ -6 +6 @@
 use warnings;
 use ObsData;
-
-our @ISA = qw(ObsData);
+use Config::IniFiles;
 
 =head1 METHODS
@@ -16 +15 @@
 
 sub new {
-    my ($class, $obsdata) = @_;
+    my ($class, $obsdata, $dir, %info) = @_;
+
+    
+    $dir && -d $dir or return undef;
 
     $obsdata or return undef;
-    
+
+    my $OR = {
+        obsdata => $obsdata,
+        status => undef,
+        dir => $dir,
+    };
+
+    foreach my $inf (qw(obs datatype)) {
+        $OR->{$inf} = $info{$inf};
+    }
+
     bless($obsdata, $class);
 }
 
+sub DESTROY {
+    my ($self) = @_;
+    $self->save_status;
+}
+
+sub save_status {
+    my ($self) = @_;
+}
+
+sub loging {
+    my $self = shift;
+    $self->{obsdata}->loging(@_);
+}
+
+
+sub parse_files {
+    my ($self) = @_;
+    if(opendir(my $dirhandle, $self->{dir})) {
+        while (my $file = readdir($dirhandle)) {
+            if ($file eq '..' || $file eq '.' ) { # Hope that's ok for everybody
+                next;
+            }
+        }
+        close($dirhandle);
+    } else {
+        $self->loging(5, "can't open directory %s set for %s", $self->{dir}, $self->{obs});
+    }
+}
+
 1;