git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/utils@841
959494ce-11ee-0310-bf91-
de5d638817bd
$curgraft =~ s,/+$,,;
} elsif($cmd eq "setimg") {
$curimage = shift @ARGV;
$curgraft =~ s,/+$,,;
} elsif($cmd eq "setimg") {
$curimage = shift @ARGV;
+} elsif($cmd eq "imgck") {
+ readimage $image;
+ for $file (values %img) {
+ if(! -r $file) {
+ print "$file\n";
+ }
+ }
} elsif($cmd eq "mkiso") {
readimage $image;
open(ISO, "|-", "mkisofs", "-J", "-R", "-V", "$imgname r$rev", "-graft-points", "-path-list", "-") || die "mkisofs: $!";
} elsif($cmd eq "mkiso") {
readimage $image;
open(ISO, "|-", "mkisofs", "-J", "-R", "-V", "$imgname r$rev", "-graft-points", "-path-list", "-") || die "mkisofs: $!";