#!/usr/local/bin/perl use CGI qw(header param start_html end_html); use CGI qw/:standard :html3 :netscape/; use POSIX; $n = param('n'); open(LIST, '; close(LIST); open(INCL, '; close(INCL); print header; print q| Baltic Way 2005: Photo Gallery
|; print join('', @incl); print q|

Photo Gallery

|; if(($n > 0)&&($n <= $#list + 1)){ @line = split(/\|/, $list[$n-1]); print q|
|; print &prev_pict($n); print q|Back to gallery|; print &next_pict($n); print q|

|; print q|Photo|; print q|
| . $line[2] . q|

|; } else { print q|

Here are some photos from Baltic Way 2005. If you want to contribute, send your photos to hansratmath.su.se.

|; for($j = 1; $j <= $#list + 1; $j++){ print &photo($j); } } print q|
|; sub photo{ @line = split(/\|/, $list[$_[0] - 1]); return q|Photo|; } sub next_pict{ $i = $_[0] + 1; if($_[0] <= $#list){ return q|Next >|; } else { return q| |; } } sub prev_pict{ $i = $_[0] - 1; if($_[0] > 1){ return q|< Previous|; } else { return q| |; } }