Changeset 3166 in /cluster/svnroot


Ignore:
Timestamp:
Apr 27, 2011 8:37:14 AM (10 years ago)
Author:
skylar
Message:

merging in hostname changes (#624)

Location:
bccd-ng/trunk
Files:
8 edited

Legend:

Unmodified
Added
Removed
  • bccd-ng/trunk/bin/build_livecd.pl

    r3143 r3166  
    108108        $websvn = $opts{'websvn'};
    109109} else {
    110         $websvn = "http://bccd-ng.cluster.earlham.edu/svn/bccd-ng/branches/skylar-condor/";
     110        $websvn = "http://bccd-ng.cluster.earlham.edu/svn/bccd-ng/trunk";
    111111}
    112112
  • bccd-ng/trunk/packages/etc/init.d/bccd-nics

    r2749 r3166  
    3232### END INIT INFO
    3333
    34 /bin/bccd-nic-probe
    35 /bin/bccd-nic-setup
    36 /bin/bccd-nat
     34if test $(cat /etc/bccd-stage) = "LIVE" ; then
     35        /bin/bccd-nic-probe
     36        /bin/bccd-nic-setup
     37        /bin/bccd-nat
     38fi
    3739
    3840exit $?
  • bccd-ng/trunk/packages/liberate.pl

    r3143 r3166  
    394394    );
    395395
     396
     397$Bccd->run_test(
     398    "unlink",
     399    "0",
     400    "Removed NAT configuration.",
     401    "$LIBDIR/etc/network/if-up.d/nat",
     402    );
     403
    396404$Bccd->run_test(
    397405    "chmod",
     
    543551    "$LIBDIR/$PROJDIR/etc/network/",
    544552    );
    545 
    546 $Bccd->run_test(
    547         "fcopy",
    548         "",
    549         "Copied $LIBDIR/etc/init.d/bccd-nics -> $LIBDIR/$PROJDIR/etc/init.d/bccd-nics.",
    550         "$LIBDIR/etc/init.d/bccd-nics",
    551         "$LIBDIR/$PROJDIR/etc/init.d/bccd-nics",
    552         );
    553 
    554 $Bccd->run_test(
    555         "chmod",
    556         "",
    557         "Set $LIBDIR/$PROJDIR/etc/init.d/bccd-nics to 0755.",
    558         0755,
    559         "$LIBDIR/$PROJDIR/etc/init.d/bccd-nics",
    560 );
    561 
    562 $Bccd->run_test(
    563         "regexsub_file",
    564         "",
    565         "Disabled bccd-nic-probe in diskless nodes.",
    566         "$LIBDIR/$PROJDIR/etc/init.d/bccd-nics",
    567         "/bin/bccd-nic-probe",
    568         "",
    569         );
    570553
    571554$Bccd->run_test(
  • bccd-ng/trunk/trees/bin/bccd-hostname

    r3136 r3166  
    3636
    3737if($Bccd->get_stage() eq 'LIBERATED') {
    38         $hostname = "pxenode000.bccd.net";
     38        $hostname = "node000.bccd.net";
    3939}
    4040else {
  • bccd-ng/trunk/trees/etc/init.d/mpd

    r2749 r3166  
    4949NCPUS=`grep ^processor /proc/cpuinfo | wc -l`
    5050
    51 if [ "`cat /etc/bccd-stage`" == "LIBERATED" ]; then
    52         HEADNODE=pxenode000.bccd.net
    53 else
    54         HEADNODE=node000.bccd.net
    55 fi
     51HEADNODE=node000.bccd.net
    5652
    5753test -x $DAEMON || exit 5
  • bccd-ng/trunk/trees/etc/init.d/pbs

    r2749 r3166  
    5656                $ROOT/bin/qterm -t quick
    5757                cp $INSTALL/nodes $SERV_HOME/server_priv/
    58                 echo "SERVERHOST pxenode000.bccd.net" >> $SERV_HOME/torque.cfg
     58                echo "SERVERHOST node000.bccd.net" >> $SERV_HOME/torque.cfg
    5959
    6060                # pbs_sched is very picky about where connections come from.
     
    6868        if [ "`cat /etc/bccd-stage`" == "LIBERATED" ]; then
    6969                # mom needs to know who to connect to in liberation
    70                 echo "\$pbsserver pxenode000.bccd.net" >> $SERV_HOME/mom_priv/config
     70                echo "\$pbsserver node000.bccd.net" >> $SERV_HOME/mom_priv/config
    7171
    7272                for n in {11..99}; do
    73                         echo "pxenode0$n.bccd.net" >> $SERV_HOME/server_priv/nodes
     73                        echo "node0$n.bccd.net" >> $SERV_HOME/server_priv/nodes
    7474                done
    75                 echo "pxenode100.bccd.net" >> $SERV_HOME/server_priv/nodes
     75                echo "node100.bccd.net" >> $SERV_HOME/server_priv/nodes
    7676
    7777                date > $INST_FILE
  • bccd-ng/trunk/trees/software/bccd/software/torque-2.5.1/install/pbs_server.conf

    r2586 r3166  
    1616set server acl_host_enable = True
    1717set server acl_hosts = node*.bccd.net
    18 set server acl_hosts += pxenode*.bccd.net
     18set server acl_hosts += node*.bccd.net
    1919set server acl_hosts += localhost
    2020set server managers = root@node000.bccd.net
    21 set server managers += root@pxenode000.bccd.net
    2221set server default_queue = bccd
    2322set server log_events = 511
  • bccd-ng/trunk/trees/usr/local/lib/site_perl/5.10.0/Bccd.pm

    r3120 r3166  
    19911991        $i = 0;
    19921992        while( $pxenetip->addr() ne $pxenet->{'last'} ) {
    1993             print $HOSTS sprintf("%s\tpxenode%.3d.bccd.net pxenode%.3d\t#PXE IP\n", $pxenetip->addr(), $i, $i);
     1993            print $HOSTS sprintf("%s\tnode%.3d.bccd.net node%.3d\t#PXE IP\n", $pxenetip->addr(), $i, $i);
    19941994            $pxenetip++;
    19951995            if($i == 10) {
     
    20092009    open(my $DCONF,'>',$DHCP_CONF) ||
    20102010        $self->log_and_die("ERROR",$sub,"Can't open file $DHCP_CONF: $!");
    2011    
    2012     print $DCONF "allow bootp;\nallow booting;\n\n";
    2013     print $DCONF "subnet $pubnet->{'network'} netmask $pubnet->{'mask'} {\n";
    2014     print $DCONF "\toption subnet-mask $pubnet->{'mask'};\n";
    2015     print $DCONF "\toption broadcast-address $pubnet->{'bcast'};\n";
    2016     print $DCONF "\toption routers $BCCD_NET->{'ipaddr'};\n";
    2017     print $DCONF "\tpool {\n";
    2018     print $DCONF "\t\tallow members of \"bccd-nodes\";\n";
    2019     print $DCONF "\t\trange $pubnet->{'dhcprange'};\n";
    2020     print $DCONF "\t}\n";
    2021     print $DCONF "}\n";
    20222011   
    20232012    if(defined($pxenic)) {
     
    20522041        }
    20532042    }
     2043    else {
     2044        print $DCONF "allow bootp;\nallow booting;\n\n";
     2045        print $DCONF "subnet $pubnet->{'network'} netmask $pubnet->{'mask'} {\n";
     2046        print $DCONF "\toption subnet-mask $pubnet->{'mask'};\n";
     2047        print $DCONF "\toption broadcast-address $pubnet->{'bcast'};\n";
     2048        print $DCONF "\toption routers $BCCD_NET->{'ipaddr'};\n";
     2049        print $DCONF "\tpool {\n";
     2050        print $DCONF "\t\tallow members of \"bccd-nodes\";\n";
     2051        print $DCONF "\t\trange $pubnet->{'dhcprange'};\n";
     2052        print $DCONF "\t}\n";
     2053        print $DCONF "}\n";
     2054        }
    20542055   
    20552056    close($DCONF);
     
    22532254        foreach my $nic (keys(%{$nic_conf})) {
    22542255            if(defined($nic_conf->{$nic}->{'dhcp_source'})
    2255                 && $nic_conf->{$nic}->{'dhcp_source'} eq 'BCCD') {
     2256               && $nic_conf->{$nic}->{'dhcp_source'} eq 'BCCD') {
    22562257                $dhcp_source = 'BCCD';
    22572258            }
     
    22792280                        print STDERR "$bccd_nic selected for BCCD network\n"
    22802281                }
    2281                 # Copy iptables template regardless of NAT Status
    2282                 open(my $IPT, '>', $IPTABLES_UP) or
    2283                         $self->log_and_die("ERROR",$sub,
    2284                                 "Couldn't open $IPTABLES_UP for appending: $!");
    2285                 foreach my $LINE (
    2286                                                         q{*filter},
    2287                                                         q{:INPUT ACCEPT [6562:602865]},
    2288                                                         q{:FORWARD ACCEPT [100:8276]},
    2289                                                         q{:OUTPUT ACCEPT [5836:748341]},
    2290                                                         q{COMMIT},
    2291                                                 ) {
    2292                         print $IPT "$LINE\n";
    2293                 }
     2282        # Copy iptables template regardless of NAT Status
     2283        open(my $IPT, '>', $IPTABLES_UP) or
     2284            $self->log_and_die("ERROR",$sub,
     2285                               "Couldn't open $IPTABLES_UP for appending: $!");
     2286        foreach my $LINE (
     2287            q{*filter},
     2288            q{:INPUT ACCEPT [6562:602865]},
     2289            q{:FORWARD ACCEPT [100:8276]},
     2290            q{:OUTPUT ACCEPT [5836:748341]},
     2291            q{COMMIT},
     2292            ) {
     2293            print $IPT "$LINE\n";
     2294        }
    22942295                close($IPT);
    22952296        if(defined($bccd_nic) && !$self->check_bccd_net($nic_conf)) {
    22962297            $nic_conf->{"$bccd_nic:1"} = $BCCD_NET;
    2297                         open(my $IPT, '>>', $IPTABLES_UP) or
    2298                                 $self->log_and_die("ERROR",$sub,
    2299                                         "Couldn't open $IPTABLES_UP for appending: $!");
    2300                         print $IPT qq{-A POSTROUTING -o $bccd_nic -j MASQUERADE\n};
    2301                         print $IPT qq{COMMIT\n};
    2302                         print $IPT qq{# Completed on Wed Jul 15 23:51:28 2009\n};
    2303                         close($IPT);
    2304         }
    2305 
     2298            foreach my $LINE (
     2299                q{*nat},
     2300                q{:PREROUTING ACCEPT [145:21906]},
     2301                q{:POSTROUTING ACCEPT [8:630]},
     2302                q{:OUTPUT ACCEPT [27:2202]},
     2303                q{COMMIT},
     2304                ) {
     2305                print $IPT "$LINE\n";
     2306            }
     2307        }
     2308        close($IPT);
     2309       
    23062310      NIC_CONF:
    23072311        foreach my $nic (sort keys %{$nic_conf}) {
     
    23252329                $nic_conf->{$nic}->{'dhcp'} = 0;
    23262330            }
     2331<<<<<<< .working
    23272332                        else {
    23282333                                next NIC_CONF;
     
    23652370                    if(!$gotpxe && $self->get_stage() eq 'LIBERATED' && $d->yesno(text=>"Make $nic the PXE-capable NIC?")) {
    23662371                        $gotpxe = 1;
    2367                         $nic_conf->{$nic}->{'pxenic'} = $nic;
     2372                        $nic_conf->{$nic}->{'pxenic'}  = $nic;
     2373                        $nic_conf->{$nic}->{'ipaddr'}  = $BCCD_NET->{'ipaddr'};
     2374                        $nic_conf->{$nic}->{'bcast'}   = $BCCD_NET->{'bcast'};
     2375                        $nic_conf->{$nic}->{'mask'}    = $BCCD_NET->{'mask'};
     2376                        $nic_conf->{$nic}->{'bccdnet'} = $BCCD_NET->{'bccdnet'};
     2377                      DELETE_VIRTUAL_NIC:
     2378                        foreach my $x (keys(%{$nic_conf})) {
     2379                            if(defined($nic_conf->{"$x:1"}->{'ipaddr'}) &&
     2380                               $nic_conf->{"$x:1"}->{'ipaddr'} eq $BCCD_NET->{'ipaddr'}) {
     2381                                delete $nic_conf->{"$x:1"};
     2382                            }
     2383                        }
     2384                    }
     2385                    else {
     2386                        $nic_conf->{$nic}->{'ipaddr'} = ($temp = $d->inputbox(text=>"$nic IP address (mandatory)")) ? $temp : undef;
     2387                        if(defined($nic_conf->{$nic}->{'ipaddr'}) &&
     2388                           $nic_conf->{$nic}->{'ipaddr'} eq $BCCD_NET->{'ipaddr'}) {
     2389                            $d->msgbox(text => "IP address cannot be the BCCD virtual IP ($BCCD_NET->{'ipaddr'}).");
     2390                            goto FIND_CUR_NIC;
     2391                        }
     2392                       
     2393                        $nic_conf->{$nic}->{'mask'} = ($temp = $d->inputbox(text=>"$nic Subnet mask (mandatory)")) ? $temp : undef;
     2394                       
     2395                        if(!$self->is_dialog_ok($d)) {
     2396                            redo FIND_EXT_NIC;
     2397                        }
     2398                       
     2399                        $nic_conf->{$nic}->{'gw'} = ($temp = $d->inputbox(text=>"$nic Gateway (optional)")) ? $temp : undef;
    23682400                    }
    23692401                } while(!defined($nic_conf->{$nic}->{'ipaddr'}) || !defined($nic_conf->{$nic}->{'mask'}));
     
    23712403        }
    23722404    }
    2373 
     2405   
    23742406    return $nic_conf;
    23752407}
Note: See TracChangeset for help on using the changeset viewer.