Changeset 32280 for main/trunk/greenstone2/perllib/util.pm

Timestamp:

2018-07-17T20:40:57+12:00 (6 years ago)

Author:

ak19

Message:

Implementing PDFv2paged_text (with pdfbox)

File:

• main/trunk/greenstone2/perllib/util.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/util.pm

@@ -1729 +1729 @@
     sub page_number {
     my ($dir) = @_;
-    my ($pagenum) =($dir =~ m/^.*?[-\.]?(\d+)(\.(jpg|gif|png))?$/i);
+    my ($pagenum) =($dir =~ m/^.*?[-\.]?(\d+)(\.(jpg|gif|png|txt))?$/i);
 #   my ($pagenum) =($dir =~ m/(\d+)(\.(jpg|gif|png))?$/i); # this works but is not as safe/strict about input filepatterns as the above
 
@@ -1763 +1763 @@
     my $hasTxtFile = &FileUtils::fileExists($txtfilename);
 
-    foreach my $file (@dir_files){
-    if ($file !~ /\.item/i && $file !~ /\.txt/i){
+    # Write out the elements of the item file.
+    # We could be dealing with 3 types of conversion output formats: txt only (paged_text),
+    # images only (pagedimg_) and images AND text (pagedimgtxt_).
+    foreach my $file (@dir_files) {
+    if ($file !~ /\.item/i) {
         $page_num = page_number($file);
         $page_num++ if $starts_at_0; # image numbers start at 0, so add 1
-        if($hasTxtFile) {
-        print $item_fh "   <Page pagenum=\"$page_num\" imgfile=\"$file\" txtfile=\"$page_num.txt\"/>\n";
-        } else {
-        print $item_fh "   <Page pagenum=\"$page_num\" imgfile=\"$file\" txtfile=\"\"/>\n";
+        
+        if ($convert_to eq "txt") { # output format is paged_text, which has no images
+        if ($file =~ m/\.txt/i) { # check only txt files (should be all there is, besides the skipped .item file)
+            print $item_fh "   <Page pagenum=\"$page_num\" imgfile=\"\" txtfile=\"$page_num.txt\"/>\n";
+        } # else, some non-txt file ext, skip
         }
-    }
-    }
+        else { # either pagedimg or pagedimgtxt output mode
+        if($file !~ /\.txt/i) { # check only img files, skip any matching txt files
+            if($hasTxtFile) { # if every image has a matching txt file, output txtfile too
+            print $item_fh "   <Page pagenum=\"$page_num\" imgfile=\"$file\" txtfile=\"$page_num.txt\"/>\n";
+            } else { # when its pagedimg only, txtfile is empty
+            print $item_fh "   <Page pagenum=\"$page_num\" imgfile=\"$file\" txtfile=\"\"/>\n";
+            }
+        }
+        }
+    }
+    }
+    
 
     print $item_fh "</PagedDocument>\n";