From 7ac67ea27beda9eb655fdff6c6f2e354e93b84b0 Mon Sep 17 00:00:00 2001
From: Ian Docherty <github@iandocherty.com>
Date: Sat, 7 Jul 2012 04:08:51 -0400
Subject: [PATCH] Added script to allow all trades to be zoomed or deleted

---
 bin/delete_all_trades.pm | 75 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 75 insertions(+)
 create mode 100644 bin/delete_all_trades.pm

diff --git a/bin/delete_all_trades.pm b/bin/delete_all_trades.pm
new file mode 100644
index 000000000..3674bb9f3
--- /dev/null
+++ b/bin/delete_all_trades.pm
@@ -0,0 +1,75 @@
+use 5.010;
+use strict;
+use feature "switch";
+use lib '/data/Lacuna-Server/lib';
+use Lacuna::DB;
+use Lacuna;
+use Lacuna::Util qw(randint format_date);
+use Getopt::Long;
+use DateTime;
+$|=1;
+our $quiet;
+GetOptions(
+    'quiet'         => \$quiet,  
+);
+
+out('Started');
+my $start = time;
+
+out('Loading DB');
+our $db = Lacuna->db;
+my $now = DateTime->now;
+
+out('Complete all trades in progress, delete all others');
+
+out('Zip all ships to their destination');
+my $ships = $db->resultset('Ships')->search({
+    task => 'Travelling'
+});
+while (my $ship = $ships->next) {
+    out('Zooming ship '.$ship->id);
+    $ship->update({
+        date_available => $now,
+    });
+}
+
+out('Withdraw all trades');
+my $trades = $db->resultset('Market')->search;
+while (my $trade = $trades->next) {
+    $trade->withdraw($trade->body);
+}
+
+out('Do a final tick of all planets');
+my $planets_rs = $db->resultset('Map::Body');
+my $planets = $planets_rs->search({ empire_id   => {'!=' => 0} });
+while (my $planet = $planets->next) {
+    out('Ticking '.$planet->name);
+    eval{$planet->tick};
+    my $reason = $@;
+    if (ref $reason eq 'ARRAY' && $reason->[0] eq -1) {
+        # this is an expected exception, it means one of the roles took over
+    }
+    elsif ( ref $reason eq 'ARRAY') {
+        out(sprintf("Ticking %s resulted in errno: %d, %s\n", $planet->name, $reason->[0], $reason->[1]));
+    }
+    elsif ( $reason ) {
+        out(sprintf("Ticking %s resulted in: %s\n", $planet->name, $reason));
+    }
+}
+
+my $finish = time;
+out('Finished');
+out((($finish - $start)/60)." minutes have elapsed");
+
+
+###############
+## SUBROUTINES
+###############
+
+sub out {
+    my ($message) = @_;
+    unless ($quiet) {
+        say format_date(DateTime->now), " ", $message;
+    }
+}
+