mirror of
https://github.com/webmin/webmin.git
synced 2025-07-21 23:40:34 +00:00
19 lines
519 B
Perl
Executable File
19 lines
519 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Update the password in bconsole.conf to match bacula-dir.conf
|
|
|
|
require './bacula-backup-lib.pl';
|
|
|
|
&lock_file($bconsole_conf_file);
|
|
$dirconf = &get_director_config();
|
|
$dirdir = &find("Director", $dirconf);
|
|
$conconf = &get_bconsole_config();
|
|
$condir = &find("Director", $conconf);
|
|
$dirpass = &find_value("Password", $dirdir->{'members'});
|
|
&save_directive($conconf, $condir, "Password", $dirpass, 1);
|
|
&flush_file_lines();
|
|
&unlock_file($bconsole_conf_file);
|
|
|
|
&webmin_log("fixpass");
|
|
&redirect("");
|
|
|