X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FUSDB.pm;h=cba7ddb96c96f6b783e9e4f6db3e168f4e0f2184;hb=973a2853ac360d77e8bc6382450c0a9e11da1f52;hp=719ac66afe30db127d95008c32305d09ef8532dd;hpb=81f141825cc8846f0e496ebf602e8e6536476b82;p=spider.git

diff --git a/perl/USDB.pm b/perl/USDB.pm
index 719ac66a..cba7ddb9 100644
--- a/perl/USDB.pm
+++ b/perl/USDB.pm
@@ -28,7 +28,7 @@ $dbfn = "$main::data/usdb.v1";
 sub init
 {
 	end();
-	if (tie %db, 'DB_File', $dbfn, O_RDONLY, 0664, $DB_BTREE) {
+	if (tie %db, 'DB_File', $dbfn, O_RDWR, 0664, $DB_BTREE) {
 		$present = 1;
 		return "US Database loaded";
 	}
@@ -50,6 +50,29 @@ sub get
 	return @s;
 }
 
+sub _add
+{
+	my ($db, $call, $city, $state) = @_;
+	
+	# lookup the city 
+	my $s = uc "$city|$state";
+	my $ctyn = $db->{$s};
+	unless ($ctyn) {
+		my $no = $db->{'##'} || 1;
+		$ctyn = "#$no";
+		$db->{$s} = $ctyn;
+		$db->{$ctyn} = $s; 
+		$no++;
+		$db->{'##'} = "$no";
+	}
+	$db->{uc $call} = $ctyn; 
+}
+
+sub add
+{
+	_add(\%db, @_);
+}
+
 sub getstate
 {
 	return () unless $present;
@@ -64,6 +87,12 @@ sub getcity
 	return @s ? $s[0] : undef;
 }
 
+sub del
+{
+	my $call = uc shift;
+	delete $db{$call};
+}
+
 #
 # load in / update an existing DB with a standard format (GZIPPED)
 # "raw" file.
@@ -128,19 +157,9 @@ sub load
 			my $l = $_;
 			$l =~ s/[\r\n]+$//;
 			my ($call, $city, $state) = split /\|/, $l;
+
+			_add(\%dbn, $call, $city, $state);
 			
-			# lookup the city 
-			my $s = "$city|$state";
-			my $ctyn = $dbn{$s};
-			unless ($ctyn) {
-				my $no = $dbn{'##'} || 1;
-				$ctyn = "#$no";
-				$dbn{$s} = $ctyn;
-				$dbn{$ctyn} = $s; 
-				$no++;
-				$dbn{'##'} = "$no";
-			}
-			$dbn{$call} = $ctyn; 
 			$count++;
 		}
 		$of->close;