From 698a4c30a34eafda3f4a325cd3cef1f7672bcdec Mon Sep 17 00:00:00 2001 From: Jacob Pipkin Date: Fri, 21 Sep 2012 07:00:32 -0500 Subject: sbocheck converted to long options and fixes added from 0.8 --- sbocheck | 28 +++++++++++++++++++++++----- 1 file changed, 23 insertions(+), 5 deletions(-) diff --git a/sbocheck b/sbocheck index aa257c9..ccbbe24 100755 --- a/sbocheck +++ b/sbocheck @@ -13,15 +13,33 @@ use 5.16.0; use strict; use warnings FATAL => 'all'; use SBO::Lib; -use Getopt::Std; +use Getopt::Long; use Text::Tabulate; +use File::Basename; -my %options; -getopts ('v',\%options); +my $self = basename ($0); -show_version && exit 0 if exists $options{v}; +sub show_usage () { + print < \$help, 'version|v' => \$vers); + +show_usage && exit 0 if $help; +show_version && exit 0 if $vers; + +update_tree; # retrieve and format list of available updates sub get_update_list () { -- cgit v1.2.3