0b21a22a82
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1564 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
26 lines
398 B
Perl
Executable File
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 :
|