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

search for localenv could not find $HOME

Browse Source
This commit is contained in:
Oliver Gorwits
2014-04-17 06:39:37 +01:00
parent 10a6e33561
commit d0d39e4574
8 changed files with 32 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Netdisco/Changes
View File

@@ -1,9 +1,13 @@
2.025002 - 2.026001_001 -
[ENHANCEMENTS] [ENHANCEMENTS]
* Add FRU filter option to Module Inventory Report * Add FRU filter option to Module Inventory Report
[BUG FIXES]
* Search for localenv could not find $HOME
2.025001 - 2014-04-08 2.025001 - 2014-04-08
[NEW FEATURES] [NEW FEATURES]

4
Netdisco/bin/nd-import-topology
View File

@@ -3,12 +3,14 @@
use strict; use strict;
use warnings; use warnings;
our $home = ($ENV{NETDISCO_HOME} || $ENV{HOME}); our $home;
BEGIN { BEGIN {
use FindBin; use FindBin;
FindBin::again(); FindBin::again();
$home = ($ENV{NETDISCO_HOME} || $ENV{HOME});
# try to find a localenv if one isn't already in place. # try to find a localenv if one isn't already in place.
if (!exists $ENV{PERL_LOCAL_LIB_ROOT}) { if (!exists $ENV{PERL_LOCAL_LIB_ROOT}) {
use File::Spec; use File::Spec;

4
Netdisco/bin/netdisco-daemon
View File

@@ -3,12 +3,14 @@
use strict; use strict;
use warnings; use warnings;
our $home = ($ENV{NETDISCO_HOME} || $ENV{HOME}); our $home;
BEGIN { BEGIN {
use FindBin; use FindBin;
FindBin::again(); FindBin::again();
$home = ($ENV{NETDISCO_HOME} || $ENV{HOME});
# try to find a localenv if one isn't already in place. # try to find a localenv if one isn't already in place.
if (!exists $ENV{PERL_LOCAL_LIB_ROOT}) { if (!exists $ENV{PERL_LOCAL_LIB_ROOT}) {
use File::Spec; use File::Spec;

4
Netdisco/bin/netdisco-db-deploy
View File

@@ -3,12 +3,14 @@
use strict; use strict;
use warnings; use warnings;
our $home = ($ENV{NETDISCO_HOME} || $ENV{HOME}); our $home;
BEGIN { BEGIN {
use FindBin; use FindBin;
FindBin::again(); FindBin::again();
$home = ($ENV{NETDISCO_HOME} || $ENV{HOME});
# try to find a localenv if one isn't already in place. # try to find a localenv if one isn't already in place.
if (!exists $ENV{PERL_LOCAL_LIB_ROOT}) { if (!exists $ENV{PERL_LOCAL_LIB_ROOT}) {
use File::Spec; use File::Spec;

4
Netdisco/bin/netdisco-deploy
View File

@@ -3,12 +3,14 @@
use strict; use strict;
use warnings; use warnings;
our $home = ($ENV{NETDISCO_HOME} || $ENV{HOME}); our $home;
BEGIN { BEGIN {
use FindBin; use FindBin;
FindBin::again(); FindBin::again();
$home = ($ENV{NETDISCO_HOME} || $ENV{HOME});
# try to find a localenv if one isn't already in place. # try to find a localenv if one isn't already in place.
if (!exists $ENV{PERL_LOCAL_LIB_ROOT}) { if (!exists $ENV{PERL_LOCAL_LIB_ROOT}) {
use File::Spec; use File::Spec;

7
Netdisco/bin/netdisco-do
View File

@@ -1,11 +1,16 @@
#!/usr/bin/env perl #!/usr/bin/env perl
our $home = ($ENV{NETDISCO_HOME} || $ENV{HOME}); use strict;
use warnings;
our $home;
BEGIN { BEGIN {
use FindBin; use FindBin;
FindBin::again(); FindBin::again();
$home = ($ENV{NETDISCO_HOME} || $ENV{HOME});
# try to find a localenv if one isn't already in place. # try to find a localenv if one isn't already in place.
if (!exists $ENV{PERL_LOCAL_LIB_ROOT}) { if (!exists $ENV{PERL_LOCAL_LIB_ROOT}) {
use File::Spec; use File::Spec;

7
Netdisco/bin/netdisco-rancid-export
View File

@@ -1,11 +1,16 @@
#!/usr/bin/env perl #!/usr/bin/env perl
our $home = ($ENV{NETDISCO_HOME} || $ENV{HOME}); use strict;
use warnings;
our $home;
BEGIN { BEGIN {
use FindBin; use FindBin;
FindBin::again(); FindBin::again();
$home = ($ENV{NETDISCO_HOME} || $ENV{HOME});
# try to find a localenv if one isn't already in place. # try to find a localenv if one isn't already in place.
if (!exists $ENV{PERL_LOCAL_LIB_ROOT}) { if (!exists $ENV{PERL_LOCAL_LIB_ROOT}) {
use File::Spec; use File::Spec;

4
Netdisco/bin/netdisco-web
View File

@@ -3,12 +3,14 @@
use strict; use strict;
use warnings; use warnings;
our $home = ($ENV{NETDISCO_HOME} || $ENV{HOME}); our $home;
BEGIN { BEGIN {
use FindBin; use FindBin;
FindBin::again(); FindBin::again();
$home = ($ENV{NETDISCO_HOME} || $ENV{HOME});
# try to find a localenv if one isn't already in place. # try to find a localenv if one isn't already in place.
if (!exists $ENV{PERL_LOCAL_LIB_ROOT}) { if (!exists $ENV{PERL_LOCAL_LIB_ROOT}) {
use File::Spec; use File::Spec;