286 野に咲く名無し@転載禁止 2023/10/03 15:07:28 ID:Hjx0bbHo
sub NinSS
my ($Sys, $Form, $Cookie, $ipAddr, $remoho, $ua, $delIP, $ismobile) = @_;
# 忍法帖データディレクトリを設定
my $ninDir = ".$infoDir/.nin/";
mkdir $ninDir if ! -d $ninDir;
# IPアドレスで引き継ぎ
my $sidData = '';
my $ipPath = "${ninDirip_$ipAddr";
if (!$delIP)
if (open(my $fh, "<", $ipPath)) {
close($fh);
my $ssPath = "$ninDircgisess_$sid";
$sid = '' if ! -f $ssPath;
unlink $ipPath if !$sid && -f $ipPath;