Ignore:
Timestamp:
Mar 20, 2011 3:03:46 PM (10 years ago)
Author:
leemasa
Message:

re #524:
Added support for automatic shutdown w/o password, added code to automatically shut down after test suite
Made a file, /bccd_boot_flags that populates with boot flags from the NIC on startup. Now accessing boot flags is as simple as source /bccd_boot_flags.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • bccd-ng/branches/sam-test_fw/trees/usr/local/lib/site_perl/5.10.0/Bccd.pm

    r3071 r3072  
    21902190
    21912191sub config_nic_dialog {
     2192        print "Starting config_nic_dialog";
    21922193    my($self,$d,$nic_conf) = @_;
    21932194    my($temp,$bccd_nic,$gotpxe,$dhcp_source,$sub);
     
    22202221        }
    22212222        } else {
    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";
     2223                        open (TEST,'</bccd_boot_flags') or croak "$!";
     2224                my      @command = grep (/BCCD_NIC/, <TEST>);
     2225                print "|" . $command[0] . "|\n";
     2226                        if ($command[0] =~ m/export BCCD_NIC=(.*)$/){
     2227                                $bccd_nic = $1;
     2228                        }
     2229                        #system ("/bccd_boot_flags") or croak "could not run /bccd_boot_flags: $!";
     2230                        #$bccd_nic = $ENV{'BCCD_NIC'};
     2231                        print "test\ntest\ntest\ntest\nBCCD NIC:|$bccd_nic|\n";
    22272232                        sleep 1;
    22282233                }
     
    23072312        }
    23082313    }
     2314       
     2315        print "ending config_nic_dialog:";
     2316        foreach my $key ( keys %{$nic_conf}){
     2317        print "$key->" . $nic_conf->{$key} ;
     2318        }
    23092319   
    23102320    return $nic_conf;
     
    24572467        }
    24582468       
    2459         my $boot_flags = "export BCCD_NIC=$bccd_nic\n";
     2469        my $boot_flags = "#!/bin/sh\nexport BCCD_NIC=$bccd_nic\n";     
    24602470
    24612471        foreach my $key(keys %request){
     
    24782488                        print BOOTFLAGS $boot_flags;
    24792489                close(BOOTFLAGS);
     2490                chmod 0755, '/bccd_boot_flags';
    24802491        }
    24812492}
Note: See TracChangeset for help on using the changeset viewer.