Subversion Repositories camp_sysinfo_client_3

Rev

Rev 67 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 67 Rev 77
Line 3... Line 3...
3 
use warnings;
 3 
use warnings;
4 
use strict;
 4 
use strict;
5 
 
 5 
 
6 
# v1.1.0 20161022 RWR
 6 
# v1.1.0 20161022 RWR
7 
# use library sysinfoconf.pm for loading, editing and displaying config
 7 
# use library sysinfoconf.pm for loading, editing and displaying config
- 
 
 8 
#
- 
 
 9 
# v1.2.0 20190108 RWR
- 
 
 10 
# added UUID
8 
 
 11 
 
9 
our $VERSION = '1.1.0';
 12 
our $VERSION = '1.2.0';
10 
 
 13 
 
11 
# find our location and use it for searching for libraries
 14 
# find our location and use it for searching for libraries
12 
BEGIN {
 15 
BEGIN {
13 
   use FindBin;
 16 
   use FindBin;
14 
   use File::Spec;
 17 
   use File::Spec;
Line 45... Line 48...
45 
   my $config = shift;
 48 
   my $config = shift;
46 
   my $temp;
 49 
   my $temp;
47
50
48 
   $$config{'clientName'} = &getAnswer( "Client Name ", ($$config{'clientName'}) );
 51 
   $$config{'clientName'} = &getAnswer( "Client Name ", ($$config{'clientName'}) );
49 
   $$config{'serialNumber'} = &getAnswer( "Serial Number ", ($$config{'serialNumber'}) );
 52 
   $$config{'serialNumber'} = &getAnswer( "Serial Number ", ($$config{'serialNumber'}) );
- 
 
 53 
   $$config{'UUID'} = &getAnswer( "UUID ", ($$config{'UUID'}) );
50 
   $$config{'hostname'} = &getAnswer( "Host Name ", ($$config{'hostname'}) );
 54 
   $$config{'hostname'} = &getAnswer( "Host Name ", ($$config{'hostname'}) );
51 
 
 55 
 
52 
   $temp = join( ",", @{ $$config{ 'moduleDirs' } } ) if $$config{ 'moduleDirs' };
 56 
   $temp = join( ",", @{ $$config{ 'moduleDirs' } } ) if $$config{ 'moduleDirs' };
53 
   $temp = &getAnswer( "Locations to search for modules (comma separated) ", ($temp) );
 57 
   $temp = &getAnswer( "Locations to search for modules (comma separated) ", ($temp) );
54 
   $$config{ 'moduleDirs' } = [ split( ',', $temp ) ];
 58 
   $$config{ 'moduleDirs' } = [ split( ',', $temp ) ];