arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

copycds physical drive support

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1564 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
memotype 2008-06-03 15:49:45 +00:00
parent 9f76c555b9
commit 0b21a22a82
2 changed files with 52 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
xCAT-client/bin/copycds-cdrom Executable file
View File

@ -0,0 +1,25 @@
#!/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 :

32
xCAT-server/lib/xcat/plugins/copycds.pm
View File

@ -4,6 +4,7 @@ use Storable qw(dclone);
use xCAT::Table;
use Data::Dumper;
use Getopt::Long;
use File::Basename;
Getopt::Long::Configure("bundling");
Getopt::Long::Configure("pass_through");
@ -49,15 +50,34 @@ sub process_request {
}
foreach (@args) {
unless (/^\//) { #If not an absolute path, concatenate with client specified cwd
s/^/$request->{cwd}->[0]\//;
s/^/$request->{cwd}->[0]\//;
}
unless (-r $_ and -f $_) {
$callback->({error=>"The management server was unable to find/read $_, ensure that file exists on the server at specified location"});
# /dev/cdrom is a symlink on some systems, we need to see if it points to a
# block device.
if (-l $_) {
my $link = readlink($_);
if ($link =~ m{^/})
{ $file = $link; }
else
{ $file = dirname($_) . "/" . $link; }
}
else { $file = $_; }
my $mntopts;
if (-r $file and -b $file) # Block device?
{ $mntopts = "-o ro"; }
elsif (-r $file and -f $file)
{ $mntopts = "-o ro,loop"; }
else {
$callback->({error=>"The management server was unable to find/read $file. Ensure that file exists on the server at the specified location."});
return;
}
mkdir "/mnt/xcat";
if (system("mount -o loop,ro $_ /mnt/xcat")) {
$callback->({error=>"copycds was unable to examine $_ as an install image"});
if (system("mount $mntopts $file /mnt/xcat")) {
$callback->({error=>"copycds was unable to mount $file to /mnt/xcat."});
return;
}
my $newreq = dclone($request);
@ -80,3 +100,5 @@ sub process_request {
}
1;
# vim: set ts=2 sts=2 sw=2 et ai: