net-check
The net-check package is a pair of simple perl scripts that will monitor and report on your internet connectivity. net-check monitors your internet connection (with user defined packet loss threshold), reconnects your internet connection after 2 failures, logs all up and downtimes, e-mails the user a monthly status report with downtime recorded and adjusted service fee.
| Tags | Networking Monitoring |
|---|---|
| Licenses | GPL |
| Operating Systems | POSIX |
Recent releases
- 03 Nov 2002 10:14
Changes: A lot of the program was rewritten. Net::Ping is now used, so no external 'ping' calls are needed. This release is also pconfig compatible.
- 30 Jan 2001 06:13
Changes: HTML problems with Outlook Express have been fixed.
- 30 Jan 2001 06:13
No changes have been submitted for this release.
- All comments
Recent commentsPatch for v1.6 if you have ICMP blocked
Some really REALLY stupid ISPs (like Adelphia cable) are blocking ICMP ping, thinking it will actually help stop worms, etc.
This patch works for a sample of one user, which is not me.
This is what I told him to do, and it worked:
1. Install the latest Net::Ping. To do that:
perl -MCPAN -e shell
(then you get a prompt)
install Net::Ping
(wait a while while it compiles, etc)
quit
2. Erase old one - towards end of install it told me the old was still around:
rm /usr/lib/perl5/5.6.0/Net/Ping.pm
3. Change net-check to look like this at the part where you see Net::Ping->new:
my $pinger = Net::Ping->new("syn");
my $good = 0;
for (1..$packets) {
print STDERR "ping #$_... \n";
$pinger->ping($router);
sleep 2;
$good++ if $pinger->ack();
}
Known issue
I just upgraded to iputils v20020124 and found out that ping changed output format. Since it is not really a bug, more of a config issue, I didn't post a new version here. Simply change the $lossloc to 5 from 6. If you want the config check to work again, you also need to change the /packet loss/ to /% loss/
- Aaron