• About

blog.alam.rocks

blog.alam.rocks

Tag Archives: network

Monitor Network~PERL Script

09 Wednesday Jan 2008

Posted by Fakrul Alam in Uncategorized

≈ Leave a comment

Tags

GSM, monitor, My Work, mysql, network, perl, ping, sms, sms server

I have written a perl script (!) which will monitor the network & integrate this script with SMS Server Tools. What it does is check the network in every 5 mins. If any host down sms it to me with host name and down time. If the host up again it sms me the uptime. In the script following perl module are used :

use File::Copy;
use File::stat;
use DBI;
use Net::Ping::External qw(ping);

Hostnames are taken from MySql Database. Database has the followind table structure:

+——————-+———————+———+——-+————-+————————+
| Field               | Type               | Null   | Key | Default    | Extra |
+——————-+———————+———+——-+————-+————————+
| sl_no              | int(11)             | NO    | PRI   | NULL | auto_increment |
| ip_address         | varchar(15)         | YES   |       | NULL |                               |
| flag               | varchar(1)          | YES   |       | NULL |                              |
| description        | varchar(100)        | YES   |       | NULL |                              |
+——————-+———————+———+——-+————-+————————+

Complete perl script:


#!/usr/bin/perl
#———————————————————————————————-
# This script check reachability of remote hosts on a network
# fakrul@fakrul.com
# You only need to change the phone no in this file.
#———————————————————————————————-

use Net::Ping;
use File::Copy;
use File::stat;
use DBI;
use Net::Ping::External qw(ping);

#———define the phone no to send sms

my @phone_no =
  qw( 123456789 987654321);

#——-define the mysql variables
my $dsn = ‘dbi:mysql:sms:localhost:3306’;
my $user = “root”;
my $pass = “my_sql_password”;
my $sms_log = “/var/spool/sms/outgoing/output.” . time;

#——-time function
@months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
@weekDays = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
$year = 1900 + $yearOffset;
$theTime = “$hour:$minute $weekDays[$dayOfWeek] $months[$month] $dayOfMonth, $year”;

#——-create connection string
my $dbh = DBI->connect($dsn, $user, $pass) or die “Can not connect to the DB: $DBI::errstrn”;

#——-execute sql query
my $q_sth = $dbh->prepare(“select * from sms_host”);
$q_sth->execute;
while(@row = $q_sth->fetchrow_array()) {
        $alive = ping(hostname => $row[1], count => 6, size => 64, timeout => 100);
        if ($alive eq “1” ) {
                if ($row[2] eq “D”) {
                        my $qd_update = $dbh->prepare(“update sms_host set flag=’U’ where sl_no=’$row[0]’”) or die “Cannot prepare: ” . $dbh->errstr();
                        $qd_update->execute;
                        $qd_update->finish();
                        print “$row[3] UP at $theTimen”;

                        #—————now send the sms 🙂
                        foreach my $phone_no (@phone_no) {
                                open (OUT, “>$sms_log.$phone_no.$row[1]”) or die “Can’t open log-file”;
                                print OUT “To: $phone_non”;
                                print OUT “n”;
                                print OUT “$row[3] UP at $theTimen”;
                                close(OUT);
                        }
                }
                else {
                print “Nothing to Do, Host $row[1] already upn”;
                }
        }
        else {
                if ($row[2] eq “U”) {
                        my $qu_update = $dbh->prepare(“update sms_host set flag=’D’ where sl_no=’$row[0]’”) or die “Cannot prepare: ” . $dbh->errstr();
                        $qu_update->execute;
                        $qu_update->finish();
                        print “$row[3] DOWN at $theTimen”;
                        sleep(1);

                        #—————now send the sms 🙂
                        foreach my $phone_no (@phone_no) {
                                open (OUT, “>$sms_log.$phone_no.$row[1]”) or die “Can’t open log-file”;
                                print OUT “To: $phone_non”;
                                print OUT “n”;
                                print OUT “$row[3] DOWN at $theTime n”;
                                close(OUT);
                        }
                }
                else {
                print “Host $row[1] already DOWNn”;
                }
        }
}

Social

  • View rapappu’s profile on Twitter
  • View fakrulalam’s profile on LinkedIn
  • View fakrul’s profile on GitHub
  • View FakrulAlamPappu’s profile on Google+
  • View fakrulalam’s profile on Flickr

Twitter Updates

  • #sydeny #summer https://t.co/4FhMTbgG1g 1 week ago
  • RT @protocoljournal: The August 2022 issue of IPJ is ready. Head over to protocoljournal.org for your copy! https://t.co/c0dfwBQAuu 3 weeks ago
  • RT @teamcymru: Take The first step toward clarity, visibility, and reducing external asset related risks With our free Attack Surface Asses… 3 weeks ago
  • RT @akanygren: Have you been working with tech for years and want an overview of #IPv6? I've been working on an open source "Inessential I… 1 month ago
  • blog.lastpass.com/2022/11/notice… 2 months ago
  • #bdnog15 CfP is now open bdnog.org/bdnog15/cfp.php #bdnog #bangladesh #nog #networkoperatorsgroup 2 months ago
  • RT @Cloudflare: Today we’re introducing Cloudflare Radar’s route leak data and API so that anyone can get information about route leaks acr… 2 months ago
  • Battling Zimbabwe fall short as Bangladesh win in chaotic final-over finish espncricinfo.com/series/icc-men… #t20 #worldcup #bangladeh 3 months ago
  • RT @vince2_: With the team @Free_1337, we have developed a Netflow/IPFIX collector and visualizer. It is available at https://t.co/6XtpOtm9… 6 months ago
  • RT @openbsdnow: Effective Shell effective-shell.com 7 months ago
  • RT @nocontextfooty: https://t.co/PU0JeRSrbD 7 months ago
  • smallstep.com/blog/if-openss… 7 months ago
  • github.com/tldr-pages/tldr 9 months ago
  • How to properly interpret a traceroute or MTR | APNIC Blog blog.apnic.net/2022/03/28/how… 9 months ago
  • #dayandnight #Newcastle #beachlife https://t.co/LaKATcEsFY 10 months ago
Follow @rapappu

Tags

antismap antivirus automation Azure bangladesh BASH BASH Script BDCERT bgp bind ccsp centos CentOS mirror CERT CISA cisco Cyber Security ddos dhaka dhakacom DNS DNSSEC GSM intrusion detectoin system Intrusion prevention system ips IPv6 ISACA junos linux Looking Glass lxc lxc profile lxd mailqueue mailscanner Mail Server mailwatch Meraki mikrotik monitor mpls MPLS L3 VPN mysql My Work network network management nginx NSD observium OpenVPN perl PHP ping postfix Proxy PTA python RANCID Reading RPKI Shell Script sms sms server SNMP SSH Tutorial ubuntu Ubuntu Mirror Server Virtual Box vispan vmware websvn Youtube hack খামাখা

Blog at WordPress.com.

  • Follow Following
    • blog.alam.rocks
    • Join 27 other followers
    • Already have a WordPress.com account? Log in now.
    • blog.alam.rocks
    • Customize
    • Follow Following
    • Sign up
    • Log in
    • Report this content
    • View site in Reader
    • Manage subscriptions
    • Collapse this bar