#!/usr/local/bin/perl -- -*-perl-*-

# -----------------------------------------------------------------
# tour.cgi                                                        |
# by Peter Edstrom                                                |
#    pedstrom@d.umn.edu                                           |
#    http://www.d.umn.edu/~pedstrom                               |
# Last modified 12/14/98                                          |
# -----------------------------------------------------------------
# Generates a page for whatever image you like                    |
# -----------------------------------------------------------------

use ::web::murphy::includes::htmlio ();
use ::web::murphy::includes::readdata ();
%WEB        = &htmlio::get_input;
$web_http   = &readdata::get("web");
@section    = &readdata::get_array("tour");

# --------------------------------- Program Flow ------------------
# -----------------------------------------------------------------

&htmlio::header;
&solve_next;
&solve_prev;
&print_frame;
exit;

# --------------------------------- Functions ---------------------
# -----------------------------------------------------------------

sub solve_prev {
  $prev_image = $WEB{'image'} - 1;
  $prev_section = $WEB{'section'};
  $i=0;
  foreach $txt (@section) {
    chomp $txt;
    ($sect, $total) = split(/::/,$txt,2);
    if (($sect eq $WEB{'section'}) and ($prev_image <= 0)) {
      $prev_image = @section[$i-1];
      ($trash, $prev_image) = split(/::/,$prev_image,2);
      $prev_section = @section[$i-1];
      ($prev_section, $trash) = split(/::/,$prev_section,2);
    }
    $i++;
  }
}

sub solve_next {
  $next_image = $WEB{'image'} + 1;
  $next_section = $WEB{'section'};
  $i=0;
  foreach $txt (@section) {
    chomp $txt;
    ($sect, $total) = split(/::/,$txt,2);
    if (($sect eq $WEB{'section'}) and ($next_image > $total)) {
      $next_image = 1;
      $next_section = @section[$i+1];
      if ($next_section eq "") {
        $next_section = @section[0]; }
      ($next_section, $trash) = split(/::/,$next_section,2);
    }
    $i++;
  }
}

sub print_frame {
&htmlio::get_virtual("../virtual/tour_top.html");
print <<__FRAME__;
            <img src="${web_http}tour/$WEB{'section'}/$WEB{'image'}.jpg" border="0">
	 </tr>
        <tr>
        <td width="315" valign="top" align="left" colspan="2">
        <img src="/tour/images/bottom2.gif" width="315" height="49" alt="Bottom" usemap="#arrows" border="0"></td>
        </tr>
        </table></td>
  </tr>
</table>

<MAP NAME=arrows>
   <AREA SHAPE=rect COORDS="130,5,178,24" HREF="/index.html">
   <AREA SHAPE=rect COORDS="253,4,312,24" HREF="/cgi/tour.cgi?section=$next_section&image=$next_image">
   <AREA SHAPE=rect COORDS="1,4,62,23" HREF="/cgi/tour.cgi?section=$prev_section&image=$prev_image">
</MAP>

__FRAME__
&htmlio::get_virtual("../virtual/tour_bottom.html");
}