135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

wording

Browse Source
This commit is contained in:
nick n
2019-04-24 21:50:45 +02:00
committed by GitHub
parent c0f260d36c
commit 5beed9cb04
1 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
bin/netdisco-deploy
View File

@@ -77,9 +77,8 @@ This script will download the latest MAC address vendor prefix data from the
Internet, and update the OUI table in the database. Hence Internet access is Internet, and update the OUI table in the database. Hence Internet access is
required to run the script. required to run the script.
Similarly the latest Netdisco MIB bundle is also downloaded, placed into the Similarly the latest Netdisco MIB bundle is also downloaded and placed into
user's home directory (or C<$ENV{NETDISCO_HOME}>), and Netdisco reconfigured the user's home directory (or C<$ENV{NETDISCO_HOME}>).
for its use.
=cut =cut
@@ -99,7 +98,7 @@ print color 'reset';
my $term = Term::ReadLine->new('netdisco'); my $term = Term::ReadLine->new('netdisco');
my $bool = $term->ask_yn( my $bool = $term->ask_yn(
prompt => 'So, is all the above in place?', default => 'n', prompt => 'So, is all off the above in place?', default => 'n',
); );
exit(0) unless $bool; exit(0) unless $bool;
@@ -169,7 +168,7 @@ sub deploy_db {
if ($users->search({-bool => 'admin'})->count == 0) { if ($users->search({-bool => 'admin'})->count == 0) {
say ''; say '';
print color 'bold green'; print color 'bold green';
say 'We need to create a user for inital login. This user will be a full Administrator.'; say 'We need to create a user for initial login. This user will be a full Administrator.';
say 'Afterwards, you can go to Admin -> User Management to manage users.'; say 'Afterwards, you can go to Admin -> User Management to manage users.';
print color 'reset'; print color 'reset';
say ''; say '';
@@ -274,7 +273,7 @@ sub shorten {
# Remove any "the", "inc", "plc" ... # Remove any "the", "inc", "plc" ...
$manuf $manuf
=~ s/\s(the|inc|incorporated|plc||systems|corp|corporation|s\/a|a\/s|ab|ag|kg|gmbh|co|company|limited|ltd|holding|spa)(?= )//gi; =~ s/\s(the|inc|incorporated|plc|systems|corp|corporation|s\/a|a\/s|ab|ag|kg|gmbh|co|company|limited|ltd|holding|spa)(?= )//gi;
# Convert to consistent case # Convert to consistent case
$manuf =~ s/(\w+)/\u\L$1/g; $manuf =~ s/(\w+)/\u\L$1/g;