From 38488004c207508834543e02e991e6129669bc8c Mon Sep 17 00:00:00 2001
From: Jacob Pipkin <j@dawnrazor.net>
Date: Thu, 30 Aug 2012 07:20:32 -0500
Subject: changes for REQUIRES in SBos for 14, and many cleanups, fixes,
 enhancements

---
 sbosnap | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'sbosnap')

diff --git a/sbosnap b/sbosnap
index bca0d61..076cfb9 100755
--- a/sbosnap
+++ b/sbosnap
@@ -12,10 +12,10 @@
 # changelog:
 #    .01: initial creation.
 
+use 5.16.0;
 use SBO::Lib;
 use File::Basename;
 use Getopt::Std;
-use feature switch;
 use warnings FATAL => 'all';
 use strict;
 
@@ -23,7 +23,7 @@ my %config = %SBO::Lib::config;
 my $sbo_home = $config{SBO_HOME};
 my $self = basename ($0);
 
-sub show_usage {
+sub show_usage () {
 	print <<EOF
 Usage: $self [options|command]
 
@@ -39,25 +39,25 @@ Commands:
 EOF
 }
 
-show_usage () and exit (1) unless exists $ARGV[0];
+show_usage and exit 1 unless exists $ARGV[0];
 
 my %options;
 getopts ('hv', \%options);
 
-show_usage () and exit (0) if exists $options{h};
-show_version () and exit (0) if exists $options{v};
+show_usage and exit 0 if exists $options{h};
+show_version and exit 0 if exists $options{v};
 
 # check for a command and, if found, execute it
 my $command;
 if ($ARGV[0] =~ /fetch|update/) {
 	$command = $ARGV[0];
 } else { 
-	show_usage () and exit 1;
+	show_usage and exit 1;
 }
 
 given ($command) {
-	when ('fetch') { fetch_tree () }
-	when ('update') { update_tree () }
+	when ('fetch') {fetch_tree}
+	when ('update') {update_tree}
 }
 
 exit 0;
-- 
cgit v1.2.3


From 6be3ef603fefc5d04b506b17cbad140790698042 Mon Sep 17 00:00:00 2001
From: Jacob Pipkin <j@dawnrazor.net>
Date: Sat, 1 Sep 2012 02:14:32 -0500
Subject: more cleanups and fixes and such

---
 sbosnap | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'sbosnap')

diff --git a/sbosnap b/sbosnap
index 076cfb9..d17b8c7 100755
--- a/sbosnap
+++ b/sbosnap
@@ -13,13 +13,13 @@
 #    .01: initial creation.
 
 use 5.16.0;
+use strict;
+use warnings FATAL => 'all';
 use SBO::Lib;
 use File::Basename;
 use Getopt::Std;
-use warnings FATAL => 'all';
-use strict;
 
-my %config = %SBO::Lib::config;
+#my %config = %SBO::Lib::config;
 my $sbo_home = $config{SBO_HOME};
 my $self = basename ($0);
 
-- 
cgit v1.2.3


From 22e595ded4d1bc5bf6b8987ffcdd0f522d1a1bd0 Mon Sep 17 00:00:00 2001
From: Jacob Pipkin <j@dawnrazor.net>
Date: Sat, 1 Sep 2012 03:29:58 -0500
Subject: more cleanups

---
 sbosnap | 3 ---
 1 file changed, 3 deletions(-)

(limited to 'sbosnap')

diff --git a/sbosnap b/sbosnap
index d17b8c7..9072941 100755
--- a/sbosnap
+++ b/sbosnap
@@ -9,8 +9,6 @@
 # author: Jacob Pipkin <j@dawnrazor.net>
 # date: Setting Orange, the 37th day of Discord in the YOLD 3178
 # license: WTFPL <http://sam.zoy.org/wtfpl/COPYING>
-# changelog:
-#    .01: initial creation.
 
 use 5.16.0;
 use strict;
@@ -19,7 +17,6 @@ use SBO::Lib;
 use File::Basename;
 use Getopt::Std;
 
-#my %config = %SBO::Lib::config;
 my $sbo_home = $config{SBO_HOME};
 my $self = basename ($0);
 
-- 
cgit v1.2.3


From d79f3ffe2ebaaa33f2c2324c3a2dba8aedc0efcc Mon Sep 17 00:00:00 2001
From: Jacob Pipkin <j@dawnrazor.net>
Date: Fri, 21 Sep 2012 07:01:29 -0500
Subject: sbosnap converted to long options and fixes added from 0.8

---
 sbosnap | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

(limited to 'sbosnap')

diff --git a/sbosnap b/sbosnap
index 9072941..2562356 100755
--- a/sbosnap
+++ b/sbosnap
@@ -15,7 +15,7 @@ use strict;
 use warnings FATAL => 'all';
 use SBO::Lib;
 use File::Basename;
-use Getopt::Std;
+use Getopt::Long;
 
 my $sbo_home = $config{SBO_HOME};
 my $self = basename ($0);
@@ -25,8 +25,10 @@ sub show_usage () {
 Usage: $self [options|command]
 
 Options:
-  -h: this screen.
-  -v: version information.
+  -h|--help:
+    this screen.
+  -v|--version:
+    version information.
 
 Commands:
   fetch: initialize a local copy of the slackbuilds.org tree.
@@ -38,11 +40,12 @@ EOF
 
 show_usage and exit 1 unless exists $ARGV[0];
 
-my %options;
-getopts ('hv', \%options);
+my ($help, $vers);
 
-show_usage and exit 0 if exists $options{h};
-show_version and exit 0 if exists $options{v};
+GetOptions ('help|h' => \$help, 'version|v' => \$vers);
+
+show_usage and exit 0 if $help;
+show_version and exit 0 if $vers;
 
 # check for a command and, if found, execute it
 my $command;
-- 
cgit v1.2.3


From 62405748ab1470aac11811167c001ce7cbeb040a Mon Sep 17 00:00:00 2001
From: Jacob Pipkin <j@dawnrazor.net>
Date: Thu, 4 Oct 2012 05:05:52 -0500
Subject: removed 'date:' line from comments, cleanups for quote consistency,
 etc

---
 sbosnap | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'sbosnap')

diff --git a/sbosnap b/sbosnap
index 2562356..6e61e14 100755
--- a/sbosnap
+++ b/sbosnap
@@ -3,11 +3,9 @@
 # vim: set ts=4:noet
 #
 # sbosnap
-# script to pull down / update a local copy of the
-# slackbuilds.org tree.
+# script to pull down / update a local copy of the slackbuilds.org tree.
 #
 # author: Jacob Pipkin <j@dawnrazor.net>
-# date: Setting Orange, the 37th day of Discord in the YOLD 3178
 # license: WTFPL <http://sam.zoy.org/wtfpl/COPYING>
 
 use 5.16.0;
-- 
cgit v1.2.3