Changeset 3185 in /cluster/svnroot


Ignore:
Timestamp:
May 15, 2011 4:42:09 PM (10 years ago)
Author:
skylar
Message:

branching to avoid conflicts with existing changes (#632)

Location:
bccd-ng/branches/skylar-devel
Files:
1 deleted
2 edited
1 copied

Legend:

Unmodified
Added
Removed
  • bccd-ng/branches/skylar-devel/bin/build_livecd.pl

    r3183 r3185  
    3333use File::Temp;
    3434use File::Copy;
    35 use File::Basename;
    3635use WWW::Mechanize;
    3736use POSIX;
     
    118117Readonly my $KERNREV    => "2.6.38bccd";
    119118$ENV{'DEBIAN_FRONTEND'} = "noninteractive";
     119Readonly my $PACKAGES   => "screen openssh-client openssh-server less make gcc-4.2 g++-4.2 flex bison gdb alien lsb-rpm bzip2 sudo yum debootstrap rsync dhcp3-server tcpdump syslinux syslinux-common subversion nfs-common nfs-kernel-server ncurses-base ncurses-bin libncurses5 libncurses5-dev psmisc vim iproute pciutils host bc ntp ntpdate debconf-utils dhcpcd xbase-clients libxt-dev lesstif2 lesstif2-dev ipcalc dialog lvm2 grub parted tzdata xserver-xorg-video-fbdev xfonts-100dpi xfonts-75dpi xfonts-scalable xserver-xorg-video-all fontconfig xfonts-base udev vtwm aterm rxvt xbase-clients menu bbkeys libwww-mechanize-perl postgresql-client-common postgresql-client-8.3 libdbi-perl libdbd-pg-perl strace tcsh libnet-dhcp-perl libnetaddr-ip-perl libnet-ip-perl libstdc++5 pdnsd csh libterm-readkey-perl libsvn-perl libui-dialog-perl libreadonly-perl sshfs autofs libnet-dhcp-perl dnsutils libfile-touch-perl libnet-cidr-perl arping dosfstools gawk dc glutg3-dev libxi-dev wireless-tools snmp snmpd netpbm imagemagick libyaml-perl tcl8.4 libc6-i386 initramfs-tools linux-image-$KERNREV xvfb libmime-lite-perl exim4 genisoimage mingetty x11vnc sun-java6-plugin javacc openjdk-6-jdk";
     120Readonly my $EXTRA_PACKAGES => "fftw2 fftw-dev sfftw-dev sfftw2 automake1.7 console-tools libreadline5-dev hal libxmu-headers libxmu-dev gfortran ethtool libssl0.9.8 libblas-dev libblas-dev atlas3-base atlas3-base-dev atlas3-base refblas3 lapack3 atlas3-test libg2c0-dev libg2c0 apache2 iceweasel xpdf ruby sl robotfindskitten pvm xpvm emacs21 grac automake1.9 libtool libglu1-mesa-dev minicom lcd4linux insight joe grace libxpm-dev telnet lsof xresprobe fbset fluxbox xgalaga zenmap nedit eterm manpages-dev";
     121Readonly my $AMD64_PACKAGES => "libc6-dev-i386 ia32-libs lib32gfortran3 lib32readline5 nvidia-glx-ia32";
     122Readonly my $BAD_PACKAGES   => ""; # Packages that throw some fatal error during install but still work
    120123Readonly my $PERLDIR        => "/usr/local/lib/site_perl/";
    121124Readonly my $TESTNAME       => "build_livecd";
     
    193196}
    194197
    195 my $PACKAGES = $Bccd->run_test(
    196         "read_yaml",
    197         "",
    198         "Read package manifest.",
    199         dirname($0)."/packages",
    200         );
    201 
    202 for(my $i=0;$i<$#{$PACKAGES->{BASE}};$i++) {
    203         if($PACKAGES->{BASE}->[$i] eq 'linux-image') {
    204                 $PACKAGES->{BASE}->[$i] .= "-$KERNREV";
    205         }
    206 }
    207 
    208198$Bccd->run_test(
    209199    "chdir",
     
    540530            "0",
    541531            "Fetched Debian packages.",
    542             "/usr/sbin/chroot $BUILDDIR /usr/bin/aptitude --allow-untrusted -y install @{$PACKAGES->{BASE}} @{$PACKAGES->{EXTRA}}",
     532            "/usr/sbin/chroot $BUILDDIR /usr/bin/aptitude --allow-untrusted -y install $PACKAGES $EXTRA_PACKAGES",
    543533            );
    544534}
     
    548538            "0",
    549539            "Fetched Debian packages.",
    550             "/usr/sbin/chroot $BUILDDIR aptitude --allow-untrusted -y install @{$PACKAGES->{BASE}} @{$PACKAGES->{EXTRA}} @{$PACKAGES->{AMD64}}",
     540            "/usr/sbin/chroot $BUILDDIR aptitude --allow-untrusted -y install $PACKAGES $EXTRA_PACKAGES $AMD64_PACKAGES",
    551541            );
    552542}
  • bccd-ng/branches/skylar-devel/trees/usr/local/lib/site_perl/5.10.0/Bccd.pm

    r3119 r3185  
    22482248        foreach my $nic (keys(%{$nic_conf})) {
    22492249            if(defined($nic_conf->{$nic}->{'dhcp_source'})
    2250                 && $nic_conf->{$nic}->{'dhcp_source'} eq 'BCCD') {
     2250               && $nic_conf->{$nic}->{'dhcp_source'} eq 'BCCD') {
    22512251                $dhcp_source = 'BCCD';
    22522252            }
     
    22672267            redo FIND_EXT_NIC;
    22682268        }
    2269                 # Copy iptables template regardless of NAT Status
    2270                 open(my $IPT, '>', $IPTABLES_UP) or
    2271                         $self->log_and_die("ERROR",$sub,
    2272                                 "Couldn't open $IPTABLES_UP for appending: $!");
    2273                 foreach my $LINE (
    2274                                                         q{*filter},
    2275                                                         q{:INPUT ACCEPT [6562:602865]},
    2276                                                         q{:FORWARD ACCEPT [100:8276]},
    2277                                                         q{:OUTPUT ACCEPT [5836:748341]},
    2278                                                         q{COMMIT},
    2279                                                 ) {
    2280                         print $IPT "$LINE\n";
    2281                 }
     2269        # Copy iptables template regardless of NAT Status
     2270        open(my $IPT, '>', $IPTABLES_UP) or
     2271            $self->log_and_die("ERROR",$sub,
     2272                               "Couldn't open $IPTABLES_UP for appending: $!");
     2273        foreach my $LINE (
     2274            q{*filter},
     2275            q{:INPUT ACCEPT [6562:602865]},
     2276            q{:FORWARD ACCEPT [100:8276]},
     2277            q{:OUTPUT ACCEPT [5836:748341]},
     2278            q{COMMIT},
     2279            ) {
     2280            print $IPT "$LINE\n";
     2281        }
    22822282        if(defined($bccd_nic) && !$self->check_bccd_net($nic_conf)) {
    22832283            $nic_conf->{"$bccd_nic:1"} = $BCCD_NET;
    2284                         foreach my $LINE (
    2285                                                                 q{*nat},
    2286                                                                 q{:PREROUTING ACCEPT [145:21906]},
    2287                                                                 q{:POSTROUTING ACCEPT [8:630]},
    2288                                                                 q{:OUTPUT ACCEPT [27:2202]},
    2289                                                                 q{COMMIT},
    2290                                                         ) {
    2291                                 print $IPT "$LINE\n";
    2292                         }
    2293         }
    2294                 close($IPT);
    2295 
     2284            foreach my $LINE (
     2285                q{*nat},
     2286                q{:PREROUTING ACCEPT [145:21906]},
     2287                q{:POSTROUTING ACCEPT [8:630]},
     2288                q{:OUTPUT ACCEPT [27:2202]},
     2289                q{COMMIT},
     2290                ) {
     2291                print $IPT "$LINE\n";
     2292            }
     2293        }
     2294        close($IPT);
     2295       
    22962296      NIC_CONF:
    22972297        foreach my $nic (sort keys %{$nic_conf}) {
     
    23162316            }
    23172317            if($nic_conf->{$nic}->{'dhcp'} == 0) {
    2318                 FIND_CUR_NIC:
     2318              FIND_CUR_NIC:
    23192319                do {
    23202320                    $nic_conf->{$nic}->{'ipaddr'} = ($temp = $d->inputbox(text=>"$nic IP address (mandatory)")) ? $temp : undef;
     
    23442344        }
    23452345    }
    2346 
     2346   
    23472347    return $nic_conf;
    23482348}
Note: See TracChangeset for help on using the changeset viewer.