#!/usr/bin/perl -w

die ("please specify full pd data file!") if not defined $ARGV[0];

$file = $ARGV[0];

if ($file =~ /^(\d{8})(-full.tab)?$/) {
  $date = $1;
  $file = "$date-full.tab";
}

mysql("DELETE FROM pub_pd"); 
mysql("DELETE FROM pub_pd_views"); 
mysql("UPDATE pub_pd_metadata SET value = '$date' WHERE field = 'dump_date'");
mysql("LOAD DATA LOCAL INFILE '$file' INTO TABLE pub_pd");

sub mysql {
  my ($query) = @_;
  print "$query\n";
  system("echo \"$query\" | mysql u_voj");
}