use strict;	
use warnings;

my %friends;
my %cwt;
my %foc;
# my %iotaref;

open FRIEND, find_file('friend.ini');
my $line;
while (my $line = <FRIEND>) {
		chomp($line);
	my @a = split(/=/, $line);
	$friends{$a[0]} = $a[1];
}

close FRIEND;

if (-e 'cwops.txt') {

open CWT, find_file('cwops.txt');
my $line;
while (my $line = <CWT>) {
		chomp($line);
	my @a = split(/\,/, $line);
	$cwt{$a[0]} = "$a[0] $a[1] $a[2]";
}
close CWT;
}

# if (-e 'islands.csv') {

# open IOTAREF, find_file('islands.csv');
# my $line;
# while (my $line = <IOTAREF>) {
# 		chomp($line);
# 	my @a = split(/;/, $line);
# 	$iotaref{$a[0]} = $a[1];
# }
# close IOTAREF;
# }

# FOC marathon

if (-e 'call_no_name.txt') {

open FOC, find_file('call_no_name.txt');
my $line;
while ($line = <FOC>) {
	map {s/\r//g;} ($line);
	chomp($line);
	$line =~ s/"//g;
	my @a = split(/,/, $line);
	$foc{$a[0]} = "$a[2] $a[1]";	# Call = Name, Nr
	$foc{$a[1]} = "$a[0] $a[1]";	# Nr = Call, Name
}
close FOC;

}
else {
	$foc{0} = 1;
}


sub callinfo {
	my $win = $main::winfo;
	my $call = $main::qso{'call'};
	my $contest = $main::contest;
	move($win, 0,0);
	addstr($win, ' 'x1234);

	if (exists($main::coderefs{$main::contest}{'CALLINFO'})) {
		my $band = $main::qso{'band'};
		my $mults = $main::s_mult1{$band};
    my @items = qw / /;
    my $outlength=0;

    #
    # Code should set at least @items, may also set $mults
    #
		eval $main::coderefs{$main::contest}{'CALLINFO'} or die $@;

		move($win, 0,0);
		foreach my $d (@items) {
      unless ($outlength % 35 == 0) {
        addstr($win, " ");
        $outlength++;
      }
			if ($mults =~ / $d /) {
				attron($win, COLOR_PAIR(2));
			}
			else {
				attron($win, COLOR_PAIR(4));
			}
			addstr($win, $d);
      $outlength += length($d);
			attron($win, COLOR_PAIR(4));
		}
		addstr($win, 5, 0, "Name: $friends{$call}".' 'x20) if defined ($friends{$call});
		refresh($win);

	}
	elsif ($contest eq 'CQWW') {		# CQWW - Show worked Zones
		my $band = $main::qso{'band'};
		my $mults = $main::s_mult2{$band};

		my @info = &dxcc($call);
		if ($call eq '') { return 0; }
		addstr($win, 0, 0, "$info[7] - $info[0] - CQ-Zone: $info[1]".' 'x80);

		# CQ-Zone multi table
		move($win, 1,0);
		for (my $i=1; $i <= 40 ; $i++) {
			if ($mults =~ / $i /) {
				attron($win, COLOR_PAIR(2));
			}
			else {
				attron($win, COLOR_PAIR(4));
			}
			addstr($win, ($i < 10) ? '0'.$i : $i);
			attron($win, COLOR_PAIR(4));
			addstr($win, " ") unless ($i =~ /12|24|36/);
		}
		refresh($win);

	} # CQWW Zones
	elsif ($contest eq 'EUHFC') {		# EUHFC = Show Mults wkd/needed.
		my $band = $main::qso{'band'};
		my $mults = $main::s_mult1{$band};
		my $year_fin = (localtime)[5];
		my $year_start = $year_fin - 6*12 + 1;

		move($win, 0,0);
		for (my $i=$year_start; $i <= $year_fin ; $i++ ) {
			my $year = sprintf("%02d", ($i%100));
			if ($mults =~ / $year /) {
				attron($win, COLOR_PAIR(2));
			}
			else {
				attron($win, COLOR_PAIR(4));
			}
			addstr($win, $year);
			attron($win, COLOR_PAIR(4));
			addstr($win, " ") unless ( ($i-$year_start)%12 == 11);
		}
#		addstr($win, 0, 0, $mults);
		refresh($win);

	} # EUHFC
	elsif ($contest eq 'YODX') {	# YO-DX-Contest: Show provinces
		my $band = $main::qso{'band'};
		my $mults = $main::s_mult2{$band};
		my @districts = qw/AB AG AR BC BH BN BR BT BU BV BZ CJ CL CS CT CV DB
		DJ GJ GL GR HD HR IF IL IS MH MM MS NT OT PH SB SJ SM SV TL TM TR VL VN
		VS/;

		move($win, 0,0);
		foreach my $d (@districts) {
			if ($mults =~ / $d /) {
				attron($win, COLOR_PAIR(2));
			}
			else {
				attron($win, COLOR_PAIR(4));
			}
			addstr($win, $d);
			attron($win, COLOR_PAIR(4));
			addstr($win, " ") unless ($d =~ /CJ|IF|SV/);
		}
		addstr($win, 4, 0, "Name: $friends{$call}".' 'x20) if defined ($friends{$call});
		refresh($win);
	} #YODX
	elsif ($contest eq 'HA-DX') {	# HA-DX-Contest: Show counties
		my $band = $main::qso{'band'};
		my $mults = $main::s_mult2{$band};
		my @districts = qw/BA BE BN BO BP CS FE GY HB HE KO NG PE SA SO TO VA VE ZA/;

		move($win, 0,0);
		foreach my $d (@districts) {
			if ($mults =~ / $d /) {
				attron($win, COLOR_PAIR(2));
			}
			else {
				attron($win, COLOR_PAIR(4));
			}
			addstr($win, $d);
			attron($win, COLOR_PAIR(4));
			addstr($win, " ") unless ($d =~ /NG/);
		}
		addstr($win, 4, 0, "Name: $friends{$call}".' 'x20) if defined ($friends{$call});
		refresh($win);
	} #HADXTEST
	elsif ($contest eq 'CNCW') {	# Concurso Nacional de CW: Show provinces
		my $band = $main::qso{'band'};
		my $mults = $main::s_mult2{$band};
		my @districts = qw/AV BU C LE LO LU O OU P PO S SA SG SO VA ZA BI HU NA SS TE VI Z B GI L T BA CC CR CU GU M TO A AB CS MU V IB AL CA CO GR H J MA SE GC TF CE ML/;

		move($win, 0,0);
		foreach my $d (@districts) {
			if ($mults =~ / $d /) {
				attron($win, COLOR_PAIR(2));
			}
			else {
				attron($win, COLOR_PAIR(4));
			}
			addstr($win, $d);
			attron($win, COLOR_PAIR(4));
			addstr($win, " ") unless ($d =~ /CE/);
			addstr($win, " ") if ($d =~ /GI/);
		}
		addstr($win, 4, 0, "Name: $friends{$call}".' 'x20) if defined ($friends{$call});
		refresh($win);
	} #CNCW
#	elsif ($contest eq 'SMREY-DX') {	# His Majesty King of Spain: Show provinces
#		my $band = $main::qso{'band'};
#		my $mults = $main::s_mult2{$band};
#		my @districts = qw/AV BU C LE LO LU O OU P PO S SA SG SO VA ZA BI HU NA SS TE VI Z B GI L T BA CC CR CU GU M TO A AB CS MU V IB AL CA CO GR H J MA SE GC TF CE ML/;

#		move($win, 0,0);
#		foreach my $d (@districts) {
#			if ($mults =~ / $d /) {
#				attron($win, COLOR_PAIR(2));
#			}
#			else {
#				attron($win, COLOR_PAIR(4));
#			}
#			addstr($win, $d);
#			attron($win, COLOR_PAIR(4));
#			addstr($win, " ") unless ($d =~ /CE/);
#			addstr($win, " ") if ($d =~ /GI/);
#		}
#		addstr($win, 4, 0, "Name: $friends{$call}".' 'x20) if defined ($friends{$call});
#		refresh($win);
#	} #SMREY-DX
	elsif ($contest eq 'PDCON-DX') {	# Portugal Day Contest: Show provinces
		my $band = $main::qso{'band'};
		my $mults = $main::s_mult2{$band};
		my @districts = qw/AV BJ BR BG CB CO EV FR GD LR LX PG PT SR ST VC VS
		AC MD/;

		move($win, 0,0);
		foreach my $d (@districts) {
			if ($mults =~ / $d /) {
				attron($win, COLOR_PAIR(2));
			}
			else {
				attron($win, COLOR_PAIR(4));
			}
			addstr($win, $d);
			attron($win, COLOR_PAIR(4));
			addstr($win, " ") unless ($d =~ /PT/);
		}
		addstr($win, 4, 0, "Name: $friends{$call}".' 'x20) if defined ($friends{$call});
		refresh($win);
	}
	elsif ($contest eq 'ALMEIHF-DX') {	# Portugal Day Contest: Show provinces
		my $band = $main::qso{'band'};
		my $mults = $main::s_mult2{$band};
		my @districts = qw/AV BJ BR BG CB CO EV FR GD LR LX PG PT SR ST VC VS
		AC MD/;

		move($win, 0,0);
		foreach my $d (@districts) {
			if ($mults =~ / $d /) {
				attron($win, COLOR_PAIR(2));
			}
			else {
				attron($win, COLOR_PAIR(4));
			}
			addstr($win, $d);
			attron($win, COLOR_PAIR(4));
			addstr($win, " ") unless ($d =~ /PG/);
		}
		addstr($win, 4, 0, "Name: $friends{$call}".' 'x20) if defined ($friends{$call});
		refresh($win);
	}
	elsif ($contest eq 'ALMEIHF') {	# Portugal Day Contest: Show provinces
		my $band = $main::qso{'band'};
		my $mults = $main::s_mult2{$band};
		my @districts = qw/AV BJ BR BG CB CO EV FR GD LR LX PG PT SR ST VC VS
		AC MD/;

		move($win, 0,0);
		foreach my $d (@districts) {
			if ($mults =~ / $d /) {
				attron($win, COLOR_PAIR(2));
			}
			else {
				attron($win, COLOR_PAIR(4));
			}
			addstr($win, $d);
			attron($win, COLOR_PAIR(4));
			addstr($win, " ") unless ($d =~ /PG/);
		}
#		addstr($win, 3, 0, "Iota: $ilha[0]".' 'x20); # if defined ($iota{$call});
		addstr($win, 4, 0, "Name: $friends{$call}".' 'x20) if defined ($friends{$call});
		refresh($win);
	}
	elsif ($contest eq 'FOC') {	# FOC Marathon
		my @info = &dxcc($call);
		if ($call eq '') { return 0; }


		addstr($win, 0, 0, "$info[7] - $info[0]".' 'x80);
		addstr($win, 1, 0, "CQZ: $info[1], ITU: $info[2]".' 'x80);
		addstr($win, 2, 0, "Name: $friends{$call}".' 'x80) if defined ($friends{$call});

		addstr($win, 3, 0, "FOC: $foc{$call}".' 'x80) if defined($foc{$call});

		if (defined $foc{0}) {
			addstr($win, 2, 0, "Warning: Missing call_no_name.txt");
			addstr($win, 3, 0, "for exchange guessing; available");
			addstr($win, 4, 0, "from VP9KF's website.");
		}

		refresh($win);
	} 
	elsif ($contest eq 'IOTA') {	# IOTA
		my @info = &dxcc($call);
		my $exc2 = $main::qso{'exc2'};
#		my @island = &iota($call);
		if ($call eq '') { return 0; }


		addstr($win, 0, 0, "$info[7] - $info[0]".' 'x80);
		addstr($win, 1, 0, "CQZ: $info[1], ITU: $info[2]".' 'x80);
#		addstr($win, 2, 0, "Iota: $iotaref{$exc2}".' 'x80) if defined ($iotaref{$exc2});
		addstr($win, 3, 0, "Name: $friends{$call}".' 'x80) if defined ($friends{$call});
		refresh($win);
	}
	elsif (($contest eq 'CWOPS-mini-CWT') || ($contest eq 'CWOPS-OPEN')) {
					# Uses VE2FK's CWT history file, (de cwops yahoo file section),
					#    w/ comments removed & renamed '2' cwops.txt;
					# mv <whatever_the_download_file_is_called> cwops.txt
					# sed -i '/#/d' cwops.txt
					# sed -i '/!/d' cwops.txt
					# Place the file in the same hierarchy as the main runtime (yfktest) 
		my @info = &dxcc($call);
		if ($call eq '') { return 0; }


		addstr($win, 0, 0, "$info[7] - $info[0]".' 'x80);
		addstr($win, 1, 0, "CQZ: $info[1], ITU: $info[2]".' 'x80);
#		addstr($win, 2, 0, "Name: $friends{$call}".' 'x80) if defined ($friends{$call});
		addstr($win, 3, 0, "CWOPS Info: $cwt{$call}".' 'x80) if defined ($cwt{$call});
		refresh($win);
	}
	elsif ($contest eq 'SMREY-DX') {	# His Majesty King of Spain: Show provinces
		my $band = $main::qso{'band'};
		my $mults = $main::s_mult2{$band};
		my @districts = qw/AV BU C LE LO LU O OU P PO S SA SG SO VA ZA BI HU NA SS TE VI Z B GI L T BA CC CR CU GU M TO A AB CS MU V IB AL CA CO GR H J MA SE GC TF CE ML/;

		move($win, 0,0);
		foreach my $d (@districts) {
			if ($mults =~ / $d /) {
				attron($win, COLOR_PAIR(2));
			}
			else {
				attron($win, COLOR_PAIR(4));
			}
			addstr($win, $d);
			attron($win, COLOR_PAIR(4));
			addstr($win, " ") unless ($d =~ /CE/);
			addstr($win, " ") if ($d =~ /GI/);
		}
		addstr($win, 4, 0, "Name: $friends{$call}".' 'x20) if defined ($friends{$call});
		refresh($win);
	} #SMREY-DX
	elsif ($contest eq 'ARRLDX-DX') {		# ARRLDX, DX side: Show Mults
		my $band = $main::qso{'band'};
		my $mults = $main::s_mult1{$band};
		my @districts = qw/NB NS QC ON MB SK AB BC NWT NF LB YT PEI NU AL AZ AR CA CO CT DE DC FL GA ID IL IN IA KS KY LA ME MD MA MI MN MS MO MT NE NV NH NJ NM NY NC ND OH OK OR PA RI SC SD TN TX UT VT VA WA WV WI WY/;

		move($win, 0,0);
		foreach my $d (@districts) {
			if ($mults =~ / $d /) {
				attron($win, COLOR_PAIR(2));
			}
			else {
				attron($win, COLOR_PAIR(4));
			}
			addstr($win, $d);
			attron($win, COLOR_PAIR(4));
			addstr($win, " ") unless ($d =~ /MA|NC|VT/);
			addstr($win, " ") if ($d =~ /LB|DC|SV/);
		}

		refresh($win);
	}
	elsif ($contest eq 'ARRL-FD') {		# ARRL-FD: Shows Sections
		my $band = $main::qso{'band'};
		my $mults = $main::s_mult2{$band};
		my @districts = qw/AB AK AL AR AZ BC CO CT DE EB EMA ENY EPA EWA GA GH IA ID IL IN KS KY LA LAX MAR MB MDC ME MI MN MO MS MT NB NC ND NE NFL NH NL NLI NM NNJ NS NNY NTX NV OH OK ONE ONN ONS OR ORG PAC PE PR QC RI SB SC SCV SD SDG SF SFL SNJ SJV SK STX SV TN TER UT VA VI VT WCF WI WMA WNY WPA WTX WV WWA WY/;

		move($win, 0,0);
		foreach my $d (@districts) {
			if ($mults =~ / $d /) {
				attron($win, COLOR_PAIR(2));
			}
			else {
				attron($win, COLOR_PAIR(4));
			}
			addstr($win, $d);
			attron($win, COLOR_PAIR(4));
			addstr($win, " ") unless ($d =~ /MI|NS|QC|TN/);
			addstr($win, " ") if ($d =~ /EWA/);
#			addstr($win, "  ") if ($d =~ /NNJ/);
		}

	refresh($win);
	}
	elsif (($contest eq 'NM-QSO-PARTY') || ($contest eq 'NM-QSO-NONNM')) {		# NM-QSO-PARTY: Shows Sections
		my $mults = $main::s_mult1{'All'};
		my @districts = qw/BER CAT CHA CIB COL CUR DEB DON EDD GRA GUA HAR HID LEA LIN LOS LUN MCK MOR OTE QUA RIO ROO SJU SMI SAN SFE SIE SOC TAO TOR UNI VAL/;

		move($win, 0,0);
		foreach my $d (@districts) {
			if ($mults =~ / $d /) {
				attron($win, COLOR_PAIR(2));
			}
			else {
				attron($win, COLOR_PAIR(4));
			}
			addstr($win, $d);
			attron($win, COLOR_PAIR(4));
			addstr($win, " ") unless ($d =~ /EDD|MCK|SFE/);
		}

	refresh($win);
	}
	elsif (($contest eq 'WI-QSO-PARTY') || ($contest eq 'WI-QSO-NONWI')) {		# WI-QSO-PARTY: Shows Sections
		my $mults = $main::s_mult1{'All'};
		my @districts = qw/ADA ASH BAR BAY BRO BUF BUR CAL CHI CLA COL CRA DAN DOD DOO DOU DUN EAU FLO FON FOR GRA GRE GRL IOW IRO JAC JEF JUN KEN KEW LAC LAF LAN LIN MAN MAR MRN MRQ MEN MIL MON OCO ONE OUT OZA PEP PIE POL POR PRI RAC RIC ROC RUS SAI SAU SAW SHA SHE TAY TRE VER VIL WAL WSB WAS WAU WAP WSR WIN WOO /;

		move($win, 0,0);
		foreach my $d (@districts) {
			if ($mults =~ / $d /) {
				attron($win, COLOR_PAIR(2));
			}
			else {
				attron($win, COLOR_PAIR(4));
			}
			addstr($win, $d);
			attron($win, COLOR_PAIR(4));
			addstr($win, " ") unless ($d =~ /CRA|GRL|MAN|PIE|SHE|WOO/);
		}

	refresh($win);
	}
	elsif ($contest eq 'RAC') {		# RAC: Shows Sections
		my @districts = qw/NS QC ON MB SK AB BC NT NB NL NU YT PE/;

		addstr($win, 0, 0, "RAC - Canada Day Contest");
		addstr($win, 2, 0, "Enter Ser. # OR these Providences;");

		move($win, 4,0);
		foreach my $d (@districts) {
			addstr($win, $d);
			attron($win, COLOR_PAIR(4));
			addstr($win, " ") unless ($d =~ /YT/);
		}

	refresh($win);
	}
	else {							# Show generic callsign info.
		my @info = &dxcc($call);
		if ($call eq '') { return 0; }
		addstr($win, 0, 0, "$info[7] - $info[0]".' 'x80);
		addstr($win, 1, 0, "CQZ: $info[1], ITU: $info[2]".' 'x80);
		addstr($win, 2, 0, "Name: $friends{$call}".' 'x80) if defined ($friends{$call});
	refresh($win);
	return 0;

	} # else, generic info


}


return 1;

# Local Variables:
# tab-width:4
# End: **