PAL.C.T MINI SHELL
#!/usr/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("");
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`