$title

#!/usr/bin/perl # (C)2006, Eugene Moisseenko # This CGI script prints out thumbnails for current directory from ./thumbs # taking filenames from ./list # It also provides links to subdirs taking info from ./subdirs use strict; use CGI; use vars qw/$cgi_data $script_dir $lang $line @row $title $descr &print_header &print_footer/; print "Content-type: text/html\n\n"; $script_dir = "/home/eugene/www/photo/scripts"; $cgi_data = new CGI; $cgi_data->import_names; if ($Q::lang < 1 or $Q::lang > 3) {$lang = 1} else {$lang = $Q::lang} push @INC, $script_dir; if ($lang == 1) {require "$script_dir/messages_rus.pl"}; if (open DESCR, "descr"){ $line = ; chomp $line; $title = (split /\|/, $line)[$lang-1]; $descr = ; if ($lang > 1) {$descr = }; if ($lang > 2) {$descr = }; close DESCR; } print_header; print "

$title

\n"; print "

$descr

\n"; if (open SUBS, "subdirs"){ print "

){ $line = $_; chomp $line; @row = split /\|/, $line; print "

$row[$lang]

\n"; } print "

"; close SUBS; } open LIST, "list" or eval{print_footer; exit}; while (){ $line = $_; chomp $line; @row = split /\|/, $line; print "

$\"$row[$lang+1]\"$

\n"; } close LIST; print_footer; sub print_header { print < $title end_of_header } sub print_footer { print < end_of_footer }