projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'staging' of ssh://server/scm/spider into staging
[spider.git]
/
perl
/
DXSql
/
SQLite.pm
diff --git
a/perl/DXSql/SQLite.pm
b/perl/DXSql/SQLite.pm
index 14eb0621f96e85bbc3805daecd1200850041e168..36bcc46da72554ae53721a85b147f8f6868b0e6b 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) {
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;
}
$sth->finish;
return 1;
}
@@
-48,7
+48,7
@@
sub has_ipaddr
sub add_ipaddr
{
my $self = shift;
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);
}
$self->do($s);
}
@@
-80,9
+80,13
@@
sub spot_add_indexes
{
my $self = shift;
dbg('adding spot index ix1');
{
my $self = shift;
dbg('adding spot index ix1');
- $self->do('create index spot_ix1 on spot(time
de
sc)');
+ $self->do('create index spot_ix1 on spot(time
a
sc)');
dbg('adding spot index ix2');
$self->do('create index spot_ix2 on spot(spotcall 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)');
}
}