crans/scripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[tv] Les chaines anglaises ont plein de chars invalides...

Browse source 
darcs-hash:20100830140642-ffbb2-a61aca1ec6572f63cac833c4c25201e03d06f53a.gz
This commit is contained in:
Nicolas Dandrimont 2010-08-30 16:06:42 +02:00
parent db08250704
commit 575f926856
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tv/gen_dns.pl
View file

@ -69,7 +69,7 @@ while (<CHAINES>) {
if (/(.*):(.*)$/) { if (/(.*):(.*)$/) {
my $name = "$1"; my $name = "$1";
my $ip = "$2"; my $ip = "$2";
$name =~ s/[ .():,"]//g; $name =~ s/[ .():,"+<>]//g;
$name = lc($name); $name = lc($name);
print DIRECT "$name IN A $ip\n"; print DIRECT "$name IN A $ip\n";
if ($ip =~ /^\d+\.(\d+)\.(\d+)\.(\d+)$/) { if ($ip =~ /^\d+\.(\d+)\.(\d+)\.(\d+)$/) {