use diagnostics;
use strict;

use Getopt::Std;
use HamScrape;

my $help = <<"EOH";
---------------------------------------------------------------------------
Command help for the www.qrz.com Web scraper

Options: -h   This help
         -s   Station
         -x   Emit as XML
         -f   Capture to file
EOH

my %args; getopts('hxfs:', \%args);
die $help if exists $args{h};
die $help unless $args{s};

if (exists $args{x}) {

	my $qrzXml = HamScrape::QRZxml($args{s});
	if (exists $args{f}) {
		HamScrape::WriteXmlTreeToFile($qrzXml);
		
	} else {
		print $qrzXml;
		
	}

} else {

	my %qrz = HamScrape::QRZ($args{s});
	if (exists $args{f}) {
		HamScrape::WriteXmlTreeToFile(%qrz);
		
	} else {
		my $name = $qrz{Name};
		my $location = $qrz{CityStateZip};
		my $timeZone = $qrz{TimeZone};
		my $gmtOffset = $qrz{GMTOffset};
		my $grid = $qrz{Grid};
		 
		print "Name: $name\n";
		print "Location: $location\n";
		print "Time zone: $timeZone\n";
		print "GMT offset: $gmtOffset\n";
		print "Grid: $grid\n";
	}

}