Put Zyxel password in config.pm.

diff --git a/include/config.pm b/include/config.pm
index af5fa798b24d8e08aa50c0d6db34db22c8c1fa9f..1e5e5f298b475449e8c1a87a1f78731d1d36da83 100644 (file)
--- a/include/config.pm
+++ b/include/config.pm
@@ -11,4 +11,6 @@ our $db_host = "localhost";
 our $db_username = "nms";
 our $db_password = "nms";
 
+our $zyxel_password = "removed";
+
 1;

diff --git a/web/smanagement.pl b/web/smanagement.pl
index e6474586eb467bc45b3a248e352e0b260074f887..57fa1fc7a880dc829419dfee2ba42b4b8762016b 100755 (executable)
--- a/web/smanagement.pl
+++ b/web/smanagement.pl
@@ -1,11 +1,6 @@
 #!/usr/bin/perl
 use lib '../include';
 use nms;
-#
-#
-
-my $username = '';
-my $password = 'removed';
 
 # Seconds to wait for connection
 my $timeout = 15;
@@ -65,7 +60,7 @@ sub switch_connect($) {
        #$conn->login(  Prompt => '/password[: ]*$/i',
        #               Name => $password,
        #               Password => $password);
-       $conn->cmd($password);
+       $conn->cmd($nms::config::zyxel_password);
        # Get rid of banner
        $conn->get;
        return ($conn);

diff --git a/web/ssendfile.pl b/web/ssendfile.pl
index d64de055576897713a4dc8e1594c0ae764a14194..0901b8b37f2b3c2e93274343b083ea18811b1a98 100755 (executable)
--- a/web/ssendfile.pl
+++ b/web/ssendfile.pl
@@ -7,7 +7,6 @@ use strict;
 use Net::Telnet;
 use POSIX;
 
-my $password = 'removed';
 my $timeout = 15;
 my $delaytime = 30;
 my $poll_frequency = 60;
@@ -44,7 +43,7 @@ sub switch_connect($) {
        #$conn->login(»·Prompt => '/password[: ]*$/i',
        #               Name => $password,
        #               Password => $password);
-       $conn->cmd($password);
+       $conn->cmd($nms::config::zyxel_password);
        # Get rid of banner
        $conn->get;
        return ($conn);

diff --git a/web/sshow.pl b/web/sshow.pl
index a16da779d0285e22b17b259e40f9a6b66045734b..24ca128e0227b7234a762586b0cd8266cbd39b20 100755 (executable)
--- a/web/sshow.pl
+++ b/web/sshow.pl
@@ -1,11 +1,6 @@
 #!/usr/bin/perl
 use lib '../include';
 use nms;
-#
-#
-
-my $username = '';
-my $password = 'removed';
 
 # Seconds to wait for connection
 my $timeout = 15;

diff --git a/web/tempfetch.pl b/web/tempfetch.pl
index 3a5c84dfbc49bcb92da7e386099c0063b05eb16a..76966e6f0525f8e54567303292e27685b7da8c3f 100644 (file)
--- a/web/tempfetch.pl
+++ b/web/tempfetch.pl
@@ -9,10 +9,8 @@ use lib '../include';
 use nms;
 use strict;
 use warnings;
-#require 'SNMP_Session.pm';
 
 # Tweak timeouit og sjekk med :support||:net hva passord vil bli
-my $password = 'removed';
 my $timeout = 25;
 my $location = 'skipet';
 
@@ -125,7 +123,7 @@ sub switch_connect {
        #$conn->login(  Prompt => '/password[: ]*$/i',
        #               Name => $password,
        #               Password => $password);
-       my @data = $conn->cmd($password);
+       my @data = $conn->cmd($nms::config::zyxel_password);
        # Get rid of banner
        $conn->get;
        return ($conn);