Changeset 124
- Timestamp:
- 12/13/05 14:44:22 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/soft/ObsData/ObsData/Repository.pm
- Property cvs2svn:cvs-rev changed from 1.43 to 1.44
r120 r124 6 6 use warnings; 7 7 use File::Path; 8 use POSIX qw(getcwd); 8 9 use ObsData; 9 10 use ObsData::Archive; … … 75 76 ); 76 77 78 my $hostname = `hostname`; 79 chomp($hostname); 80 $self->{status}->newval('.', 'hostname', $hostname); 81 $self->{status}->SetParameterComment( 82 '.', 83 'hostname', 84 'The computer host name' 85 ); 86 87 $self->{status}->newval('.', 'directory', $self->{dir}); 88 $self->{status}->SetParameterComment( 89 '.', 90 'directory', 91 'Directory where archive where located' 92 ); 93 94 $self->{status}->newval('.', 'runfrom', getcwd()); 95 $self->{status}->SetParameterComment( 96 '.', 97 'runfrom', 98 'The current directory' 99 ); 100 77 101 $self->{status}->WriteConfig($self->{statusfile}); 78 102 }
Note: See TracChangeset
for help on using the changeset viewer.