copycds-cdrom now passes arguments to copycds. also added man(8) page for copycds-cdrom in pod format.

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1569 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
memotype 2008-06-03 17:34:57 +00:00
parent ee03a14e6b
commit dc7d74be81
2 changed files with 43 additions and 10 deletions

View File

@ -2,19 +2,21 @@
my $go=1;
if (!@ARGV)
{
print "No arguments given, assuming /dev/cdrom.\n";
push @ARGV, "/dev/cdrom";
}
my $file;
my $opts = "";
while ($go)
{
$file = pop @ARGV;
if (!$file) {
print "No device given, assuming /dev/cdrom.\n";
$file = "/dev/cdrom";
}
while ($go) {
$go = 0;
system("copycds @ARGV");
#print "copycds $opts $file";
system("copycds $opts $file");
print "Would you like to copy another CD (y/N)? ";
if (<STDIN> =~ /^y/i)
{
if (<STDIN> =~ /^y/i) {
$go = 1;
system("eject");
print "Replace the CD and press enter.";

View File

@ -0,0 +1,31 @@
=head1 NAME
B<copycds-cdrom> - Client side wrapper for copycds supporting physical drives.
=head1 SYNOPSIS
B<copycds-cdrom> I<[copycds options]> I<[drive]>
=head1 DESCRIPTION
B<copycds-cdrom> is a wrapper scripts for copycds to copy from physical CD/DVD-ROM drives located on the management server.
I<[copycds options]> are passed unmolested to copycds.
If I<[drive]> is not specified, /dev/cdrom is assumed.
The copycds command copies all contents of Distribution CDs or Service Pack CDs to the install directory as
designated in the B<site> table attribute: B<installdir>.
=head1 SEE ALSO
copycds(8)
=head1 AUTHOR
Isaac Freeman E<lt>ifreeman@us.ibm.comE<gt>