add a VERBOSE flag to getmail

[bin.git] / get_tweekin

diff --git a/get_tweekin b/get_tweekin
index 68be38f0e9894c4a7b20b7b54801a241ffd1fb71..31a1366254691a6c10cc1a6fd50388e627016ec6 100755 (executable)
--- 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});