Changeset 124

Timestamp:

12/13/05 14:44:22 (19 years ago)

Author:

thauvin

Message:

• add directory information in status file

File:

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

trunk/soft/ObsData/ObsData/Repository.pm

@@ -6 +6 @@
 use warnings;
 use File::Path;
+use POSIX qw(getcwd);
 use ObsData;
 use ObsData::Archive;
@@ -75 +76 @@
     );
 
+    my $hostname = `hostname`;
+    chomp($hostname);
+    $self->{status}->newval('.', 'hostname', $hostname);
+    $self->{status}->SetParameterComment(
+        '.',
+        'hostname',
+        'The computer host name'
+    );
+
+    $self->{status}->newval('.', 'directory', $self->{dir});
+    $self->{status}->SetParameterComment(
+        '.',
+        'directory', 
+        'Directory where archive where located'
+    );
+    
+    $self->{status}->newval('.', 'runfrom', getcwd());
+    $self->{status}->SetParameterComment(
+        '.',
+        'runfrom',
+        'The current directory'
+    );
+   
     $self->{status}->WriteConfig($self->{statusfile});
 }