Changeset 7441 in genesis for tools


Ignore:
Timestamp:
Jan 28, 2010, 4:05:44 PM (15 years ago)
Author:
rick
Message:

Make the ifconfig 8.0 compatible

Location:
tools/iris-8.0
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • tools/iris-8.0/genesis.conf

    r7273 r7441  
    3737
    3838chomp($hostname);
    39 $cgi_dir="http://$hostname/freebsd/iris";
     39$cgi_dir="http://$hostname/freebsd/iris-8.0";
    4040$source="$cgi_dir/g_list.pl";
    4141
     
    4343$home=getcwd . "/../../";
    4444$ndir="$home/nodes";
    45 $toolfile="$home/freebsd/iris/wleiden.pl";
     45$toolfile="$home/freebsd/iris-8.0/wleiden.pl";
    4646
    4747
  • tools/iris-8.0/wleiden.pl

    r7385 r7441  
    233233  };
    234234 
    235   $output .= "ifconfig_lo0_alias0=\"inet 172.31.255.1/32\"\n";
     235  $iplist = "172.31.255.1/32";
    236236  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;
    243242  foreach my $interface (sort keys %config) {
    244243    (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;
    251247        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
    253260          if ( $SUBTYPE{$if} =~ /802.11a/i ) {
    254261            $output .= " mode 11a";
     
    260267          }
    261268
    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            };
    269278        };
    270         $output .= "\"\n";
     279        $output .= "ipv4_addrs_$IFNAME=\"" . join(' ',@iplist) . "\"\n";
     280        $output .= "\n";
    271281      };
    272282  };
Note: See TracChangeset for help on using the changeset viewer.