26 lines
398 B
Plaintext
26 lines
398 B
Plaintext
|
#!/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 :
|