Interactive command-Line client using daemon.

bean-query-cli.plx

@@ -0,0 +1,57 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Term::ReadLine;
+use Term::ReadKey;
+use File::Spec::Functions;
+use IPC::Shareable;
+
+require 'bean-query-daemon-lib.pl';
+
+my $term = new Term::ReadLine 'bean-query-d';
+my $prompt = 'bqd> ';
+
+my $dir = $ENV{HOME};
+$dir = "~$ENV{USER}" if not defined $dir and defined $ENV{USER};
+$dir = "~$ENV{LOGNAME}" if not defined $dir and defined $ENV{LOGNAME};
+
+my $pager = $ENV{PAGER} || '/usr/bin/less';
+my ($isPaging, $saveOut) = (0, undef);
+sub startpage {
+  return if $isPaging;
+  open($saveOut, '>&', STDOUT);
+  open(STDOUT, "|-", $pager);
+  $isPaging = 1;
+}
+sub endpage {
+  return unless $isPaging;
+  close(STDOUT);
+  open(STDOUT, '>&', $saveOut);
+  $isPaging = 0;
+}
+BeancountQueryInitialize();
+
+my $histfile = catfile($dir, '.bean-shell-history');
+$term->ReadHistory($histfile);
+
+my $cmd = "";
+while ( (defined ($cmd = $term->readline($prompt))) and $cmd ne 'exit') {
+  next if $cmd =~ /^\s*$/;
+  chomp $cmd;
+  $term->AddHistory($cmd);
+  $term->WriteHistory($histfile);
+
+  my $fileName = BeancountQuerySubmit($cmd, 'text', 1);
+  open(my $fh, "<", $fileName);
+  my($beanOutput, $lineCount) = ("", 0);
+  my($wchar, $hchar, $wpixels, $hpixels) = GetTerminalSize();
+  while (my $line = <$fh>) { $beanOutput .= $line; $lineCount++; print STDERR ".";}
+  close $fh;
+  BeancountQueryComplete();
+  startpage() if ($lineCount >= $hchar);
+  print $beanOutput;
+  endpage();
+  }
+print "\n";