管理用からセットアップ、またはリストファイルを修正してください。") unless (-e $imagefile); &htmlhead($title,'dispphoto',$nextimage); $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 "
| $comment | \n"; print "\n"; } elsif ($menu_locate == 1) { print " | \n"; print " | $comment | \n"; } elsif ($menu_locate == 2) { print "$comment | \n"; } 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 {
print " $script Ver. $version \n";
print "Copyright(C) $lastupdatedyear, Hideki \n";
print " |