From 419ebbfb3034a92fdbc36ae0a8bdb6cab76f5f37 Mon Sep 17 00:00:00 2001
From: J Pipkin <j@dawnrazor.net>
Date: Sun, 9 Sep 2012 11:41:02 -0500
Subject: add a help option to sbocheck

---
 sbocheck | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

diff --git a/sbocheck b/sbocheck
index d4607a8..0ef4743 100755
--- a/sbocheck
+++ b/sbocheck
@@ -15,10 +15,28 @@ use warnings FATAL => 'all';
 use SBO::Lib;
 use Getopt::Long qw(:config);
 use Text::Tabulate;
+use File::Basename;
 
-my $vers;
-GetOptions ('version|v'	=> \$vers);
+my $self = basename ($0);
 
+sub show_usage () {
+    print <<EOF                                                                 
+Usage: $self
+
+Options:
+  -h|--help:
+    this screen.
+  -v|--version:
+    version information.
+
+EOF
+}
+
+my ($help, $vers);
+
+GetOptions ('help|h' => \$help, 'version|v'	=> \$vers);
+
+show_usage && exit 0 if $help;
 show_version && exit 0 if $vers;
 
 update_tree;
-- 
cgit v1.2.3