X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=scripts%2Fparsealliances.pl;h=36a80306cab15da43a4479b3bbd0a562d48fdb03;hb=1b1eb5ca9edbf7914f749f592a959f353a0968ca;hp=bc43e96a74aa513a3255c65a4f6eaa327f93d731;hpb=b52c7c95096825846f53e73de627e6cda01d9bca;p=ndwebbie.git diff --git a/scripts/parsealliances.pl b/scripts/parsealliances.pl index bc43e96..36a8030 100755 --- a/scripts/parsealliances.pl +++ b/scripts/parsealliances.pl @@ -35,8 +35,6 @@ use ND::DB; our $dbh = ND::DB::DB(); -$ND::DBH = $dbh; - my $tick = $ARGV[0]; my $hour; $dbh->begin_work; @@ -63,7 +61,7 @@ for my $i (3,4){ $alliance->[$i+2] = $rank; } } -my $insert = $dbh->prepare(q{INSERT INTO alliance_stats (tick,id,members, +my $insert = $dbh->prepare(q{INSERT INTO alliance_stats (tick,aid,members, size,score, sizerank,scorerank, size_gain,score_gain, @@ -73,7 +71,7 @@ my $insert = $dbh->prepare(q{INSERT INTO alliance_stats (tick,id,members, members_gain,members_gain_day ) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)}) or die $dbh->errstr; -my $findalliance = $dbh->prepare(q{SELECT tick,id,members, +my $findalliance = $dbh->prepare(q{SELECT tick,aid,members, size, score, sizerank, scorerank, size_gain, score_gain, @@ -81,7 +79,7 @@ my $findalliance = $dbh->prepare(q{SELECT tick,id,members, size_gain_day, score_gain_day, sizerank_gain_day, scorerank_gain_day, members_gain,members_gain_day -FROM alliance_stats WHERE id = $1 AND tick < $2 ORDER BY tick DESC LIMIT 1}) or die $dbh->errstr; +FROM alliance_stats WHERE aid = $1 AND tick < $2 ORDER BY tick DESC LIMIT 1}) or die $dbh->errstr; for my $alliance (@alliances) {