add the client-side reporting for MCP mode

[freeside.git] / FS / bin / freeside-yori

diff --git a/FS/bin/freeside-yori b/FS/bin/freeside-yori
new file mode 100644 (file)
index 0000000..d113799
--- /dev/null
+++ b/FS/bin/freeside-yori
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use FS::Yori qw(reports report);
+
+if ( @ARGV ) {
+  while ( my $report = shift ) {
+    print report($report). "\n";
+  }
+} else {
+  print join("\n", reports() ). "\n";
+}
+
+
+1;