fix sh/dx <call> with sql spot logging

[spider.git] / perl / DXSql / SQLite.pm

diff --git a/perl/DXSql/SQLite.pm b/perl/DXSql/SQLite.pm
index 8cb1606d1584f6668c5e43896ac0217bb05f468f..2330837f41cd4b2192dc2821f926ff917c00653b 100644 (file)
--- 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,10 @@ 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 desc)');
        dbg('adding spot index ix2');
+       $self->do('create index spot_ix2 on spot(spotcall asc)');
 }