mirror of
https://github.com/webmin/webmin.git
synced 2025-07-21 23:40:34 +00:00
20 lines
487 B
Perl
Executable File
20 lines
487 B
Perl
Executable File
#!/usr/local/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("");
|
|
|