pricecharts

commit ddfeb780d26fa68d232c6b7b47da620563e5583e
parent f421fa445055e87d5605365cd106675cd8faa701
Author: Kyle Milz <kyle@getaddrinfo.net>
Date:   Tue, 11 Nov 2014 12:42:23 -0700

make option parsing program independent

Diffstat:
M
gen_svg.pl
 | 
6
++++++
M
price_scraper.pl
 | 
7
+++++++
M
product_scraper.pl
 | 
6
++++++
M
shared.pm
 | 
17
-----------------

4 files changed, 19 insertions(+), 17 deletions(-)
diff --git a/gen_svg.pl b/gen_svg.pl
@@ -3,12 +3,18 @@
 use strict;
 use warnings;
 
+use Getopt::Std;
 use SVG;
 use POSIX;
 
 use shared;
 
 
+my %args;
+getopts("v", \%args);
+
+$| = 1 if ($args{v});
+
 # my $log = get_log("gen_svg");
 my $dbh = get_dbh();
 
diff --git a/price_scraper.pl b/price_scraper.pl
@@ -3,9 +3,16 @@
 use strict;
 use warnings;
 
+use Getopt::Std;
+
 use shared;
 
 
+my %args;
+getopts("nv", \%args);
+
+$| = 1 if ($args{v});
+
 my $ua  = get_ua();
 my $dbh = get_dbh();
 
diff --git a/product_scraper.pl b/product_scraper.pl
@@ -3,6 +3,7 @@
 use strict;
 use warnings;
 
+use Getopt::Std;
 use Email::Simple;
 use Email::Send;
 use HTML::Grabber;
@@ -10,6 +11,11 @@ use HTML::Grabber;
 use shared;
 
 
+my %args;
+getopts("v", \%args);
+
+$| = 1 if ($args{v});
+
 my $ua  = get_ua();
 my $dbh = get_dbh();
 srand;
diff --git a/shared.pm b/shared.pm
@@ -4,7 +4,6 @@ package shared;
 use Config::Grammar;
 use DBI;
 use Exporter;
-use Getopt::Std;
 use HTML::Grabber;
 use LWP::Simple;
 use POSIX;
@@ -13,12 +12,6 @@ use POSIX;
 @EXPORT = qw(get_dom get_ua get_log get_dbh vprint vprintf %args $cfg);
 
 
-our %args;
-getopts('np:v', \%args);
-
-$| = 1 if ($args{v});
-
-
 my $cfg_file = "/etc/pricechart.cfg";
 my $parser = Config::Grammar->new({
 	_sections => ['vendors', 'general'],
@@ -91,14 +84,4 @@ sub get_log
 	return $log;
 }
 
-sub vprint
-{
-	print $_[0] if ($args{v});
-}
-
-sub vprintf
-{
-	printf(@_) if ($args{v});
-}
-
 1;