【news】ニュース速報運用情報726【ν】

書いたプログラムこんだけだぞ

my $hap = $FORM{hap} ;
my $hhh = $FORM{host} ;
if(!$hap) {$hap="12345";}
my $maru = $FORM{maru} ;
my $kaidan = 60*60*24 ;

my @ccc = () ;

if($hap =~ /^$him/)
{ #既に冒険の書をもっている
$hap =~ s/^$him// ;
$hap = &motoPass($hap) ;
@ccc = split(/-/,$hap) ;
{
&LogLog("con $ccc[0] -> ");
$ccc[0] ++ ; #短期書き込み回数
$ccc[3] ++ ; #生涯書き込み回数
my $kkk = $NOWTIME - $ccc[4] ;
if($kkk > 60*5) #短期書き込み回数クリア
{
$ccc[0] = 1 ;
$ccc[4] = $NOWTIME;
}
$kkk = $NOWTIME - $ccc[6] ;
if($maru && $ccc[5] < 30) {$kaidan = 60*10;}
if($kkk > $kaidan && $ccc[5] < 40) #レベルアップ↑
{
$ccc[5] ++ ;
$ccc[6] = $NOWTIME;
}
#投稿samba
$ccc[7] = "xxx" ;
$kkk = $NOWTIME - $ccc[2] ;
$ccc[9] = $kkk ;
if($ccc[5] < 2){if($kkk > 120) {$ccc[7] .= "P";}}
elsif($ccc[5] < 4){if($kkk > 60) {$ccc[7] .= "P";}}
elsif($ccc[5] < 6){if($kkk > 45) {$ccc[7] .= "P";}}
elsif($ccc[5] < 8){if($kkk > 30) {$ccc[7] .= "P";}}
elsif($ccc[5] < 20){if($kkk > 15) {$ccc[7] .= "P";}}
elsif($ccc[5] >= 20){if($kkk > 5) {$ccc[7] .= "P";}}
if($ccc[7] !~ /P/) {$ccc[7] .= "x";}
#スレ立て
if($ccc[5] >= 5)
{
$ccc[7] .= "T" ; #制御 P:投稿可 T:スレ立て可
}
&LogLog("$ccc[0] $ccc[7]($ccc[5]) ");
}
}
else
{ # 新規発行
#名前をつける
$ccc[1] = &newName() ;
$ccc[0] = 1 ; #短期書き込み回数
$ccc[3] = 1 ; #生涯書き込み回数
$ccc[4] = $NOWTIME ; #短期書き込み回数クリア時刻
$ccc[5] = 1 ; #レベル
$ccc[6] = $NOWTIME ; #前回レベルアップ時刻
$ccc[7] = "xxxx" ; #制御 P:投稿可 T:スレ立て可
$ccc[9] = 9999 ;
&LogLog("new $ccc[0] $ccc[7]($ccc[5]) ");
}
if($maru) {&LogLog("$maru\n");}else{&LogLog("$hhh\n");}

$ccc[2] = $NOWTIME ; #最終書き込み時間
$hap = "$ccc[0]-$ccc[1]-$ccc[2]-$ccc[3]-$ccc[4]-$ccc[5]-$ccc[6]-$ccc[7]-$ccc[8]-$ccc[9]";
# &wSyo() ; #冒険の書書き込み

$hap = &hennPass($hap);
my $out = "$him$hap,$ccc[0],$ccc[1],$ccc[2],$ccc[3],$ccc[4],$ccc[5],$ccc[6],$ccc[7],$ccc[8],$ccc[9],999" ;

print $out ;
exit ;