Changeset 2361 in /cluster/svnroot


Ignore:
Timestamp:
Apr 19, 2010 8:29:23 PM (11 years ago)
Author:
skylar
Message:

adding support for minirt creation (#501)

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

Legend:

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

    r2310 r2361  
    12021202
    12031203$Bccd->run_test(
     1204        "revfetch",
     1205        "",
     1206        "Fetched minirt device configuration.",
     1207        $svnrev,
     1208        "$websvn/packages/mknod.y",
     1209        "$tmpdir/mknod.y",
     1210        );
     1211
     1212$Bccd->run_test(
     1213        "mknods",
     1214        "",
     1215        "Created minirt device nodes.",
     1216        "$tmpdir/mknod.y",
     1217        "$tmpdir/KNOPPIX/boot/isolinux/minirt",
     1218        );
     1219
     1220$Bccd->run_test(
    12041221    "revfetch",
    12051222    "",
  • bccd-ng/branches/skylar-devel/trees/usr/local/lib/site_perl/5.10.0/Bccd.pm

    r2328 r2361  
    2020use Errno qw(:POSIX);
    2121use Fcntl ':mode';
     22use YAML;
    2223
    2324my $passed = 0;
     
    446447}
    447448
     449sub test_read_yaml{
     450        my($self,$type,$okrc,$msg,$file) = @_;
     451        my $sub = 'test_read_yaml';
     452
     453        $self->enter_sub($sub);
     454
     455        my $y = LoadFile($file);
     456        if($self->is_log($INFO) || $self->is_log($DEBUG)) {
     457                $self->log_and_cont("INFO",$sub,"Read in:".Dumper($y));
     458        }
     459
     460        $self->leave_sub($sub);
     461        return $y;
     462}
     463
     464sub test_mknods{
     465        my($self,$type,$okrc,$msg,$file,$base) = @_;
     466        my $sub = 'test_mknods';
     467
     468        $self->enter_sub($sub);
     469
     470        my $y = $self->test_read_yaml($type,$okrc,"Reading mknod configuration from $file.");
     471        if(!defined($y)) {
     472                $self->log_and_die("ERROR",$sub,"Can't proceeded with invalid configuration.");
     473        }
     474
     475        foreach my $d (keys(%{$y})) {
     476                my $cmd = "/bin/mknod $d $y->{$d}->{type} $y->{$d}->{major} $y->{$d}->{minor}";
     477        if($self->is_log($INFO) || $self->is_log($DEBUG)) {
     478            $self->log_and_cont("INFO",$sub,"Running $cmd");
     479        }
     480
     481                ($rc,$out) = $self->exec_system($cmd);
     482                if($rc) {
     483                        $self->log_and_die("$cmd failed with $rc, out $out");
     484                }
     485        }
     486
     487        $self->leave_sub($sub);
     488        return 0;
     489}
     490
    448491sub test_rm_lvm( $$$$ ) {
    449492    my($self,$type,$okrc,$msg) = @_;
     
    13001343        $rc = $self->test_regexsub_file($type,$okrc,$msg,$cmds[0],$cmds[1],$cmds[2]);
    13011344    }
     1345        elsif($type =~ m/^read_yaml$/) {
     1346                if( $#cmds != 0 ) {
     1347                        $self->cmd_num_die(@cmds);
     1348                }
     1349                $rc = $self->test_read_yaml($type,$okrc,$msg,$cmds[0]);
     1350        }
     1351        elsif($type =~ m/^mknods$/) {
     1352                if( $#cmds != 1 ) {
     1353                        $self->cmd_num_die(@cmds);
     1354                }
     1355                $rc = $self->test_mknods($type,$okrc,$msg,$cmds[0],$cmds[1]);
     1356        }
    13021357    else {
    13031358        $self->log_and_die("ERROR",$sub,"This is an undefined test: $type!");
Note: See TracChangeset for help on using the changeset viewer.