Subversion Repositories ALCASAR

Rev

Rev 1668 | Rev 1827 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log

Rev 1668 Rev 1818
Line 59... Line 59...
59
	for($i=0; $i<exec("wc -l $filename"); $i++)
59
	for($i=0; $i<exec("wc -l $filename"); $i++)
60
	{
60
	{
61
		echo $resultat[$i]."\n";
61
		echo $resultat[$i]."\n";
62
	}
62
	}
63
}
63
}
-
 
64
 
-
 
65
#maximum length for top-level DNS
-
 
66
function max_tld()
-
 
67
{
-
 
68
	$url_tld = "http://data.iana.org/TLD/tlds-alpha-by-domain.txt";
-
 
69
	$result_tld = file_get_contents($url_tld,false);
-
 
70
	$max_tld = 18; 																											#valeur de base si le site ne répond plus
-
 
71
	if($result_tld !== FALSE){
-
 
72
		foreach(explode("\n", $result_tld) as $line)
-
 
73
		{
-
 
74
			if((strpos($line,'-') === false) and (strpos($line,'#') === false))
-
 
75
			{
-
 
76
				if(strlen($line) > $max_tld)
-
 
77
				{
-
 
78
					$max_tld = strlen($line);
-
 
79
				}
-
 
80
			}
-
 
81
		}
-
 
82
	}
-
 
83
	return $max_tld;
-
 
84
}
-
 
85
 
64
# Choice of language
86
# Choice of language
65
$Language = 'en';
87
$Language = 'en';
66
if(isset($_SERVER['HTTP_ACCEPT_LANGUAGE'])){
88
if(isset($_SERVER['HTTP_ACCEPT_LANGUAGE'])){
67
  $Langue = explode(",",$_SERVER['HTTP_ACCEPT_LANGUAGE']);
89
  $Langue = explode(",",$_SERVER['HTTP_ACCEPT_LANGUAGE']);
68
  $Language = strtolower(substr(chop($Langue[0]),0,2)); }
90
  $Language = strtolower(substr(chop($Langue[0]),0,2)); }
Line 202... Line 224...
202
	break;
224
	break;
203
case 'Reject_list' :
225
case 'Reject_list' :
204
	unlink ("$dir_tmp/blacklists.tar.gz"); unlink ("$dir_tmp/md5sum");
226
	unlink ("$dir_tmp/blacklists.tar.gz"); unlink ("$dir_tmp/md5sum");
205
	break;
227
	break;
206
case 'MAJ_cat_bl' :
228
case 'MAJ_cat_bl' :
207
	$tab=file($bl_categories_enabled);
229
	if (file_exists($bl_categories_enabled))
208
	if ($tab)
-
 
209
		{
230
		{
210
		$pointeur=fopen($bl_categories_enabled, "w+");
231
		$pointeur=fopen($bl_categories_enabled, "w+");
211
		foreach ($_POST as $key => $value)
232
		foreach ($_POST as $key => $value)
212
			{
233
			{
213
			if (strstr($key,'chk-'))
234
			if (strstr($key,'chk-'))
Line 275... Line 296...
275
			# Suppression des doublons
296
			# Suppression des doublons
276
			exec("sort -u $upload_dir_ip\ossi-ip > $upload_dir_ip\ossi-$nom && rm -f $upload_dir_ip\ossi-ip");
297
			exec("sort -u $upload_dir_ip\ossi-ip > $upload_dir_ip\ossi-$nom && rm -f $upload_dir_ip\ossi-ip");
277
 
298
 
278
			# On adapte le fichier à la sauvegarde du set
299
			# On adapte le fichier à la sauvegarde du set
279
			exec("sed -i \"s/^/add blacklist_ip_blocked /g\" $upload_dir_ip\ossi-$nom"); 
300
			exec("sed -i \"s/^/add blacklist_ip_blocked /g\" $upload_dir_ip\ossi-$nom"); 
-
 
301
			
280
 
302
 
281
			# On extrait uniquement les noms de domaine
303
			# On extrait uniquement les noms de domaine
-
 
304
			# max_tld() retourne le nombre max de charactere pour un top-level dns
282
			exec("grep -Eo '([a-zA-Z0-9_-]+\.){1,2}[a-zA-Z]{2,3}' $upload_dir_ip$nom > $upload_dir_domain_names\ossi-domain_names");
305
			exec("grep -Eo '([a-zA-Z0-9_-]+\.){1,2}[a-zA-Z]{2,".max_tld()."}' $upload_dir_ip$nom > $upload_dir_domain_names\ossi-domain_names");
283
 
306
 
284
			# Suppression des doublons
307
			# Suppression des doublons
285
			exec("sort -u $upload_dir_domain_names\ossi-domain_names > $upload_dir_domain_names\ossi-$nom && rm -f $upload_dir_domain_names\ossi-domain_names");
308
			exec("sort -u $upload_dir_domain_names\ossi-domain_names > $upload_dir_domain_names\ossi-$nom && rm -f $upload_dir_domain_names\ossi-domain_names");
286
 
309
 
287
			# On adapte le fichier pour Dnsmasq
310
			# On adapte le fichier pour Dnsmasq