Userlogin mit Mandanten gefixt (erster Schritt)
[kivitendo-erp.git] / SL / User.pm
1 #=====================================================================
2 # LX-Office ERP
3 # Copyright (C) 2004
4 # Based on SQL-Ledger Version 2.1.9
5 # Web http://www.lx-office.org
6 #
7 #=====================================================================
8 # SQL-Ledger Accounting
9 # Copyright (C) 2001
10 #
11 #  Author: Dieter Simader
12 #   Email: dsimader@sql-ledger.org
13 #     Web: http://www.sql-ledger.org
14 #
15 #  Contributors:
16 #
17 # This program is free software; you can redistribute it and/or modify
18 # it under the terms of the GNU General Public License as published by
19 # the Free Software Foundation; either version 2 of the License, or
20 # (at your option) any later version.
21 #
22 # This program is distributed in the hope that it will be useful,
23 # but WITHOUT ANY WARRANTY; without even the implied warranty of
24 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
25 # GNU General Public License for more details.
26 # You should have received a copy of the GNU General Public License
27 # along with this program; if not, write to the Free Software
28 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
29 #=====================================================================
30 #
31 # user related functions
32 #
33 #=====================================================================
34
35 package User;
36
37 use IO::File;
38 use Fcntl qw(:seek);
39
40 #use SL::Auth;
41 use SL::DBConnect;
42 use SL::DBUpgrade2;
43 use SL::DBUtils;
44 use SL::Iconv;
45 use SL::Inifile;
46
47 use strict;
48
49 sub new {
50   $main::lxdebug->enter_sub();
51
52   my ($type, %params) = @_;
53
54   my $self = {};
55
56   if ($params{id} || $params{login}) {
57     my %user_data = $main::auth->read_user(%params);
58     map { $self->{$_} = $user_data{$_} } keys %user_data;
59   }
60
61   $main::lxdebug->leave_sub();
62
63   bless $self, $type;
64 }
65
66 sub country_codes {
67   $main::lxdebug->enter_sub();
68
69   local *DIR;
70
71   my %cc       = ();
72   my @language = ();
73
74   # scan the locale directory and read in the LANGUAGE files
75   opendir(DIR, "locale");
76
77   my @dir = grep(!/(^\.\.?$|\..*)/, readdir(DIR));
78
79   foreach my $dir (@dir) {
80     next unless open(my $fh, '<:encoding(UTF-8)', "locale/$dir/LANGUAGE");
81     @language = <$fh>;
82     close $fh;
83
84     $cc{$dir} = "@language";
85   }
86
87   closedir(DIR);
88
89   $main::lxdebug->leave_sub();
90
91   return %cc;
92 }
93
94 sub login {
95   my ($self, $form) = @_;
96   our $sid;
97
98   return -3 if !$self->{login} || !$::auth->client;
99
100   my %myconfig = $main::auth->read_user(login => $self->{login});
101
102   # check if database is down
103   my $dbh = $form->dbconnect_noauto;
104
105   # we got a connection, check the version
106   my $query = qq|SELECT version FROM defaults|;
107   my $sth   = $dbh->prepare($query);
108   $sth->execute || $form->dberror($query);
109
110   my ($dbversion) = $sth->fetchrow_array;
111   $sth->finish;
112
113   $self->create_employee_entry($form, $dbh, \%myconfig);
114
115   $self->create_schema_info_table($form, $dbh);
116
117   # Auth DB upgrades available?
118   my $dbupdater_auth = SL::DBUpgrade2->new(form => $form, dbdriver => 'Pg', auth => 1)->parse_dbupdate_controls;
119   return -3 if $dbupdater_auth->unapplied_upgrade_scripts($::auth->dbconnect);
120
121   my $dbupdater = SL::DBUpgrade2->new(form => $form, dbdriver => $myconfig{dbdriver})->parse_dbupdate_controls;
122
123   $form->{$_} = $::auth->client->{$_} for qw(dbname dbhost dbport dbuser dbpasswd);
124   $form->{$_} = $myconfig{$_}         for qw(dateformat);
125
126   dbconnect_vars($form, $form->{dbname});
127
128   my $update_available = $dbupdater->update_available($dbversion) || $dbupdater->update2_available($dbh);
129   $dbh->disconnect;
130
131   return 0 if !$update_available;
132   $form->{"title"} = $main::locale->text("Dataset upgrade");
133   $form->header(no_layout => $form->{no_layout});
134   print $form->parse_html_template("dbupgrade/header");
135
136   $form->{dbupdate} = "db" . $form->{dbname};
137
138   if ($form->{"show_dbupdate_warning"}) {
139     print $form->parse_html_template("dbupgrade/warning");
140     ::end_of_request();
141   }
142
143   # update the tables
144   my $fh;
145   if (!$::lx_office_conf{debug}->{keep_installation_unlocked} && !open($fh, ">", $::lx_office_conf{paths}->{userspath} . "/nologin")) {
146     $form->show_generic_error($main::locale->text('A temporary file could not be created. ' .
147                                                   'Please verify that the directory "#1" is writeable by the webserver.',
148                                                   $::lx_office_conf{paths}->{userspath}),
149                               'back_button' => 1);
150   }
151
152   # ignore HUP, QUIT in case the webserver times out
153   $SIG{HUP}  = 'IGNORE';
154   $SIG{QUIT} = 'IGNORE';
155
156   $self->dbupdate($form);
157   $self->dbupdate2($form, $dbupdater);
158   SL::DBUpgrade2->new(form => $::form, dbdriver => 'Pg', auth => 1)->apply_admin_dbupgrade_scripts(0);
159
160   close($fh);
161
162   # remove lock file
163   unlink($::lx_office_conf{paths}->{userspath} . "/nologin");
164
165   print $form->parse_html_template("dbupgrade/footer");
166
167   return -2;
168 }
169
170 sub dbconnect_vars {
171   $main::lxdebug->enter_sub();
172
173   my ($form, $db) = @_;
174
175   my %dboptions = (
176         'Pg' => { 'yy-mm-dd'   => 'set DateStyle to \'ISO\'',
177                   'yyyy-mm-dd' => 'set DateStyle to \'ISO\'',
178                   'mm/dd/yy'   => 'set DateStyle to \'SQL, US\'',
179                   'dd/mm/yy'   => 'set DateStyle to \'SQL, EUROPEAN\'',
180                   'dd.mm.yy'   => 'set DateStyle to \'GERMAN\''
181         },
182         'Oracle' => {
183           'yy-mm-dd'   => 'ALTER SESSION SET NLS_DATE_FORMAT = \'YY-MM-DD\'',
184           'yyyy-mm-dd' => 'ALTER SESSION SET NLS_DATE_FORMAT = \'YYYY-MM-DD\'',
185           'mm/dd/yy'   => 'ALTER SESSION SET NLS_DATE_FORMAT = \'MM/DD/YY\'',
186           'dd/mm/yy'   => 'ALTER SESSION SET NLS_DATE_FORMAT = \'DD/MM/YY\'',
187           'dd.mm.yy'   => 'ALTER SESSION SET NLS_DATE_FORMAT = \'DD.MM.YY\'',
188         });
189
190   $form->{dboptions} = $dboptions{ $form->{dbdriver} }{ $form->{dateformat} };
191
192   if ($form->{dbdriver} eq 'Pg') {
193     $form->{dbconnect} = "dbi:Pg:dbname=$db";
194   }
195
196   if ($form->{dbdriver} eq 'Oracle') {
197     $form->{dbconnect} = "dbi:Oracle:sid=$form->{sid}";
198   }
199
200   if ($form->{dbhost}) {
201     $form->{dbconnect} .= ";host=$form->{dbhost}";
202   }
203   if ($form->{dbport}) {
204     $form->{dbconnect} .= ";port=$form->{dbport}";
205   }
206
207   $main::lxdebug->leave_sub();
208 }
209
210 sub dbdrivers {
211   $main::lxdebug->enter_sub();
212
213   my @drivers = DBI->available_drivers();
214
215   $main::lxdebug->leave_sub();
216
217   return (grep { /(Pg|Oracle)/ } @drivers);
218 }
219
220 sub dbsources {
221   $main::lxdebug->enter_sub();
222
223   my ($self, $form) = @_;
224
225   my @dbsources = ();
226   my ($sth, $query);
227
228   $form->{dbdefault} = $form->{dbuser} unless $form->{dbdefault};
229   $form->{sid} = $form->{dbdefault};
230   &dbconnect_vars($form, $form->{dbdefault});
231
232   my $dbh = SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd}, SL::DBConnect->get_options)
233     or $form->dberror;
234
235   if ($form->{dbdriver} eq 'Pg') {
236     $query =
237       qq|SELECT datname FROM pg_database | .
238       qq|WHERE NOT datname IN ('template0', 'template1')|;
239     $sth = $dbh->prepare($query);
240     $sth->execute() || $form->dberror($query);
241
242     while (my ($db) = $sth->fetchrow_array) {
243
244       if ($form->{only_acc_db}) {
245
246         next if ($db =~ /^template/);
247
248         &dbconnect_vars($form, $db);
249         my $dbh = SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd}, SL::DBConnect->get_options)
250           or $form->dberror;
251
252         $query =
253           qq|SELECT tablename FROM pg_tables | .
254           qq|WHERE (tablename = 'defaults') AND (tableowner = ?)|;
255         my $sth = $dbh->prepare($query);
256         $sth->execute($form->{dbuser}) ||
257           $form->dberror($query . " ($form->{dbuser})");
258
259         if ($sth->fetchrow_array) {
260           push(@dbsources, $db);
261         }
262         $sth->finish;
263         $dbh->disconnect;
264         next;
265       }
266       push(@dbsources, $db);
267     }
268   }
269
270   if ($form->{dbdriver} eq 'Oracle') {
271     if ($form->{only_acc_db}) {
272       $query =
273         qq|SELECT owner FROM dba_objects | .
274         qq|WHERE object_name = 'DEFAULTS' AND object_type = 'TABLE'|;
275     } else {
276       $query = qq|SELECT username FROM dba_users|;
277     }
278
279     $sth = $dbh->prepare($query);
280     $sth->execute || $form->dberror($query);
281
282     while (my ($db) = $sth->fetchrow_array) {
283       push(@dbsources, $db);
284     }
285   }
286
287   $sth->finish;
288   $dbh->disconnect;
289
290   $main::lxdebug->leave_sub();
291
292   return @dbsources;
293 }
294
295 sub dbclusterencoding {
296   $main::lxdebug->enter_sub();
297
298   my ($self, $form) = @_;
299
300   $form->{dbdefault} ||= $form->{dbuser};
301
302   dbconnect_vars($form, $form->{dbdefault});
303
304   my $dbh                = SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd}, SL::DBConnect->get_options) || $form->dberror();
305   my $query              = qq|SELECT pg_encoding_to_char(encoding) FROM pg_database WHERE datname = 'template0'|;
306   my ($cluster_encoding) = $dbh->selectrow_array($query);
307   $dbh->disconnect();
308
309   $main::lxdebug->leave_sub();
310
311   return $cluster_encoding;
312 }
313
314 sub dbcreate {
315   $main::lxdebug->enter_sub();
316
317   my ($self, $form) = @_;
318
319   $form->{sid} = $form->{dbdefault};
320   &dbconnect_vars($form, $form->{dbdefault});
321   my $dbh =
322     SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd}, SL::DBConnect->get_options)
323     or $form->dberror;
324   $form->{db} =~ s/\"//g;
325   my %dbcreate = (
326     'Pg'     => qq|CREATE DATABASE "$form->{db}"|,
327     'Oracle' =>
328     qq|CREATE USER "$form->{db}" DEFAULT TABLESPACE USERS | .
329     qq|TEMPORARY TABLESPACE TEMP IDENTIFIED BY "$form->{db}"|
330   );
331
332   my %dboptions = (
333     'Pg' => [],
334   );
335
336   push(@{$dboptions{"Pg"}}, "ENCODING = " . $dbh->quote($form->{"encoding"}))
337     if ($form->{"encoding"});
338   if ($form->{"dbdefault"}) {
339     my $dbdefault = $form->{"dbdefault"};
340     $dbdefault =~ s/[^a-zA-Z0-9_\-]//g;
341     push(@{$dboptions{"Pg"}}, "TEMPLATE = $dbdefault");
342   }
343
344   my $query = $dbcreate{$form->{dbdriver}};
345   $query .= " WITH " . join(" ", @{$dboptions{"Pg"}}) if (@{$dboptions{"Pg"}});
346
347   # Ignore errors if the database exists.
348   $dbh->do($query);
349
350   if ($form->{dbdriver} eq 'Oracle') {
351     $query = qq|GRANT CONNECT, RESOURCE TO "$form->{db}"|;
352     do_query($form, $dbh, $query);
353   }
354   $dbh->disconnect;
355
356   # setup variables for the new database
357   if ($form->{dbdriver} eq 'Oracle') {
358     $form->{dbuser}   = $form->{db};
359     $form->{dbpasswd} = $form->{db};
360   }
361
362   &dbconnect_vars($form, $form->{db});
363
364   $dbh = SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd}, SL::DBConnect->get_options)
365     or $form->dberror;
366
367   my $db_charset = $Common::db_encoding_to_charset{$form->{encoding}};
368   $db_charset ||= Common::DEFAULT_CHARSET;
369
370   my $dbupdater = SL::DBUpgrade2->new(form => $form, dbdriver => $form->{dbdriver});
371   # create the tables
372   $dbupdater->process_query($dbh, "sql/lx-office.sql", undef, $db_charset);
373
374   # load chart of accounts
375   $dbupdater->process_query($dbh, "sql/$form->{chart}-chart.sql", undef, $db_charset);
376
377   $query = "UPDATE defaults SET coa = ?";
378   do_query($form, $dbh, $query, $form->{chart});
379   $query = "UPDATE defaults SET accounting_method = ?";
380   do_query($form, $dbh, $query, $form->{accounting_method});
381   $query = "UPDATE defaults SET profit_determination = ?";
382   do_query($form, $dbh, $query, $form->{profit_determination});
383   $query = "UPDATE defaults SET inventory_system = ?";
384   do_query($form, $dbh, $query, $form->{inventory_system});
385   $query = "UPDATE defaults SET curr = ?";
386   do_query($form, $dbh, $query, $form->{defaultcurrency});
387
388   $dbh->disconnect;
389
390   $main::lxdebug->leave_sub();
391 }
392
393 sub dbdelete {
394   $main::lxdebug->enter_sub();
395
396   my ($self, $form) = @_;
397   $form->{db} =~ s/\"//g;
398   my %dbdelete = ('Pg'     => qq|DROP DATABASE "$form->{db}"|,
399                   'Oracle' => qq|DROP USER "$form->{db}" CASCADE|);
400
401   $form->{sid} = $form->{dbdefault};
402   &dbconnect_vars($form, $form->{dbdefault});
403   my $dbh = SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd}, SL::DBConnect->get_options)
404     or $form->dberror;
405   my $query = $dbdelete{$form->{dbdriver}};
406   do_query($form, $dbh, $query);
407
408   $dbh->disconnect;
409
410   $main::lxdebug->leave_sub();
411 }
412
413 sub dbsources_unused {
414   $main::lxdebug->enter_sub();
415
416   my ($self, $form) = @_;
417
418   $form->{only_acc_db} = 1;
419
420   my %members = $main::auth->read_all_users();
421   my %dbexcl  = map { $_ => 1 } grep { $_ } map { $_->{dbname} } values %members;
422
423   $dbexcl{$form->{dbdefault}}             = 1;
424   $dbexcl{$main::auth->{DB_config}->{db}} = 1;
425
426   my @dbunused = grep { !$dbexcl{$_} } dbsources("", $form);
427
428   $main::lxdebug->leave_sub();
429
430   return @dbunused;
431 }
432
433 sub dbneedsupdate {
434   $main::lxdebug->enter_sub();
435
436   my ($self, $form) = @_;
437
438   my %members   = $main::auth->read_all_users();
439   my $dbupdater = SL::DBUpgrade2->new(form => $form, dbdriver => $form->{dbdriver})->parse_dbupdate_controls;
440
441   my ($query, $sth, %dbs_needing_updates);
442
443   foreach my $login (grep /[a-z]/, keys %members) {
444     my $member = $members{$login};
445
446     map { $form->{$_} = $member->{$_} } qw(dbname dbuser dbpasswd dbhost dbport);
447     dbconnect_vars($form, $form->{dbname});
448
449     my $dbh = SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd}, SL::DBConnect->get_options);
450
451     next unless $dbh;
452
453     my $version;
454
455     $query = qq|SELECT version FROM defaults|;
456     $sth = prepare_query($form, $dbh, $query);
457     if ($sth->execute()) {
458       ($version) = $sth->fetchrow_array();
459     }
460     $sth->finish();
461
462     $dbh->disconnect and next unless $version;
463
464     my $update_available = $dbupdater->update_available($version) || $dbupdater->update2_available($dbh);
465     $dbh->disconnect;
466
467    if ($update_available) {
468       my $dbinfo = {};
469       map { $dbinfo->{$_} = $member->{$_} } grep /^db/, keys %{ $member };
470       $dbs_needing_updates{$member->{dbhost} . "::" . $member->{dbname}} = $dbinfo;
471     }
472   }
473
474   $main::lxdebug->leave_sub();
475
476   return values %dbs_needing_updates;
477 }
478
479 sub calc_version {
480   $main::lxdebug->enter_sub(2);
481
482   my (@v, $version, $i);
483
484   @v = split(/\./, $_[0]);
485   while (scalar(@v) < 4) {
486     push(@v, 0);
487   }
488   $version = 0;
489   for ($i = 0; $i < 4; $i++) {
490     $version *= 1000;
491     $version += $v[$i];
492   }
493
494   $main::lxdebug->leave_sub(2);
495   return $version;
496 }
497
498 sub cmp_script_version {
499   my ($a_from, $a_to, $b_from, $b_to);
500   my ($i, $res_a, $res_b);
501   my ($my_a, $my_b) = ($a, $b);
502
503   $my_a =~ s/.*-upgrade-//;
504   $my_a =~ s/.sql$//;
505   $my_b =~ s/.*-upgrade-//;
506   $my_b =~ s/.sql$//;
507   my ($my_a_from, $my_a_to) = split(/-/, $my_a);
508   my ($my_b_from, $my_b_to) = split(/-/, $my_b);
509
510   $res_a = calc_version($my_a_from);
511   $res_b = calc_version($my_b_from);
512
513   if ($res_a == $res_b) {
514     $res_a = calc_version($my_a_to);
515     $res_b = calc_version($my_b_to);
516   }
517
518   return $res_a <=> $res_b;
519 }
520
521 sub create_schema_info_table {
522   $main::lxdebug->enter_sub();
523
524   my ($self, $form, $dbh) = @_;
525
526   my $query = "SELECT tag FROM schema_info LIMIT 1";
527   if (!$dbh->do($query)) {
528     $dbh->rollback();
529     $query =
530       qq|CREATE TABLE schema_info (| .
531       qq|  tag text, | .
532       qq|  login text, | .
533       qq|  itime timestamp DEFAULT now(), | .
534       qq|  PRIMARY KEY (tag))|;
535     $dbh->do($query) || $form->dberror($query);
536   }
537
538   $main::lxdebug->leave_sub();
539 }
540
541 sub dbupdate {
542   $main::lxdebug->enter_sub();
543
544   my ($self, $form) = @_;
545
546   local *SQLDIR;
547
548   $form->{sid} = $form->{dbdefault};
549
550   my @upgradescripts = ();
551   my $query;
552   my $rc = -2;
553
554   if ($form->{dbupdate}) {
555
556     # read update scripts into memory
557     opendir(SQLDIR, "sql/" . $form->{dbdriver} . "-upgrade")
558       or &error("", "sql/" . $form->{dbdriver} . "-upgrade : $!");
559     @upgradescripts =
560       sort(cmp_script_version
561            grep(/$form->{dbdriver}-upgrade-.*?\.(sql|pl)$/,
562                 readdir(SQLDIR)));
563     closedir(SQLDIR);
564   }
565
566   my $db_charset = $::lx_office_conf{system}->{dbcharset};
567   $db_charset ||= Common::DEFAULT_CHARSET;
568
569   my $dbupdater = SL::DBUpgrade2->new(form => $form, dbdriver => $form->{dbdriver});
570
571   foreach my $db (split(/ /, $form->{dbupdate})) {
572
573     next unless $form->{$db};
574
575     # strip db from dataset
576     $db =~ s/^db//;
577     &dbconnect_vars($form, $db);
578
579     my $dbh = SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd}, SL::DBConnect->get_options)
580       or $form->dberror;
581
582     $dbh->do($form->{dboptions}) if ($form->{dboptions});
583
584     # check version
585     $query = qq|SELECT version FROM defaults|;
586     my ($version) = selectrow_query($form, $dbh, $query);
587
588     next unless $version;
589
590     $version = calc_version($version);
591
592     foreach my $upgradescript (@upgradescripts) {
593       my $a = $upgradescript;
594       $a =~ s/^\Q$form->{dbdriver}\E-upgrade-|\.(sql|pl)$//g;
595
596       my ($mindb, $maxdb) = split /-/, $a;
597       my $str_maxdb = $maxdb;
598       $mindb = calc_version($mindb);
599       $maxdb = calc_version($maxdb);
600
601       next if ($version >= $maxdb);
602
603       # if there is no upgrade script exit
604       last if ($version < $mindb);
605
606       # apply upgrade
607       $main::lxdebug->message(LXDebug->DEBUG2(), "Applying Update $upgradescript");
608       $dbupdater->process_file($dbh, "sql/" . $form->{"dbdriver"} . "-upgrade/$upgradescript", $str_maxdb, $db_charset);
609
610       $version = $maxdb;
611
612     }
613
614     $rc = 0;
615     $dbh->disconnect;
616
617   }
618
619   $main::lxdebug->leave_sub();
620
621   return $rc;
622 }
623
624 sub dbupdate2 {
625   $main::lxdebug->enter_sub();
626
627   my ($self, $form, $dbupdater) = @_;
628
629   $form->{sid} = $form->{dbdefault};
630
631   my $rc         = -2;
632   my $db_charset = $::lx_office_conf{system}->{dbcharset} || Common::DEFAULT_CHARSET;
633
634   map { $_->{description} = SL::Iconv::convert($_->{charset}, $db_charset, $_->{description}) } values %{ $dbupdater->{all_controls} };
635
636   foreach my $db (split / /, $form->{dbupdate}) {
637     next unless $form->{$db};
638
639     # strip db from dataset
640     $db =~ s/^db//;
641     &dbconnect_vars($form, $db);
642
643     my $dbh = SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd}, SL::DBConnect->get_options) or $form->dberror;
644
645     $dbh->do($form->{dboptions}) if ($form->{dboptions});
646
647     $self->create_schema_info_table($form, $dbh);
648
649     my @upgradescripts = $dbupdater->unapplied_upgrade_scripts($dbh);
650
651     $dbh->disconnect and next if !@upgradescripts;
652
653     foreach my $control (@upgradescripts) {
654       # apply upgrade
655       $main::lxdebug->message(LXDebug->DEBUG2(), "Applying Update $control->{file}");
656       print $form->parse_html_template("dbupgrade/upgrade_message2", $control);
657
658       $dbupdater->process_file($dbh, "sql/" . $form->{"dbdriver"} . "-upgrade2/$control->{file}", $control, $db_charset);
659     }
660
661     $rc = 0;
662     $dbh->disconnect;
663
664   }
665
666   $main::lxdebug->leave_sub();
667
668   return $rc;
669 }
670
671 sub save_member {
672   $main::lxdebug->enter_sub();
673
674   my ($self) = @_;
675
676   # format dbconnect and dboptions string
677   dbconnect_vars($self, $self->{dbname});
678
679   map { $self->{$_} =~ s/\r//g; } qw(address signature);
680
681   $main::auth->save_user($self->{login}, map { $_, $self->{$_} } config_vars());
682
683   my $dbh = SL::DBConnect->connect($self->{dbconnect}, $self->{dbuser}, $self->{dbpasswd}, SL::DBConnect->get_options);
684   if ($dbh) {
685     $self->create_employee_entry($::form, $dbh, $self, 1);
686     $dbh->disconnect();
687   }
688
689   $main::lxdebug->leave_sub();
690 }
691
692 sub create_employee_entry {
693   $main::lxdebug->enter_sub();
694
695   my $self            = shift;
696   my $form            = shift;
697   my $dbh             = shift;
698   my $myconfig        = shift;
699   my $update_existing = shift;
700
701   if (!does_table_exist($dbh, 'employee')) {
702     $main::lxdebug->leave_sub();
703     return;
704   }
705
706   # add login to employee table if it does not exist
707   # no error check for employee table, ignore if it does not exist
708   my ($id)         = selectrow_query($form, $dbh, qq|SELECT id FROM employee WHERE login = ?|, $self->{login});
709   my ($good_db)    = selectrow_query($form, $dbh, qq|select * from pg_tables where tablename = ? and schemaname = ?|, 'schema_info', 'public');
710   my  $can_delete;
711      ($can_delete) = selectrow_query($form, $dbh, qq|SELECT tag FROM schema_info WHERE tag = ?|, 'employee_deleted') if $good_db;
712
713   if (!$id) {
714     my $query = qq|INSERT INTO employee (login, name, workphone, role) VALUES (?, ?, ?, ?)|;
715     do_query($form, $dbh, $query, ($self->{login}, $myconfig->{name}, $myconfig->{tel}, "user"));
716
717   } elsif ($update_existing && $can_delete) {
718     my $query = qq|UPDATE employee SET name = ?, workphone = ?, role = 'user', deleted = 'f' WHERE id = ?|;
719     do_query($form, $dbh, $query, $myconfig->{name}, $myconfig->{tel}, $id);
720   }
721
722   $main::lxdebug->leave_sub();
723 }
724
725 sub config_vars {
726   $main::lxdebug->enter_sub();
727
728   my @conf = qw(copies countrycode dateformat default_media default_printer_id email favorites fax hide_cvar_search_options mandatory_departments menustyle name
729                 numberformat show_form_details signature stylesheet taxincluded_checked tel template_format vclimit);
730
731   $main::lxdebug->leave_sub();
732
733   return @conf;
734 }
735
736 sub data {
737   +{ %{ $_[0] } }
738 }
739
740 1;