$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: $!";