our $db_username = "nms";
our $db_password = "nms";
+our $zyxel_password = "removed";
+
1;
#!/usr/bin/perl
use lib '../include';
use nms;
-#
-#
-
-my $username = '';
-my $password = 'removed';
# Seconds to wait for connection
my $timeout = 15;
#$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);
use Net::Telnet;
use POSIX;
-my $password = 'removed';
my $timeout = 15;
my $delaytime = 30;
my $poll_frequency = 60;
#$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);
#!/usr/bin/perl
use lib '../include';
use nms;
-#
-#
-
-my $username = '';
-my $password = 'removed';
# Seconds to wait for connection
my $timeout = 15;
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';
#$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);