--- gobook-pdf-strips.perl	2017/08/30 22:29:14	3.1
+++ gobook-pdf-strips.perl	2019/03/02 09:00:46	3.2
@@ -7,8 +7,15 @@ use GD;
 
 $Text::Wrap::columns = 30;
 
+# The landout database ...
 my $strips = XMLin('OmLand.gpx');
 
+# The photos of the landouts ...
+my $pics = "/export/extra/map/landoutbook/";
+
+# The map fragments ...
+my $maps = "/var/www/htdocs/landout/";
+
 my $t1 = 10;
 my $t2 = $t1 + 20;
 my $t3 = $t1 + 50;
@@ -26,167 +33,19 @@ use constant pt => 1;
 
 
 
-# Start the strip pages with pictures:
+# Make all the gobook pages.
 
 foreach my $stripnum ( sort keys %{$strips->{'wpt'}} ){
- if ( $strips->{'wpt'}->{$stripnum}->{'extensions'}->{gobook} eq "yes" ){
-  $strips{$strips->{'wpt'}->{$stripnum}->{'desc'}} = $stripnum;
-  my $pagename = "/map/landout" . $stripnum . ".pdf";
-  my $pdf = PDF::API2->new( -file => $pagename );
-
-  my %font = (
-   Helvetica => {
-    Bold   => $pdf->corefont( 'Helvetica-Bold',    -encoding => 'latin1' ),
-    Roman  => $pdf->corefont( 'Helvetica',         -encoding => 'latin1' ),
-    Italic => $pdf->corefont( 'Helvetica-Oblique', -encoding => 'latin1' ),
-   },
-   Times => {
-    Bold   => $pdf->corefont( 'Times-Bold',   -encoding => 'latin1' ),
-    Roman  => $pdf->corefont( 'Times',        -encoding => 'latin1' ),
-    Italic => $pdf->corefont( 'Times-Italic', -encoding => 'latin1' ),
-   },
-  );
-
+ #if ( $strips->{'wpt'}->{$stripnum}->{'extensions'}->{gobook} eq "yes" ){
   print "Working on $stripnum\n";
-
-  # create a new page for the pic and data
-  my $page = $pdf->page;
-  # A5 148 x 210
-  $page->mediabox('A5');
-  my $text = $page->text;
-  $text->font( $font{'Helvetica'}{'Roman'}, 20 );
-  $text->fillcolor('blue');
-  $text->translate( 10/mm, 195/mm );
-  $text->text($strips->{'wpt'}->{$stripnum}->{'desc'});
-  $text->translate(125/mm,195/mm);
-  $text->text($stripnum);
-  $text->fillcolor('black');
-  $text->font( $font{'Helvetica'}{'Roman'}, 14 );
-  if ( defined $strips->{'wpt'}->{$stripnum}->{'ele'} ){
-   $text->translate($t5/mm,195/mm);
-   $text->text(printfeet($strips->{'wpt'}->{$stripnum}->{'ele'}));
-  }
-  if ( defined $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'length'} ){
-   $text->translate($t6/mm,195/mm);
-   $text->text($strips->{'wpt'}->{$stripnum}->{'extensions'}->{'length'} . 'm');
-  }
-  $text->font( $font{'Helvetica'}{'Roman'}, 10 );
-  my $latlng = printlat($strips->{'wpt'}->{$stripnum}->{'lat'}) . " " . 
-               printlon($strips->{'wpt'}->{$stripnum}->{'lon'});
-  $text->translate($t1/mm,190/mm);
-  $text->text($latlng);
-  if ( defined $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'slope'} ){
-   $text->translate(($t1 + 45)/mm,190/mm);
-  $text->text('Slope: ' . $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'slope'});
-  }
-  if ( defined $strips->{'wpt'}->{$stripnum}->{'extensions'}->{surface} ){
-  $text->translate($t5/mm,190/mm);
-  $text->text('Sfc: ' . $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'surface'});
-  }
-  if ( defined $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'width'} ){
-   $text->translate($t6/mm,190/mm);
-   $text->text('Width: ' . $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'width'});
-  }
-
-  my $stripimage=$page->gfx;
-  my $pic = "/map/landoutbook/250k/". $stripnum . ".jpg";
-  if ( -f $pic ){
-   my $image = GD::Image->new($pic);
-   my ($width,$height) = $image->getBounds();
-   print "\t$pic - $width $height\n";
-   my $strip_pic = $pdf->image_gd($image);
-   # width available is 65mm
-   my $scale = 65 / $width;
-   print "\tDisplay Width 65mm Height ", $height * $scale, "\n";
-   my $vertical = $height * $scale;
-   $stripimage->image( $strip_pic, $t1/mm, 105/mm, 65/mm, $vertical/mm );
-  }
-
-  my $strippic = "/map/landoutbook/". $stripnum . ".jpg";
-  if ( -f $strippic ){
-   my $image = GD::Image->new($strippic);
-   my ($width,$height) = $image->getBounds();
-   print "\t$strippic - $width $height\n";
-   # width available is 120mm
-   my $scale = 120 / $width;
-   print "\tDisplay Width 120mm Height ", $height * $scale, "\n";
-   my $vertical = $height * $scale;
-   my $strip_pic = $pdf->image_gd($image);
-   $stripimage->image( $strip_pic, $t1/mm, 10/mm, 120/mm, $vertical/mm );
-  }
-
- 
- #$eps = "L" . $stripnum . ".ps";
- #if ( -f $eps ){
- # $p->importepsfile($eps,$t1,10, 140,100);
- #}
- #else {
- # $p->setcolour(255,54,0); # Glide Omarama Orange
- # $p->setfont("Helvetica", 32);
- # $p->text({rotate => 45}, $t2 ,20, 'No picture yet' );
- # $p->setcolour("black");
+  # %strips is used for the index. Add the current strip.
+  $strips{$strips->{'wpt'}->{$stripnum}->{'desc'}} = $stripnum;
+  process_strip($stripnum);
  #}
-  my $v = 185;
-  $text->font( $font{'Helvetica'}{'Roman'}, 12 );
-
-  $text->translate($t5/mm,$v/mm);
-  $text->text("Location:");
-  if ( defined $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'location'} ){
-   $v -= 5;
-   $Text::Wrap::columns = 30;
-   my @para = split (/\n/,wrap('', '', $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'location'}));
-   while (my $ln = shift @para){
-    $text->translate($t5/mm,$v/mm);
-    $text->text($ln);
-    $v -= 5;
-   }
-   $v += 5;
-  }
-  $v -= 10;
-
-  $text->translate($t5/mm,$v/mm);
-  $text->text("Comment:");
-  if ( defined $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'comment'} ){
-   $v -= 5;
-   $Text::Wrap::columns = 30;
-   if ( $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'comment'} =~ /Danger/ ){
-    #$p->setcolour("red");
-    # Draw over image ...
-    #$p->setlinewidth(4);
-    #$p->arc( 70, 60, 20, 0, 360);
-    #$p->line(50,40, 90,80);
-   }
-   my @para = split (/\n/,wrap('', '', $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'comment'}));
-   while (my $ln = shift @para){
-    $text->translate($t5/mm,$v/mm);
-    $text->text($ln);
-    $v -= 5;
-   }
-   $v += 5;
-   $text->fillcolor('black');
-  }
-  $v -= 10;
-
-  $text->translate($t5/mm,$v/mm);
-  $text->text("Alternate:");
-  if ( defined $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'alternate'} ){
-   $v -= 5;
-   $Text::Wrap::columns = 30;
-   my @para = split (/\n/,wrap('', '', $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'alternate'}));
-   while (my $ln = shift @para){
-    $text->translate($t5/mm,$v/mm);
-    $text->text($ln);
-    $v -= 5;
-   }
-   $v += 5;
-  }
-  $pdf->save;
-  $pdf->end();
- }
 }
 
 # Create the index pages
-my $pagename = "/map/landoutIndex.pdf";
+my $pagename = "/export/extra/map/landoutIndex.pdf";
 my $pdf = PDF::API2->new( -file => $pagename );
 
 my %font = (
@@ -280,3 +139,171 @@ sub printfeet {
  return sprintf("%d ft", int($meters * 3.2808399));
 }
 
+sub process_strip {
+ my $stripnum = shift(@_);
+
+ my $pagename = "/var/www/htdocs/landout/" . $stripnum . ".pdf";
+ my $pdf = PDF::API2->new( -file => $pagename );
+
+ my %font = (
+  Helvetica => {
+   Bold   => $pdf->corefont( 'Helvetica-Bold',    -encoding => 'latin1' ),
+   Roman  => $pdf->corefont( 'Helvetica',         -encoding => 'latin1' ),
+   Italic => $pdf->corefont( 'Helvetica-Oblique', -encoding => 'latin1' ),
+  },
+  Times => {
+   Bold   => $pdf->corefont( 'Times-Bold',   -encoding => 'latin1' ),
+   Roman  => $pdf->corefont( 'Times',        -encoding => 'latin1' ),
+   Italic => $pdf->corefont( 'Times-Italic', -encoding => 'latin1' ),
+  },
+ );
+
+
+ # create a new page for the pic and data
+ my $page = $pdf->page;
+ # A5 148 x 210
+ $page->mediabox('A5');
+ my $text = $page->text;
+ $text->font( $font{'Helvetica'}{'Roman'}, 20 );
+ $text->fillcolor('blue');
+ $text->translate( 10/mm, 195/mm );
+ $text->text($strips->{'wpt'}->{$stripnum}->{'desc'});
+ $text->translate(125/mm,195/mm);
+ $text->text($stripnum);
+ $text->fillcolor('black');
+ $text->font( $font{'Helvetica'}{'Roman'}, 14 );
+ if ( defined $strips->{'wpt'}->{$stripnum}->{'ele'} ){
+  $text->translate($t5/mm,195/mm);
+  $text->text(printfeet($strips->{'wpt'}->{$stripnum}->{'ele'}));
+ }
+ if ( defined $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'length'} ){
+  $text->translate($t6/mm,195/mm);
+  $text->text($strips->{'wpt'}->{$stripnum}->{'extensions'}->{'length'} . 'm');
+ }
+ $text->font( $font{'Helvetica'}{'Roman'}, 10 );
+ my $latlng = printlat($strips->{'wpt'}->{$stripnum}->{'lat'}) . " " . 
+              printlon($strips->{'wpt'}->{$stripnum}->{'lon'});
+ $text->translate($t1/mm,190/mm);
+ $text->text($latlng);
+ if ( defined $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'slope'} ){
+  $text->translate(($t1 + 45)/mm,190/mm);
+  $text->text('Slope: ' . $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'slope'});
+ }
+ if ( defined $strips->{'wpt'}->{$stripnum}->{'extensions'}->{surface} ){
+  $text->translate($t5/mm,190/mm);
+  $text->text('Sfc: ' . $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'surface'});
+ }
+ if ( defined $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'width'} ){
+  $text->translate($t6/mm,190/mm);
+  $text->text('Width: ' . $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'width'});
+ }
+
+ my $stripimage=$page->gfx;
+ my $pic = $maps . $stripnum . "-250k.jpg";
+ if ( -f $pic ){
+  my $image = GD::Image->new($pic);
+  my ($width,$height) = $image->getBounds();
+  print "\t$pic - $width $height\n";
+  my $strip_pic = $pdf->image_gd($image);
+  # width available is 65mm
+  my $scale = 65 / $width;
+  print "\tDisplay Width 65mm Height ", $height * $scale, "\n";
+  my $vertical = $height * $scale;
+  $stripimage->image( $strip_pic, $t1/mm, 115/mm, 65/mm, $vertical/mm );
+ }
+
+ my $strippic = $pics . $stripnum . ".jpg";
+ if ( -f $strippic ){
+  my $image = GD::Image->new($strippic);
+  my ($width,$height) = $image->getBounds();
+  print "\t$strippic - $width $height\n";
+  # width available is 120mm
+  my $scale = 120 / $width;
+  print "\tDisplay Width 120mm Height ", $height * $scale, "\n";
+  my $vertical = $height * $scale;
+  my $strip_pic = $pdf->image_gd($image);
+  $stripimage->image( $strip_pic, $t1/mm, 10/mm, 120/mm, $vertical/mm );
+ }
+ else {
+  $strippic = $maps . $stripnum . "-50k.jpg";
+  if ( -f $strippic ){
+   my $image = GD::Image->new($strippic);
+   my ($width,$height) = $image->getBounds();
+   print "\t$strippic - $width $height\n";
+   # width available is 120mm
+   my $scale = 100 / $width;
+   print "\tDisplay Width 100mm Height ", $height * $scale, "\n";
+   my $vertical = $height * $scale;
+   my $strip_pic = $pdf->image_gd($image);
+   $stripimage->image( $strip_pic, $t1/mm, 10/mm, 100/mm, $vertical/mm );
+  }
+ }
+
+ 
+ #$eps = "L" . $stripnum . ".ps";
+ #if ( -f $eps ){
+ # $p->importepsfile($eps,$t1,10, 140,100);
+ #}
+ #else {
+ # $p->setcolour(255,54,0); # Glide Omarama Orange
+ # $p->setfont("Helvetica", 32);
+ # $p->text({rotate => 45}, $t2 ,20, 'No picture yet' );
+ # $p->setcolour("black");
+ #}
+ my $v = 185;
+ $text->font( $font{'Helvetica'}{'Roman'}, 12 );
+
+ $text->translate($t5/mm,$v/mm);
+ $text->text("Location:");
+ if ( defined $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'location'} ){
+  $v -= 5;
+  $Text::Wrap::columns = 30;
+  my @para = split (/\n/,wrap('', '', $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'location'}));
+  while (my $ln = shift @para){
+   $text->translate($t5/mm,$v/mm);
+   $text->text($ln);
+   $v -= 5;
+  }
+  $v += 5;
+ }
+ $v -= 10;
+
+ $text->translate($t5/mm,$v/mm);
+ $text->text("Comment:");
+ if ( defined $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'comment'} ){
+  $v -= 5;
+  $Text::Wrap::columns = 30;
+  if ( $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'comment'} =~ /Danger/ ){
+   #$p->setcolour("red");
+   # Draw over image ...
+   #$p->setlinewidth(4);
+   #$p->arc( 70, 60, 20, 0, 360);
+   #$p->line(50,40, 90,80);
+  }
+  my @para = split (/\n/,wrap('', '', $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'comment'}));
+  while (my $ln = shift @para){
+   $text->translate($t5/mm,$v/mm);
+   $text->text($ln);
+   $v -= 5;
+  }
+  $v += 5;
+  $text->fillcolor('black');
+ }
+ $v -= 10;
+
+ $text->translate($t5/mm,$v/mm);
+ $text->text("Alternate:");
+ if ( defined $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'alternate'} ){
+  $v -= 5;
+  $Text::Wrap::columns = 30;
+  my @para = split (/\n/,wrap('', '', $strips->{'wpt'}->{$stripnum}->{'extensions'}->{'alternate'}));
+  while (my $ln = shift @para){
+   $text->translate($t5/mm,$v/mm);
+   $text->text($ln);
+   $v -= 5;
+  }
+  $v += 5;
+ }
+ $pdf->save;
+ $pdf->end();
+}