Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
12345678910111213141516171819use strict;use lib '/home/lacuna/server/lib';use Lacuna;use Lacuna::Constants qw(FOOD_TYPES ORE_TYPES);use DBI;use 5.010;my $config = Lacuna->config->get('db');my $db = DBI->connect($config->{dsn}, $config->{username}, $config->{password});foreach my $resource (qw(energy water), ORE_TYPES, FOOD_TYPES) { my $field = $resource .'_stored'; print $resource . ': '; say $db->do("update body set $field = 0 where $field < 0");}