pf-tools commit: r777 [ccaillet-guest] - /branches/next-gen/lib/PFTools/Net.pm

parmelan-guest at users.alioth.debian.org parmelan-guest at users.alioth.debian.org
Wed Jul 21 13:33:47 UTC 2010


Author: ccaillet-guest
Date: Wed Jul 21 13:33:46 2010
New Revision: 777

URL: http://svn.debian.org/wsvn/pf-tools/?sc=1&rev=777
Log:
Cosmetics

Modified:
    branches/next-gen/lib/PFTools/Net.pm

Modified: branches/next-gen/lib/PFTools/Net.pm
URL: http://svn.debian.org/wsvn/pf-tools/branches/next-gen/lib/PFTools/Net.pm?rev=777&op=diff
==============================================================================
--- branches/next-gen/lib/PFTools/Net.pm (original)
+++ branches/next-gen/lib/PFTools/Net.pm Wed Jul 21 13:33:46 2010
@@ -1563,46 +1563,43 @@
     my ( $zone_file, $zone_name, $zone_site, $global_config ) = @_;
 
 	my $zone_part	= $global_config->{'ZONE'}->{'BY_NAME'}->{$zone_name};
-    # Ouverture du fichier de destination
-    unless ( open ( ZONE, ">".$zone_file ) ) {
+	unless ( open ( ZONE, ">".$zone_file ) ) {
 		Abort( $CODE->{'OPEN'}, 
 			"Unable to open file ".$zone_file." for building zone header " );
 	}
 
 	my $old_STDOUT = select ( ZONE );
-
-    ### Zone
-    print ";;\n";
-    print ";; BIND configuration file for zone : ".$zone_name."\n";
+	# SOA
+	print ";;\n";
+	print ";; BIND configuration file for zone : ".$zone_name."\n";
 	print ";; Site : ".$zone_site."\n";
-    print ";;\n";
-    print ";; ", $Z->{'SOA'}->{'comment'}, "\n";
-    print
+	print ";;\n";
+	print ";; ", $Z->{'SOA'}->{'comment'}, "\n";
+	print
 	";;============================================================================\n\n";
-    print "\n";
-    printf "\$TTL %s\n", $Z->{'SOA'}->{'ttl'};
-    printf "%-29s IN SOA\t%s %s (\n", '@', $Z->{'SOA'}->{'soa'}, $Z->{'SOA'}->{'mail'};
+	print "\n";
+	printf "\$TTL %s\n", $Z->{'SOA'}->{'ttl'};
+	printf "%-29s IN SOA\t%s %s (\n", '@', $Z->{'SOA'}->{'soa'}, $Z->{'SOA'}->{'mail'};
 	my $serial =  ( $Z->{'SOA'}->{'serial'} eq 'AUTO' ) ? time : $Z->{'SOA'}->{'serial'};
-    printf "%-30s%s\n",   '', $serial;
-    printf "%-30s%s\n",   '', $Z->{'SOA'}->{'refresh'};
-    printf "%-30s%s\n",   '', $Z->{'SOA'}->{'retry'};
-    printf "%-30s%s\n",   '', $Z->{'SOA'}->{'expire'};
-    printf "%-30s%s\n",   '', $Z->{'SOA'}->{'negttl'};
-    printf "%-30s%s\n\n", '', ')';
-
-    foreach my $namserver ( @{ $Z->{'@ns'} } ) {
-		printf "%-29s IN NS\t%s\n", '', $namerver;
-    }
-    print "\n";
-
-    foreach my $mx ( @{ $Z->{'@mx'} } ) {
-		printf "%-29s IN MX\t%s\n", '', $mx;
-    }
-    print "\n";
-
-    $| = 1;
-    select ( $old_STDOUT );
-    close ( ZONE );
+	printf "%-30s%s\n",   '', $serial;
+	printf "%-30s%s\n",   '', $Z->{'SOA'}->{'refresh'};
+	printf "%-30s%s\n",   '', $Z->{'SOA'}->{'retry'};
+	printf "%-30s%s\n",   '', $Z->{'SOA'}->{'expire'};
+	printf "%-30s%s\n",   '', $Z->{'SOA'}->{'negttl'};
+	printf "%-30s%s\n\n", '', ')';
+	# NS fields
+	foreach my $namserver ( @{ $Z->{'@ns'} } ) {
+			printf "%-29s IN NS\t%s\n", '', $namerver;
+	}
+	print "\n";
+	# MX fields
+	foreach my $mx ( @{ $Z->{'@mx'} } ) {
+			printf "%-29s IN MX\t%s\n", '', $mx;
+	}
+	print "\n";
+	$| = 1;
+	select ( $old_STDOUT );
+	close ( ZONE );
 }
 
 #




More information about the pf-tools-commits mailing list