dc7d74be81
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1569 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
28 lines
473 B
Perl
Executable File
28 lines
473 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
my $go=1;
|
|
|
|
my $file;
|
|
my $opts = "";
|
|
|
|
$file = pop @ARGV;
|
|
if (!$file) {
|
|
print "No device given, assuming /dev/cdrom.\n";
|
|
$file = "/dev/cdrom";
|
|
}
|
|
|
|
while ($go) {
|
|
$go = 0;
|
|
#print "copycds $opts $file";
|
|
system("copycds $opts $file");
|
|
print "Would you like to copy another CD (y/N)? ";
|
|
if (<STDIN> =~ /^y/i) {
|
|
$go = 1;
|
|
system("eject");
|
|
print "Replace the CD and press enter.";
|
|
<STDIN>;
|
|
}
|
|
}
|
|
|
|
# vim: set ts=2 sts=2 sw=2 et ai :
|