Subversion Repositories camp_sysinfo_client_3

Rev

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

Rev 228 Rev 248
Line 253... Line 253...
253 
      open DATA, $serverInfoName or die "Could not read $serverInfoName: $!\n";
 253 
      open DATA, $serverInfoName or die "Could not read $serverInfoName: $!\n";
254 
      print "opened $serverInfoName\n";
 254 
      print "opened $serverInfoName\n";
255 
      while ( my $line = <DATA> ) {
 255 
      while ( my $line = <DATA> ) {
256 
         next if $line =~ m/^#/;
 256 
         next if $line =~ m/^#/;
257 
         chomp $line;
 257 
         chomp $line;
- 
 
 258 
         next if $line =~ m/^\s*$/;
258 
         my ($key,$value) = split( ':', $line );
 259 
         my ($key,$value) = split( ':', $line );
259 
         $key =~ s/^\s+|\s+$//g;
 260 
         $key =~ s/^\s+|\s+$//g;
260 
         $value =~ s/^\s+|\s+$//g;
 261 
         $value =~ s/^\s+|\s+$//g;
261 
         # note, we make the key lower case so we can find it
 262 
         # note, we make the key lower case so we can find it
262 
         $return{ lc $key} = $value;
 263 
         $return{ lc $key} = $value;