projekt kivitendo

sub get_user_dbh {

  my ($self, $login, %params) = @_;

  my $may_fail = delete $params{may_fail};

  my %user = $self->read_user(login => $login);

  my $dbh  = SL::DBConnect->connect(

    $user{dbconnect},

    $user{dbuser},

    $user{dbpasswd},

    {

      pg_enable_utf8 => $::locale->is_utf8,

      AutoCommit     => 0

    }

  );

  if (!$may_fail && !$dbh) {

    $::form->error($::locale->text('The connection to the authentication database failed:') . "\n" . $DBI::errstr);

  }

  if ($user{dboptions} && $dbh) {

    $dbh->do($user{dboptions}) or $::form->dberror($user{dboptions});

  }

  return $dbh;

}

  $self->set_session_value(SESSION_KEY_USER_AUTH() => $result, login => $login);

  my $user_db_exists;

  my $u_dbh = $self->get_user_dbh($login, may_fail => 1);

  $user_db_exists = $self->check_tables($u_dbh) if $u_dbh;

  $u_dbh->begin_work if $u_dbh && $user_db_exists;

  do_query($::form, $u_dbh, qq|UPDATE employee SET deleted = 't' WHERE login = ?|, $login) if $u_dbh && $user_db_exists;

  $u_dbh->commit if $u_dbh && $user_db_exists;

  SL::Dispatcher::AuthHandler::User->new->handle(countrycode => $::myconfig{countrycode});

  $::form->{login} = $::myconfig{login};

  my $user         = User->new(login => $::myconfig{login});

  $::request->{layout} = SL::Layout::Dispatcher->new(style => $user->{menustyle});

  my $result = $user->login($::form);

  $self->_redirect_to_main_script($user);

  my ($self, $user) = @_;

    password => $::locale->text('Incorrect password!'),

  $main::lxdebug->enter_sub();

  local *FH;

  my $rc = -3;

  if ($self->{login}) {

    my %myconfig = $main::auth->read_user(login => $self->{login});

    # check if database is down

    my $dbh = SL::DBConnect->connect($myconfig{dbconnect}, $myconfig{dbuser}, $myconfig{dbpasswd}, SL::DBConnect->get_options)

      or $self->error($DBI::errstr);

    # we got a connection, check the version

    my $query = qq|SELECT version FROM defaults|;

    my $sth   = $dbh->prepare($query);

    $sth->execute || $form->dberror($query);

    my ($dbversion) = $sth->fetchrow_array;

    $sth->finish;

    $self->create_employee_entry($form, $dbh, \%myconfig);

    $self->create_schema_info_table($form, $dbh);

    my $dbupdater_auth = SL::DBUpgrade2->new(form => $form, dbdriver => 'Pg', auth => 1)->parse_dbupdate_controls;

    if ($dbupdater_auth->unapplied_upgrade_scripts($::auth->dbconnect)) {

      $::lxdebug->leave_sub;

      return -3;

    }

    $rc = 0;

    my $dbupdater = SL::DBUpgrade2->new(form => $form, dbdriver => $myconfig{dbdriver})->parse_dbupdate_controls;

    map({ $form->{$_} = $myconfig{$_} } qw(dbname dbhost dbport dbdriver dbuser dbpasswd dbconnect dateformat));

    dbconnect_vars($form, $form->{dbname});

    my $update_available = $dbupdater->update_available($dbversion) || $dbupdater->update2_available($dbh);

    $dbh->disconnect;

    if ($update_available) {

      $form->{"title"} = $main::locale->text("Dataset upgrade");

      $form->header(no_layout => $form->{no_layout});

      print $form->parse_html_template("dbupgrade/header");

      $form->{dbupdate} = "db$myconfig{dbname}";

      $form->{ $form->{dbupdate} } = 1;

      if ($form->{"show_dbupdate_warning"}) {

        print $form->parse_html_template("dbupgrade/warning");

        ::end_of_request();

      }

      # update the tables

      if (!$::lx_office_conf{debug}->{keep_installation_unlocked} && !open(FH, ">", $::lx_office_conf{paths}->{userspath} . "/nologin")) {

        $form->show_generic_error($main::locale->text('A temporary file could not be created. ' .

                                                      'Please verify that the directory "#1" is writeable by the webserver.',

                                                      $::lx_office_conf{paths}->{userspath}),

                                  'back_button' => 1);

      }

      # required for Oracle

      $form->{dbdefault} = $sid;

      # ignore HUP, QUIT in case the webserver times out

      $SIG{HUP}  = 'IGNORE';

      $SIG{QUIT} = 'IGNORE';

      $self->dbupdate($form);

      $self->dbupdate2($form, $dbupdater);

      SL::DBUpgrade2->new(form => $::form, dbdriver => 'Pg', auth => 1)->apply_admin_dbupgrade_scripts(0);

      close(FH);

      # remove lock file

      unlink($::lx_office_conf{paths}->{userspath} . "/nologin");

      print $form->parse_html_template("dbupgrade/footer");

      $rc = -2;

    }

  }

  $main::lxdebug->leave_sub();

  return $rc;

sub error {

  $main::lxdebug->enter_sub();

  my ($self, $msg) = @_;

  $main::lxdebug->show_backtrace();

  if ($ENV{HTTP_USER_AGENT}) {

    print qq|Content-Type: text/html

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">

<body bgcolor=ffffff>

<h2><font color=red>Error!</font></h2>

<p><b>$msg</b>|;

  }

  die "Error: $msg\n";

  $main::lxdebug->leave_sub();

}

  'Incorrect username or password!' => 'Ungültiger Benutzername oder falsches Passwort!',