Files
xcat-core/xCAT-client/bin/copycds-cdrom
memotype 0b21a22a82 copycds physical drive support
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1564 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
2008-06-03 15:49:45 +00:00

26 lines
398 B
Perl
Executable File

#!/usr/bin/env perl
my $go=1;
if (!@ARGV)
{
print "No arguments given, assuming /dev/cdrom.\n";
push @ARGV, "/dev/cdrom";
}
while ($go)
{
$go = 0;
system("copycds @ARGV");
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 :