Subversion Repositories camp_sysinfo_client_3

Rev

Rev 85 | Rev 92 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 85 Rev 86
Line 86... Line 86...
86 
                                        'key for date',
 86 
                                        'key for date',
87 
                                        'key for hostname',
 87 
                                        'key for hostname',
88 
                                        'key for client',
 88 
                                        'key for client',
89 
                                        'key for serial number'
 89 
                                        'key for serial number'
90 
                                      ]
 90 
                                      ]
91 
                                    }
 91 
                                    },
- 
 
 92 
                  'Save Local' =>   { 'sendScript' => 'save_local',
- 
 
 93 
                                      'keys' =>
- 
 
 94 
                                      [
- 
 
 95 
                                         'output directory'
- 
 
 96 
                                      ]
- 
 
 97 
                                   }
92 
                );
 98 
                );
93 
 
 99 
 
94 
 
 100 
 
95 
sub enableModules {
 101 
sub enableModules {
96 
   my $moduleDir = shift;
 102 
   my $moduleDir = shift;
Line 157... Line 163...
157 
   my $serialNumber = '';
 163 
   my $serialNumber = '';
158 
   my $hostname = '';
 164 
   my $hostname = '';
159 
   my @moduleDirs;
 165 
   my @moduleDirs;
160 
   my @scriptDirs;
 166 
   my @scriptDirs;
161 
   my $UUID = '';
 167 
   my $UUID = '';
162 
   my $transports = {};
 168 
   my $transports;
163 
 
 169 
 
164 
   foreach my $config ( @configFileNames ) {
 170 
   foreach my $config ( @configFileNames ) {
165 
      open CONF,"<$config" or die "could not open $config: $!\n";
 171 
      open CONF,"<$config" or die "could not open $config: $!\n";
166 
      my $contents = join( '', <CONF> );
 172 
      my $contents = join( '', <CONF> );
167 
      close CONF;
 173 
      close CONF;