capture and graphplay scripts take command line options

[perl/schtarr.git] / graphplay

diff --git a/graphplay b/graphplay
index 9956168612fe29ce5ba3903b1eda95d3a109189e..bbbbc28f98c81af6a25c23a2c8bf12b387d2527f 100755 (executable)
--- a/graphplay
+++ b/graphplay
@@ -2,10 +2,17 @@
 use strict;
 use warnings;
 
+use Getopt::Long 2.33 qw(HelpMessage :config bundling);
 use Template;
 use List::Util;
 use Data::Dumper;
 
+our $VERSION = '1.00';
+
+GetOptions(
+       "verbose|v!" => \our $DEBUG,
+) or HelpMessage(-exitval => 2);
+
 my %area = (
        fieldxmin => 45,
        fieldxmax => 1590,