- Timestamp:
- Jan 28, 2010, 4:05:44 PM (15 years ago)
- Location:
- tools/iris-8.0
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
tools/iris-8.0/genesis.conf
r7273 r7441 37 37 38 38 chomp($hostname); 39 $cgi_dir="http://$hostname/freebsd/iris ";39 $cgi_dir="http://$hostname/freebsd/iris-8.0"; 40 40 $source="$cgi_dir/g_list.pl"; 41 41 … … 43 43 $home=getcwd . "/../../"; 44 44 $ndir="$home/nodes"; 45 $toolfile="$home/freebsd/iris /wleiden.pl";45 $toolfile="$home/freebsd/iris-8.0/wleiden.pl"; 46 46 47 47 -
tools/iris-8.0/wleiden.pl
r7385 r7441 233 233 }; 234 234 235 $ output .= "ifconfig_lo0_alias0=\"inet 172.31.255.1/32\"\n";235 $iplist = "172.31.255.1/32"; 236 236 if( $masterNotUsed ) { 237 $output .= "ifconfig_lo0_alias1=\"inet $master_ip/32\"\n\n"; 238 } 239 else { 240 $output .= "#ifconfig_lo0_alias1=\"inet $master_ip/32\"\n\n"; 241 }; 242 237 $iplist .= "$master_ip/32"; 238 } 239 $output .= "ipv4_addrs_lo0=\"127.0.0.1/8 $iplist\"\n"; 240 241 $WLAN_NR = 0; 243 242 foreach my $interface (sort keys %config) { 244 243 (my $if, my $number) = split(/:/, $interface); 245 if( defined $number ) { 246 $output .= "ifconfig_$if\_alias$number=\"inet $IP{$interface}\"\n"; 247 } 248 else { 249 $output .= "ifconfig_$if=\"inet $IP{$interface}"; 250 $output .= " $CARD_OPTION{$interface}"; 244 if( not defined $number ) { 245 # No special syntax for aliases anymore 246 $IFNAME = $if; 251 247 if( $TYPE{$if} =~ /wireless/i ) { 252 $output .= " ssid $ESSID{$interface}"; 248 $IFNAME = "wlan$WLAN_NR"; 249 $WLAN_NR++; 250 $output .= "wlans_$if=\"$IFNAME\"\n"; 251 $output .= "create_args_$IFNAME=\""; 252 253 if( $MODE{$if} =~/master/i ) { 254 $output .= "wlanmode ap"; 255 $output .= " channel $CHANNEL{$interface}"; 256 } else { 257 $output .= " wlanmode sta" 258 } 259 253 260 if ( $SUBTYPE{$if} =~ /802.11a/i ) { 254 261 $output .= " mode 11a"; … … 260 267 } 261 268 262 if( $MODE{$if}=~/master/i ) { 263 $output .= " channel $CHANNEL{$interface}"; 264 $output .= " mediaopt hostap"; 265 } 266 else { 267 $output .= ""; 268 }; 269 $output .= " ssid $ESSID{$interface} regdomain ETSI country NL up\"\n"; 270 } 271 272 @iplist = (); 273 foreach my $interface (sort keys %config) { 274 (my $if_t, my $number) = split(/:/, $interface); 275 if ( $if_t eq $if ) { 276 push(@iplist,$IP{$interface}); 277 }; 269 278 }; 270 $output .= "\"\n"; 279 $output .= "ipv4_addrs_$IFNAME=\"" . join(' ',@iplist) . "\"\n"; 280 $output .= "\n"; 271 281 }; 272 282 };
Note:
See TracChangeset
for help on using the changeset viewer.