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