X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=get_tweekin;h=31a1366254691a6c10cc1a6fd50388e627016ec6;hb=dcce90e77c92202b5fadca48de6fd1cefc41ff79;hp=68be38f0e9894c4a7b20b7b54801a241ffd1fb71;hpb=ce0d3ef1d36d104e3f33bfdcea64b46a3a993384;p=bin.git

diff --git a/get_tweekin b/get_tweekin
index 68be38f..31a1366 100755
--- a/get_tweekin
+++ b/get_tweekin
@@ -11,8 +11,15 @@ use File::Basename qw(basename);
 use DB_File;
 use Storable qw(freeze);
 
+use Getopt::Long;
+
 my $OUTDIR=q(/home/don/records/tweekin);
 
+my %options = (skip => 1);
+GetOptions(\%options,'skip|s!','debug|d+','help|h|?','man|m');
+
+
+
 my $DATE=strftime(q(%Y_%m_%d),localtime(time));
 
 my %tw_db;
@@ -45,7 +52,7 @@ for my $entry (@summary) {
 		 s/\s*$//s;
 		 $_;
 	    } split m#</td>\s*<td[^>]*>#, $entry;
-     next if exists $tw_db{$entry{catnum}};
+     next if (exists $tw_db{$entry{catnum}} and $options{skip});
      push @files_to_get, $entry{mp3};
      $entry{mp3} = qq(tweekin_$DATE/).basename($entry{mp3});
      $tw_db{$entry{catnum}} = freeze({%entry});