=== yfksubs.pl
==================================================================
--- yfksubs.pl	(revision 10070)
+++ yfksubs.pl	(revision 10071)
@@ -49,6 +49,13 @@
 	require Hamlib; import Hamlib; 
 }
 
+my $havehamdb = eval "require Ham::Callsign::DB;";
+my $hamdb;
+if ($havehamdb) {
+    require Ham::Callsign::DB;
+    $hamdb = new Ham::Callsign::DB();
+}
+
 # We load the default values for some variables that can be changed in .yfklog
 
 my $lidadditions="^QRP\$|^LGT\$";
@@ -1361,10 +1368,30 @@
 		refresh($wi[5]);
 	}
 
+	my $results = $hamdb->lookup(uc($call));
+	if ($results && $#$results > -1) {
+	    my $result = $results->[0];  # just get the first
 
+	    my $qth = $result->{'qth'};
+	    ${$_[0]}[6] = $qth;
+	    addstr($wi[6],0,0,$qth);
+	    refresh($wi[6]);
 
-}
+	    my $nm = $result->{'first_name'} . " " . $result->{'last_name'};
+	    ${$_[0]}[7] = $nm;
+	    addstr($wi[7],0,0,$nm);
+	    refresh($wi[7]);
 
+	    # remarks
+	    if (defined($result->{'operator_class'})) {
+		my $opclass = "Cl: $result->{'operator_class'}";
+		${$_[0]}[12] = $opclass;
+		addstr($wi[12],0,0,$opclass);
+		refresh($wi[12]);
+	    }
+	}
+    }
+
 ##############################################################################
 # &getdate;   Uses gmtime() to get the current date  in DDMMYYYY
 ##############################################################################