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