From 07a7c7a61c96870cac6a20d3019b063323c12e33 Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Wed, 14 Jan 2009 14:56:53 +0000
Subject: [PATCH] propset executable on extract_loadset

---
 extract_loadset |   13 +++++++++----
 1 files changed, 9 insertions(+), 4 deletions(-)
 mode change 100644 => 100755 extract_loadset

diff --git a/extract_loadset b/extract_loadset
old mode 100644
new mode 100755
index 9b0be3c..4e3296e
--- a/extract_loadset
+++ b/extract_loadset
@@ -11,7 +11,8 @@ initialize($conf);
 open FP, '<', shift or die "Can't open input file: $!\n";
 
 while (<FP>) {
-
+    my ($lead,$sub) = split /\t/;
+    print $sub if $sub > 6999999)
 }
 
 sub initialize {
@@ -22,7 +23,8 @@ sub initialize {
     binmode(STDIN, ':utf8');
 
     my $rc = GetOptions( $c,
-                         'prefix|p=s',
+                         'filter|f=i'
+                         'output|o=s',
                          'help|h',
                        );
     show_help() unless $rc;
@@ -30,7 +32,7 @@ sub initialize {
 
     my @keys = keys %{$c};
     show_help() unless (@ARGV and @keys);
-    for my $key ('prefix')
+    for my $key ('output', 'filter')
       { push @missing, $key unless $c->{$key} }
     if (@missing) {
         print "Required option: ", join(', ', @missing), " missing!\n";
@@ -40,7 +42,10 @@ sub initialize {
 
 sub show_help {
     print <<HELP;
-Usage is: compress_fingerprints -p PREFIX INPUTFILE
+Usage is: extract_loadset [ARGS] INPUTFILE
+
+  --filter  -f  Record ID lower bound for 
+  --output  -o
 HELP
 exit;
 }
-- 
1.7.2.5