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", "", "", {RaiseError => 1, AutoCommit => 1});
  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
  35 sub create_table {
  36     my $self = shift;
  37     my $table_name = shift;
  38     my $col_names_ref = shift;
  39     my @col_names;
  40     foreach my $col_name (@$col_names_ref) {
  41         my @t = split(" ", $col_name);
  42         $col_name = $t[0];
  43         push(@col_names, $col_name);
  44     }
  45
  46     $col_names->{ $table_name } = $col_names_ref;
  47     my $col_names_string = join("', '", @col_names);
  48     my $sql_statement = "CREATE TABLE IF NOT EXISTS $table_name ( '$col_names_string' )";
  49         eval {
  50                 my $res = $self->{dbh}->do($sql_statement);
  51         };
  52         if($@) {
  53                 $self->{dbh}->do("ANALYZE");
  54         }
  55         eval {
  56                 my $res = $self->{dbh}->do($sql_statement);
  57         };
  58         if($@) {
  59                 &main::daemon_log("ERROR: $sql_statement failed with $@", 1);
  60         }
  61
  62     return 0;
  63 }
  64
  65
  66 sub add_dbentry {
  67         my $self = shift;
  68         my $arg = shift;
  69         my $res = 0;   # default value
  70
  71         # if dbh not specified, return errorflag 1
  72         my $table = $arg->{table};
  73         if( not defined $table ) {
  74                 return 1 ;
  75         }
  76
  77         # if timestamp is not provided, add timestamp
  78         if( not exists $arg->{timestamp} ) {
  79                 $arg->{timestamp} = &get_time;
  80         }
  81
  82         # check primkey and run insert or update
  83         my $primkeys = $arg->{'primkey'};
  84         my $prim_statement="";
  85         if( 0 != @$primkeys ) {   # more than one primkey exist in list
  86                 my @prim_list;
  87                 foreach my $primkey (@$primkeys) {
  88                         if( not exists $arg->{$primkey} ) {
  89                                 return (3, "primkey '$primkey' has no value for add_dbentry");
  90                         }
  91                         push(@prim_list, "$primkey='".$arg->{$primkey}."'");
  92                 }
  93                 $prim_statement = "WHERE ".join(" AND ", @prim_list);
  94
  95                 # check wether primkey is unique in table, otherwise return errorflag
  96                 my $sql_statement = "SELECT * FROM $table $prim_statement";
  97                 eval {
  98                         $res = @{ $self->{dbh}->selectall_arrayref($sql_statement) };
  99                 };
 100                 if($@) {
 101                         $self->{dbh}->do("ANALYZE");
 102                         eval {
 103                                 $res = @{ $self->{dbh}->selectall_arrayref($sql_statement) };
 104                         };
 105                         if($@) {
 106                                 &main::daemon_log("ERROR: $sql_statement failed with $@", 1);
 107                         }
 108                 }
 109
 110         }
 111
 112         # primkey is unique or no primkey specified -> run insert
 113         if ($res == 0) {
 114                 # fetch column names of table
 115                 my $col_names = &get_table_columns($self, $table);
 116
 117                 my $create_id=0;
 118                 foreach my $col_name (@{$col_names}) {
 119                         if($col_name eq "id" && (! exists $arg->{$col_name})) {
 120                                 &main::daemon_log("DEBUG: id field found without value! Creating autoincrement statement!");
 121                                 $create_id=1;
 122                         }
 123                 }
 124
 125                 # assign values to column name variables
 126                 my @col_list;
 127                 my @val_list;
 128                 foreach my $col_name (@{$col_names}) {
 129                         # use function parameter for column values
 130                         if (exists $arg->{$col_name}) {
 131                                 push(@col_list, "'".$col_name."'");
 132                                 push(@val_list, "'".$arg->{$col_name}."'");
 133                         }
 134                 }
 135
 136                 my $sql_statement;
 137                 if($create_id==1) {
 138                         $sql_statement = "INSERT INTO $table ('id', ".join(", ", @col_list).") VALUES ((select coalesce(max(id), 0)+1 from $table), ".join(", ", @val_list).")";
 139                 } else {
 140                         $sql_statement = "INSERT INTO $table (".join(", ", @col_list).") VALUES (".join(", ", @val_list).")";
 141                 }
 142                 my $db_res;
 143                 eval {
 144                         $db_res = $self->{dbh}->do($sql_statement);
 145                 };
 146                 if($@) {
 147                         $self->{dbh}->do("ANALYZE");
 148                         eval {
 149                                 $db_res = $self->{dbh}->do($sql_statement);
 150                         };
 151                         if($@) {
 152                                 &main::daemon_log("ERROR: $sql_statement failed with $@", 1);
 153                         }
 154                 }
 155
 156                 if( $db_res != 1 ) {
 157                         return (4, $sql_statement);
 158                 }
 159
 160                 # entry already exists -> run update
 161         } else  {
 162                 my @update_l;
 163                 while( my ($pram, $val) = each %{$arg} ) {
 164                         if( $pram eq 'table' ) { next; }
 165                         if( $pram eq 'primkey' ) { next; }
 166                         push(@update_l, "$pram='$val'");
 167                 }
 168                 my $update_str= join(", ", @update_l);
 169                 $update_str= " SET $update_str";
 170
 171                 my $sql_statement= "UPDATE $table $update_str $prim_statement";
 172                 my $db_res = &update_dbentry($self, $sql_statement );
 173         }
 174
 175         return 0;
 176 }
 177
 178
 179 sub update_dbentry {
 180     my ($self, $sql)= @_;
 181     my $db_answer= &exec_statement($self, $sql);
 182     return $db_answer;
 183 }
 184
 185
 186 sub del_dbentry {
 187     my ($self, $sql)= @_;;
 188     my $db_res= &exec_statement($self, $sql);
 189     return $db_res;
 190 }
 191
 192
 193 sub get_table_columns {
 194     my $self = shift;
 195     my $table = shift;
 196     my @column_names;
 197
 198         if(exists $col_names->{$table}) {
 199                 @column_names = @{$col_names->{$table}};
 200         } else {
 201                 my @res;
 202                 eval {
 203                         @res = @{$self->{dbh}->selectall_arrayref("pragma table_info('$table')")};
 204                 };
 205                 if($@) {
 206                         $self->{dbh}->do("ANALYZE");
 207                         eval {
 208                                 @res = @{$self->{dbh}->selectall_arrayref("pragma table_info('$table')")};
 209                         };
 210                         if($@) {
 211                                 &main::daemon_log("ERROR: pragma table_info('$table') failed with $@", 1);
 212                         }
 213                 }
 214
 215                 foreach my $column (@res) {
 216                         push(@column_names, @$column[1]);
 217                 }
 218         }
 219     return \@column_names;
 220
 221 }
 222
 223
 224 sub select_dbentry {
 225     my ($self, $sql)= @_;
 226     my $error= 0;
 227     my $answer= {};
 228     my $db_answer= &exec_statement($self, $sql);
 229     my @column_list;
 230
 231     # fetch column list of db and create a hash with column_name->column_value of the select query
 232     $sql =~ /SELECT ([\S\s]*?) FROM ([\S]*?)( |$)/g;
 233     my $selected_cols = $1;
 234     my $table = $2;
 235
 236     # all columns are used for creating answer
 237     if ($selected_cols eq '*') {
 238         @column_list = @{ &get_table_columns($self, $table) };
 239
 240     # specific columns are used for creating answer
 241     } else {
 242         # remove all blanks and split string to list of column names
 243         $selected_cols =~ s/ //g;
 244         @column_list = split(/,/, $selected_cols);
 245     }
 246
 247     # create answer
 248     my $hit_counter = 0;
 249     my $list_len = @column_list;
 250     foreach my $hit ( @{$db_answer} ){
 251         $hit_counter++;
 252         for ( my $i = 0; $i < $list_len; $i++) {
 253             $answer->{ $hit_counter }->{ $column_list[$i] } = @{ $hit }[$i];
 254         }
 255     }
 256
 257     return $answer;
 258 }
 259
 260
 261 sub show_table {
 262     my $self = shift;
 263     my $table_name = shift;
 264
 265     my $sql_statement= "SELECT * FROM $table_name ORDER BY timestamp";
 266     my $res= &exec_statement($self, $sql_statement);
 267     my @answer;
 268     foreach my $hit (@{$res}) {
 269         push(@answer, "hit: ".join(', ', @{$hit}));
 270     }
 271
 272     return join("\n", @answer);
 273 }
 274
 275
 276 sub exec_statement {
 277     my $self = shift;
 278     my $sql_statement = shift;
 279     my @db_answer;
 280
 281         eval {
 282         @db_answer = @{$self->{dbh}->selectall_arrayref($sql_statement)};
 283         };
 284         if($@) {
 285                 $self->{dbh}->do("ANALYZE");
 286                 eval {
 287                         @db_answer = @{$self->{dbh}->selectall_arrayref($sql_statement)};
 288                 };
 289                 if($@) {
 290                         &main::daemon_log("ERROR: $sql_statement failed with $@", 1);
 291                 }
 292         }
 293
 294     return \@db_answer;
 295 }
 296
 297
 298 sub exec_statementlist {
 299     my $self = shift;
 300     my $sql_list = shift;
 301     my @db_answer;
 302
 303     foreach my $sql (@$sql_list) {
 304                 eval {
 305                 my @answer = @{$self->{dbh}->selectall_arrayref($sql)};
 306                         push @db_answer, @answer;
 307                 };
 308                 if($@) {
 309                         $self->{dbh}->do("ANALYZE");
 310                         eval {
 311                         my @answer = @{$self->{dbh}->selectall_arrayref($sql)};
 312                                 push @db_answer, @answer;
 313                         };
 314                         if($@) {
 315                                 &main::daemon_log("ERROR: $sql failed with $@", 1);
 316                         }
 317                 }
 318     }
 319
 320     return \@db_answer;
 321 }
 322
 323 sub count_dbentries {
 324     my ($self, $table)= @_;
 325     my $error= 0;
 326     my $answer= -1;
 327
 328     my $sql_statement= "SELECT * FROM $table";
 329     my $db_answer= &select_dbentry($self, $sql_statement);
 330
 331     my $count = keys(%{$db_answer});
 332     return $count;
 333 }
 334
 335
 336 sub move_table {
 337         my ($self, $from, $to) = @_;
 338
 339         my $sql_statement_drop = "DROP TABLE IF EXISTS $to";
 340         my $sql_statement_alter = "ALTER TABLE $from RENAME TO $to";
 341
 342         eval {
 343                 $self->{dbh}->do($sql_statement_drop);
 344         };
 345         if($@) {
 346                 $self->{dbh}->do("ANALYZE");
 347                 eval {
 348                         $self->{dbh}->do($sql_statement_drop);
 349                 };
 350                 if($@) {
 351                         &main::daemon_log("ERROR: $sql_statement_drop failed with $@", 1);
 352                 }
 353         }
 354
 355         eval {
 356                 $self->{dbh}->do($sql_statement_alter);
 357         };
 358         if($@) {
 359                 $self->{dbh}->do("ANALYZE");
 360                 eval {
 361                         $self->{dbh}->do($sql_statement_alter);
 362                 };
 363                 if($@) {
 364                         &main::daemon_log("ERROR: $sql_statement_alter failed with $@", 1);
 365                 }
 366         }
 367
 368         return;
 369 }
 370
 371
 372 1;