10472f00b039d993ac4541e53383e505ed2413b4
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", "", "", {RaiseError => 1, AutoCommit => 1});
26 $self->{dbh} = $dbh;
27 $self->{db_name} = $db_name;
28 $self->{db_lock} = $lock;
29 bless($self,$class);
31 return($self);
32 }
35 sub create_table {
36 my $self = shift;
37 my $table_name = shift;
38 my $col_names_ref = shift;
39 my $col_names_string = join(", ", @{$col_names_ref});
40 my $sql_statement = "CREATE TABLE IF NOT EXISTS $table_name ($col_names_string )";
41 my $res = $self->{dbh}->do($sql_statement);
42 return 0;
43 }
46 sub add_dbentry {
47 my $self = shift;
48 my $arg = shift;
49 my $res = 0; # default value
51 # if dbh not specified, return errorflag 1
52 my $table = $arg->{table};
53 if( not defined $table ) {
54 return 1 ;
55 }
57 # if timestamp is not provided, add timestamp
58 if( not exists $arg->{timestamp} ) {
59 $arg->{timestamp} = &get_time;
60 }
62 # check primkey and run insert or update
63 my $primkeys = $arg->{'primkey'};
64 my $prim_statement="";
65 if( 0 != @$primkeys ) { # more than one primkey exist in list
66 my @prim_list;
67 foreach my $primkey (@$primkeys) {
68 if( not exists $arg->{$primkey} ) {
69 return (3, "primkey '$primkey' has no value for add_dbentry");
70 }
71 push(@prim_list, "$primkey='".$arg->{$primkey}."'");
72 }
73 $prim_statement = "WHERE ".join(" AND ", @prim_list);
75 # check wether primkey is unique in table, otherwise return errorflag
76 my $sql_statement = "SELECT * FROM $table $prim_statement";
77 $res = @{ $self->{dbh}->selectall_arrayref($sql_statement) };
79 }
81 # primekey is unique or no primkey specified -> run insert
82 if ($res == 0) {
83 # fetch column names of table
84 my $col_names = &get_table_columns($self, $table);
86 # assign values to column name variables
87 my @col_list;
88 my @val_list;
89 foreach my $col_name (@{$col_names}) {
90 # use function parameter for column values
91 if (exists $arg->{$col_name}) {
92 push(@col_list, "'".$col_name."'");
93 push(@val_list, "'".$arg->{$col_name}."'");
94 }
95 }
97 my $sql_statement = "INSERT INTO $table (".join(", ", @col_list).") VALUES (".join(", ", @val_list).")";
98 my $db_res = $self->{dbh}->do($sql_statement);
99 if( $db_res != 1 ) {
100 return (4, $sql_statement);
101 }
103 # entry already exists -> run update
104 } else {
105 my @update_l;
106 while( my ($pram, $val) = each %{$arg} ) {
107 if( $pram eq 'table' ) { next; }
108 if( $pram eq 'primkey' ) { next; }
109 push(@update_l, "$pram='$val'");
110 }
111 my $update_str= join(", ", @update_l);
112 $update_str= " SET $update_str";
114 my $sql_statement= "UPDATE $table $update_str $prim_statement";
115 my $db_res = &update_dbentry($self, $sql_statement );
116 }
118 return 0;
119 }
121 sub update_dbentry {
122 my ($self, $sql)= @_;
123 my $db_answer= &exec_statement($self, $sql);
124 return $db_answer;
125 }
128 sub del_dbentry {
129 my ($self, $sql)= @_;;
130 my $db_res= &exec_statement($self, $sql);
131 return $db_res;
132 }
135 sub get_table_columns {
136 my $self = shift;
137 my $table = shift;
138 my @column_names;
140 if(exists $col_names->{$table}) {
141 @column_names = @{$col_names->{$table}};
142 } else {
143 my @res = @{$self->{dbh}->selectall_arrayref("pragma table_info('$table')")};
145 foreach my $column (@res) {
146 push(@column_names, @$column[1]);
147 }
148 }
149 return \@column_names;
151 }
154 sub select_dbentry {
155 my ($self, $sql)= @_;
156 my $error= 0;
157 my $answer= {};
158 my $db_answer= &exec_statement($self, $sql);
159 my @column_list;
161 # fetch column list of db and create a hash with column_name->column_value of the select query
162 $sql =~ /SELECT ([\S\s]*?) FROM ([\S]*?)( |$)/g;
163 my $selected_cols = $1;
164 my $table = $2;
166 # all columns are used for creating answer
167 if ($selected_cols eq '*') {
168 @column_list = @{ &get_table_columns($self, $table) };
170 # specific columns are used for creating answer
171 } else {
172 # remove all blanks and split string to list of column names
173 $selected_cols =~ s/ //g;
174 @column_list = split(/,/, $selected_cols);
175 }
177 # create answer
178 my $hit_counter = 0;
179 my $list_len = @column_list;
180 foreach my $hit ( @{$db_answer} ){
181 $hit_counter++;
182 for ( my $i = 0; $i < $list_len; $i++) {
183 $answer->{ $hit_counter }->{ $column_list[$i] } = @{ $hit }[$i];
184 }
185 }
187 return $answer;
188 }
191 sub show_table {
192 my $self = shift;
193 my $table_name = shift;
195 my $sql_statement= "SELECT * FROM $table_name ORDER BY timestamp";
196 my $res= &exec_statement($self, $sql_statement);
197 my @answer;
198 foreach my $hit (@{$res}) {
199 push(@answer, "hit: ".join(', ', @{$hit}));
200 }
201 return join("\n", @answer);
202 }
205 sub exec_statement {
206 my $self = shift;
207 my $sql_statement = shift;
209 $self->{dbh}->do("ANALYZE");
210 my @db_answer = @{$self->{dbh}->selectall_arrayref($sql_statement)};
212 return \@db_answer;
213 }
216 sub exec_statementlist {
217 my $self = shift;
218 my $sql_list = shift;
219 my @db_answer;
221 $self->{dbh}->do("ANALYZE");
222 foreach my $sql (@$sql_list) {
223 @db_answer = @{$self->{dbh}->selectall_arrayref($sql)};
224 }
226 return \@db_answer;
227 }
229 sub count_dbentries {
230 my ($self, $table)= @_;
231 my $error= 0;
232 my $answer= -1;
234 my $sql_statement= "SELECT * FROM $table";
235 my $db_answer= &select_dbentry($self, $sql_statement);
237 my $count = keys(%{$db_answer});
238 return $count;
239 }
243 sub move_table {
244 my ($self, $from, $to) = @_;
246 my $sql_statement_drop = "DROP TABLE IF EXISTS $to";
247 my $sql_statement_alter = "ALTER TABLE $from RENAME TO $to";
248 $self->{dbh}->do($sql_statement_drop);
249 $self->{dbh}->do($sql_statement_alter);
251 return;
252 }
255 1;