#!/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";
}

$query = "select pnd_nr, pd_article from pub_pd where pnd_nr<>'' order by pnd_nr";
system("echo \"$query\" | mysql u_voj > $date-pnd.tab");