Changeset 2600 in /cluster/svnroot


Ignore:
Timestamp:
Aug 29, 2010 8:10:04 PM (10 years ago)
Author:
skylar
Message:

merging in cuda stuff (#457)

Location:
bccd-ng/branches/skylar-devel
Files:
3 edited
5 copied

Legend:

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

    r2599 r2600  
    9393Readonly my $KERNREV    => "2.6.31.12-aufs";
    9494$ENV{'DEBIAN_FRONTEND'} = "noninteractive";
    95 <<<<<<< .working
    9695Readonly 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 gpm 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";
    9796Readonly 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 octave3.0 ruby sl robotfindskitten pvm xpvm emacs grac blender automake1.9 libtool libglu1-mesa-dev minicom lcd4linux insight joe grace libxpm-dev telnet lsof xresprobe fbset fluxbox xgalaga zenmap nedit eterm";
     
    106105Readonly my @TIME           => localtime();
    107106Readonly my $FORMAT_DATE    => ($TIME[5]+1900)."-".($TIME[4]+1)."-".$TIME[3];
     107<<<<<<< .working
    108108Readonly my $SPLASH_FILE    => 'bccd_logo_new.png';
    109109Readonly my @MINIRT_MODS    => (
     
    145145                                );
    146146
     147Readonly my $SPLASH_FILE    => 'bccd_logo_new.png';
    147148# Revision fetch
    148149
     
    10661067                );
    10671068
     1069$Bccd->run_test(
     1070                "chmod",
     1071                "",
     1072                "chmod 0770 $BUILDDIR/etc/pbs/checkpoint",
     1073                0770,
     1074                "$BUILDDIR/etc/pbs/checkpoint",
     1075                );
     1076
     1077$Bccd->run_test(
     1078                "chmod",
     1079                "",
     1080                "chmod 0750 $BUILDDIR/etc/pbs/mom_priv",
     1081                0750,
     1082                "$BUILDDIR/etc/pbs/mom_priv",
     1083                );
     1084
     1085$Bccd->run_test(
     1086                "chmod",
     1087                "",
     1088                "chmod 0750 $BUILDDIR/etc/pbs/server_priv",
     1089                0750,
     1090                "$BUILDDIR/etc/pbs/server_priv",
     1091                );
     1092
     1093$Bccd->run_test(
     1094                "chmod",
     1095                "",
     1096                "chmod 0750 $BUILDDIR/etc/pbs/sched_priv",
     1097                0750,
     1098                "$BUILDDIR/etc/pbs/sched_priv",
     1099                );
     1100
     1101$Bccd->run_test(
     1102                "chmod",
     1103                "",
     1104                "chmod 1777 $BUILDDIR/etc/pbs/spool",
     1105                oct(1777),
     1106                "$BUILDDIR/etc/pbs/spool",
     1107                );
     1108
     1109$Bccd->run_test(
     1110                "chmod",
     1111                "",
     1112                "chmod 1777 $BUILDDIR/etc/pbs/undelivered",
     1113                oct(1777),
     1114                "$BUILDDIR/etc/pbs/undelivered",
     1115                );
     1116
    10681117foreach my $file ( "$BUILDDIR/root/.ssh/bccd", "$BUILDDIR/root/.ssh/config" ) {
    10691118    $Bccd->run_test(
     
    13131362
    13141363$Bccd->run_test(
     1364<<<<<<< .working
    13151365        "fcopy",
    13161366        "",
     
    14021452        "$tmpdir/cloop.ko",
    14031453        "$tmpdir/KNOPPIX/KNOPPIX/modules/cloop.ko",
     1454        );
     1455
     1456$Bccd->run_test(
     1457        "system",
     1458        "",
     1459        "Unmounted loop filesystem.",
     1460        "umount $tmpdir/loop/",
     1461        );
     1462
     1463$Bccd->run_test(
     1464        "rmtree",
     1465        "",
     1466        "Removed minirt tree.",
     1467        "$tmpdir/KNOPPIX/boot/isolinux/minirt/",
     1468        );
     1469
     1470$Bccd->run_test(
     1471        "system",
     1472        "",
     1473        "Placed minirt in KNOPPIX tree.",
     1474        "gzip -c $tmpdir/minirt > $tmpdir/KNOPPIX/boot/isolinux/minirt.gz",
     1475        );
     1476
     1477$Bccd->run_test(
     1478    "revfetch",
     1479    "",
     1480    "Fetched background image.",
     1481    $svnrev,
     1482    "$websvn/packages/$SPLASH_FILE",
     1483    "$tmpdir/$SPLASH_FILE",
     1484    );
     1485
     1486$Bccd->run_test(
     1487    "system",
     1488    "",
     1489    "Creating isolinux splash image.",
     1490    "pngtopnm $tmpdir/$SPLASH_FILE | ppmtolss16 > $tmpdir/KNOPPIX/boot/isolinux/logo.16",
     1491    );
     1492
     1493$Bccd->run_test(
     1494        "revfetch",
     1495        "",
     1496        "Fetched minirt device configuration.",
     1497        $svnrev,
     1498        "$websvn/packages/mknod.y",
     1499        "$tmpdir/mknod.y",
     1500        );
     1501
     1502$Bccd->run_test(
     1503        "mknods",
     1504        "",
     1505        "Created minirt device nodes.",
     1506        "$tmpdir/mknod.y",
     1507        "$tmpdir/KNOPPIX/boot/isolinux/minirt",
     1508        );
     1509
     1510$Bccd->run_test(
     1511        "system",
     1512        "",
     1513        "Created minirt filesystem.",
     1514        "dd if=/dev/zero of=$tmpdir/minirt bs=1M count=4",
     1515        );
     1516
     1517$Bccd->run_test(
     1518        "system",
     1519        "",
     1520        "Made ext2 filesystem in minirt filesystem.",
     1521        "/sbin/mke2fs -F $tmpdir/minirt",
     1522        );
     1523
     1524$Bccd->run_test(
     1525        "system",
     1526        "",
     1527        "Set minirt fsck and reserved settings.",
     1528        "/sbin/tune2fs -c 0 -i 0 -m 0 $tmpdir/minirt",
     1529        );
     1530
     1531$Bccd->run_test(
     1532        "mkpath",
     1533        "",
     1534        "Made loop directory.",
     1535        "$tmpdir/loop",
     1536        );
     1537
     1538$Bccd->run_test(
     1539        "system",
     1540        "",
     1541        "Mounted minirt on loop directory.",
     1542        "/bin/mount -t ext2 -o loop $tmpdir/minirt $tmpdir/loop",
     1543        );
     1544
     1545$Bccd->run_test(
     1546        "system",
     1547        "",
     1548        "Copied minirt into loop filesystem.",
     1549        "rsync -a $tmpdir/KNOPPIX/boot/isolinux/minirt/ $tmpdir/loop/",
    14041550        );
    14051551
  • bccd-ng/branches/skylar-devel/trees/bin/pkbcast

    r2210 r2600  
    2020        }
    2121
    22         syslog('err', "Could not create broadcast socket: %m")
    23         until $sock = new IO::Socket::INET (
    24                 PeerPort => $BCAST_PORT,
    25                 PeerAddr => inet_ntoa(INADDR_BROADCAST),
    26                 LocalHost => $ip,
    27                 Proto => 'udp',
    28                 Broadcast => 1);
     22        until ( $sock = new IO::Socket::INET (
     23                        PeerPort => $BCAST_PORT,
     24                        PeerAddr => inet_ntoa(INADDR_BROADCAST),
     25                        LocalHost => $ip,
     26                        Proto => 'udp',
     27                        Broadcast => 1) ) {
     28                syslog('err', "Could not create broadcast socket: %m");
     29                sleep $BCAST_INTERVAL;
     30        }
    2931
    3032        $hostname .= "\r\n";
     
    5658
    5759### Main ###
    58 $SIG{ALRM} = \&send_bcast;
    59 alarm $BCAST_INTERVAL;
    60 
    6160openlog("pkbcast", 'pid', 'user') or die "Could not establish connection to syslog";
    6261
     
    7069        my $list_sock;
    7170
    72         syslog('err', "Could not create listen socket: %m")
    73         until $list_sock = new IO::Socket::INET (
    74                 LocalPort => $BCAST_PORT,
    75                 LocalHost => inet_ntoa(INADDR_ANY),
    76                 Proto => 'udp');
     71        until ( $list_sock = new IO::Socket::INET (
     72                        LocalPort => $BCAST_PORT,
     73                        LocalHost => inet_ntoa(INADDR_ANY),
     74                        Proto => 'udp') ) {
     75                syslog('err', "Could not create listen socket: %m");
     76                sleep $BCAST_INTERVAL;
     77        }
     78
     79        # Set alarm for broadcasting
     80        $SIG{ALRM} = \&send_bcast;
     81        alarm $BCAST_INTERVAL;
    7782
    7883        # Won't return unless $list_sock unexpectedly closes,
  • bccd-ng/branches/skylar-devel/trees/usr/local/lib/site_perl/5.10.0/Bccd.pm

    r2575 r2600  
    513513        $self->leave_sub($sub);
    514514        return $rc;
     515}
     516
     517sub test_read_yaml{
     518        my($self,$type,$okrc,$msg,$file) = @_;
     519        my $sub = 'test_read_yaml';
     520
     521        $self->enter_sub($sub);
     522
     523        if(! -f $file) {
     524                $self->log_and_die("ERROR",$sub,"Cannot read in $file");
     525        }
     526
     527        if($self->is_log($INFO) || $self->is_log($DEBUG)) {
     528                $self->log_and_cont("INFO",$sub,"Reading in: $file");
     529        }
     530        my $y = LoadFile($file);
     531        if($self->is_log($INFO) || $self->is_log($DEBUG)) {
     532                $self->log_and_cont("INFO",$sub,"Read in:".Dumper($y));
     533        }
     534
     535        $self->leave_sub($sub);
     536        return $y;
     537}
     538
     539sub test_mknods{
     540        my($self,$type,$okrc,$msg,$file,$base) = @_;
     541        my($rc,$out);
     542        my $sub = 'test_mknods';
     543
     544        $self->enter_sub($sub);
     545
     546        my $y = $self->test_read_yaml($type,$okrc,"Reading mknod configuration from $file.",$file);
     547        if(!defined($y)) {
     548                $self->log_and_die("ERROR",$sub,"Can't proceeded with invalid configuration.");
     549        }
     550
     551        foreach my $d (keys(%{$y})) {
     552                my $cmd = "/bin/mknod $base/$d $y->{$d}->{type} $y->{$d}->{major} $y->{$d}->{minor}";
     553        if($self->is_log($INFO) || $self->is_log($DEBUG)) {
     554            $self->log_and_cont("INFO",$sub,"Running $cmd");
     555        }
     556
     557                ($rc,$out) = $self->exec_system($cmd);
     558                if($rc) {
     559                        $self->log_and_die("$cmd failed with $rc, out $out");
     560                }
     561        }
     562
     563        $self->leave_sub($sub);
     564        return 0;
    515565}
    516566
Note: See TracChangeset for help on using the changeset viewer.