+#! /usr/bin/perl
+use DBI;
+use strict;
+use warnings;
+no warnings qw(once);
+use Encode;
+use Time::HiRes;
+require './config.pm';
+
+sub sync_table {
+ my ($mdbh, $sdbh, $table) = @_;
+ my $start = [ Time::HiRes::gettimeofday ];
+ my $data = $mdbh->selectall_arrayref("SELECT * FROM $table");
+ my $elapsed = Time::HiRes::tv_interval($start);
+ #printf "MySQL $table time used: $elapsed\n";
+
+ $start = [ Time::HiRes::gettimeofday ];
+ $sdbh->do("DELETE FROM $table");
+ $sdbh->do("COPY $table FROM STDIN");
+
+ for my $row (@$data) {
+ $sdbh->pg_putcopydata(join("\t", map { Encode::decode('iso8859-1', $_ // '\N') } (@$row)) . "\n");
+ }
+ $sdbh->pg_putcopyend();
+ $elapsed = Time::HiRes::tv_interval($start);
+ #printf "PostgreSQL $table time used: $elapsed\n";
+}
+
+my $mdbh = DBI->connect($config::master_connstr, $config::master_username, $config::master_password)
+ or die "PostgreSQL connect: " . $DBI::errstr;
+$mdbh->{AutoCommit} = 0;
+$mdbh->{RaiseError} = 1;
+
+my $sdbh = DBI->connect($config::local_connstr, $config::local_username, $config::local_password)
+ or die "PostgreSQL connect: " . $DBI::errstr;
+$sdbh->{AutoCommit} = 0;
+$sdbh->{RaiseError} = 1;
+
+sync_table($mdbh, $sdbh, "Fotballbrukere");
+sync_table($mdbh, $sdbh, "Fotballdeltagere");
+sync_table($mdbh, $sdbh, "Fotballresultater");
+sync_table($mdbh, $sdbh, "Fotballserier");
+
+$mdbh->rollback();
+$sdbh->commit();