#!/usr/bin/perl

use strict;
use warnings;
use DBI;
use config;

my ($labs,$reac,$conv,$lq,$rq,$cq);
my $base = 10;


my $dbh = DBI->connect("DBI:mysql:$dbname:$dbhost",$dbuser,$dbpass);
my $sth = $dbh->prepare("SELECT id,nano FROM users");
my $sth2 = $dbh->prepare("SELECT id,labs,reactors,converters,lq,rq,cq FROM planets WHERE owner=?");
my $update = $dbh->prepare("UPDATE planets SET labs=?,reactors=?,converters=?,lq=?,rq=?,cq=? WHERE id=?");

$sth->execute;
while (my @user = $sth->fetchrow_array()) {

        $sth2->execute($user[0]);

        while (my @row = $sth2->fetchrow_array()) {
                $limit = $base+$user[1];
                print "row: @row \n";
                #labs
                ($labs,$lq) = build( $limit , $row[ 1 ] , $row[ 4 ] );
                print "$labs $lq ";

                #reac
                ($reac,$rq) = build( $limit , $row[ 2 ] , $row[ 5 ] );
                print "$reac $rq ";

                #conv
                ($conv,$cq) = build( $limit , $row[ 2 ] , $row[ 5 ] );
                print "$conv $cq ";

                print "$user[0] \n";
                $update->execute($labs,$reac,$conv,$lq,$rq,$cq,$user[0]);

        }
}


# $limit
# $val1 current buildings
# $val2 build que

sub build {
    my ( $limit , $val1 , $val2 ) = @_;

        if ($val2 > $limit) {
                $val2 -= $limit; #add building
                $val1 += $limit; #remove que

        } elsif ($val2 < $limit) {
                $limit -= $val2; #remove que from limit
                $val1 += $val2; # add buildings
                #$val2 = 0;

        }
    return($val1,$val2);
}