#!/usr/bin/perl -w
use strict;

use CGI;
use CGI::Carp qw{fatalsToBrowser set_message};
BEGIN{ set_message("Sorry, an error has occurred. Can't help you"); }
use GD;
use Voyages;

my $q = new CGI;

# Initialise %books

my %books;
fill(\%books);
$books{$_}{colour}=$q->param($_) foreach keys %books;

# Draw map?

if($q->param('img')) {
 print $q->header( -type => 'image/gif' );
 draw_map(\%books,$q->param('mapsize'),$q->param('labels'));
 exit;
}

# HTML

print $q->header, $q->start_html("Jules Verne's Extraordinary Voyages");
print "<H1>Jules Verne's Extraordinary Voyages</H1>\n";
my $new_query = new CGI;
$new_query->param( -name => 'img', -value => 1 );
print '<IMG SRC="', $new_query->url( -relative => 1, -query => 1 ),
      '"><BR>';

print $q->start_form;

print map {
  $q->popup_menu( -name => $_,
                  -values => ["---", colours()],
                ) .
  $books{$_}{title} .
  "<BR>\n"
} sort {$books{$a}{year} cmp $books{$b}{year}} keys %books;
print "Map size: ", $q->radio_group(-'name'=>'mapsize',
                        -values=>['small','medium','large'],
                        -default=>'medium'),"<br>\n";
my %yesno=(1=>'yes',0=>'no');
print "Show labels: ", $q->radio_group(-'name'=>'labels',
                           -values=>[0,1],
                           -labels=>\%yesno,
                           -default=>'0'
                       ),"<br>\n";
print $q->submit('Show voyages'),
      $q->end_form;

print <<endh
<HR>

<A HREF="http://www.phys.uu.nl/~gdevries/verne/verne.html">
<img src="http://www.phys.uu.nl/~gdevries/vernesm.jpg" width=50
height=68 border=0> Back to Jules Verne collection</A>
<p>
<!-- Begin Nedstat Basic code -->
<!-- Title: Jules Verne's Extraordinary Voyages -->
<!-- URL: http://www.phys.uu.nl/~gdevries/voyages/world.cgi -->
<script language="JavaScript" 
src="http://m1.nedstatbasic.net/basic.js">
</script>
<script language="JavaScript">
<!--
  nedstatbasic("ABBpJAV/ImbCkSBqwl5deEPV9iHQ", 0);
// -->
</script>
<noscript>
<a target="_blank"
href="http://v1.nedstatbasic.net/stats?ABBpJAV/ImbCkSBqwl5deEPV9iHQ"><img
src="http://m1.nedstatbasic.net/n?id=ABBpJAV/ImbCkSBqwl5deEPV9iHQ"
border="0" nosave width="18" height="18"></a>
</noscript>
<!-- End Nedstat Basic code -->
endh
;
print "\n<!-- Idea: G. de Vries\n   Program: E.C. van der Pijll",
      "\n     Data: J. Verne -->";

print $q->end_html;