...

View Full Version : More sockets help



ACS - Nick
09-30-2009, 10:32 PM
Hi,
Im very new to perl so still learning.

My aim is to have a script which checks a server for a flag to change and when it finds the change fire off a script I have in php.
The server is on a phone switch so I query a chanel and it give a responce eg:

I say ch1 it then says

busy:

ch1, Y, 01:23, 4402, 01xxxxxxxxx
(which is the chanel, flag, call duration, extension which has siezed the chanel and the destination)

or free

ch1, N


So the script I have so far is:


#! /usr/bin/perl -w
use IO::Socket;
use strict;

my($remote_host, $remote_port, $response, $socket);

#Server details
$remote_host = "10.2.101.20";
$remote_port = 343;

print "IPO Checker\nConnecting\n";

$socket = IO::Socket::INET->new(PeerAddr => $remote_host,
PeerPort => $remote_port,
Proto => "tcp",
Type => SOCK_STREAM)
or die "Couldn't connect to $remote_host:$remote_port : $@\n";

print "Checking:\n";

print $socket "ch1";
$response = <$socket>;
print $response;

# and terminate the connection when we're done
print "Done!";
close($socket);


Ultimately I will loop the check etc but first I would like to get a single check working (baby steps here ;) )
The above I have hacked around from various tutorials and the bit im struggling with is sending and recieving the responce from the server.



EZ Archive Ads Plugin for vBulletin Copyright 2006 Computer Help Forum