projekt kivitendo

use IO::File;

                                  all_dateformats all_numberformats all_countrycodes all_stylesheets all_menustyles all_clients all_groups all_users all_rights all_printers) ],

sub dbclusterencoding {

  $main::lxdebug->enter_sub();

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

  $form->{dbdefault} ||= $form->{dbuser};

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

  my $dbh                = SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd}, SL::DBConnect->get_options) || $form->dberror();

  my $query              = qq|SELECT pg_encoding_to_char(encoding) FROM pg_database WHERE datname = 'template0'|;

  my ($cluster_encoding) = $dbh->selectrow_array($query);

  $dbh->disconnect();

  $main::lxdebug->leave_sub();

  return $cluster_encoding;

}

  $form->{only_acc_db} = 1;

  my %members = $main::auth->read_all_users();

  my %dbexcl  = map { $_ => 1 } grep { $_ } map { $_->{dbname} } values %members;

sub dbneedsupdate {

  $main::lxdebug->enter_sub();

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

  my %members   = $main::auth->read_all_users();

  my $dbupdater = SL::DBUpgrade2->new(form => $form)->parse_dbupdate_controls;

  my ($query, $sth, %dbs_needing_updates);

  foreach my $login (grep /[a-z]/, keys %members) {

    my $member = $members{$login};

    map { $form->{$_} = $member->{$_} } qw(dbname dbuser dbpasswd dbhost dbport);

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

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

    next unless $dbh;

    my $version;

    $query = qq|SELECT version FROM defaults|;

    $sth = prepare_query($form, $dbh, $query);

    if ($sth->execute()) {

      ($version) = $sth->fetchrow_array();

    }

    $sth->finish();

    $dbh->disconnect and next unless $version;

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

    $dbh->disconnect;

   if ($update_available) {

      my $dbinfo = {};

      map { $dbinfo->{$_} = $member->{$_} } grep /^db/, keys %{ $member };

      $dbs_needing_updates{$member->{dbhost} . "::" . $member->{dbname}} = $dbinfo;

    }

  }

  $main::lxdebug->leave_sub();

  return values %dbs_needing_updates;

}

#=====================================================================

# LX-Office ERP

# Copyright (C) 2004

# Based on SQL-Ledger Version 2.1.9

# Web http://www.lx-office.org

#

#=====================================================================

# SQL-Ledger Accounting

# Copyright (c) 2002

#

#  Author: Dieter Simader

#   Email: dsimader@sql-ledger.org

#     Web: http://www.sql-ledger.org

#

#

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

#======================================================================

#

# setup module

# add/edit/delete users

#

#======================================================================

use DBI;

use Encode;

use English qw(-no_match_vars);

use Fcntl;

use File::Copy;

use File::Find;

use File::Spec;

use Cwd;

use IO::Dir;

use IO::File;

use POSIX qw(strftime);

use Sys::Hostname;

use SL::Auth;

use SL::Auth::PasswordPolicy;

use SL::DB::AuthClient;

use SL::DB::AuthUser;

use SL::Form;

use SL::Iconv;

use SL::Mailer;

use SL::User;

use SL::Common;

use SL::Inifile;

use SL::DBUpgrade2;

use SL::DBUtils;

use SL::Template;

require "bin/mozilla/common.pl";

use strict;

# parserhappy(R):

#  $locale->text('periodic')

#  $locale->text('income')

#  $locale->text('perpetual')

#  $locale->text('balance')

our $cgi;

our $form;

our $locale;

our $auth;

sub run {

  $::lxdebug->enter_sub;

  my $session_result = shift;

  $form   = $::form;

  $locale = $::locale;

  $auth   = $::auth;

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

  $::request->{layout}->use_stylesheet("lx-office-erp.css");

  $form->{favicon}    = "favicon.ico";

  if ($form->{action}) {

    if ($auth->authenticate_root($form->{'{AUTH}admin_password'}) != $auth->OK()) {

      $auth->punish_wrong_login;

      $form->{error} = $locale->text('Incorrect password!');

      $auth->delete_session_value('admin_password');

      adminlogin();

    } else {

      if ($auth->session_tables_present()) {

        delete $::form->{'{AUTH}admin_password'};

      }

      call_sub($locale->findsub($form->{action}));

    }

  } else {

    adminlogin();

  }

  $::lxdebug->leave_sub;

}

sub adminlogin {

  print $::request->cgi->redirect('controller.pl?action=Admin/login');

}

sub pg_database_administration {

  my $form = $main::form;

  dbselect_source();

}

sub dbselect_source {

  my $form           = $main::form;

  my $locale         = $main::locale;

  $form->{dbport}    = $::auth->{DB_config}->{port} || 5432;

  $form->{dbuser}    = $::auth->{DB_config}->{user} || 'lxoffice';

  $form->{dbdefault} = 'template1';

  $form->{dbhost}    = $::auth->{DB_config}->{host} || 'localhost';

  $form->{title}     = "kivitendo / " . $locale->text('Database Administration');

  $form->header();

  print $form->parse_html_template("admin/dbadmin");

}

sub continue {

  call_sub($main::form->{"nextsub"});

}

sub create_dataset {

  my $form           = $main::form;

  my $locale         = $main::locale;

  $form->{dbsources} = join " ", map { "[${_}]" } sort User->dbsources($form);

  $form->{CHARTS}    = [];

  tie my %dir_h, 'IO::Dir', 'sql/';

  foreach my $item (map { s/-chart\.sql$//; $_ } sort grep { /-chart\.sql\z/ && !/Default-chart.sql\z/ } keys %dir_h) {

    push @{ $form->{CHARTS} }, { name     => $item,

                                 selected => $item eq "Germany-DATEV-SKR03EU" };

  }

  $form->{ACCOUNTING_METHODS}    = [ map { { name => $_, selected => $_ eq 'cash'     } } qw(accrual cash)       ];

  $form->{INVENTORY_SYSTEMS}     = [ map { { name => $_, selected => $_ eq 'periodic' } } qw(perpetual periodic) ];

  $form->{PROFIT_DETERMINATIONS} = [ map { { name => $_, selected => $_ eq 'income'   } } qw(balance income)     ];

  my $default_charset = $::lx_office_conf{system}->{dbcharset} || Common::DEFAULT_CHARSET;

  my $cluster_encoding = User->dbclusterencoding($form);

  if ($cluster_encoding && ($cluster_encoding =~ m/^(?:UTF-?8|UNICODE)$/i)) {

    if ($::lx_office_conf{system}->{dbcharset} !~ m/^UTF-?8$/i) {

      $form->show_generic_error($locale->text('The selected  PostgreSQL installation uses UTF-8 as its encoding. ' .

                                              'Therefore you have to configure kivitendo to use UTF-8 as well.'),

                                'back_button' => 1);

    }

    $form->{FORCE_DBENCODING} = 'UNICODE';

  } else {

    $form->{DBENCODINGS} = [ map { { %{$_}, selected => $_->{charset} eq $default_charset } } @Common::db_encodings ];

  }

  $form->{title} = "kivitendo " . $locale->text('Database Administration') . " / " . $locale->text('Create Dataset');

  $form->header();

  print $form->parse_html_template("admin/create_dataset");

}

sub dbcreate {

  my $form   = $main::form;

  my $locale = $main::locale;

  $form->isblank("db", $locale->text('Dataset missing!'));

  $form->isblank("defaultcurrency", $locale->text('Default currency missing!'));

  User->dbcreate(\%$form);

  $form->{title} = "kivitendo " . $locale->text('Database Administration') . " / " . $locale->text('Create Dataset');

  $form->header();

  print $form->parse_html_template("admin/dbcreate");

}

sub delete_dataset {

  my $form      = $main::form;

  my $locale    = $main::locale;

  my @dbsources = User->dbsources_unused($form);

  $form->error($locale->text('Nothing to delete!')) unless @dbsources;

  $form->{title}     = "kivitendo " . $locale->text('Database Administration') . " / " . $locale->text('Delete Dataset');

  $form->{DBSOURCES} = [ map { { "name", $_ } } sort @dbsources ];

  $form->header();

  print $form->parse_html_template("admin/delete_dataset");

}

sub dbdelete {

  my $form   = $main::form;

  my $locale = $main::locale;

  if (!$form->{db}) {

    $form->error($locale->text('No Dataset selected!'));

  }

  User->dbdelete(\%$form);

  $form->{title} = "kivitendo " . $locale->text('Database Administration') . " / " . $locale->text('Delete Dataset');

  $form->header();

  print $form->parse_html_template("admin/dbdelete");

}

1;

  '* there are restrictions for the perpetual method, look at chapter "Bemerkungen zu Bestandsmethode"  in' => ' für die Bestandsmethode gibt es Einschränkungen, siehe Kapitel "Bemerkungen zu Bestandsmethode"  in',

  '*) Since version 2.7 these parameters ares set in the client database and not in the configuration file, details in chapter:' => '*) Seit 2.7 werden Gewinnermittlungsart, Versteuerungsart und Warenbuchungsmethode in der Mandanten-DB gesteuert und nicht mehr in der Konfigurationsdatei, Umstellungs-Details:',

  'All Datasets up to date!'    => 'Alle Datenbanken sind auf aktuellem Stand.',

  'All database upgrades have been applied.' => 'Alle Datenbankupdates wurden eingespielt.',

  'Backup Dataset'              => 'Datenbank sichern',

  'Driver'                      => 'Treiber',

  'If you want to delete such a dataset you have to edit the user(s) that are using the dataset in question and have them use another dataset.' => 'Wenn Sie eine solche Datenbank löschen wollen, so müssen Sie zuerst die Benutzer bearbeiten, die die fragliche Datenbank benutzen, und sie so ändern, dass sie eine andere Datenbank benutzen.',

  'Leave host and port field empty unless you want to make a remote connection.' => 'Für lokale Verbindungen "Rechner" und "Port" freilassen.',

  'Multibyte Encoding'          => 'Zeichenkodierung',

  'No Dataset selected!'        => 'Keine Datenbank ausgewählt!',

  'No datasets have been selected.' => 'Es wurden keine Datenbanken ausgewählt.',

  'Nothing to delete!'          => 'Es konnte nichts gelöscht werden!',

  'Please seletct the dataset you want to delete:' => 'Bitte wählen Sie die zu löschende Datenbank aus:',

  'Restore Dataset'             => 'Datenbank wiederherstellen',

  'The database #1 has been successfully deleted.' => 'Die Datenbank #1 wurde erfolgreich gelöscht.',

  'The dataset #1 has been successfully created.' => 'Die Datenbank #1 wurde erfolgreich angelegt.',

  'The following Datasets need to be updated' => 'Folgende Datenbanken müssen aktualisiert werden',

  'The selected  PostgreSQL installation uses UTF-8 as its encoding. Therefore you have to configure kivitendo to use UTF-8 as well.' => 'Die ausgewählte PostgreSQL-Installation benutzt UTF-8 als Zeichensatz. Deshalb müssen Sie kivitendo so konfigurieren, dass es ebenfalls UTF-8 als Zeichensatz benutzt.',

  'Update Dataset'              => 'Datenbank aktualisieren',

  'Update?'                     => 'Aktualisieren?',

[%- USE T8 %]

[%- USE HTML %]

  <h1>[% title %]</h1>

  <form method="post" action="admin.pl">

   <p><a href="admin.pl?action=pg_database_administration">[% 'Back' | $T8 %]</a></p>

   <p>

    [% 'You can either create a new database or chose an existing database.' | $T8 %]

    [% 'In the latter case the tables needed by kivitendo will be created in that database.' | $T8 %]

   </p>

   <table border="0">

    <tr>

     <th valign="top" align="right" nowrap>[% 'Existing Datasets' | $T8 %]</th>

     <td valign="top">[% HTML.escape(dbsources) %]</td>

    </tr>

    <tr>

     <th align="right" nowrap>[% 'Create Dataset' | $T8 %]</th>

     <td><input name="db"></td>

    </tr>

    <tr>

     <th align="right" nowrap>[% 'Multibyte Encoding' | $T8 %]</th>

     <td>

      [%- IF FORCE_DBENCODING %]

      <input type="hidden" name="encoding" value="[% HTML.escape(FORCE_DBENCODING) %]">

      [% HTML.escape(FORCE_DBENCODING) %]

      [%- ELSE %]

      <select name="encoding">

       [% FOREACH row = DBENCODINGS %]<option value="[% HTML.escape(row.dbencoding) %]" [% IF row.selected %]selected[% END %]>[% HTML.escape(row.label) %]</option>[% END %]

      </select>

      [%- END %]

     </td>

    </tr>

    <tr>

     <th align="right" nowrap>[% 'Default currency' | $T8 %]</th>

     <td><input name="defaultcurrency" value="EUR"></td>

     </td>

   </tr>

    <tr>

     <th valign="top" align="right" nowrap>[% 'Create Chart of Accounts' | $T8 %]</th>

     <td>

      <select name="chart" onChange="comment_selected_chart(this.value)">

       [% FOREACH row = CHARTS %]<option [% IF row.selected %]selected[% END %]>[% HTML.escape(row.name) %]</option>[% END %]

      </select>

     </td>

    </tr>

    <tr>

     <th valign="top" align="right" nowrap>[% 'Accounting method' | $T8 %] *</th>

     <td>

      <select name="accounting_method">

       [% FOREACH row = ACCOUNTING_METHODS %]<option value=[% HTML.escape(row.name) %] [% IF row.selected %]selected[% END %]>[% HTML.escape(row.name) | $T8 %]</option>[% END %]

      </select>

     </td>

    </tr>

    <tr>

     <th valign="top" align="right" nowrap>[% 'Inventory system' | $T8 %] *</th>

     <td>

      <select name="inventory_system">

       [% FOREACH row = INVENTORY_SYSTEMS %]<option value=[% HTML.escape(row.name) %] [% IF row.selected %]selected[% END %]>[% HTML.escape(row.name) | $T8 %]</option>[% END %]

      </select>

     [% '* there are restrictions for the perpetual method, look at chapter "Bemerkungen zu Bestandsmethode"  in' | $T8 %] <a href="doc/kivitendo-Dokumentation.pdf">kivitendo-Dokumentation.pdf</a>.

     </td>

    </tr>

    <tr>

     <th valign="top" align="right" nowrap>[% 'Profit determination' | $T8 %] *</th>

     <td>

      <select name="profit_determination">

       [% FOREACH row = PROFIT_DETERMINATIONS %]<option value=[% HTML.escape(row.name) %] [% IF row.selected %]selected[% END %]>[% HTML.escape(row.name) | $T8 %]</option>[% END %]

      </select>

     </td>

   </tr>

    <tr>

    <td colspan="2">

    [% '*) Since version 2.7 these parameters ares set in the client database and not in the configuration file, details in chapter:' | $T8 %] <a href="doc/kivitendo-Dokumentation.pdf">Kapitel Konfiguration zur Einnahmen&uuml;berschussrechnung/ Bilanzierung: EUR</a>

    </td>

    </tr>

   </table>

   <input type="hidden" name="dbuser"    value="[% HTML.escape(dbuser) %]">

   <input type="hidden" name="dbhost"    value="[% HTML.escape(dbhost) %]">

   <input type="hidden" name="dbport"    value="[% HTML.escape(dbport) %]">

   <input type="hidden" name="dbpasswd"  value="[% HTML.escape(dbpasswd) %]">

   <input type="hidden" name="dbdefault" value="[% HTML.escape(dbdefault) %]">

   <input type="hidden" name="callback" value="controller.pl?action=Admin/show">

   <input type="hidden" name="nextsub" value="dbcreate">

   <hr size="3" noshade>

   <p><input type="submit" class="submit" name="action" value="[% 'Continue' | $T8 %]"></p>

  </form>

  <script type="text/javascript">

    <!--

    function comment_selected_chart(s) {

      if (s == 'Austria') {

        alert("SKR07 Austria ist noch Stand 2002." +

              "\n" +

              "Die Buchungsgruppen sind nicht korrekt vorkonfiguriert" +

              "\n" +

              "fuer Kunden im Ausland." +

              "\n" +

              "Hinweis vom 20.09.2011");

      }

      if (s == 'Swiss-German') {

        alert("Hinweis: Das ist weder ein Schweizer Kontorahmen nach Kaefer noch ein " +

              "Schweizer KMU-Kontenrahmen, sondern ein angelehnter KMU-Kontenrahmen fuer " +

              "ein EDV-Dienstleistungsunternehmen mit Stand 2006 (Bspw. 32001 Hardware, " +

              "statt 3200 Warenertrag)." +

              "\n" +

              "Ferner sind keine Buchungsgruppe vorkonfiguriert, somit wird " +

              "standardmaessig keine Rechnung mit Steuer ausgewiesen." +

              "\n" +

              "Zum schnellen Testen und Zusammenhaenge verstehen waehlen Sie lieber einen " +

              "deutschen Kontenrahmen aus (SKR03 oder SKR04) und passen die Steuer an." +

              "\n" +

              "Hinweis vom 21.09.2011");

      }

    return true;

    }

    -->

  </script>

[%- USE T8 %]

[%- USE HTML %]

  <h1>[% title %]</h1>

  <form method="post" action="admin.pl">

   <a href="controller.pl?action=Admin/show">[% 'Back' | $T8 %]</a>

   <table>

    <tr>

     <td>

      <table>

       <tr>

        <td>

         <table>

          <tr>

           <th align="right">[% 'Host' | $T8 %]</th>

           <td><input name="dbhost" size="25" value="[% HTML.escape(dbhost) %]"></td>

           <th align="right">[% 'Port' | $T8 %]</th>

           <td><input name="dbport" size="5" value="[% HTML.escape(dbport) %]"></td>

          </tr>

          <tr>

           <th align="right">[% 'Database User' | $T8 %]</th>

           <td><input name="dbuser" size="10" value="[% HTML.escape(dbuser) %]"></td>

           <th align="right">[% 'Password' | $T8 %]</th>

           <td><input type="password" name="dbpasswd" size="10"></td>

          </tr>

          <tr>

           <th align="right">[% 'Database template' | $T8 %]</th>

           <td colspan="3"><input name="dbdefault" size="10" value="[% HTML.escape(dbdefault) %]"></td>

          </tr>

         </table>

        </td>

       </tr>

      </table>

      <input name="callback" type="hidden" value="controller.pl?action=Admin/show">

      <br>

      <input type="submit" class="submit" name="action" value="[% 'Create Dataset' | $T8 %]">

      <input type="submit" class="submit" name="action" value="[% 'Update Dataset' | $T8 %]">

      <input type="submit" class="submit" name="action" value="[% 'Delete Dataset' | $T8 %]">

      [% IF ALLOW_DBBACKUP %]

       <input type="submit" class="submit" name="action" value="[% 'Backup Dataset' | $T8 %]">

       <input type="submit" class="submit" name="action" value="[% 'Restore Dataset' | $T8 %]">

      [% END %]

     </td>

    </tr>

   </table>

  </form>

  <p>[% 'This is a preliminary check for existing sources. Nothing will be created or deleted at this stage!' | $T8 %]</p>

  <p>[% 'Leave host and port field empty unless you want to make a remote connection.' | $T8 %]</p>

[%- USE T8 %]

[%- USE HTML %]

[%- USE LxERP %][%- USE L -%]

  <h1>[% title %]</h1>

  <p>[% LxERP.t8('The dataset #1 has been successfully created.', db) | html %]</p>

  <p>[% L.link("controller.pl?action=Admin/show", LxERP.t8("Continue")) %]</p>

[%- USE T8 %]

[%- USE HTML %]

 <h1>[% title %]</h1>

 <p><a href="admin.pl?action=pg_database_administration">[% 'Back' | $T8 %]</a></p>

 <form method="post" action="admin.pl">

  <p>[% 'You can only delete datasets that are not in use.' | $T8 %]

   [% 'If you want to delete such a dataset you have to edit the user(s) that are using the dataset in question and have them use another dataset.' | $T8 %]</p>

  <p>[% 'Please seletct the dataset you want to delete:' | $T8 %]

   <select name="db">[% FOREACH row = DBSOURCES %]<option>[% HTML.escape(row.name) %]</option>[% END %]</select>

  </p>

  <input type="hidden" name="dbuser"    value="[% HTML.escape(dbuser) %]">

  <input type="hidden" name="dbhost"    value="[% HTML.escape(dbhost) %]">

  <input type="hidden" name="dbport"    value="[% HTML.escape(dbport) %]">

  <input type="hidden" name="dbpasswd"  value="[% HTML.escape(dbpasswd) %]">

  <input type="hidden" name="dbdefault" value="[% HTML.escape(dbdefault) %]">

  <input name="callback" type="hidden" value="controller.pl?action=Admin/show">

  <input type="hidden" name="nextsub" value="dbdelete">

  <p><input type="submit" class="submit" name="action" value="[% 'Continue' | $T8 %]"></p>

 </form>

<h1>[% title %]</h1>

 [% L.link(SELF.url_for(action="pg_database_administration", controller="admin.pl"), LxERP.t8("Pg Database Administration")) %]