diff options
author | James Meyer <james.meyer@operamail.com> | 2010-10-23 18:17:40 (GMT) |
---|---|---|
committer | James Meyer <james.meyer@operamail.com> | 2010-10-23 18:19:39 (GMT) |
commit | adbcf19958300e9b6598990184c8815b945ba0ee (patch) | |
tree | f4283c850ac0ac202c17e78a637ee7ca8147621b /abs/mv-core/ghosd/osdClient.pl | |
parent | 61a68250df10d29b624650948484898334ff22d0 (diff) | |
download | linhes_pkgbuild-adbcf19958300e9b6598990184c8815b945ba0ee.zip linhes_pkgbuild-adbcf19958300e9b6598990184c8815b945ba0ee.tar.gz linhes_pkgbuild-adbcf19958300e9b6598990184c8815b945ba0ee.tar.bz2 |
Removed old core and extra from repo. Renamed -testing to core/extra. This will setup the base for the testing branch.
Diffstat (limited to 'abs/mv-core/ghosd/osdClient.pl')
-rwxr-xr-x | abs/mv-core/ghosd/osdClient.pl | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/abs/mv-core/ghosd/osdClient.pl b/abs/mv-core/ghosd/osdClient.pl deleted file mode 100755 index 06fc381..0000000 --- a/abs/mv-core/ghosd/osdClient.pl +++ /dev/null @@ -1,25 +0,0 @@ -#!/usr/bin/perl -w -# osdClient.pl - send simple client text to server - -use strict; -use IO::Socket::INET; -use POSIX qw(F_GETFL F_SETFL O_NONBLOCK); -my $sock = ""; - -if( $#ARGV != 2 ){ die "specify a ip, port, text string" } - -eval -{ - $sock = IO::Socket::INET->new( - PeerAddr => $ARGV[0], - PeerPort => $ARGV[1]) || die "can't set it up $!"; - - $sock->blocking(0) -}; - -if( $@ =~ /socket/i ) -{ - print "die in record retrieval socket setup with $@"; -} - -print $sock "$ARGV[2] \n"; |