1 files changed, 28 insertions, 0 deletions
diff --git a/ksirc/puke/tester.pl b/ksirc/puke/tester.pl
new file mode 100755
index 00000000..d3b25462
--- /dev/null
+++ b/ksirc/puke/tester.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+$sock = $ENV{'HOME'} . "/.ksirc.socket";
+
+use Socket;
+
+$proto = getprotobyname('tcp');
+socket(fd, PF_UNIX, SOCK_STREAM, 0) || die "Sock failed: $!\n";
+$sun = sockaddr_un($sock);
+print "Connecting to $sock\n";
+connect(fd,$sun) || die "Connect failed: $!\n";
+
+select(fd); $| = 1; select(STDOUT);
+
+while(1){
+  print "Command: ";
+  chomp($cmd = <STDIN>);
+  print "WinId: ";
+  chomp($winid = <STDIN>);
+  print "iArg: ";
+  chomp($iarg = <STDIN>);
+  print "cArg: ";
+  chomp($carg = <STDIN>);
+  $m = pack("iiia50xx", $cmd, $winid, $iarg, $carg);
+  print fd $m;
+  
+}
+