a629320a15f7e412eb5ef911657f35b49659525a
1 package GOSA::DBsqlite;
4 use strict;
5 use warnings;
6 use DBI;
7 use Data::Dumper;
8 use GOSA::GosaSupportDaemon;
9 use Time::HiRes qw(usleep);
12 my $col_names = {};
14 sub new {
15 my $class = shift;
16 my $db_name = shift;
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);
31 return($self);
32 }
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 }
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 }
53 sub add_dbentry {
54 my $self = shift;
55 my $arg = shift;
57 # if dbh not specified, return errorflag 1
58 my $table = $arg->{table};
59 if( not defined $table ) {
60 return 1 ;
61 }
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 ) { # more than one primkey exist in list
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 }
92 # if timestamp is not provided, add timestamp
93 if( not exists $arg->{timestamp} ) {
94 $arg->{timestamp} = &get_time;
95 }
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) };
102 # primekey is unique
103 if ($res == 0) {
104 # fetch column names of table
105 my $col_names = &get_table_columns($self, $table);
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 }
118 my $sql_statement = "INSERT INTO $table (".join(", ", @col_list).") VALUES ('".join("', '", @val_list)."')";
119 my $db_res = $self->{dbh}->do($sql_statement);
120 if( $db_res != 1 ) {
121 return (4, $sql_statement);
122 }
124 # entry already exists, so update it
125 } else {
126 my @update_l;
127 while( my ($pram, $val) = each %{$arg} ) {
128 if( $pram eq 'table' ) { next; }
129 if( $pram eq 'primkey' ) { next; }
130 push(@update_l, "$pram='$val'");
131 }
132 my $update_str= join(", ", @update_l);
133 $update_str= " SET $update_str";
135 my $sql_statement= "UPDATE $table $update_str $prim_statement";
136 my $db_res = &update_dbentry($self, $sql_statement );
137 }
139 return 0;
140 }
142 sub update_dbentry {
143 my ($self, $sql)= @_;
144 my $db_answer= &exec_statement($self, $sql);
145 return $db_answer;
146 }
149 sub del_dbentry {
150 my ($self, $sql)= @_;;
151 my $db_res= &exec_statement($self, $sql);
152 return $db_res;
153 }
156 sub get_table_columns {
157 my $self = shift;
158 my $table = shift;
159 my @column_names;
161 if(exists $col_names->{$table}) {
162 @column_names = @{$col_names->{$table}};
163 } else {
164 my @res = @{$self->{dbh}->selectall_arrayref("pragma table_info('$table')")};
166 foreach my $column (@res) {
167 push(@column_names, @$column[1]);
168 }
169 }
170 return \@column_names;
172 }
175 sub select_dbentry {
176 my ($self, $sql)= @_;
177 my $error= 0;
178 my $answer= {};
179 my $db_answer= &exec_statement($self, $sql);
180 my @column_list;
182 # fetch column list of db and create a hash with column_name->column_value of the select query
183 $sql =~ /SELECT ([\S\s]*?) FROM ([\S]*?)( |$)/g;
184 my $selected_cols = $1;
185 my $table = $2;
187 # all columns are used for creating answer
188 if ($selected_cols eq '*') {
189 @column_list = @{ &get_table_columns($self, $table) };
191 # specific columns are used for creating answer
192 } else {
193 # remove all blanks and split string to list of column names
194 $selected_cols =~ s/ //g;
195 @column_list = split(/,/, $selected_cols);
196 }
198 # create answer
199 my $hit_counter = 0;
200 my $list_len = @column_list;
201 foreach my $hit ( @{$db_answer} ){
202 $hit_counter++;
203 for ( my $i = 0; $i < $list_len; $i++) {
204 $answer->{ $hit_counter }->{ $column_list[$i] } = @{ $hit }[$i];
205 }
206 }
208 return $answer;
209 }
212 sub show_table {
213 my $self = shift;
214 my $table_name = shift;
216 my $sql_statement= "SELECT * FROM $table_name ORDER BY timestamp";
217 my $res= &exec_statement($self, $sql_statement);
219 my @answer;
220 foreach my $hit (@{$res}) {
221 push(@answer, "hit: ".join(', ', @{$hit}));
222 }
223 return join("\n", @answer);
224 }
227 sub exec_statement {
228 my $self = shift;
229 my $sql_statement = shift;
231 $self->{dbh}->do("ANALYZE");
232 my @db_answer = @{$self->{dbh}->selectall_arrayref($sql_statement)};
234 return \@db_answer;
235 }
238 sub exec_statementlist {
239 my $self = shift;
240 my $sql_list = shift;
241 my @db_answer;
243 foreach my $sql (@$sql_list) {
244 @db_answer = @{$self->{dbh}->selectall_arrayref($sql)};
245 }
247 return \@db_answer;
248 }
250 sub count_dbentries {
251 my ($self, $table)= @_;
252 my $error= 0;
253 my $answer= -1;
255 my $sql_statement= "SELECT * FROM $table";
256 my $db_answer= &select_dbentry($self, $sql_statement);
258 my $count = keys(%{$db_answer});
259 return $count;
260 }
264 sub move_table {
265 my ($self, $from, $to) = @_;
267 my $sql_statement_drop = "DROP TABLE IF EXISTS $to";
268 my $sql_statement_alter = "ALTER TABLE $from RENAME TO $to";
269 $self->{dbh}->do($sql_statement_drop);
270 $self->{dbh}->do($sql_statement_alter);
272 return;
273 }
276 1;