projekt kivitendo

    push @header, "<meta http-equiv='refresh' content='$refresh_time;$refresh_url'>";

  }

  push @header, "<style type='text/css'>\@page { size:landscape; }</style>" if $self->{landscape};

  push @header, "<link rel='shortcut icon' href='$self->{favicon}' type='image/x-icon'>" if -f $self->{favicon};

  $::lxdebug->enter_sub;

  my $self = shift;

  $self->{titlebar} .= "- $::myconfig{name}"   if $::myconfig{name};

  $self->{titlebar} .= "- $::myconfig{dbname}" if $::myconfig{name};

  my $form   = $main::form;

  my $locale = $main::locale;

  $form->header();

  print $form->parse_html_template('admin/adminlogin');

    $_->{login_url} =  $::locale->is_utf8 ? Encode::encode('utf-8-strict', $_->{login}) : $_->{login_url};

  }

  $form->{LOCKED}  = -e _nologin_file_name();

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

}

sub add_user {

# Note: Menu Style 'v3' is not compatible to all browsers!

# "menustyle"    => "old" sets the HTML Menu to default.

}

sub edit_user {

  $::form->{edit}  = 1;

  # get user

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

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

  # Intentionnaly disabled unless fixed to work with the authentication DB.

  $form->{ALLOW_DBBACKUP} = 0; # "$pg_dump_exe" ne "DISABLED";

  my $form              = $main::form;

  my $locale            = $main::locale;

  my @need_updates      = User->dbneedsupdate($form);

  $form->{NEED_UPDATES} = \@need_updates;

    }

  }

  $form->header();

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

  User->dbcreate(\%$form);

  $form->header();

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

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

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

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

  $form->header();

  User->dbdelete(\%$form);

  $form->header();

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

}

  my $form       = $main::form;

  my $locale     = $main::locale;

  if ($::lx_office_conf{applications}->{pg_dump} eq "DISABLED") {

    $form->error($locale->text('Database backups and restorations are disabled in the configuration.'));

  my $username  = getpwuid $UID || "unknown-user";

  my $hostname  = hostname() || "unknown-host";

  $form->header();

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

  my $form       = $main::form;

  my $locale     = $main::locale;

  my $pg_dump_exe = $::lx_office_conf{applications}->{pg_dump} || "pg_dump";

    unlink "${tmpdir}/.pgpass", $tmp;

    rmdir $tmpdir;

    $form->header();

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

  my $form       = $main::form;

  my $locale     = $main::locale;

  if ($::lx_office_conf{applications}->{pg_restore} eq "DISABLED") {

    $form->error($locale->text('Database backups and restorations are disabled in the configuration.'));

  my $form       = $main::form;

  my $locale     = $main::locale;

  my $pg_restore_exe = $::lx_office_conf{applications}->{pg_restore} || "pg_restore";

  $form->{todo_list}  =  create_todo_list('login_screen' => 1) if (!$form->{no_todo_list});

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

  $form->{interface}  = $::dispatcher->interface_type;

  # create the logo screen

  my $framesize    = _calc_framesize() - 2;

  my $menu         = Menu->new("menu.ini");

  $mainlevel       = $::form->{level};

  $::form->header;

  print qq|