使用Perl实现系统服务监控和报警

最新推荐文章于 2024-11-03 06:12:22 发布
最新推荐文章于 2024-11-03 06:12:22 发布
阅读量932 收藏 1
点赞数
分类专栏： Perl 文章标签： perl server apache search cmd mysql

一般的Web站点来说，都包括很多服务和应用，我们没法实时知道系统运行是否正常，特别是晚上的时候，如果服务器宕机或应用挂掉了，都会影响业务和 用户访问，这时候一套对系统监控的错设就必须得当。目前有很多软件应的监控通知和报警服务，有收费的也有免费的，大家都可以选择。

　　我们就尝试自己来实现一个服务监控和报警通知的程序，这样能够使用很小的代价，同样让我们的服务高可用性和高可靠性。


　　【监控原理】

　　远程服务

　　对于远程机器来说，我们可以有一台监控服务器，或者随便找一台比较不容宕机的服务器来作为监控服务器，那么就能够监控其他的服务机上的服务了， 远程监控是比较大家需要的方式了。一般远程监控就监控服务器和端口是否开放，比如说，我们的 Web 服务 Apache 一般都会开放 80 端口，那么我们就可以通过访问这台服务器的 80 端口来确定 Apache 是否在正常工作，如果无法连接上，那么说明该服务就停止了。

　　本地服务

　　对于本机来说，监控进程和日志文件都是可行的，一般来说，长期频繁工作的服务，比如 Apache 都会在每次访问后把访问信息记录到 access 访问日志文件里，如果这个文件长时间没有更新，就可以怀疑该服务已经停止了（当然了，不排除，这段时间内都没有人访问的情况）。另外对于进程来说，本机是 很容易可以查看到进程情况的，对于 MySQL 等服务器来说，守护进程都是长期开放的，如果发现当前系统中没有了 MySQL 守护进程，那么也可以确认 MySQL 服务已经停止了。

　　 报警通知

　　 服务停止了，自然需要通知系统维护人员，那么一般就是通过邮件或者短信的方式，短信是最好的了，但是频繁短信同样让维护人员很郁闷，这个叫做短信炸弹 （Message Bomb），所以邮件也许是个简单实在的方式，本地再配置上 Outlook/Foxmail 定期接收和通知方式，也比较快捷，但是晚上回家后，一般都无法收到邮件了，所以合理的方式是白天邮件通知，晚上和周末短信通知 的报警方式更合理。

    【代码实现】

　　具体代码实现可以使用各种代码了，C/C++、Ruby、Python、PHP ，只要能够访问文件、Socket ，能够定期执行的语言都可以，我们下面的代码采用 Perl 来构建，因为 Perl 是很好的系统管理脚本语言，任何 Unix/Linux 都缺省安装了 Perl 引擎，能够很方便的在任何机器上面运行，同时 Perl 的灵活性强，而且有强大的 CPAN 包库，所以编写代码很方便，在系统管理中也是值得推荐大家使用的，当然了，很多系统管理工作使用 shell 脚本也许更方便。

　　下面的代码实现对远程监控、本地日志文件监控、本地进程监控都进行了实现，但是只使用了远程端口监控的方式，因为这样就能够监控多台机器和服务 了，如果只是单台机器或者只是想监控本地进程，可以很简单的修改主函数来实现。同时通知方式主要是采用邮件通知的方式，并且函数实现了SMTP协议进行邮 件发送（因为我发现Perl内置的 Net::SMTP 在进行型验证的时候，并不是很靠谱），当然了，在报警通知方面，完全可以改写成发送短信或者按照时间来分别调用短信和邮件的方式。

　　代码中主要监控了包括  Apache、MySQL、Memcache、Search（假如你有的话）等服务，可以在这个基础上进行增删不同的服务器监控，只需要增加一个常量配置和修改 main 函数代码。

　　说明：以下Perl代码在 RHEL 4 + Perl v5.8.6 环境下测试通过

 

　　#!/usr/bin/perl
　　use IO::Socket;
　　use IO::File;
　　use MIME::Base64;

　　##############################
　　# Constant define (configure)
　　##############################
　　# mail config
　　use constant MAIL_ADDR          => ('to'=>'webmaster@example.com', 'from'=>'webmaster@example.com');
　　use constant SMTP_INFO          => ('host'=>'smtp.example.com', 'user'=>'webmaster', 'password'=>'pass',
　　                                    'debug'=>1, 'bufsize'=>1024);
　　# common config
　　use constant MD5SUM_FILE        => '/tmp/__monitor_md5sum_hash';
　　use constant APACHE_LOG_PATH    => '/usr/local/apache2/logs/access';
　　# apache
　　use constant APACHE_PORT        => 80;
　　use constant APACHE_SERVERS     => ('web1.example.com', 'web2.example.com');
　　# mysql
　　use constant MYSQL_PORT         => 3306;
　　use constant MYSQL_SERVERS      => ('db1.example.com', 'db2.example.com');
　　# memcache
　　use constant MEMCACHE_PORT      => 11211;
　　use constant MEMCACHE_SERVERS   => ('cache1.example.com', 'cache2.example.com');
　　# search
　　use constant SEARCH_PORT        => 8000;
　　use constant SEARCH_SERVERS     => ('search1.example.com');


　　##############################
　　# Server port is alive check
　　##############################
　　sub check_server_alive {
　　    my($server, $port) = @_;

　　    $sock = IO::Socket::INET->new(PeerAddr=>$server, PeerPort=>$port, Proto=>'tcp', Timeout=>3);
　　    if (!$sock){
　　        return 0;
　　    }
　　    $sock->close();
　　    return 1;
　　}

　　##############################
　　# Check process is exist
　　##############################
　　sub check_process_exist {
　　    my $proc_name = shift;
　　    $line = `/bin/ps auxw | /bin/grep $proc_name | /bin/grep -v grep | /usr/bin/wc -l`;
　　    $line =~ s/^s+|s+$//g;
　　    if ($line == 0){
　　        return 0;
　　    }
　　    return 1;
　　}

　　##############################
　　# Check file md5 fingerprint
　　##############################
　　sub check_file_md5sum {
　　    my $io, $line;
　　    $filename = shift;
　　    @arr = split(/s/, `/usr/bin/md5sum $filename`);
　　    $filehash = shift(@arr);
　　    $io = IO::File->new();
　　    $io->open(MD5SUM_FILE, O_RDWR);
　　    if (!($line = $io->getLine())){
　　        $io->syswrite($filehash);
　　        $io->close;
　　        return true;
　　    }
　　    if ($line != $filehash){
　　        $io->truncate(0);
　　        $io->syswrite($filehash);
　　        $io->close;
　　        return true;
　　    }
　　    return true;
　　}

　　##############################
　　# SMTP execute command
　　##############################
　　sub smtp_cmd {
　　    my ($sock, $cmd, $blocking) = @_;
　　    my %smtpinfo = SMTP_INFO;
　　    my $buf, $bufsize = $smtpinfo{'bufsize'}, $debug=$smtpinfo{'debug'};

　　    $sock->syswrite($cmd);
　　    if ($debug == 1){
　　        print ">>> $cmd ";
　　    }
　　    if ($blocking == 1){
　　        $sock->sysread($buf, $bufsize);
　　        if ($debug){
　　            print "<<< $buf";
　　        }
　　    }
　　}

　　##############################
　　# Send notice mail
　　##############################
　　sub send_mail {
　　    my ($subject, $content) = @_;
　　    my $sock;
　　    my %mailaddr = MAIL_ADDR;
　　    my %smtpinfo = SMTP_INFO;
　　    my $debug = $smtpinfo{'debug'};

　　    # Count date time
　　    ($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdst) = localtime(time());
　 　    $datetime = sprintf("%s-%s-%s %s:%s:%s", "20".substr($year,1,2), length($mon)==1?"0$mon":$mon, length($day)==1?"0$day":$day, length($hour)==1?"0$hour":$hour, length($min)==1?"0$min":$min, length($sec)==1?"0$sec":$sec);
　　    $subject .= "[$datetime]";

　　    # Connect to SMTP server
　　    $sock = IO::Socket::INET->new(PeerAddr=>$smtpinfo{'host'}, PeerPort=>25, Proto=>'tcp', Timeout=>10);
　　    $sock->blocking(1);

　　    # Send smtp command
　　    if ($debug == 1){
　　        print "<<< ". $sock->sysread($buf, $smtpinfo{'bufsize'});
　　    }
　　    smtp_cmd($sock, "HELO locahost ", 1);
　　    smtp_cmd($sock, "AUTH LOGIN ", 1);
　　    smtp_cmd($sock, encode_base64($smtpinfo{'user'}), 1);
　　    smtp_cmd($sock, encode_base64($smtpinfo{'password'}), 1);
　　    smtp_cmd($sock, "MAIL FROM: <". $mailaddr{'from'} ."> ", 1);
　　    smtp_cmd($sock, "RCPT TO: <". $mailaddr{'to'} ."> ", 1);
　　    smtp_cmd($sock, "DATA ", 1);
　　    smtp_cmd($sock, "From: ". $smtpinfo{'from'} ." ", 0);
　　    smtp_cmd($sock, "To: ". $smtpinfo{'to'} ." ", 0);
　　    smtp_cmd($sock, "Subject: $subject ", 0);
　　    smtp_cmd($sock, "$content ", 0);
　　    smtp_cmd($sock, " . ", 1);
　　    smtp_cmd($sock, "QUIT ", 0);
　　    $sock->close();

　　    return 1;
　　}

　　##############################
　　# Check server alive main
　　##############################
　　sub monitor_main {
　　    # check apache
　　    foreach $item (APACHE_SERVERS) {
　　        if (!check_server_alive($item, APACHE_PORT)) {
　　            send_mail("$item apache server is down", "$item apache server is down. please timely restoration");
　　        }
　　    }
　　    # check mysql
　　    foreach $item (MYSQL_SERVERS) {
　　        if (!check_server_alive($item, MYSQL_PORT)) {
　　            send_mail("$item mysql server is down", "$item mysql server is down. please timely restoration");
　　        }
　　    }
　　    # check memcache
　　    foreach $item (MEMCACHE_SERVERS) {
　　        if (!check_server_alive($item, MEMCACHE_PORT)) {
　　            send_mail("$item memcache server is down", "$item memcache server is down. please timely restoration");
　　        }
　　    }
　　    # check search
　　    foreach $item (SEARCH_SERVERS) {
　　        if (!check_server_alive($item, SEARCH_PORT)) {
　　            send_mail("$item search server is down", "$item search server is down. please timely restoration");
　　        }
　　    }
　　}


　　##############################
　　# Main running
　　##############################

　　monitor_main();

 

bingzhuan
关注
专栏目录
perl 监控数据变化
zhaoyangjian724的专栏
10-13 782
!/usr/bin/perluse strict;use DBI; use HTTP::Date qw(time2iso str2time time2iso time2isoz); use Net::SMTP; sub send_mail{ if (@_ != 2){print “请输入2个参数\n”;exit 1}; (m,m,n) = @_; #将参数赋值给变量 my
Perl邮件报警 for PHPIDS
weixin_34326429的博客
05-25 120
PHPIDS缺省支持的邮件报警存在一些不足之处： 1、对页面的访问速度有一定影响。 2、邮件发送以一条告警日志为单位，如果日志比较多的话，我们可能会收到上百封邮件。（可能有某个选项可以设置，但我没找到） 设计一个perl脚本来发送邮件，原理如下： 首先读取phpids的log文件（tmp/phpids_log.txt）,然后利用正则对日志内容进行简单的格式话，最后把...
perl脚本实时监测重要网络设备以及服务器的连通性
weixin_33912246的博客
08-30 330
几个月前开始着手做cacti相关的一些工作，使用cacti监控一些重要的网络设备以及服务器。cacti是基于snmp协议的，去轮询采集被监控设备的一些信息（流量 服务器资源使用情况等）。但有时会有一些设备因为轮询响应时间长或者没在规定的时间轮询到，而导致误报为snmp down，而实际并非如此。除了在调整cacti本身一些参数设置外，可以使用perl脚本实时监测这些设...
[原创] 使用Perl实现系统服务监控和报警
heiyeluren的blog（黑夜路人的开源世界）
05-22 4010
使用Perl实现系统服务监控和报警作者：heiyeluren博客：http://blog.csdn.net/heiyeshuwu时间：2008-5-22一般的Web站点来说，都包括很多服务和应用，我们没法实时知道系统运行是否正常，特别是晚上的时候，如果服务器宕机或应用挂掉了，都会影响业务和用户访问，这时候一套对系统监控的错设就必须得当。目前有很多软件应的监控通知和报警服务，有收费的也有免费
perl 执行时提示告警问题
lovejianglan的专栏
08-17 299
系统重装后，我执行perl程序，前面提示一个告警： [code="java"]perl: warning: Setting locale failed. perl: warning: Please check that your locale settings:[/code] 于是安装语言包： [code="java"][oracle@newweb2 perl]$ yum instal...
RHEL 4 + Perl v5.8.6实现系统服务监控和报警
03-31
该标题明确指出了使用的技术栈为RHEL 4操作系统与Perl版本v5.8.6，主要功能是对系统服务进行监控并实现报警机制。 ### 描述解析：以下Perl代码在 RHEL 4 + Perl v5.8.6 环境下测试通过 这行描述表明了这段Perl脚本...
用shell+sendmail实现服务器监控报警小脚本
09-15
该文章主要介绍了一个使用Shell脚本结合sendmail工具实现的简单服务器监控和报警系统。这个系统主要用于检测服务器的负载均衡、磁盘使用率以及特定服务的状态，并在超过预设阈值时通过电子邮件发送警告。 首先，...
Perl实现的系统监控程序
"这是一个使用Perl编写的系统监控程序，用于监控RedHat Linux主机的系统资源，包括CPU负载、内存使用、网络状况、服务端口和磁盘空间。该程序采用C/S架构，由Perl实现，具有Server和Client两部分。Server负责定期...
Perl实现的系统监控程序详解
"使用Perl编写的一套系统监控程序，用于监控RedHat Linux主机的CPU负载、内存使用、网络状况、服务端口和磁盘空间。程序基于C/S架构，由Perl实现，Server端定期轮询Client端，通过配置文件进行扫描和报警。此程序...
Perl与网络监控
beeworkshop的博客
08-21 334
Perl与网络监控 发现主机 主要模块 Net::Ping 可以发送ICMP，TCP，UDP的Ping包。但该模块需要管理员权限。 use Net::Ping; use Net::Netmask; my $ping=Net::Ping->new('icmp'); #需要root权限 #输入掩码 die $Net::Netmask::error unless my $netbloc...
linux perl——发送邮件及监控内存
浮生终有醒
01-30 1836
#!perl use warnings; use strict; use Net::SMTP_auth; #&sendMail; while(1) { my ($sumMem, $freeMem, $rateMem); open MEM, "cat /proc/meminfo |" or die $!; while() { $sumMem = $1 if(/MemTotal:\s+
Perl 监控 web展示
zhaoyangjian724的专栏
05-06 438
#!/usr/bin/perl use POSIX; use Encode qw/encode decode/; use CGI; my $dir = '/usr/local/apache-tomcat-7.0.55_8083/webapps/ROOT'; my $file = 'MBANKAPP2-20150504141902logs.log'; $mon_file = "$dir/$fil
perl 微信机器人获取消息
zhaoyangjian724的专栏
01-13 1100
https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxsync?sid=59l6dzO93b47Zd/H&skey=@crypt_597aeefd_4b263f7393be4254a150baa608a7d821&pass_ticket=urqVbHsQ%252FbfitCOHwVVlpEsieXi4qXKmLZ2EMXZzx%252BcN0H9WYGGJUK3sP
13款运维监控工具之开源工具介绍
热门推荐
luoyuegui的专栏
02-16 3万+
监控作为重要性最高的机制之一，在一定程度上也遭到了我们的忽视。 无处不在的灾难，如果有监控系统的预警，那么，我们就有机会迅速启动灾难响应方案或者着手排除复杂的性能故障，这对于任何规模的企业而言都极具巨大的实际价值。 有效的运行监测体系，最终离不开相关技术平台的支撑，而我们需要了解监测技术平台。 在接下来的两节课里面，我们会说到开源工具介绍和商用运维监控系统这两块。 下面我就来来详细说说开...
[perl] 数组与哈希
jinyuya的博客
10-30 266
数组与哈希
Perl 环境安装
最新发布
lsx202406的博客
11-03 296
安装 Perl 环境是开始使用 Perl 进行编程的基础。根据您的操作系统，您可以选择不同的安装方法。在 Windows 系统下，推荐使用 ActivePerl；在 macOS 系统下，可以通过 Homebrew 安装最新版本的 Perl；在 Linux 系统下，可以使用相应的包管理器安装 Perl。安装完成后，您可以通过命令行输入perl -v来检查 Perl 是否安装成功。
如何基于Apache SeaTunnel 读取Oracle的数据
weixin_54625990的博客
10-31 393
Oracle JDBC 连接器通过 JDBC 方式读取外部数据源的数据，支持 Apache SeaTunnel 的多种引擎，包括 Spark、Flink 和 SeaTunnel Zeta。Apache SeaTunnel为连接和集成Oracle数据库提供了灵活的解决方案。通过简单的配置，用户可以高效地从Oracle数据库读取和处理数据，满足不同的业务需求。无论是在实时数据处理还是批量数据集成场景中，SeaTunnel都能为用户带来显著的便利和高效。本文由白鲸开源科技提供发布支持！
Apache Solr 身份认证绕过导致任意文件读取漏洞复现(CVE-2024-45216)
0xSec
10-31 548
该漏洞存在于Apache Solr 的PKIAuthenticationPlugin中，该插件在启用Solr身份验证时默认启用。攻击者可以在Solr API路径末尾添加/admin/info/key的方式来绕过身份验证，以获取敏感数据或进行恶意操作。目前该漏洞技术细节与PoC已在互联网上公开，鉴于此漏洞影响范围较大，建议用户尽快做好自查及防护。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值