snmp agent on linux in perl

ignuu2 has asked for the wisdom of the Perl Monks concerning the following question:

Hello everyone. I appologize for my first post to your site is a question, as I have no perl wisdom to offer in return I hope to one day be able to partake more reciprocally in your comunitee. My question is a difficult one, for me a perl newbie. I am looking for a script written in perl that I could run in a cron job or some other mechanism that would periodically check if certain applications/services were running, probably using "ps-ef |grep". If it did not find the requested application I would need it to send an alert using an snmp agent to a remote snmp manager listening on a remote machine. Perhaps this is not the best method in all instances but I have been asked to find a script that could fullfill these requierments. Have any of you seen such a script on the net? If the script isn't perfect I would try to modify it, but currently my perl knowledge is nowhere near evolved enough for me to come up with something on my own. Thanks in advance. If you have any questions about my request please let me know.

Comment on snmp agent on linux in perl

Replies are listed 'Best First'.
Re: snmp agent on linux in perl by tachyon (Chancellor) on Nov 28, 2003 at 20:14 UTC
Here is a basic template. There is a Net::SNMP module you can probably use. It is OO and well documented. [root@devel3 root]# cat test.pl #!/usr/bin/perl -w use strict; my @progs = qw( squid cleaner.pl httpd noexist.php ); for my $prog( @progs ) { if ( `ps -C $prog` =~ m/\Q$prog\E/ ) { print "Found $prog\n"; } else { do_warn($prog); } } sub do_warn { my $prog = shift; warn "$prog is not up, typical!\n"; } [root@devel3 root]# ./test.pl Found squid Found cleaner.pl Found httpd noexist.php is not up, typical! [root@devel3 root]# [download] cheers tachyon	[reply] [d/l]

Replies are listed 'Best First'.

Re: snmp agent on linux in perl
by tachyon (Chancellor) on Nov 28, 2003 at 20:14 UTC

Here is a basic template. There is a Net::SNMP module you can probably use. It is OO and well documented.

[root@devel3 root]# cat test.pl
#!/usr/bin/perl -w

use strict;

my @progs = qw(
    squid
    cleaner.pl
    httpd
    noexist.php
);

for my $prog( @progs ) {
    if ( `ps -C $prog` =~ m/\Q$prog\E/ ) {
        print "Found $prog\n";
    }
    else {
        do_warn($prog);
    }
}

sub do_warn {
    my $prog = shift;
    warn "$prog is not up, typical!\n";
}
[root@devel3 root]# ./test.pl
Found squid
Found cleaner.pl
Found httpd
noexist.php is not up, typical!
[root@devel3 root]#
[download]

cheers

tachyon

[reply]
[d/l]