latest version of RBN. Add qra to prefixes.

[spider.git] / perl / DXSql.pm

diff --git a/perl/DXSql.pm b/perl/DXSql.pm
index d125cc59ca37ac4ba436a0438f8c1cb8ab0656fd..842e30054fc1a8c00db5f483d8593ef02b25e10b 100644 (file)
--- a/perl/DXSql.pm
+++ b/perl/DXSql.pm
@@ -10,8 +10,6 @@ package DXSql;
 
 use strict;
 
-use DXSql::SQLite;
-use DXSql::mysql;
 use DXDebug;
 
 use vars qw($active);
@@ -164,6 +162,7 @@ sub spot_search
                $expr =~ s/\$f11/spottercq/g;
                $expr =~ s/\$f12/spotstate/g;
                $expr =~ s/\$f13/spotterstate/g;
+               $expr =~ s/\$f14/ipaddr/g;
                $expr =~ s/\$f0/freq/g;
                $expr =~ s/\$f1/spotcall/g;
                $expr =~ s/\$f2/time/g;
@@ -185,7 +184,7 @@ sub spot_search
        my $trange = $fdays ? "($fdays and $days)" : $days;
        $expr .= $expr ? " and $trange" : $trange;
     my $s = qq{select freq,spotcall,time,comment,spotter,spotdxcc,spotterdxcc,
-origin,spotitu,spotcq,spotteritu,spottercq,spotstate,spotterstate from spot
+origin,spotitu,spotcq,spotteritu,spottercq,spotstate,spotterstate,ipaddr from spot
 where $expr order by time desc limit $n};
     dbg("sql expr: $s") if isdbg('search');
        my $ref = $self->{dbh}->selectall_arrayref($s);