[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
?
Solved

Perl script help

Posted on 2009-05-13
4
Medium Priority
?
351 Views
Last Modified: 2013-12-26
Hello,
I have a couple of requirements using Perl or Bash scripts. Please look at this command output given in the Code text box:

I want a script which will send me a mail, when anyone of the following incident occur:

1. when the command "netstat -an | grep 1530" fails to get the LISTEN value in its output.
2. In the output of /proc/net/bonding/bond0 file, when the value of "MII Status" is showing as "down".

An example at which the mail has to be sent:

[root@orasmb ~]# netstat -an | grep 1530
[root@orasmb ~]#                                                          <-- No output
[root@orasmb ~]# cat /proc/net/bonding/bond0
Ethernet Channel Bonding Driver: v3.2.4 (January 28, 2008)

Bonding Mode: fault-tolerance (active-backup)
Primary Slave: eth4
Currently Active Slave: eth4
MII Status: up                                            
MII Polling Interval (ms): 100
Up Delay (ms): 0
Down Delay (ms): 0

Slave Interface: eth0
MII Status: down                <-- Showing down, mail has to be sent now.                                
Link Failure Count: 1
Permanent HW addr: 00:15:17:97:b1:d9

Slave Interface: eth4
MII Status: up                                                    
Link Failure Count: 1
Permanent HW addr: 00:1a:64:db:34:58
[root@orasmb ~]#

In addition, in the Subject of the mail, it should contain the hostname of the server.

Thanks,
AR
[root@orasmb ~]# netstat -an | grep 1530
tcp        0      0 10.20.40.50:1530            0.0.0.0:*                           LISTEN                    <-----
tcp        0      0 10.20.40.50:1530            10.20.40.50:32964           TIME_WAIT
tcp        0      0 10.20.40.50:1530            10.20.40.50:32963           TIME_WAIT
tcp        0      0 10.20.40.50:1530            10.20.40.50:32969           TIME_WAIT
tcp        0      0 10.20.40.50:1530            10.20.40.50:32970           TIME_WAIT
 
[root@orasmb ~]# cat /proc/net/bonding/bond0
Ethernet Channel Bonding Driver: v3.2.4 (January 28, 2008)
 
Bonding Mode: fault-tolerance (active-backup)
Primary Slave: eth4
Currently Active Slave: eth4
MII Status: up                                            <-------------
MII Polling Interval (ms): 100
Up Delay (ms): 0
Down Delay (ms): 0
 
Slave Interface: eth0
MII Status: up                                                <-------------
Link Failure Count: 1
Permanent HW addr: 00:15:17:97:b1:d9
 
Slave Interface: eth4
MII Status: up                                                    <-------------
Link Failure Count: 1
Permanent HW addr: 00:1a:64:db:34:58
[root@orasmb ~]#

Open in new window

0
Comment
Question by:rdashokraj
4 Comments
 
LVL 1

Accepted Solution

by:
rchi54 earned 800 total points
ID: 24381184
Save the following in a file, chmod to allow execute privileges, and put in cron to run every minute.

#! /bin/bash

if [[ `netstat -an | grep -c 1530` -eq 0 ]]
then
      echo "Subject: `hostname` no LISTEN on 1530" | /usr/lib/sendmail -F yourname@someplace.com yourname@someplace.com
fi


if [[ `cat /proc/net/bonding/bond0 | grep -c down` -ne 0 ]]
then
      echo "Subject: `hostname` has a DOWN interface" | /usr/lib/sendmail -F yourname@someplace.com yourname@someplace.com
fi
0
 
LVL 40

Assisted Solution

by:omarfarid
omarfarid earned 600 total points
ID: 24381396
try this

netstat -an | grep -w 1530 | grep LISTEN
if [ $? -ne 0 ]
then
      mailx -s "Port 1530 is down " username@domain
fi
grep  "MII Status" /proc/net/bonding/bond0 | tail -1 | grep down
if [ $? -ne 0 ]
then
      mailx -s " MII Status is down " username@domain
fi
0
 
LVL 48

Assisted Solution

by:Tintin
Tintin earned 600 total points
ID: 24381860

#!/bin/bash
netstat -an | grep 1530 | grep -q LISTEN || echo "Port 1530 is not listening" | mail -s "Port 1530 down" some@user
 
grep "MII Status" /proc/net/bonding/bond0 | grep -q down /proc/net/bonding/bond0 && echo "Port down" | mail -s "Port down" some@user

Open in new window

0
 

Author Closing Comment

by:rdashokraj
ID: 31581247
Thankyou all !
0

Featured Post

What is SQL Server and how does it work?

The purpose of this paper is to provide you background on SQL Server. It’s your self-study guide for learning fundamentals. It includes both the history of SQL and its technical basics. Concepts and definitions will form the solid foundation of your future DBA expertise.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx.. MOST IMPORTANT: Use Unix file format while saving Your script. otherwise it will have ^M s or smth likely weird in the EOL, Then DO NOT use m…
Have you ever been frustrated by having to click seven times in order to retrieve a small bit of information from the web, always the same seven clicks, scrolling down and down until you reach your target? When you know the benefits of the command l…
Six Sigma Control Plans
In a recent question (https://www.experts-exchange.com/questions/29004105/Run-AutoHotkey-script-directly-from-Notepad.html) here at Experts Exchange, a member asked how to run an AutoHotkey script (.AHK) directly from Notepad++ (aka NPP). This video…
Suggested Courses

867 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question