Subversion Repositories camp_sysinfo_client_3

Rev

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

Rev 115 Rev 124
Line 142... Line 142...
142 
 
 142 
 
143 
sub transportsToConfig {
 143 
sub transportsToConfig {
144 
   my $transports = shift;
 144 
   my $transports = shift;
145 
   my $config;
 145 
   my $config;
146 
   foreach my $priority ( sort { $a <=> $b } keys %$transports ) {
 146 
   foreach my $priority ( sort { $a <=> $b } keys %$transports ) {
147 
      my $name = $$transports{ $priority }{'-name-'};
 147 
      my $name = $$transports{ $priority }{'name'};
148 
      $config .= "# Tranport $name at priority $priority\n";
 148 
      $config .= "# Tranport $name at priority $priority\n";
149 
      my $thisOne = $$transports{ $priority };
 149 
      my $thisOne = $$transports{ $priority };
150 
      foreach my $key ( sort keys %$thisOne ) {
 150 
      foreach my $key ( sort keys %$thisOne ) {
151 
         $config .= "\$\$transports{$priority}{'$key'} = '$$thisOne{$key}';\n";
 151 
         $config .= "\$\$transports{$priority}{'$key'} = '$$thisOne{$key}';\n";
152 
      } # foreach
 152 
      } # foreach