+ ,'resource',$1, $res) or die $dbh->errstr;
+ }
+ #if($file =~ m{"center">([^<]+)</td><td class="center">([^<]+)</td><td class="center">([^<]+)</td>}){
+ # $addpdata->execute($planet,$tick,$scan->{id}
+ # ,'planet','Light Usage', $1) or die $dbh->errstr;
+ # $addpdata->execute($planet,$tick,$scan->{id}
+ # ,'planet','Medium Usage', $2) or die $dbh->errstr;
+ # $addpdata->execute($planet,$tick,$scan->{id}
+ # ,'planet','Heavy Usage', $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;