FS/bin/freeside-yori

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use FS::Yori qw(reports report);
   6
   7 if ( @ARGV ) {
   8   while ( my $report = shift ) {
   9     print report($report). "\n";
  10   }
  11 } else {
  12   print join("\n", reports() ). "\n";
  13 }
  14
  15
  16 1;