▼スレッド
│
└◇1515:新規登録後すぐに放置になっているキャラクターを早く自動削除 [矢神] 05/14 22:24

　└◇1516:Re:新規登録後すぐに放置になっているキャラクターを早く自動削除 [moon] 05/14 23:55
　　└◇1517:ありがとうございました。 [矢神] 05/15 06:02<-last

こんばんは。お世話になります。
新規登録して１．２回プレイしただけで放置しているアカウントを自動的に判別し、
通常のキャラクターより短い自動削除期間を適用する、という事は可能でしょうか？
判別方法はログイン回数のパラメータを用意してもいいと思いましたが、
「ステラツィオを一つも持っていなく、かつ所持金が一定額より低い」というようなものでも（確実ではないですが）良いんですが。

> こんばんは。お世話になります。
> 新規登録して１．２回プレイしただけで放置しているアカウントを自動的に判別し、
> 通常のキャラクターより短い自動削除期間を適用する、という事は可能でしょうか？
> 判別方法はログイン回数のパラメータを用意してもいいと思いましたが、
> 「ステラツィオを一つも持っていなく、かつ所持金が一定額より低い」というようなものでも（確実ではないですが）良いんですが。

sub find_delを以下のように変更すれば実現できると思います。
if ($now > $tm && $ps ne $admpas) { unlink("$usrdir$id\.dat") }
↓
my $delta = 0;
$delta = 3 * 86400 if($is eq '' && $mn < 100); # ステラツィオを所持しておらず所持金が100G未満の場合は3日「短く」する
if ($now + $delta > $tm && $ps ne $admpas) { unlink("$usrdir$id\.dat") }

上記では$isと$mnを使用していますが、これらはsub list_orderのsplit(/<>/,$lstlines[$_])で値がセットされているので使用できます。そのため、ここでセットしていないパラメータを条件とする場合はセットするように変更する必要があります。

無事実装する事が出来ました。
毎回、勉強になります。ありがとうございます。