Changeset 3071 in /cluster/svnroot


Ignore:
Timestamp:
Mar 14, 2011 8:42:48 PM (10 years ago)
Author:
leemasa
Message:

Put together more sophisticated system for getting boot flags from NIC (#534)

Location:
bccd-ng/branches/sam-test_fw
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • bccd-ng/branches/sam-test_fw/packages/etc/skel/.bash_profile

    r3070 r3071  
    5353fi
    5454
    55 if [ -f /testmode -a ! $DISPLAY ]; then
     55if [ -f /testmode -a ! -z "$DISPLAY" ]; then
    5656        startx
    5757fi
  • bccd-ng/branches/sam-test_fw/trees/usr/local/lib/site_perl/5.10.0/Bccd.pm

    r3070 r3071  
    22202220        }
    22212221        } else {
    2222 
     2222                        my %request = ( "EXPECTED_NODES" => "8,4");
     2223                        get_boot_flags_from_NIC(%request);
     2224                        system ("source /bccd_boot_flags") or croak "$!";
     2225                        $bccd_nic = $ENV{'BCCD_NIC'};
     2226                        print "BCCD NIC:$bccd_nic\n";
     2227                        sleep 1;
    22232228                }
    22242229        if(defined($bccd_nic) && !$self->check_bccd_net($nic_conf)) {
     
    24242429
    24252430        my @mac_addresses =
    2426                 split(/\n/,`ifconfig -a | awk '/HWaddr/ {print \$1 " " \$5}'`);
     2431                split(/\n/,`$IFCONFIG | awk '/HWaddr/ {print \$1 " " \$5}'`);
    24272432        @custom_macs = grep {/ 02:/} @mac_addresses;
    24282433
     
    24332438
    24342439                my $open_hex;
    2435                 if ($custom_macs[$i] =~ m/([1-9A-F]):([1-9A-F][1-9A-F])$/){
     2440                if ($custom_macs[$i] =~ m/([0-9a-fA-F]):([0-9a-fA-F][0-9a-fA-F])$/){
    24362441                        $open_hex = $1.$2;
    24372442                } else {
     
    24522457        }
    24532458       
    2454         my $boot_flags = '';   
     2459        my $boot_flags = "export BCCD_NIC=$bccd_nic\n";
    24552460
    24562461        foreach my $key(keys %request){
     
    24642469
    24652470                $value = substr($boot_string,$index,$length);
     2471                $value = oct ("0b$value");
     2472                       
    24662473                $boot_flags .= "export $key=$value\n"; 
    24672474        }
    24682475
    24692476        if ($boot_flags){
    2470                 open(BOOTFLAGS, ">/.bccd_boot_flags");
     2477                open(BOOTFLAGS, ">/bccd_boot_flags") or die "Could not open file:$!";
    24712478                        print BOOTFLAGS $boot_flags;
    24722479                close(BOOTFLAGS);
Note: See TracChangeset for help on using the changeset viewer.