Changeset 4084 in genesis
- Timestamp:
- Mar 16, 2005, 11:01:30 PM (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
tools/wleiden.pl
r4081 r4084 14 14 #variablen 15 15 my $time=gmtime(); 16 my $source=`/bin/hostname -s`;16 my $source=`/bin/hostname`; 17 17 chomp($source); 18 18 … … 69 69 my $output = genHeader("#"); 70 70 $output .= 71 "option domain-name \"wLeiden.NET\" \n" .71 "option domain-name \"wLeiden.NET\";\n" . 72 72 " \n" . 73 73 "default-lease-time 7200;\n" . … … 152 152 "zone \"$tmpZone\" {\n" . 153 153 " type slave\;\n" . 154 " file \"slave /slave-$tmpZone\"\;\n" .154 " file \"slave-$tmpZone\"\;\n" . 155 155 " masters {\n"; 156 156 foreach my $tmpIP (sort @$dnsZone) { … … 201 201 (my $if, my $number) = split(/:/, $interface); 202 202 if( defined $number ) { 203 $output .= "ifconfig_$if\_alias$number=\" $IP{$interface}\"\n";203 $output .= "ifconfig_$if\_alias$number=\"inet $IP{$interface}\"\n"; 204 204 } 205 205 else { 206 $output .= "ifconfig_$if=\" $IP{$interface}\"\n";206 $output .= "ifconfig_$if=\"inet $IP{$interface}\"\n"; 207 207 }; 208 208 };
Note:
See TracChangeset
for help on using the changeset viewer.