projekt kivitendo

#

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

use DBI;

use CGI;

require "bin/mozilla/common.pl";

require "bin/mozilla/admin_groups.pl";

our $auth = SL::Auth->new();

if ($auth->session_tables_present()) {

  $auth->expire_sessions();

  $auth->restore_session();

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

if ($form->{action}) {

    $form->{error_message} = $locale->text('Incorrect Password!');

    adminlogin();

    exit;

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

  $auth->create_or_refresh_session() if ($auth->session_tables_present());

# end

sub adminlogin {

  $form->{title} = qq|Lx-Office ERP $form->{version} | . $locale->text('Administration');

}

sub logout {

  adminlogin();

}

sub check_auth_db_and_tables {

  my %params;

    $form->{title} = $locale->text('Authentification database creation');

    $form->header();

    print $form->parse_html_template('admin/check_auth_database', \%params);

    exit 0;

  }

    $form->{title} = $locale->text('Authentification tables creation');

    $form->header();

    print $form->parse_html_template('admin/check_auth_tables', \%params);

    exit 0;

  }

    my $memberdir = "";

      $memberdir = $&;

    }

    $form->{title} = $locale->text('User data migration');

    $form->header();

                                                               'backupdir'  => $backupdir });

    exit 0

}

sub create_auth_db {

                         'superuser_password' => $form->{db_superuser_password},

                         'template'           => $form->{db_template});

  login();

}

sub create_auth_tables {

    # New installation -- create a standard group with full access

    my $group = {

      'name'        => $locale->text('Full Access'),

      'description' => $locale->text('Full access to all functions'),

      'members'     => [ map { $_->{id} } values %members ],

    };

  }

  login();

}

sub migrate_users {

  my $memberdir = "";

    $memberdir = $&;

  }

    $form->error(sprintf($locale->text('The directory "%s" could not be created:\n%s'), $backupdir, $!));

  }

  $form->error($locale->text('Could not open the old memberfile.')) if (!$in);

  map { $_->{dbpasswd} = unpack 'u', $_->{dbpasswd} } values %members;

  while (my ($login, $params) = each %members) {

    my $conf_file = "${memberdir}${login}.conf";

    }

  }

  my @member_list = sort { lc $a->{login} cmp lc $b->{login} } values %members;

  $form->header();

  print $form->parse_html_template('admin/user_migration_done', { 'MEMBERS' => \@member_list });

}

sub create_standard_group_ask {

  $form->{title} = $locale->text('Create a standard group');

  $form->header();

}

sub create_standard_group {

  foreach my $group (values %{$groups}) {

    if (($form->{group_id} != $group->{id})

    'members'     => [ map { $_->{id} } values %members ],

  };

  user_migration_complete(1);

}

sub user_migration_complete {

  my $standard_group_created = shift;

  $form->{title} = $locale->text('User migration complete');

  $form->header();

}

sub list_users {

  delete $members{"root login"};

  map { $_->{templates} =~ s|.*/||; } values %members;

  $form->{title}   = "Lx-Office ERP " . $locale->text('Administration');

  $form->{MEMBERS} = [ @members{sort { lc $a cmp lc $b } keys %members} ];

  $form->header();

sub add_user {

  $form->{title} =

      "Lx-Office ERP "

    . $locale->text('Administration') . " / "

}

sub edit_user {

  $form->{title} =

      "Lx-Office ERP "

sub edit_user_form {

  my ($myconfig) = @_;

  my @valid_dateformats = qw(mm-dd-yy mm/dd/yy dd-mm-yy dd/mm/yy dd.mm.yy yyyy-mm-dd);

  $form->{ALL_DATEFORMATS} = [ map { { "format" => $_, "selected" => $_ eq $myconfig->{dateformat} } } @valid_dateformats ];

  $form->{ALL_NUMBERFORMATS} = [ map { { "format" => $_, "selected" => $_ eq $myconfig->{numberformat} } } @valid_numberformats ];

  $form->{ALL_COUNTRYCODES} = [];

    push @{ $form->{ALL_COUNTRYCODES} }, { "value"    => $countrycode,

                                           "name"     => $countrycodes{$countrycode},

                                           "selected" => $countrycode eq $myconfig->{countrycode} };

  }

  # is there a templates basedir

  }

  my @all     = readdir(TEMPLATEDIR);

  closedir TEMPLATEDIR;

  @alldir = grep !/\.(html|tex|sty|odt|xml|txb)$/, @alldir;

  $form->{ALL_TEMPLATES} = [ map { { "name", => $_, "selected" => $_ eq $myconfig->{templates} } } @alldir ];

  $lastitem =~ s/-.*//g;

  $form->{ALL_MASTER_TEMPLATES} = [ { "name" => $lastitem, "selected" => $lastitem eq "German" } ];

    $item =~ s/-.*//g;

    next if ($item eq $lastitem);

  my $groups = [];

  if ($form->{edit}) {

    foreach my $group (values %{ $all_groups }) {

      push @{ $groups }, $group if (grep { $user_id == $_ } @{ $group->{members} });

    $groups = [ sort { lc $a->{name} cmp lc $b->{name} } @{ $groups } ];

  }

  $form->header();

  print $form->parse_html_template("admin/edit_user", { 'GROUPS' => $groups });

}

sub save_user {

  $form->{dbdriver} = 'Pg';

  # no spaces allowed in login name

  # check for duplicates

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

    if ($members{$form->{login}}) {

      $form->show_generic_error($locale->text('Another user with the login #1 does already exist.', $form->{login}), 'back_button' => 1);

    }

  }

  # is there a basedir

  }

  # add base directory to $form->{templates}

  $form->{templates} =~ s|.*/||;

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

  $form->isblank("dbuser", $locale->text('Database User missing!'));

    $myconfig->{$item} = $form->{$item};

  }

  $myconfig->save_member();

      && defined $form->{new_password}

      && ($form->{new_password} ne '********')) {

  }

      qw(angebote bestellungen rechnungen anfragen lieferantenbestellungen einkaufsrechnungen);

      if ($form->{$directory}) {

        if (open(HTACCESS, "$file")) {

          while (<HTACCESS>) {

  }

  $form->{templates}       =~ s|.*/||;

  $form->{mastertemplates} =~ s|.*/||;

  # create user template directory and copy master files

      umask(007);

      # copy templates to the directory

        readdir TEMPLATEDIR;

      closedir TEMPLATEDIR;

        $file =~ s/\Q$form->{mastertemplates}\E-//;

        open(NEW, ">$form->{templates}/$file")

          or $form->error("$form->{templates}/$file : $ERRNO");

          print NEW $line;

        }

        close(TEMP);

  # Add new user to his groups.

  if (ref $form->{new_user_group_ids} eq 'ARRAY') {

    foreach my $group_id (@{ $form->{new_user_group_ids} }) {

      my $group = $all_groups->{$group_id};

      next if !$group;

      push @{ $group->{members} }, $user{id};

    }

  }

}

sub save_user_as_new {

  $form->{login} = $form->{new_user_login};

  delete @{$form}{qw(edit new_user_login)};

}

sub delete_user {

  my $templates = $members{$form->{login}}->{templates};

  if ($templates) {

    my $templates_in_use = 0;

      next if $form->{login} eq $login;

      next if $members{$login}->{templates} ne $templates;

      $templates_in_use = 1;

sub get_value {

  my $line = shift;

  my ($null, $value) = split(/=/, $line, 2);

  # remove comments

}

sub pg_database_administration {

  $form->{dbdriver} = 'Pg';

  dbselect_source();

}

sub dbselect_source {

  $form->{dbport}    = '5432';

  $form->{dbuser}    = 'postgres';

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

}

sub test_db_connection {

  $form->{dbdriver} = 'Pg';

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

}

sub continue {

}

sub update_dataset {

  $form->{title} =

      "Lx-Office ERP "

    . $locale->text('Database Administration') . " / "

}

sub dbupdate {

  $form->{stylesheet} = "lx-office-erp.css";

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

  $form->header();

}

sub create_dataset {

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

  $form->{CHARTS} = [];

    next if ($item eq 'Default-chart.sql');

    $item =~ s/-chart\.sql//;

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

  }

  closedir SQLDIR;

  $default_charset ||= Common::DEFAULT_CHARSET;

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

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

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

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

                                'back_button' => 1);

}

sub dbcreate {

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

  User->dbcreate(\%$form);

}

sub delete_dataset {

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

  $form->{title} =

}

sub dbdelete {

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

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

}

sub backup_dataset {

  $form->{title} =

      "Lx-Office ERP "

    . $locale->text('Database Administration') . " / "

    . $locale->text('Backup Dataset');

    $form->error($locale->text('Database backups and restorations are disabled in lx-erp.conf.'));

  }

}

sub backup_dataset_start {

  $form->{title} =

      "Lx-Office ERP "

    . $locale->text('Database Administration') . " / "

    . $locale->text('Backup Dataset');

    $form->error($locale->text('Database backups and restorations are disabled in lx-erp.conf.'));

  }

  push @args, ("-p", $form->{dbport}) if ($form->{dbport});

  push @args, $form->{dbname};

  my $name = "dataset_backup_$form->{dbname}_" . strftime("%Y%m%d", localtime()) . ".tar";

  if ($form->{destination} ne "email") {

    map { $mail->{$_} = $form->{$_} } qw(from to cc subject message);

    $mail->{attachments} = [ { "filename" => $tmp, "name" => $name } ];

    $mail->send();

}

sub restore_dataset {

  $form->{title} =

      "Lx-Office ERP "

    . $locale->text('Database Administration') . " / "

    . $locale->text('Restore Dataset');

    $form->error($locale->text('Database backups and restorations are disabled in lx-erp.conf.'));

  }

  $default_charset    ||= Common::DEFAULT_CHARSET;

  $form->{DBENCODINGS}  = [];

}

sub restore_dataset_start {

  $form->{title} =

      "Lx-Office ERP "

    . $locale->text('Database Administration') . " / "

    . $locale->text('Restore Dataset');

    $form->error($locale->text('Database backups and restorations are disabled in lx-erp.conf.'));

  }

  push @args, ("-p", $form->{dbport}) if ($form->{dbport});

  push @args, $tmp;

  my $in = IO::File->new("$cmd 2>&1 |");

    $form->error($locale->text('The pg_restore process could not be started.'));

  }

  $form->header();

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

}

sub unlock_system {

  $form->{callback} = "admin.pl?action=list_users";

}

sub lock_system {

    or $form->error($locale->text('Cannot create Lock!'));

  close(FH);

}

sub yes {

}

sub no {

}

sub add {

}

sub edit {

  $form->{edit_nextsub} ||= 'edit_user';

  call_sub($form->{edit_nextsub});

}

sub delete {

  $form->{delete_nextsub} ||= 'delete_user';

  call_sub($form->{delete_nextsub});

}

sub save {

  $form->{save_nextsub} ||= 'save_user';

  call_sub($form->{save_nextsub});

}

sub back {

}

sub dispatcher {

  foreach my $action (qw(create_standard_group dont_create_standard_group

                         save_user delete_user save_user_as_new)) {

    if ($form->{"action_${action}"}) {