Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
help	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
jstree	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	1.06 KB	-rw-r--r--	2026-07-17 21:17
Makefile	130 B	-rw-r--r--	2026-07-17 21:17
apply.cgi	214 B	-rwxr-xr-x	2026-07-17 21:22
backup.cgi	1.76 KB	-rwxr-xr-x	2026-07-17 21:22
backup_config.pl	600 B	-rw-r--r--	2026-07-17 21:17
backup_form.cgi	806 B	-rwxr-xr-x	2026-07-17 21:22
bacula-backup-lib.pl	43.95 KB	-rwxr-xr-x	2026-07-17 21:17
bootup.cgi	363 B	-rwxr-xr-x	2026-07-17 21:22
cancel_jobs.cgi	674 B	-rwxr-xr-x	2026-07-17 21:22
clientstatus_form.cgi	2.51 KB	-rwxr-xr-x	2026-07-17 21:22
config	138 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	136 B	-rw-r--r--	2026-07-17 21:17
config-windows	151 B	-rw-r--r--	2026-07-17 21:17
config.info	871 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	1.02 KB	-rw-r--r--	2026-07-17 21:17
config.info.de	947 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	0 B	-rw-r--r--	2026-07-17 21:17
config.info.ms	1019 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	872 B	-rw-r--r--	2026-07-17 21:17
config.info.no	951 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	998 B	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	0 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	1.17 KB	-rw-r--r--	2026-07-17 21:17
delete_clients.cgi	749 B	-rwxr-xr-x	2026-07-17 21:22
delete_devices.cgi	650 B	-rwxr-xr-x	2026-07-17 21:22
delete_fdirectors.cgi	653 B	-rwxr-xr-x	2026-07-17 21:22
delete_filesets.cgi	761 B	-rwxr-xr-x	2026-07-17 21:22
delete_gjobs.cgi	830 B	-rwxr-xr-x	2026-07-17 21:22
delete_groups.cgi	917 B	-rwxr-xr-x	2026-07-17 21:22
delete_jobs.cgi	735 B	-rwxr-xr-x	2026-07-17 21:22
delete_pools.cgi	732 B	-rwxr-xr-x	2026-07-17 21:22
delete_schedules.cgi	773 B	-rwxr-xr-x	2026-07-17 21:22
delete_sdirectors.cgi	666 B	-rwxr-xr-x	2026-07-17 21:22
delete_storages.cgi	768 B	-rwxr-xr-x	2026-07-17 21:22
delete_volumes.cgi	566 B	-rwxr-xr-x	2026-07-17 21:22
dirstatus_form.cgi	2.3 KB	-rwxr-xr-x	2026-07-17 21:22
edit_client.cgi	2.51 KB	-rwxr-xr-x	2026-07-17 21:22
edit_device.cgi	2.2 KB	-rwxr-xr-x	2026-07-17 21:22
edit_director.cgi	1.46 KB	-rwxr-xr-x	2026-07-17 21:22
edit_fdirector.cgi	1.4 KB	-rwxr-xr-x	2026-07-17 21:22
edit_file.cgi	1.11 KB	-rwxr-xr-x	2026-07-17 21:22
edit_fileset.cgi	2.31 KB	-rwxr-xr-x	2026-07-17 21:22
edit_gjob.cgi	4.41 KB	-rwxr-xr-x	2026-07-17 21:22
edit_group.cgi	2.56 KB	-rwxr-xr-x	2026-07-17 21:22
edit_job.cgi	5.34 KB	-rwxr-xr-x	2026-07-17 21:22
edit_pool.cgi	2.62 KB	-rwxr-xr-x	2026-07-17 21:22
edit_schedule.cgi	2.08 KB	-rwxr-xr-x	2026-07-17 21:22
edit_sdirector.cgi	1.4 KB	-rwxr-xr-x	2026-07-17 21:22
edit_storage.cgi	2.86 KB	-rwxr-xr-x	2026-07-17 21:22
edit_storagec.cgi	1.25 KB	-rwxr-xr-x	2026-07-17 21:22
fixaddr.cgi	481 B	-rwxr-xr-x	2026-07-17 21:22
fixpass.cgi	513 B	-rwxr-xr-x	2026-07-17 21:22
gbackup.cgi	1.59 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	6.13 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	450 B	-rwxr-xr-x	2026-07-17 21:17
label.cgi	1.49 KB	-rwxr-xr-x	2026-07-17 21:22
label_form.cgi	974 B	-rwxr-xr-x	2026-07-17 21:22
list.cgi	3.45 KB	-rwxr-xr-x	2026-07-17 21:22
list_clients.cgi	1.29 KB	-rwxr-xr-x	2026-07-17 21:22
list_devices.cgi	1.27 KB	-rwxr-xr-x	2026-07-17 21:22
list_fdirectors.cgi	1.34 KB	-rwxr-xr-x	2026-07-17 21:22
list_filesets.cgi	1.31 KB	-rwxr-xr-x	2026-07-17 21:22
list_gbackup.cgi	814 B	-rwxr-xr-x	2026-07-17 21:22
list_gjobs.cgi	1.52 KB	-rwxr-xr-x	2026-07-17 21:22
list_grestore.cgi	1.62 KB	-rwxr-xr-x	2026-07-17 21:22
list_groups.cgi	1.78 KB	-rwxr-xr-x	2026-07-17 21:22
list_jobs.cgi	1.68 KB	-rwxr-xr-x	2026-07-17 21:22
list_pools.cgi	1.23 KB	-rwxr-xr-x	2026-07-17 21:22
list_schedules.cgi	1.26 KB	-rwxr-xr-x	2026-07-17 21:22
list_sdirectors.cgi	1.34 KB	-rwxr-xr-x	2026-07-17 21:22
list_storages.cgi	1.39 KB	-rwxr-xr-x	2026-07-17 21:22
list_sync.cgi	795 B	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	1000 B	-rwxr-xr-x	2026-07-17 21:17
manual.sxw	24.8 KB	-rw-r--r--	2026-07-17 21:17
module.info	194 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	279 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	236 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	193 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	0 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	173 B	-rw-r--r--	2026-07-17 21:17
module.info.da	0 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	171 B	-rw-r--r--	2026-07-17 21:17
module.info.de	167 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	338 B	-rw-r--r--	2026-07-17 21:17
module.info.es	0 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	173 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	161 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	271 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	196 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	186 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	164 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	202 B	-rw-r--r--	2026-07-17 21:17
module.info.it	0 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	155 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	230 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	182 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	172 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	30 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	127 B	-rw-r--r--	2026-07-17 21:17
module.info.no	28 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	136 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	186 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	165 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	171 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	336 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	183 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	171 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	201 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	289 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	127 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	133 B	-rw-r--r--	2026-07-17 21:17
mount.cgi	916 B	-rwxr-xr-x	2026-07-17 21:22
mount_form.cgi	885 B	-rwxr-xr-x	2026-07-17 21:22
poolstatus_form.cgi	1.96 KB	-rwxr-xr-x	2026-07-17 21:22
restart.cgi	196 B	-rwxr-xr-x	2026-07-17 21:22
restore.cgi	4.99 KB	-rwxr-xr-x	2026-07-17 21:22
restore_form.cgi	3.53 KB	-rwxr-xr-x	2026-07-17 21:22
save_client.cgi	2.42 KB	-rwxr-xr-x	2026-07-17 21:22
save_device.cgi	2.04 KB	-rwxr-xr-x	2026-07-17 21:22
save_director.cgi	1.15 KB	-rwxr-xr-x	2026-07-17 21:22
save_fdirector.cgi	1.57 KB	-rwxr-xr-x	2026-07-17 21:22
save_file.cgi	1.01 KB	-rwxr-xr-x	2026-07-17 21:22
save_fileset.cgi	2.7 KB	-rwxr-xr-x	2026-07-17 21:22
save_gjob.cgi	2.93 KB	-rwxr-xr-x	2026-07-17 21:22
save_group.cgi	2.33 KB	-rwxr-xr-x	2026-07-17 21:22
save_job.cgi	2.91 KB	-rwxr-xr-x	2026-07-17 21:22
save_pool.cgi	2.36 KB	-rwxr-xr-x	2026-07-17 21:22
save_schedule.cgi	1.76 KB	-rwxr-xr-x	2026-07-17 21:22
save_sdirector.cgi	1.57 KB	-rwxr-xr-x	2026-07-17 21:22
save_storage.cgi	2.43 KB	-rwxr-xr-x	2026-07-17 21:22
save_storagec.cgi	1.07 KB	-rwxr-xr-x	2026-07-17 21:22
save_sync.cgi	737 B	-rwxr-xr-x	2026-07-17 21:22
schedule_chooser.cgi	2.89 KB	-rwxr-xr-x	2026-07-17 21:22
schedule_select.cgi	928 B	-rwxr-xr-x	2026-07-17 21:22
start.cgi	187 B	-rwxr-xr-x	2026-07-17 21:22
stop.cgi	183 B	-rwxr-xr-x	2026-07-17 21:22
storagestatus_form.cgi	2.57 KB	-rwxr-xr-x	2026-07-17 21:22
sync.pl	408 B	-rwxr-xr-x	2026-07-17 21:22
treechooser.cgi	2.03 KB	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# Show the Bacula main menu

require './bacula-backup-lib.pl';
$hsl = &help_search_link("bacula", "man", "doc", "google");

# Make sure it is installed
$err = &check_bacula();
if ($err) {
	&ui_print_header(undef, $module_info{'desc'}, "", "intro", 1, 1, 0,
			 $hsl);
	print &ui_config_link('index_echeck', [ $err, undef ]),"\n";
	&ui_print_footer("/", $text{'index'});
	exit;
	}

if (&has_bacula_dir()) {
	# Test DB connection
	eval { $dbh = &connect_to_database(); };
	if ($@) {
		$err = $@;
		&ui_print_header(undef, $module_info{'desc'}, "", "intro",
				 1, 1, 0, $hsl);
		print &ui_config_link('index_edb', [ $err, undef ]),"\n";
		&ui_print_footer("/", $text{'index'});
		exit;
		}
	$dbh->disconnect();
	}

# Test node group DB
if (&has_bacula_dir() && &has_node_groups()) {
	$err = &check_node_groups();
	if ($err) {
		&ui_print_header(undef, $module_info{'desc'}, "", "intro",
				 1, 1, 0, $hsl);
		print &ui_config_link('index_eng', [ $err, undef ]),"\n";
		&ui_print_footer("/", $text{'index'});
		exit;
		}
	}

# Get the Bacula version, and check it
$ver = &get_bacula_version();
&ui_print_header(
	 undef, $module_info{'desc'}, "", "intro", 1, 1, 0,
	 $hsl, undef, undef,
	 ($ver ? &text('index_version'.$cmd_prefix, $ver)." " : undef).
	 &text('index_ocmin', 'images/ocmin.gif',
	 'http://www.linmin.com/'));
if ($ver && $ver < 1.36) {
	print &text('index_eversion', 1.36, $ver),"\n";
	&ui_print_footer("/", $text{'index'});
	exit;
	}

# Make sure bconsole works
if (&is_bacula_running($cmd_prefix."-dir")) {
	# Check hostname in console config
	$conconf = &get_bconsole_config();
	$condir = &find("Director", $conconf);
	$conaddr = &find_value("Address", $condir->{'members'});
	if (!&to_ipaddress($conaddr) && !&to_ip6address($conaddr)) {
		# Offer to fix hostname
		print &text('index_econsole2',
			"<tt>$console_cmd</tt>", "<tt>$conaddr</tt>"),"\n";
		print &ui_form_start("fixaddr.cgi");
		print &ui_form_end([ [ "fix", $text{'index_fixaddr'} ] ]);
		&ui_print_footer("/", $text{'index'});
		exit;
		}

# Test run bconsole
	local $status;
	eval {
		local $h = &open_console();
		$status = &console_cmd($h, "version");
		&close_console($h);
		};
	if ($status !~ /Version/i) {
		# Nope .. check if there is a password mismatch we can fix
		print &text('index_econsole',
			"<tt>$console_cmd</tt>",
			"<tt>$config{'bacula_dir'}/bconsole.conf</tt>"),"\n";
		$dirconf = &get_director_config();
		$dirdir = &find("Director", $dirconf);
		$dirpass = &find_value("Password", $dirdir->{'members'});
		$conpass = &find_value("Password", $condir->{'members'});
		if ($dirpass && $conpass && $dirpass ne $conpass) {
			# Can fix!
			print &ui_form_start("fixpass.cgi");
			print &ui_form_end([ [ "fix",
					 $text{'index_fixpass'} ] ]);
			}
		&ui_print_footer("/", $text{'index'});
		exit;
		}
	}

# Show director, storage and file daemon icons
if (&has_bacula_dir()) {
	print &ui_subheading($text{'index_dir'});
	@pages = ( "director", "clients", "filesets", "schedules",
		   "jobs", "pools", "storages" );
	&show_icons_from_pages(\@pages);
	}
if (&has_bacula_sd()) {
	print &ui_subheading($text{'index_sd'});
	@pages = ( "storagec", "devices" );
	if (!&has_bacula_dir() || $config{'showdirs'}) {
		push(@pages, "sdirectors");
		}
	&show_icons_from_pages(\@pages);
	}
if (&has_bacula_fd()) {
	print &ui_subheading($text{'index_fd'});
	@pages = ( "file" );
	if (!&has_bacula_dir() || $config{'showdirs'}) {
		push(@pages, "fdirectors");
		}
	&show_icons_from_pages(\@pages);
	}

# Show icons for node group operations
if (&has_bacula_dir() && &has_node_groups()) {
	print &ui_subheading($text{'index_groups'});
	@pages = ( "groups", "gjobs", "gbackup", "sync" );
	@links = map { "list_${_}.cgi" } @pages;
	@titles = map { $text{"${_}_title"} } @pages;
	@icons = map { "images/${_}.gif" } @pages;
	&icons_table(\@links, \@titles, \@icons);
	}

if (&has_bacula_dir()) {
	# Show icons for actions
	print &ui_hr();
	print &ui_subheading($text{'index_actions'});
	if (&is_bacula_running($cmd_prefix."-dir")) {
		@actions = ( "backup", "dirstatus", "clientstatus",
			 "storagestatus", "label", "poolstatus", "mount",
			 "restore" );
		@links = map { "${_}_form.cgi" } @actions;
		@titles = map { $text{"${_}_title"} } @actions;
		@icons = map { "images/${_}.gif" } @actions;
		&icons_table(\@links, \@titles, \@icons);
		}
	else {
		print "$text{'index_notrun'}\n";
		}
	}

print &ui_hr();

# See what processes are running
print "$text{'index_status'}\n";
foreach $p (@bacula_processes) {
	print "&nbsp;|&nbsp;\n" if ($p ne $bacula_processes[0]);
	print $text{'proc_'.$p}," - ";
	if (&is_bacula_running($p)) {
		print "",$text{'index_up'},
		 "\n";
		$pcount++;
		}
	else {
		print "",$text{'index_down'},
		 "\n";
		}
	}
print "\n";
print &ui_buttons_start();
if ($pcount > 0) {
	if (!$config{'apply'}) {
		print &ui_buttons_row("apply.cgi",
			 $text{'index_apply'}, $text{'index_applydesc'});
		}
	if (&has_bacula_dir()) {
		# Only show restart button if we are running the director, as
		# for others the apply does a restart
		print &ui_buttons_row("restart.cgi",
		 $text{'index_restart'}, $text{'index_restartdesc'});
		}
	print &ui_buttons_row("stop.cgi",
		 $text{'index_stop'}, $text{'index_stopdesc'});
	}
if ($pcount < scalar(@bacula_processes)) {
	print &ui_buttons_row("start.cgi",
		 $text{'index_start'}, $text{'index_startdesc'});
	}

# See what is started at boot
if (&foreign_installed("init")) {
	&foreign_require("init", "init-lib.pl");
	$status = &init::action_status($bacula_inits[0]);
	if ($status) {
		print &ui_buttons_row("bootup.cgi",
			      $text{'index_boot'}, $text{'index_bootdesc'},
			      undef,
			      &ui_yesno_radio("boot", $status == 2 ? 1 : 0));
		}
	}

print &ui_buttons_end();

&ui_print_footer("/", $text{'index'});

sub show_icons_from_pages
{
local ($pages) = @_;
local @links = map { $_ eq "director" || $_ eq "file" || $_ eq "storagec" ?
			"edit_${_}.cgi" : "list_${_}.cgi" } @$pages;
local @titles = map { $text{"${_}_title"} } @$pages;
local @icons = map { "images/${_}.gif" } @$pages;
&icons_table(\@links, \@titles, \@icons);
}