One Hat Cyber Team

Your IP: 216.73.216.93
Server IP: 65.108.141.171
Server: Linux server.heloix.com 5.4.0-214-generic #234-Ubuntu SMP Fri Mar 14 23:50:27 UTC 2025 x86_64
Server Software: Apache
PHP Version: 7.4.33
Buat File | Buat Folder

Edit File: list_allow.cgi

#!/usr/bin/perl
# Display a list of targets and allowed IPs

use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './iscsi-target-lib.pl';
our (%text, %in);
&ReadParse();
my $allow = &get_allow_config($in{'mode'});

&ui_print_header(undef, $text{$in{'mode'}.'_title'}, "");

my @links = ( &ui_link("edit_allow.cgi?new=1&mode=$in{'mode'}",$text{'allow_add'}) );
if (@$allow) {
	unshift(@links, &select_all_link("d"), &select_invert_link("d"));
	print &ui_form_start("delete_allows.cgi", "post");
	print &ui_hidden("mode", $in{'mode'});
	print &ui_links_row(\@links);
	print &ui_columns_start([ "", $text{'allow_target'},
				 $text{$in{'mode'}.'_ips'},
				 $text{'allow_move'} ], 100, 0,
				[ "width=5", undef, undef, "width=32" ]);
	foreach my $a (@$allow) {
		my @addrs = @{$a->{'addrs'}};
		if (@addrs > 5) {
			@addrs = ( @addrs[0..4], "..." );
			}
		my $name = $a->{'name'} eq 'ALL' ? "$text{'allow_all1'}"
						 : $a->{'name'};
		print &ui_checked_columns_row([
			"<a href='edit_allow.cgi?idx=$a->{'index'}&".
			 "mode=$in{'mode'}'>$name</a>",
			$addrs[0] eq 'ALL' ? "$text{'allow_all2'}"
					 : join(" , ", @addrs),
			&ui_up_down_arrows(
			 "up_allow.cgi?mode=$in{'mode'}&idx=$a->{'index'}",
			 "down_allow.cgi?mode=$in{'mode'}&idx=$a->{'index'}",
			 $a ne $allow->[0],
			 $a ne $allow->[@$allow-1]
			 )
			], undef, "d", $a->{'index'});
		}
	print &ui_table_end();
	print &ui_links_row(\@links);
	print &ui_form_end([ [ undef, $text{'allow_delete'} ] ]);
	}
else {
	print "",$text{$in{'mode'}.'_none'},"\n";
	print &ui_links_row(\@links);
	}

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