0b5cd69dd522ff98d2360a8b49ab7bcdc7592217
1 package GOSA::DBsqlite;
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);
13 my $col_names = {};
15 sub new {
16 my $class = shift;
17 my $db_name = shift;
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);
31 return($self);
32 }
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 }
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);
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 }
57 open($self->{db_lock_handle},'>',$self->{db_lock});
58 }
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 }
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 }
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 }
90 sub add_dbentry {
91 my $self = shift;
92 my $arg = shift;
94 # if dbh not specified, return errorflag 1
95 my $table = $arg->{table};
96 if( not defined $table ) {
97 return 1 ;
98 }
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 }
131 # if timestamp is not provided, add timestamp
132 if( not exists $arg->{timestamp} ) {
133 $arg->{timestamp} = &get_time;
134 }
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');
142 if ($res == 0) {
143 # primekey is unique
145 # fetch column names of table
146 my $col_names = &get_table_columns($self, $table);
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 }
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 }
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";
178 my $sql_statement= "UPDATE $table $update_str $prim_statement";
179 my $db_res = &update_dbentry($self, $sql_statement );
181 }
183 return 0;
184 }
186 sub update_dbentry {
187 my ($self, $sql)= @_;
188 my $db_answer= &exec_statement($self, $sql);
189 return $db_answer;
190 }
193 sub del_dbentry {
194 my ($self, $sql)= @_;;
195 my $db_res= &exec_statement($self, $sql);
196 return $db_res;
197 }
200 sub get_table_columns {
201 my $self = shift;
202 my $table = shift;
203 my @column_names;
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');
212 foreach my $column (@res) {
213 push(@column_names, @$column[1]);
214 }
215 }
216 return \@column_names;
218 }
221 sub select_dbentry {
222 my ($self, $sql)= @_;
223 my $error= 0;
224 my $answer= {};
226 my $db_answer= &exec_statement($self, $sql);
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 }
241 return $answer;
242 }
245 sub show_table {
246 my $self = shift;
247 my $table_name = shift;
249 my $sql_statement= "SELECT * FROM $table_name ORDER BY timestamp";
250 my $res= &exec_statement($self, $sql_statement);
252 my @answer;
253 foreach my $hit (@{$res}) {
254 push(@answer, "hit: ".join(', ', @{$hit}));
255 }
256 return join("\n", @answer);
257 }
260 sub exec_statement {
261 my $self = shift;
262 my $sql_statement = shift;
264 &create_lock($self,'exec_statement');
265 my @db_answer = @{$self->{dbh}->selectall_arrayref($sql_statement)};
266 &remove_lock($self, 'exec_statement');
268 return \@db_answer;
269 }
272 sub exec_statementlist {
273 my $self = shift;
274 my $sql_list = shift;
275 my @db_answer;
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');
283 return \@db_answer;
284 }
286 sub count_dbentries {
287 my ($self, $table)= @_;
288 my $error= 0;
289 my $answer= -1;
291 my $sql_statement= "SELECT * FROM $table";
292 my $db_answer= &select_dbentry($self, $sql_statement);
294 my $count = keys(%{$db_answer});
295 return $count;
296 }
300 sub move_table {
301 my ($self, $from, $to) = @_;
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');
310 return;
311 }
314 1;