Revision 0e65146d
Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt
| scripts/dbupgrade2_tool.pl | ||
|---|---|---|
|
|
||
|
$lxdebug = LXDebug->new();
|
||
|
|
||
|
use SL::Auth;
|
||
|
use SL::Form;
|
||
|
use SL::User;
|
||
|
use SL::Locale;
|
||
| ... | ... | |
|
my ($opt_list, $opt_tree, $opt_rtree, $opt_nodeps, $opt_graphviz, $opt_help);
|
||
|
my ($opt_user, $opt_apply);
|
||
|
|
||
|
our (%myconfig, $form, $user);
|
||
|
our (%myconfig, $form, $user, $auth);
|
||
|
|
||
|
sub show_help {
|
||
|
my $help_text = <<'END_HELP'
|
||
| ... | ... | |
|
dump_nodeps() if ($opt_nodeps);
|
||
|
|
||
|
if ($opt_user) {
|
||
|
my $file_name = "users/${opt_user}.conf";
|
||
|
$auth = SL::Auth->new();
|
||
|
if (!$auth->session_tables_present()) {
|
||
|
$form->error("The session and user management tables are not present in the " .
|
||
|
"authentication database. Please use the administration web interface " .
|
||
|
"and to create them.");
|
||
|
}
|
||
|
|
||
|
%myconfig = $auth->read_user($opt_user);
|
||
|
|
||
|
if (!$myconfig{login}) {
|
||
|
$form->error($form->format_string("The user '#1' does not exist.", $opt_user));
|
||
|
}
|
||
|
|
||
|
eval { require($file_name); };
|
||
|
$form->error("File '$file_name' was not found") if $@;
|
||
|
$locale = new Locale($myconfig{countrycode}, "all");
|
||
|
$user = new User("users/members", $opt_user);
|
||
|
$user = new User($opt_user);
|
||
|
|
||
|
map { $form->{$_} = $myconfig{$_} } keys %myconfig;
|
||
|
}
|
||
|
|
||
Auch abrufbar als: Unified diff
Anpassung an die neue Art der Benutzerdatenspeicherung.