Implementiert Ticket 1897 Zukunftsbuchungen vermeiden

[kivitendo-erp.git] / bin / mozilla / admin.pl

diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl
index 1c7f259..464c6de 100755 (executable)
--- a/bin/mozilla/admin.pl
+++ b/bin/mozilla/admin.pl
@@ -165,24 +165,6 @@ sub check_auth_db_and_tables {
 
     ::end_of_request();
   }
-
-  my $memberfile = $::lx_office_conf{paths}->{memberfile};
-  if (-f $memberfile) {
-    my $memberdir = "";
-
-    if ($memberfile =~ m|^.*/|) {
-      $memberdir = $&;
-    }
-
-    my $backupdir = "${memberdir}member-file-migration";
-
-    $form->{title} = $locale->text('User data migration');
-    $form->header();
-    print $form->parse_html_template('admin/user_migration', { 'memberfile' => $memberfile,
-                                                               'backupdir'  => $backupdir });
-
-    ::end_of_request();
-  }
 }
 
 sub create_auth_db {
@@ -220,142 +202,6 @@ sub create_auth_tables {
   login();
 }
 
-sub migrate_users {
-  $main::lxdebug->enter_sub();
-
-  my $form      = $main::form;
-  my $locale    = $main::locale;
-
-  my $memberdir = "";
-
-  my $memberfile = $::lx_office_conf{paths}->{memberfile};
-  if ($memberfile =~ m|^.*/|) {
-    $memberdir = $&;
-  }
-
-  my $backupdir = "${memberdir}member-file-migration";
-
-  if (! -d $backupdir && !mkdir $backupdir, 0700) {
-    $form->error(sprintf($locale->text('The directory "%s" could not be created:\n%s'), $backupdir, $!));
-  }
-
-  copy $memberfile, "users/member-file-migration/members";
-
-  my $in = IO::File->new($memberfile, "r");
-
-  $form->error($locale->text('Could not open the old memberfile.')) if (!$in);
-
-  my (%members, $login);
-
-  while (<$in>) {
-    chomp;
-
-    next if (m/^\s*\#/);
-
-    if (m/^\[.*\]/) {
-      $login = $_;
-      $login =~ s/(\[|\])//g;
-      $login =~ s/^\s*//;
-      $login =~ s/\s*$//;
-
-      $members{$login} = { "login" => $login };
-      next;
-    }
-
-    if ($login && m/=/) {
-      my ($key, $value) = split m/\s*=\s*/, $_, 2;
-      $key   =~ s|^\s*||;
-      $value =~ s|\s*$||;
-
-      $value =~ s|\\r||g;
-      $value =~ s|\\n|\n|g;
-
-      $members{$login}->{$key} = $value;
-    }
-  }
-
-  $in->close();
-
-  delete $members{"root login"};
-
-  map { $_->{dbpasswd} = unpack 'u', $_->{dbpasswd} } values %members;
-
-  while (my ($login, $params) = each %members) {
-    $main::auth->save_user($login, %{ $params });
-    $main::auth->change_password($login, $params->{password}, 1);
-
-    my $conf_file = "${memberdir}${login}.conf";
-
-    if (-f $conf_file) {
-      copy   $conf_file, "${backupdir}/${login}.conf";
-      unlink $conf_file;
-    }
-  }
-
-  unlink $memberfile;
-
-  my @member_list = sort { lc $a->{login} cmp lc $b->{login} } values %members;
-
-  $form->{title} = $locale->text('User data migration');
-  $form->header();
-  print $form->parse_html_template('admin/user_migration_done', { 'MEMBERS' => \@member_list });
-
-  $main::lxdebug->leave_sub();
-}
-
-sub create_standard_group_ask {
-  my $form   = $main::form;
-  my $locale = $main::locale;
-
-  $form->{title} = $locale->text('Create a standard group');
-
-  $form->header();
-  print $form->parse_html_template("admin/create_standard_group_ask");
-}
-
-sub create_standard_group {
-  my $form    = $main::form;
-  my $locale  = $main::locale;
-
-  my %members = $main::auth->read_all_users();
-
-  my $groups  = $main::auth->read_groups();
-
-  foreach my $group (values %{$groups}) {
-    if (($form->{group_id} != $group->{id})
-        && ($form->{name} eq $group->{name})) {
-      $form->show_generic_error($locale->text("A group with that name does already exist."));
-    }
-  }
-
-  my $group = {
-    'name'        => $locale->text('Full Access'),
-    'description' => $locale->text('Full access to all functions'),
-    'rights'      => { map { $_ => 1 } SL::Auth::all_rights() },
-    'members'     => [ map { $_->{id} } values %members ],
-  };
-
-  $main::auth->save_group($group);
-
-  user_migration_complete(1);
-}
-
-sub dont_create_standard_group {
-  user_migration_complete(0);
-}
-
-sub user_migration_complete {
-  my $standard_group_created = shift;
-
-  my $form                   = $main::form;
-  my $locale                 = $main::locale;
-
-  $form->{title} = $locale->text('User migration complete');
-  $form->header();
-
-  print $form->parse_html_template('admin/user_migration_complete', { 'standard_group_created' => $standard_group_created });
-}
-
 sub list_users {
   my $form    = $main::form;
   my $locale  = $main::locale;