#!/usr/bin/perl -w # use CGI(); use strict; BEGIN { push @INC, "/home/alpi/domains/bogarjavitas.hu/users/wwwadmin"; } use BOGARJAVITAS(); # -- PARAMS -- my $d= BOGARJAVITAS->new(); my $mcgi= new CGI(); my $current = $d->getparam( { paramname=>"current", acceptallchars=>1, len_min=>1,len_max=>4, defaultvalue=>"1", statuschange=>0 } ); my $last = $d->getparam( { paramname=>"last", acceptallchars=>1, len_min=>1,len_max=>4, defaultvalue=>"9999", statuschange=>0 } ); my $gallery = $d->getparam( { paramname=>"gallery", acceptallchars=>1, len_min=>1,len_max=>4, defaultvalue=>"1", statuschange=>0 } ); chdir("/home/alpi/domains/bogarjavitas.hu/users/wwwadmin"); $d->init(); #$d->{'page'}.=Page(); my $first = 1; my $prev = $current - 1; my $next = $current + 1; if ($prev < $first) { $prev = $first; } if ($next > $last) { $next = $last; } my $page = ""; #if ($gallery <121) { $page = "4"; } #akkor, ha több (galeria1,2,3... van/volt) #if ($gallery < 91) { $page = "3"; } #if ($gallery < 61) { $page = "2"; } #if ($gallery < 31) { $page = "1"; } $current= $d->to4Str($current); $last = $d->to4Str($last); $prev = $d->to4Str($prev); $next = $d->to4Str($next); print $d->{'page'}.=<

$last/$current

END_OF_TEXT ; 1;