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 spot_create_table
  33 {
  34         my $self = shift;
  35         my $s = q{create table spot (
  36 rowid integer auto_increment primary key ,
  37 freq real not null,
  38 spotcall varchar(14) not null,
  39 time int not null,
  40 comment varchar(255),
  41 spotter varchar(14) not null,
  42 spotdxcc smallint,
  43 spotterdxcc smallint,
  44 origin varchar(14),
  45 spotitu tinyint,
  46 spotcq tinyint,
  47 spotteritu tinyint,
  48 spottercq tinyint,
  49 spotstate char(2),
  50 spotterstate char(2)
  51 )};
  52         $self->do($s);
  53 }
  54
  55 sub spot_add_indexes
  56 {
  57         my $self = shift;
  58         $self->do('create index spot_ix1 on spot(time desc)');
  59         dbg('adding spot index ix1');
  60         $self->do('create index spot_ix2 on spot(spotcall asc)');
  61         dbg('adding spot index ix2');
  62 }
  63
  64
  65 1;