#!/usr/bin/perl
#
# Script to convert Postgres dumps from dx_data table to nicely formatted
# ASCII output similar to SHOW/DX output
#
# Last change: DL6RAI, Tue Dec 21 22:23:51 GMT 1999

$f = $ARGV[0];
if ( ! -e $f ) { die "File \"$f\" does not exist.\n"; }
open(IN,$f) || die "Cannot open $f\n";
while(<IN>) {
	chop;
	# print ">>$_<<\n";
	($dx,$comment,$dt,$logger,$node,$freq,$hops,$dummy) = split(/\t/);
	$dx = uc($dx);
	$logger = "<" . uc($logger) . ">";
	@a = split(" ",$dt);
	$date = sprintf("%2d-%3s-%4d",$a[2],$a[1],$a[4]);
	$time = substr($a[3],0,2) . substr($a[3],3,2);
	# Sat Nov 27 03:43:00 1999 GMT
	printf("%8.1f  %-11s %11s %4sZ  %-25s %10s\n",
		$freq,$dx,$date,$time,$comment,$logger);
}
close(IN);
