gosa-si/modules/DBsqlite.pm

   1 package GOSA::DBsqlite;
   2
   3
   4 use strict;
   5 use warnings;
   6 use DBI;
   7 use Data::Dumper;
   8 use GOSA::GosaSupportDaemon;
   9 use Time::HiRes qw(usleep);
  10
  11
  12 my $col_names = {};
  13
  14 sub new {
  15     my $class = shift;
  16     my $db_name = shift;
  17
  18     my $lock = $db_name.".si.lock";
  19         # delete existing lock - instance should be running only once
  20         if(stat($lock)) {
  21                 &main::daemon_log("DEBUG: Removed existing lock $lock.", 7);
  22                 unlink($lock);
  23         }
  24     my $self = {dbh=>undef,db_name=>undef,db_lock=>undef,db_lock_handle=>undef};
  25     my $dbh = DBI->connect("dbi:SQLite:dbname=$db_name");
  26     $self->{dbh} = $dbh;
  27     $self->{db_name} = $db_name;
  28     $self->{db_lock} = $lock;
  29     bless($self,$class);
  30
  31     return($self);
  32 }
  33
  34 sub create_table {
  35     my $self = shift;
  36     my $table_name = shift;
  37     my $col_names_ref = shift;
  38     my @col_names;
  39     foreach my $col_name (@$col_names_ref) {
  40         my @t = split(" ", $col_name);
  41         $col_name = $t[0];
  42         push(@col_names, $col_name);
  43     }
  44
  45     $col_names->{ $table_name } = $col_names_ref;
  46     my $col_names_string = join("', '", @col_names);
  47     my $sql_statement = "CREATE TABLE IF NOT EXISTS $table_name ( '$col_names_string' )";
  48     $self->{dbh}->do($sql_statement);
  49     return 0;
  50 }
  51
  52
  53 sub add_dbentry {
  54     my $self = shift;
  55     my $arg = shift;
  56
  57     # if dbh not specified, return errorflag 1
  58     my $table = $arg->{table};
  59     if( not defined $table ) {
  60         return 1 ;
  61     }
  62
  63     # specify primary key in table
  64     if (not exists $arg->{primkey}) {
  65         return (2, "a hash key 'primkey' with at least an empty list as value is necessary for add_dbentry");
  66     }
  67     my $primkeys = $arg->{'primkey'};
  68     my $prim_statement="";
  69     if( 0 != @$primkeys ) {
  70         my @prim_list;
  71         foreach my $primkey (@$primkeys) {
  72             if($primkey eq 'id') {
  73                 # if primkey is id, fetch max id from table and give new job id=  max(id)+1
  74                 my $sql_statement = "SELECT MAX(CAST(id AS INTEGER)) FROM $table";
  75                 my $max_id = @{ @{ $self->{dbh}->selectall_arrayref($sql_statement) }[0] }[0];
  76                 my $id;
  77                 if( defined $max_id) {
  78                     $id = $max_id + 1;
  79                 } else {
  80                     $id = 1;
  81                 }
  82                 $arg->{id} = $id;
  83             }
  84             if( not exists $arg->{$primkey} ) {
  85                 return (3, "primkey '$primkey' has no value for add_dbentry");
  86             }
  87            push(@prim_list, "$primkey='".$arg->{$primkey}."'");
  88         }
  89         $prim_statement = "WHERE ".join(" AND ", @prim_list);
  90     }
  91
  92     # if timestamp is not provided, add timestamp
  93     if( not exists $arg->{timestamp} ) {
  94         $arg->{timestamp} = &get_time;
  95     }
  96
  97     # check wether primkey is unique in table, otherwise return errorflag
  98     my $sql_statement = "SELECT * FROM $table $prim_statement";
  99     my $res = @{ $self->{dbh}->selectall_arrayref($sql_statement) };
 100
 101     if ($res == 0) {
 102         # primekey is unique
 103
 104         # fetch column names of table
 105         my $col_names = &get_table_columns($self, $table);
 106
 107         # assign values to column name variables
 108         my @col_list;
 109                 my @val_list;
 110         foreach my $col_name (@{$col_names}) {
 111             # use function parameter for column values
 112             if (exists $arg->{$col_name}) {
 113                 push(@col_list, $col_name);
 114                                 push(@val_list, $arg->{$col_name});
 115             }
 116         }
 117
 118         my $sql_statement = "INSERT INTO $table (".join(", ", @col_list).") VALUES ('".join("', '", @val_list)."')";
 119         &main::daemon_log("DEBUG: $sql_statement", 7);
 120         my $db_res = $self->{dbh}->do($sql_statement);
 121         if( $db_res != 1 ) {
 122             return (4, $sql_statement);
 123         }
 124
 125     } else  {
 126         # entry already exists, so update it
 127         my @update_l;
 128         while( my ($pram, $val) = each %{$arg} ) {
 129             if( $pram eq 'table' ) { next; }
 130             if( $pram eq 'primkey' ) { next; }
 131             push(@update_l, "$pram='$val'");
 132         }
 133         my $update_str= join(", ", @update_l);
 134         $update_str= " SET $update_str";
 135
 136         my $sql_statement= "UPDATE $table $update_str $prim_statement";
 137         my $db_res = &update_dbentry($self, $sql_statement );
 138
 139     }
 140
 141     return 0;
 142 }
 143
 144 sub update_dbentry {
 145     my ($self, $sql)= @_;
 146     my $db_answer= &exec_statement($self, $sql);
 147     return $db_answer;
 148 }
 149
 150
 151 sub del_dbentry {
 152     my ($self, $sql)= @_;;
 153     my $db_res= &exec_statement($self, $sql);
 154     return $db_res;
 155 }
 156
 157
 158 sub get_table_columns {
 159     my $self = shift;
 160     my $table = shift;
 161     my @column_names;
 162
 163     if(exists $col_names->{$table}) {
 164         @column_names = @{$col_names->{$table}};
 165     } else {
 166         my @res = @{$self->{dbh}->selectall_arrayref("pragma table_info('$table')")};
 167
 168         foreach my $column (@res) {
 169             push(@column_names, @$column[1]);
 170         }
 171     }
 172     return \@column_names;
 173
 174 }
 175
 176
 177 sub select_dbentry {
 178     my ($self, $sql)= @_;
 179     my $error= 0;
 180     my $answer= {};
 181     my $db_answer= &exec_statement($self, $sql);
 182     my @column_list;
 183
 184     # fetch column list of db and create a hash with column_name->column_value of the select query
 185     $sql =~ /SELECT ([\S\s]*?) FROM ([\S]*?)( |$)/g;
 186     my $selected_cols = $1;
 187     my $table = $2;
 188
 189     # all columns are used for creating answer
 190     if ($selected_cols eq '*') {
 191         @column_list = @{ &get_table_columns($self, $table) };
 192
 193     # specific columns are used for creating answer
 194     } else {
 195         # remove all blanks and split string to list of column names
 196         $selected_cols =~ s/ //g;
 197         @column_list = split(/,/, $selected_cols);
 198     }
 199
 200     # create answer
 201     my $hit_counter = 0;
 202     my $list_len = @column_list;
 203     foreach my $hit ( @{$db_answer} ){
 204         $hit_counter++;
 205         for ( my $i = 0; $i < $list_len; $i++) {
 206             $answer->{ $hit_counter }->{ $column_list[$i] } = @{ $hit }[$i];
 207         }
 208     }
 209
 210     return $answer;
 211 }
 212
 213
 214 sub show_table {
 215     my $self = shift;
 216     my $table_name = shift;
 217
 218     my $sql_statement= "SELECT * FROM $table_name ORDER BY timestamp";
 219     my $res= &exec_statement($self, $sql_statement);
 220
 221     my @answer;
 222     foreach my $hit (@{$res}) {
 223         push(@answer, "hit: ".join(', ', @{$hit}));
 224     }
 225     return join("\n", @answer);
 226 }
 227
 228
 229 sub exec_statement {
 230     my $self = shift;
 231     my $sql_statement = shift;
 232
 233         $self->{dbh}->do("ANALYZE");
 234     my @db_answer = @{$self->{dbh}->selectall_arrayref($sql_statement)};
 235
 236     return \@db_answer;
 237 }
 238
 239
 240 sub exec_statementlist {
 241     my $self = shift;
 242     my $sql_list = shift;
 243     my @db_answer;
 244
 245     foreach my $sql (@$sql_list) {
 246         @db_answer = @{$self->{dbh}->selectall_arrayref($sql)};
 247     }
 248
 249     return \@db_answer;
 250 }
 251
 252 sub count_dbentries {
 253     my ($self, $table)= @_;
 254     my $error= 0;
 255     my $answer= -1;
 256
 257     my $sql_statement= "SELECT * FROM $table";
 258     my $db_answer= &select_dbentry($self, $sql_statement);
 259
 260     my $count = keys(%{$db_answer});
 261     return $count;
 262 }
 263
 264
 265
 266 sub move_table {
 267     my ($self, $from, $to) = @_;
 268
 269     my $sql_statement_drop = "DROP TABLE IF EXISTS $to";
 270     my $sql_statement_alter = "ALTER TABLE $from RENAME TO $to";
 271         $self->{dbh}->do($sql_statement_drop);
 272         $self->{dbh}->do($sql_statement_alter);
 273
 274     return;
 275 }
 276
 277
 278 1;