X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=scripts%2Fcreateretal.pl;fp=scripts%2Fcreateretal.pl;h=0000000000000000000000000000000000000000;hb=4e9d3ae6bff7db31eeef5110180ac6e440502dd3;hp=6ee3ef4c91cce1c95ac02fdf526a29fa983f8e68;hpb=fda0878e43c647c3fbaba000b66a0780ac7450f4;p=ndwebbie.git diff --git a/scripts/createretal.pl b/scripts/createretal.pl deleted file mode 100755 index 6ee3ef4..0000000 --- a/scripts/createretal.pl +++ /dev/null @@ -1,78 +0,0 @@ -#!/usr/bin/perl -q{ -/*************************************************************************** - * Copyright (C) 2006 by Michael Andreen * - * * - * This program is free software; you can redistribute it and/or modify * - * it under the terms of the GNU General Public License as published by * - * the Free Software Foundation; either version 2 of the License, or * - * (at your option) any later version. * - * * - * This program is distributed in the hope that it will be useful, * - * but WITHOUT ANY WARRANTY; without even the implied warranty of * - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * - * GNU General Public License for more details. * - * * - * You should have received a copy of the GNU General Public License * - * along with this program; if not, write to the * - * Free Software Foundation, Inc., * - * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * - ***************************************************************************/ -}; - -use strict; -use warnings; -use DBI; -use DBD::Pg qw(:pg_types); - -use FindBin; -use lib "$FindBin::Bin/../lib"; - -use ND::DB; - -our $dbh = ND::DB::DB(); - -$dbh->begin_work; - -my $query = $dbh->prepare(q{INSERT INTO raids (tick,waves,message) - VALUES(tick() + 10,3,'Retal raid') RETURNING (id)}); -$query->execute; -my $raid = $query->fetchrow_array; - -$query->finish; - -print "$raid\n"; - -$dbh->do(q{INSERT INTO raid_access (raid,gid) VALUES(?,'M')} - ,undef,$raid); - -my $addtarget = $dbh->prepare(q{INSERT INTO raid_targets(raid,pid,comment) - VALUES($1,$2,$3)}); - -my $incs = $dbh->prepare(q{SELECT pid,array_agg(i.eta) AS eta,array_agg(amount) AS amount - ,array_agg(shiptype) AS type,array_agg(fleet) AS name,array_agg(c.landing_tick) AS landing - FROM calls c - JOIN incomings i USING (call) - WHERE c.status <> 'Covered' AND c.landing_tick BETWEEN tick() AND tick() + 6 - AND c.landing_tick + GREATEST(i.eta,7) > tick() + 10 - GROUP BY pid - }); -$incs->execute; - -while (my $inc = $incs->fetchrow_hashref){ - my $comment = ''; - for my $eta (@{$inc->{eta}}){ - my $amount = shift @{$inc->{amount}}; - my $type = shift @{$inc->{type}}; - my $name = shift @{$inc->{name}}; - my $landing = shift @{$inc->{landing}}; - my $back = $landing + $eta; - $comment .= "$name: ETA=$eta Amount=$amount Type:'$type' Landing tick=$landing Estimated back:$back\n"; - } - $addtarget->execute($raid,$inc->{pid},$comment); -} - -$dbh->commit; -#$dbh->rollback; - -$dbh->disconnect;