X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=scripts%2Fscans.pl;h=c6d8fca2e76f22cf6c1eb25014e551fe76d92513;hb=436af6a696e3488f5d25e027553ec356da4cde01;hp=bedd3df5cdf33e05d2b7108845680323d78d77dc;hpb=58fed91c3cf50e1d386bbea93ba41ced3e98414a;p=ndwebbie.git diff --git a/scripts/scans.pl b/scripts/scans.pl index bedd3df..c6d8fca 100755 --- a/scripts/scans.pl +++ b/scripts/scans.pl @@ -73,13 +73,24 @@ my $findcoords = $dbh->prepare(q{SELECT * FROM planetcoords(?,?)}); my $addfleet = $dbh->prepare(q{INSERT INTO fleets (name,mission,sender,target,tick,eta,back,amount,ingal,uid) VALUES(?,?,?,?,?,?,?,?,?,-1) RETURNING id}); my $fleetscan = $dbh->prepare(q{INSERT INTO fleet_scans (id,scan) VALUES(?,?)}); my $addships = $dbh->prepare(q{INSERT INTO fleet_ships (id,ship,amount) VALUES(?,?,?)}); -my $addpdata = $dbh->prepare(q{INSERT INTO planet_data (id,tick,scan,rid,amount) VALUES(?,?,?,(SELECT id FROM planet_data_types WHERE category = ? AND name = ?), ?)}); +my $addplanetscan = $dbh->prepare(q{INSERT INTO planet_scans + (id,tick,planet,metal_roids,metal,crystal_roids,crystal,eonium_roids,eonium + ,agents,guards,light,medium,heavy,hidden) + VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)}); +my $addstrucscan = $dbh->prepare(q{INSERT INTO structure_scans + (id,tick,planet,light_fac,medium_fac,heavy_fac,amps,distorters + ,metal_ref,crystal_ref,eonium_ref,reslabs,fincents,seccents,total) + VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)}); + +my $addtechscan = $dbh->prepare(q{INSERT INTO tech_scans + (id,tick,planet,travel,infra,hulls,waves,extraction,covert,mining) + VALUES(?,?,?,?,?,?,?,?,?,?)}); + $dbh->begin_work or die 'No transaction'; $newscans->execute or die $dbh->errstr; $dbh->pg_savepoint('scans') or die "No savepoint"; -my %production = (None => 0, Low => 35, Medium => 65, High => 100); while (my $scan = $newscans->fetchrow_hashref){ $dbh->pg_release('scans') or die "Couldn't save"; $dbh->pg_savepoint('scans') or die "Couldn't save"; @@ -114,36 +125,23 @@ while (my $scan = $newscans->fetchrow_hashref){ #TODO: something about planet being closed? } if ($type eq 'Planet'){ + my @values = ($scan->{id},$tick,$planet); + $file =~ s/(\d),(\d)/$1$2/g; + while($file =~ m/"center">(Metal|Crystal|Eonium)\D+(\d+)\D+([\d,]+)/g){ - my ($type,$roids,$res) = ($1,$2,$3); - $roids =~ s/,//g; - $addpdata->execute($planet,$tick,$scan->{id} - ,'roid',$type, $roids) or die $dbh->errstr; - $res =~ s/,//g; - $addpdata->execute($planet,$tick,$scan->{id} - ,'resource',$type, $res) or die $dbh->errstr; + push @values,$2,$3; } if($file =~ m{Security\ Guards .+? "center">(\d+) .+? "center">(\d+)}sx){ - $addpdata->execute($planet,$tick,$scan->{id} - ,'planet','Agents', $1) or die $dbh->errstr; - $addpdata->execute($planet,$tick,$scan->{id} - ,'planet','Security Guards', $2) or die $dbh->errstr; + push @values,$1,$2; } if($file =~ m{