- #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{<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;
+ }