One Hat Cyber Team

Your IP: 216.73.216.133
Server IP: 185.119.109.197
Server: Linux managedhosting.chostar.me 5.15.0-160-generic #170-Ubuntu SMP Wed Oct 1 10:06:56 UTC 2025 x86_64
Server Software: Apache
PHP Version: 8.1.33
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("");