PAL.C.T MINI SHELL
#!/usr/bin/perl
# Update the host in bconsole.conf to match this system
require './bacula-backup-lib.pl';
&lock_file($bconsole_conf_file);
$conconf = &get_bconsole_config();
$condir = &find("Director", $conconf);
$addr = &get_system_hostname();
if (!&to_ipaddress($addr) && !&to_ip6address($addr)) {
$addr = "localhost";
}
&save_directive($conconf, $condir, "Address", $addr, 1);
&flush_file_lines();
&unlock_file($bconsole_conf_file);
&webmin_log("fixaddr");
&redirect("");
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`