[Ocfstest-commits] rev 3 - trunk

[svn-commits at oss.oracle.com]

Author: gmarsden
Date: 2003-08-19 17:47:44 -0500 (Tue, 19 Aug 2003)
New Revision: 3

Removed:
   trunk/monkey/
   trunk/testclient.pl
Log:
cleanup 


Deleted: trunk/testclient.pl
===================================================================
--- trunk/testclient.pl	2003-08-19 22:31:10 UTC (rev 2)
+++ trunk/testclient.pl	2003-08-19 22:47:44 UTC (rev 3)
@@ -1,29 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use Socket;
-
-my ($remote, $port, $iaddr, $paddr, $proto, $line);
-
-$remote = shift || 'verbose';
-$port = shift || 4444;
-if ($port =~ /\D/) { $port = getservbyname($port, 'tcp') }
-die "No or Bad port" unless $port;
-
-$iaddr = inet_aton($remote)
-    || die "no host: $remote";
-$paddr=sockaddr_in($port, $iaddr);
-$proto = getprotobyname('tcp');
-
-socket (SOCK, PF_INET, SOCK_STREAM, $proto)
-    || die "socket: $!";
-connect (SOCK, $paddr)
-    || die "connect: $!";
-
-print SOCK "HELO\n\n";
-print SOCK "STAT\n/tmp/foo\n\n";
-print SOCK "QUIT\n\n";
-
-close (SOCK)
-    || die "close: $!";
-exit 0;