[MacPerl] ICMP version of Net::Ping?

[Mike Wirth <mike@mwirth.com>]

Has anyone done an ICMP version of Net::Ping (or equivalent) for 
MacPerl yet?  (I checked the mail archives and could only find a 
discussion of its absence a couple years ago.)

I've got a PacBell DSL connection and a (PacBell-provided :-) Alcatel 
Speed Touch Home modem, the combination of which is subject to random 
hangs.  (It's the "well-known" sync/no-surf problem.)  So I'm 
interested in writing some MacPerl code that monitors the connection 
and reboots the modem (can be done via telnet) if the connection 
hangs.

BTW, if there is no current Net::Ping/ICMP implementation, I can 
implement it (perhaps with a different API) as a MacPerl extension 
written in C. (Check out the sample ICMP Ping code on Apple's 
Developer site at:
   http://developer.apple.com/samplecode/Sample_Code/Networking/OTPingSample.htm
In that case, I'll probably be back to ask for advice on writing an 
extension.  (Should I address that to the macperl-modules or 
macperl-toolbox list?)

Thanks,

Mike Wirth

# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org