X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=scripts%2Ffetchdumps.pl;h=4a7ae1b6b774dd5b6226614b812a63dc0cad5bbb;hb=HEAD;hp=883c90f37c2a3edb4822c27d9ea913a91c9b6591;hpb=36a13cae169413fc04fbf704d94a2ad797336e6e;p=ndwebbie.git diff --git a/scripts/fetchdumps.pl b/scripts/fetchdumps.pl index 883c90f..4a7ae1b 100755 --- a/scripts/fetchdumps.pl +++ b/scripts/fetchdumps.pl @@ -36,8 +36,6 @@ use ND::DB; our $dbh = ND::DB::DB(); -$dbh->do("SET CLIENT_ENCODING TO 'LATIN1';"); - my $insert = $dbh->prepare("INSERT INTO dumps(tick,type,modified,dump) VALUES(?,?,?,?)"); my $select = $dbh->prepare("SELECT 1 FROM dumps WHERE type = ? AND modified = ?"); my $updated = 0; @@ -55,10 +53,8 @@ for my $type ("planet","alliance","galaxy"){ } if ($updated){ - `perl $FindBin::Bin/parsealliances.pl $updated`; - `perl $FindBin::Bin/parseplanets.pl $updated`; - `perl $FindBin::Bin/parsegalaxies.pl $updated`; - `perl $FindBin::Bin/ndrank.pl`; + system("$FindBin::Bin/parsetick.sh", $updated); + system("$FindBin::Bin/ndrank.pl"); $dbh->do(q{UPDATE misc SET value = ? WHERE id = 'TICK'}, undef, $updated); system 'killall','-USR1', 'ndbot.pl'; local $dbh->{Warn} = 0;