X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXSql%2FSQLite.pm;h=36bcc46da72554ae53721a85b147f8f6868b0e6b;hb=eb38b7e683f110d295e49b2d1aa75cb79f56fa41;hp=8cb1606d1584f6668c5e43896ac0217bb05f468f;hpb=61885d0dba3c8e06146aabb40031609ef1eb5b2e;p=spider.git

diff --git a/perl/DXSql/SQLite.pm b/perl/DXSql/SQLite.pm
index 8cb1606d..36bcc46d 100644
--- a/perl/DXSql/SQLite.pm
+++ b/perl/DXSql/SQLite.pm
@@ -36,7 +36,7 @@ sub has_ipaddr
 	my $sth = $self->prepare($s);
 	$sth->execute;
 	while (my @t = $sth->fetchrow_array) {
-		if ($t[0] eq 'ipaddr') {
+		if ($t[1] eq 'ipaddr') {
 			$sth->finish;
 			return 1;
 		}
@@ -48,7 +48,7 @@ sub has_ipaddr
 sub add_ipaddr
 {
 	my $self = shift;
-	my $s = q(alter table spot add column ipaddr varchar(40));
+	my $s = q(alter table spot add column ipaddr text);
 	$self->do($s);
 }
 
@@ -79,10 +79,14 @@ ipaddr text
 sub spot_add_indexes
 {
 	my $self = shift;
-	$self->do('create index spot_ix1 on spot(time desc)');
 	dbg('adding spot index ix1');
-	$self->do('create index spot_ix2 on spot(spotcall asc)');
+	$self->do('create index spot_ix1 on spot(time asc)');
 	dbg('adding spot index ix2');
+	$self->do('create index spot_ix2 on spot(spotcall asc)');
+	dbg('adding spot index ix3');
+	$self->do('create index spot_ix3 on spot(freq asc)');
+	dbg('adding spot index ix4');
+	$self->do('create index spot_ix4 on spot(spotter asc)');
 }