Subversion Repositories camp_sysinfo_client_3

Rev

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

Rev 82 Rev 83
Line 116... Line 116...
116 
   $Data::Dumper::Varname = '$configuration';
 116 
   $Data::Dumper::Varname = '$configuration';
117 
   $Data::Dumper::Quotekeys = 1;
 117 
   $Data::Dumper::Quotekeys = 1;
118 
   $Data::Dumper::Sortkeys = 1;
 118 
   $Data::Dumper::Sortkeys = 1;
119 
   return Data::Dumper->Dump( [$configuration] );
 119 
   return Data::Dumper->Dump( [$configuration] );
120 
 
 120 
 
121 
   return $conf;
 121 
   #return $conf;
122 
   my $conf;
 122 
   #my $conf;
123 
   $conf .= "\$clientName = '" .   ( defined( $$configuration{'clientName'}   ) ? $$configuration{'clientName'}   : '' ) . "';\n";
 123 
   #$conf .= "\$clientName = '" .   ( defined( $$configuration{'clientName'}   ) ? $$configuration{'clientName'}   : '' ) . "';\n";
124 
   $conf .= "\$serialNumber = '" . ( defined( $$configuration{'serialNumber'} ) ? $$configuration{'serialNumber'} : '' ) . "';\n";
 124 
   #$conf .= "\$serialNumber = '" . ( defined( $$configuration{'serialNumber'} ) ? $$configuration{'serialNumber'} : '' ) . "';\n";
125 
   $conf .= "\$hostname = '" .     ( defined( $$configuration{'hostname'}     ) ? $$configuration{'hostname'}     : '' ) . "';\n";
 125 
   #$conf .= "\$hostname = '" .     ( defined( $$configuration{'hostname'}     ) ? $$configuration{'hostname'}     : '' ) . "';\n";
126 
   $conf .= "\$UUID = '" .      ( defined( $$configuration{'UUID'}     ) ? $$configuration{'UUID'}     : '' ) . "';\n";
 126 
   #$conf .= "\$UUID = '" .      ( defined( $$configuration{'UUID'}     ) ? $$configuration{'UUID'}     : '' ) . "';\n";
127 
   $conf .= "\@moduleDirs = ('" . join( "','", @{ $$configuration{ 'moduleDirs' } } ) . "');\n";
 127 
   #$conf .= "\@moduleDirs = ('" . join( "','", @{ $$configuration{ 'moduleDirs' } } ) . "');\n";
128 
   $conf .= "\@scriptDirs = ('" . join( "','", @{ $$configuration{ 'scriptDirs' } } ) . "');\n";
 128 
   #$conf .= "\@scriptDirs = ('" . join( "','", @{ $$configuration{ 'scriptDirs' } } ) . "');\n";
129 
   $conf .= &transportsToConfig( $$configuration{ 'transports' } ) if defined( $$configuration{ 'transports' } );
 129 
   #$conf .= &transportsToConfig( $$configuration{ 'transports' } ) if defined( $$configuration{ 'transports' } );
130 
   return $conf;
 130 
   #return $conf;
131 
}
 131 
}
132 
 
 132 
 
133 
sub transportsToConfig {
 133 
sub transportsToConfig {
134 
   my $transports = shift;
 134 
   my $transports = shift;
135 
   my $config;
 135 
   my $config;