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

let the MD5 Digest value of iso's fullpath as the default mount point of the iso

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@14025 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
immarvin 2012-10-16 09:19:48 +00:00
parent 9a2937f3fd
commit 970322af64
1 changed files with 19 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8,6 +8,8 @@ use Thread qw(yield);
use Data::Dumper;
use Getopt::Long;
use File::Basename;
use File::Spec;
use Digest::MD5 qw(md5_hex);
use Cwd;
Getopt::Long::Configure("bundling");
Getopt::Long::Configure("pass_through");
@ -97,18 +99,25 @@ sub process_request {
return;
}
mkdir "/mnt/xcat";
#let the MD5 Digest of isofullpath as the default mount point of the iso
my $isofullpath=File::Spec->rel2abs($file);
my $mntpath=File::Spec->catpath("" ,$::CDMOUNTPATH,md5_hex($isofullpath));
system("mkdir -p $mntpath");
system("umount $mntpath >/dev/null 2>&1");
if (system("mount $mntopts '$file' /mnt/xcat")) {
eval { $callback->({error=>"copycds was unable to mount $file to /mnt/xcat.",errorcode=>[1]}) };
chdir("/");
system("umount /mnt/xcat");
if (system("mount $mntopts '$file' $mntpath")) {
eval { $callback->({error=>"copycds was unable to mount $file to $mntpath.",errorcode=>[1]}) };
chdir("/");
system("umount -l $mntpath");
return;
}
eval {
my $newreq = dclone($request);
$newreq->{command}= [ 'copycd' ]; #Note the singular, it's different
$newreq->{arg} = ["-m","/mnt/xcat"];
$newreq->{arg} = ["-m",$mntpath];
if($path)
{
@ -142,13 +151,14 @@ sub process_request {
}
$doreq->($newreq,\&take_answer);
$::CDMOUNTPATH="";
#$::CDMOUNTPATH="";
chdir($existdir);
while (wait() > 0) { yield(); } #Make sure all children exit before trying umount
};
chdir("/");
system("umount /mnt/xcat");
chdir("/");;
system("umount -l $mntpath");
system("rm -rf $mntpath");
unless ($identified) {
$callback->({error=>["copycds could not identify the ISO supplied, you may wish to try -n <osver>"],errorcode=>[1]});
}