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

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("");