06-20-2003
Nevermind, I just found the Net::Ping. Thanks anyway
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
I need a script to open a text file with ip's in it, ping them, split the results into the ip and time from the results and e-mail them ?
here what i've done.
its porbly wrong and not workin.its for win nt4
use Net::SMTP;
# get list of ip's to ping
open (PINGFILE, "< c:\\Documents and... (20 Replies)
Discussion started by: perleo
20 Replies
2. Shell Programming and Scripting
Hello
i will like to know please how can i determine file type inside perl script
not using the unix "file" program
Thanks allot (1 Reply)
Discussion started by: umen
1 Replies
3. Shell Programming and Scripting
Hi,
Is there a way to determine if a Script is called from a
CRON job or from a commandline
Gerry. (2 Replies)
Discussion started by: jerryMcguire
2 Replies
4. Shell Programming and Scripting
Hi,
I have a little Perl question.
I need to determine the last word in the following string:
h t t p://abc.def.com/hijklm
The output should be the string hijklm.
h t t p is of course http.
The string between the slashes always differs.
The string after the last slash always differs.... (4 Replies)
Discussion started by: ejdv
4 Replies
5. Shell Programming and Scripting
Hi there,
I wonder if it is possible the determine a name of a directory which is different on various hosts.
Let me try to explain.
I have the directory /tmp/dir1/dir2/canchangedir.
This directory name is different on various hosts.
I need to use the directory name, independent from the... (2 Replies)
Discussion started by: ejdv
2 Replies
6. Shell Programming and Scripting
Hi Expert,
Below is a real production environment issue:
we are using shell script to FTP to a remote server and fetch around 150 files every day, for each file we need to keep a entry inside ORACLE DB table, before insert into table, each file has a associated logid, which need to be... (2 Replies)
Discussion started by: summer_cherry
2 Replies
7. Programming
Hi All
i have an issue with ping, we are using dhcp and so if the machine has been offline and i ping it, i get " ping: unknown host <hostname>
is there a way i can stick a loop somewhere so it would keep trying when it got the unknown host error and then when the machine came back online... (2 Replies)
Discussion started by: ab52
2 Replies
8. Shell Programming and Scripting
Hi There
i have little situation that i could us some help with. We have a dhcp server, but the problem is if that a machine has been offline for a while it loose it's lease and so if you ping it you get unknown host
if there a way using perl that it will continue to try and ping it, even tho... (1 Reply)
Discussion started by: ab52
1 Replies
9. Programming
Hi,
I have 5 files as below
$ ll sam*
-rw-rw-rw- 1 sam ugroup 0 Mar 21 06:06 sam3
-rw-rw-rw- 1 sam ugroup 0 Apr 3 22:41 sam2
-rw-rw-rw- 1 sam ugroup 17335 Apr 10 06:07 sam1
-rw-rw-rw- 1 sam ugroup 5 Apr 10 07:53 sam5
-rw-rw-rw- 1 sam ugroup 661 Apr 10 08:16 sam4
I want to list out... (4 Replies)
Discussion started by: sam05121988
4 Replies
10. Shell Programming and Scripting
solaris 5.10 Generic_138888-03 sun4v sparc SUNW,Sun-Fire-T200
I need a sed command that tests true when presented with lines that contain either forward and backslash.
input file:
c:/myFile.txt
c:\yourFile.txt
It doesn't appear that sed (in my environment anyway) supports... (4 Replies)
Discussion started by: msutfin
4 Replies
LEARN ABOUT DEBIAN
anyevent::xmpp::ext::ping
AnyEvent::XMPP::Ext::Ping(3pm) User Contributed Perl Documentation AnyEvent::XMPP::Ext::Ping(3pm)
NAME
AnyEvent::XMPP::Ext::Ping - Implementation of XMPP Ping XEP-0199
SYNOPSIS
use AnyEvent::XMPP::Ext::Ping;
my $con = AnyEvent::XMPP::IM::Connection->new (...);
$con->add_extension (my $ping = AnyEvent::XMPP::Ext::Ping->new);
# this enables auto-timeout of a connection if it didn't answer
# within 120 seconds to a ping with a reply
$ping->enable_timeout ($con, 120);
my $cl = AnyEvent::XMPP::Client->new (...);
$cl->add_extension (my $ping = AnyEvent::XMPP::Ext::Ping->new);
# this enables auto-timeout of newly created connections
$ping->auto_timeout(120);
$ping->ping ($con, 'ping_dest@server.tld', sub {
my ($time, $error) = @_;
if ($error) {
# we got an error
}
# $time is a float (seconds) of the rtt if you got Time::HiRes
});
DESCRIPTION
This extension implements XEP-0199: XMPP Ping. It allows you to define a automatic ping timeouter that will disconnect dead connections
(which didn't reply to a ping after N seconds). See also the documentation of the "enable_timeout" method below.
It also allows you to send pings to any XMPP entity you like and will measure the time it took if you got Time::HiRes.
METHODS
new (%args)
Creates a new ping handle.
auto_timeout ($timeout)
This method enables automatic connection timeout of new connections. It calls "enable_timeout" (see below) for every new connection
that was connected and emitted a "stream_ready" event.
This is useful if you want connections that have this extension automatically timeouted. In particular this is useful with modules like
AnyEvent::XMPP::Client (see also SYNOPSIS above).
enable_timeout ($con, $timeout)
This enables a periodical ping on the connection $con. $timeout must be the seconds that the ping intervals last.
If the server which is connected via $con didn't respond within $timeout seconds the connection $con will be disconnected.
Please note that there already is a basic timeout mechanism for dead TCP connections in AnyEvent::XMPP::Connection, see also the
"whitespace_ping_interval" configuration variable for a connection there. It then will depend on TCP timeouts to disconnect the
connection.
Use "enable_timeout" and "auto_timeout" only if you really feel like you need an explicit timeout for your connections.
ping ($con, $dest, $cb, $timeout)
This method sends a ping request to $dest via the AnyEvent::XMPP::Connection in $con. If $dest is undefined the ping will be sent to
the connected server. $cb will be called when either the ping timeouts, an error occurs or the ping result was received. $timeout is
an optional timeout for the ping request, if $timeout is not given the default IQ timeout for the connection is the relevant timeout.
The first argument to $cb will be the seconds of the round trip time for that request (If you have Time::HiRes). If you don't have
Time::HiRes installed the first argument will be undef.
The second argument to $cb will be either undef if no error occured or a AnyEvent::XMPP::Error::IQ error object.
ignore_pings ($bool)
This method is mostly for testing, it tells this extension to ignore all ping requests and will prevent any response from being sent.
AUTHOR
Robin Redeker, "<elmex at ta-sa.org>", JID: "<elmex at jabber.org>"
COPYRIGHT & LICENSE
Copyright 2007, 2008 Robin Redeker, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.14.2 2012-01-23 AnyEvent::XMPP::Ext::Ping(3pm)