From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 23 Oct 2011 15:02:36 +0000 (+0000)
Subject: simple client with remoting
X-Git-Tag: v0.001001~39
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ff0abfbabde8da2ea39f95faf12f6f38d895d950;p=scpubgit%2FTak.git

simple client with remoting
---

diff --git a/jreplclient b/jreplclient
new file mode 100644
index 0000000..1ebeaee
--- /dev/null
+++ b/jreplclient
@@ -0,0 +1,39 @@
+#!/usr/bin/env perl
+
+use strictures 1;
+use IPC::Open2;
+use Term::ReadLine;
+use JSON::PP qw(encode_json decode_json);
+
+my $cmd = do {
+  if (my $host = $ARGV[0]) {
+    'cat jsonrepl.packed - | ssh '.$host.' perl -'
+  } else {
+    'perl jsonrepl'
+  }
+};
+
+my $pid = open2(my $out, my $in, $cmd);
+
+my $read = Term::ReadLine->new('REPL');
+
+while (1) {
+  my $line = $read->readline('re.pl$ ');
+  exit unless defined $line;
+  next unless length $line;
+  print $in encode_json([ EVAL => $line ])."\n";
+  my $reply = decode_json scalar readline($out);
+  if ($reply->[0] eq 'MISTAKE') {
+    die "Botch: ".join(': ', @{$reply}[1,2]);
+  }
+  my $ret = $reply->[1];
+  print $ret->{return};
+  if ($ret->{stdout}) {
+    chomp($ret->{stdout});
+    print "STDOUT:\n${\$ret->{stdout}}\n";
+  }
+  if ($ret->{stderr}) {
+    chomp($ret->{stderr});
+    print "STDERR:\n${\$ret->{stderr}}\n";
+  }
+}