- if($file =~ m/Metal\D+(\d+)\D+(\d+).+?Crystal\D+(\d+)\D+(\d+).+?Eonium\D+(\d+)\D+(\d+)/s){
- $scantext .= <<HTML
- <table cellpadding="2">
- <tr><th></th><th>Metal</th><th>Crystal</th><th>Eonium</th></tr>
- <tr><td>Asteroids</td><td>$1</td><td>$3</td><td>$5</td></tr>
- <tr><td>Resources</td><td>$2</td><td>$4</td><td>$6</td></tr>
- </table>
-HTML
- }
- ;
- my $f = $dbh->prepare("UPDATE covop_targets SET metal = ?, crystal = ?, eonium = ? WHERE planet = ?");
- if ($f->execute($2,$4,$6,$planet) < 1){
- $f = $dbh->prepare("INSERT INTO covop_targets (planet,metal, crystal, eonium) VALUES(?,?,?,?)");
- $f->execute($planet,$2,$4,$6);
+ while($file =~ m/"center">(Metal|Crystal|Eonium)\D+(\d+)\D+([\d,]+)/g){
+ my ($roids,$res) = ($2,$3);
+ $roids =~ s/,//g;
+ $addpdata->execute($planet,$tick,$scan->{id}
+ ,'roid',$1, $roids) or die $dbh->errstr;
+ $res =~ s/,//g;
+ $addpdata->execute($planet,$tick,$scan->{id}
+ ,'resource',$1, $res) or die $dbh->errstr;
+ }
+ if($file =~ m{<td class="center">([A-Z][a-z]+)</td><td class="center">([A-Z][a-z]+)</td><td class="center">([A-Z][a-z]+)</td>}){
+ $addpdata->execute($planet,$tick,$scan->{id}
+ ,'planet','Light Usage', $production{$1}) or die $dbh->errstr;
+ $addpdata->execute($planet,$tick,$scan->{id}
+ ,'planet','Medium Usage', $production{$2}) or die $dbh->errstr;
+ $addpdata->execute($planet,$tick,$scan->{id}
+ ,'planet','Heavy Usage', $production{$3}) or die $dbh->errstr;
+ }
+ if($file =~ m{<span class="superhighlight">([\d,]+)</span>}){
+ my $res = $1;
+ $res =~ s/,//g;
+ $addpdata->execute($planet,$tick,$scan->{id}
+ ,'planet','Production', $res) or die $dbh->errstr;