One Hat Cyber Team

Your IP: 216.73.216.13
Server IP: 109.199.105.153
Server: Linux connect.inboxifs.com 5.15.0-152-generic #162-Ubuntu SMP Wed Jul 23 09:48:42 UTC 2025 x86_64
Server Software: Apache
PHP Version: 8.2.29
Buat File | Buat Folder

View File Name : save_policy.cgi

#!/usr/bin/perl
# save_policy.cgi
# Update some policy file

require './ipsec-lib.pl';
&ReadParse();
&error_setup($text{'policy_err'});

if ($in{'mode'} == 0) {
	@policies = ( );
	}
elsif ($in{'mode'} == 1) {
	@policies = ( "0.0.0.0/0" );
	}
else {
	for($i=0; defined($n = $in{"net_$i"}); $i++) {
		next if ($n eq '');
		$m = $in{"mask_$i"};
		&check_ipaddress($n) || &error(&text('policy_enet', $i+1));
		$m =~ /^\d+/ && $m <= 32 || &error(&text('policy_emask', $i+1));
		push(@policies, "$n/$m");
		}
	}
&lock_file("$config{'policies_dir'}/$in{'policy'}");
&write_policy($in{'policy'}, \@policies);
&unlock_file("$config{'policies_dir'}/$in{'policy'}");
&webmin_log("policy", undef, $in{'policy'});
&redirect("");