From 3e58c1ee79532469f4e7d1b0084f5f791a31c7ca Mon Sep 17 00:00:00 2001 From: Anne Nicolas Date: Mon, 31 Oct 2011 09:46:13 +0000 Subject: - update isos configuration files - switch to trunk version of bcd - update Media.pm --- BCD/Genisoimage.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'BCD/Genisoimage.pm') diff --git a/BCD/Genisoimage.pm b/BCD/Genisoimage.pm index 2f031d7..4a5cc42 100644 --- a/BCD/Genisoimage.pm +++ b/BCD/Genisoimage.pm @@ -56,6 +56,7 @@ sub create_idx { open my $idx_file, ">$idx"; foreach (keys %hrpms) { $_ or next; + print $_; my @table = @{ $hrpms{$_} }; # print "$isoconf->{iso}{header}{volumeid} $_-$table[0]-$table[1]\n"; print $idx_file "$isoconf->{iso}{header}{volumeid} $_-$table[0]-$table[1]\n"; @@ -106,7 +107,7 @@ sub create_md5 { sub isohybrid { print_color("$LOG isohybrid the ISO", $color); my $ISOFILE = "$isodir/$isoname.iso"; - #system("isohybrid $iso->{options}{isohybrid} $ISOFILE") == 0 or die "$LOG system isohybrid failed: $?\n"; +# system("isohybrid $iso->{options}{isohybrid} $ISOFILE") == 0 or die "$LOG system isohybrid failed: $?\n"; } sub copy_textfiles { @@ -124,7 +125,7 @@ sub main_iso { print_color("$LOG skipping ISO creation", $color); } else { create_iso; -# isohybrid; + isohybrid; create_md5; } -- cgit v1.2.1