Subversion Repositories camp_sysinfo_client_3

Rev

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

Rev 132 Rev 138
Line 11... Line 11...
11 
#
 11 
#
12 
# v1.3.0 20191107 RWR
 12 
# v1.3.0 20191107 RWR
13 
# changed the screen to allow the user to see most of the values and decide what to edit
 13 
# changed the screen to allow the user to see most of the values and decide what to edit
14 
# then write the results.
 14 
# then write the results.
15 
# also, parameters are passed that allow the import of a file in old conf format
 15 
# also, parameters are passed that allow the import of a file in old conf format
- 
 
 16 
#
- 
 
 17 
# v1.3.1 20191112 RWR
- 
 
 18 
# Fixed showEntry() to set value to empty string if it is null
16 
 
 19 
 
17 
use Getopt::Long;
 20 
use Getopt::Long;
18 
 
 21 
 
19 
 
 22 
 
20 
our $VERSION = '1.3.0';
 23 
our $VERSION = '1.3.1';
21 
 
 24 
 
22 
# find our location and use it for searching for libraries
 25 
# find our location and use it for searching for libraries
23 
BEGIN {
 26 
BEGIN {
24 
   use FindBin;
 27 
   use FindBin;
25 
   use File::Spec;
 28 
   use File::Spec;
Line 152... Line 155...
152 
   return lc substr( $selection, 0, 1 );
 155 
   return lc substr( $selection, 0, 1 );
153 
}
 156 
}
154 
 
 157 
 
155 
sub getValue {
 158 
sub getValue {
156 
   my ( $prompt, $value ) = @_;
 159 
   my ( $prompt, $value ) = @_;
- 
 
 160 
   $value = '' unless $value;
157 
   print "$prompt [$value]: ";
 161 
   print "$prompt [$value]: ";
158 
   my $t = <>;
 162 
   my $t = <>;
159 
   chomp $t;
 163 
   chomp $t;
160 
   return $t ? $t : $value;
 164 
   return $t ? $t : $value;
161 
}
 165 
}