管理用からセットアップ、またはリストファイルを修正してください。"); } &htmlhead($title,'dispphoto',$nextimage); if ($body_insert1_en == 1 or $body_insert1_en ==2 and ($in{slideshow} ne 'on' or $nextimage eq '')){ print "$body_insert1"; } $flag = 0; foreach (@filelist){ ($photoimage,$phototitle,$photocomment)=split(/,/); if ($flag == 1) {$nextimage = $photoimage;last;} if ($image eq $photoimage){$flag = 1;} } if ($title_en){ print "
\n"; } if ($back_en){ print "
\n"; } if ($slideshow_en == 1){ print "
| ";
print "$nextlink1 | \n";
if ($menu_locate == 0){
&listform($image,\@filelist);
}
print "
| }; print qq{←$prevtitle}; print qq{ | \n}; print qq{}; print qq{$nexttitle→}; print qq{ | \n}; print qq{
}; } if ($adminlink_en) { print qq{
"; if ($key !~ /^comment/){ $value =~ s//>/g; } if ($value =~ /\r\n/) { $value =~ s/\r\n/$br/g; } if ($value =~ /\n/) { $value =~ s/\n/$br/g; } if ($value =~ /\r/) { $value =~ s/\r/$br/g; } if ($value =~ /,/) { $value =~ s/,/&\#44;/g; } $in{"$key"}=$value; } return(%in); } sub makecrypt { my $plain = shift; my $salt = join "", ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64]; my $result = crypt($plain,$salt) or crypt($plain,'$1$'.$salt.'$'); return $result; } sub checkcrypt { my ($pwd,$encpwd)=@_; return(crypt($pwd,$encpwd) eq "$encpwd" or &checkadmin($pwd)); } sub checkadmin { my $pwd = shift; if (open(FILE,"< $adminpwd")){ my $filepwd =
/\n/g; $in{$_} =~ s/,/,/g; $in{$_} =~ s/<//g; } open(SETUP,"> $setupfile"); print SETUP <
| \n";
}
sub htmltail {
undef $q;
my $mysite = ('http://www.hidekik.com/','http://www.hidekik.com/en/')[$lang];
print " album3.cgi Ver. $version \n";
print "Copyright(C) 2005-$lastupdatedyear, hidekik.com \n";
print " |