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