Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
1234567891011121314151617181920212223242526272829303132use 5.10.0;use strict;use lib '/home/lacuna/server/lib';use Getopt::Long;
use L;
GetOptions( 'quiet!' => \$quiet,);
out("Started");
my $rs = LD->bodies( { class => 'Lacuna::DB::Result::Map::Body::Planet::Station', } );
# because we're initialising it, let's give everything a 12-hour head start.my $starttime = DateTime->now->subtract(hours => 12);while(my $station = $rs->next){ out("..." . $station->name); $station->update_influence({starttime=>$starttime});}
out("Recalculating all control (will take a while).");LD->resultset("Map::Star")->recalc_control;
out("Done.");