giantdisc/bin/gdclient.pm

package gdclient;

use strict;
use warnings;

require Exporter;
use IO::Socket;
use Data::Dumper;

our @ISA = qw( Exporter );
our @EXPORT = qw( gd_connect gd_disconnect gd_command );


my $sock;

sub gd_connect {
  my $host = shift;
  my $port = shift;

  $host ||= `hostname -i`;
  $port ||= 26468;
  $sock = IO::Socket::INET->new(PeerAddr => $host,
                                 PeerPort => $port,
                                 Proto    => 'tcp') or die($@);
}

sub gd_disconnect {
  $sock->close();
}

sub gd_command {
  my $cmd = shift;
  my @args = @_;

  $sock->send(join("\t", $cmd, @args) . "\n");
}

#my $data;
#$sock->read(1024,$data) until $sock->atmark;


###############################################################################
1;
1	package gdclient;
2
3	use strict;
4	use warnings;
5
6	require Exporter;
7	use IO::Socket;
8	use Data::Dumper;
9
10	our @ISA = qw( Exporter );
11	our @EXPORT = qw( gd_connect gd_disconnect gd_command );
12
13
14	my $sock;
15
16	sub gd_connect {
17	my $host = shift;
18	my $port = shift;
19
20	$host \|\|= `hostname -i`;
21	$port \|\|= 26468;
22	$sock = IO::Socket::INET->new(PeerAddr => $host,
23	PeerPort => $port,
24	Proto => 'tcp') or die($@);
25	}
26
27	sub gd_disconnect {
28	$sock->close();
29	}
30
31	sub gd_command {
32	my $cmd = shift;
33	my @args = @_;
34
35	$sock->send(join("\t", $cmd, @args) . "\n");
36	}
37
38	#my $data;
39	#$sock->read(1024,$data) until $sock->atmark;
40
41
42	###############################################################################
43	1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26