]> dxcluster.net Git - spider.git/blob - perl/DXSql/mysql.pm
force all channels to default width 80 columns
[spider.git] / perl / DXSql / mysql.pm
1 #
2 # Module for SQLite DXSql variants
3 #
4 # Stuff like table creates and (later) alters
5 #
6 #
7 #
8 # Copyright (c) 2005 Dirk Koopman G1TLH
9 #
10
11 package DXSql::mysql;
12
13 use DXDebug;
14
15 use vars qw(@ISA);
16 @ISA = qw{DXSql};
17
18 sub show_tables
19 {
20         my $self = shift;
21         my $s = q(show tables);
22         my $sth = $self->prepare($s);
23         $sth->execute;
24         my @out;
25         while (my @t = $sth->fetchrow_array) {
26                 push @out, @t;
27         }
28         $sth->finish;
29         return @out;
30 }
31
32 sub has_ipaddr
33 {
34         my $self = shift;
35         my $s = q(describe spot);
36         my $sth = $self->prepare($s);
37         $sth->execute;
38         while (my @t = $sth->fetchrow_array) {
39                 if ($t[0] eq 'ipaddr') {
40                         $sth->finish;
41                         return 1;
42                 }
43         }
44         $sth->finish;
45         return undef;
46 }
47
48 sub add_ipaddr
49 {
50         my $self = shift;
51         my $s = q(alter table spot add column ipaddr varchar(40));
52         $self->do($s);
53 }
54
55 sub spot_create_table
56 {
57         my $self = shift;
58         my $s = q{create table spot (
59 rowid integer auto_increment primary key ,
60 freq real not null,
61 spotcall varchar(14) not null,
62 time int not null,
63 comment varchar(255),
64 spotter varchar(14) not null,
65 spotdxcc smallint,
66 spotterdxcc smallint,
67 origin varchar(14),
68 spotitu tinyint,
69 spotcq tinyint,
70 spotteritu tinyint,
71 spottercq tinyint,
72 spotstate char(2),
73 spotterstate char(2),
74 ipaddr varchar(40)
75 )};
76         $self->do($s);
77 }
78
79 sub spot_add_indexes
80 {
81         my $self = shift;
82         dbg('adding spot index ix1');
83         $self->do('create index spot_ix1 on spot(time desc)');
84         dbg('adding spot index ix2');
85         $self->do('create index spot_ix2 on spot(spotcall asc)');
86 }
87
88
89 1;