Give error when mksquashfs fails

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@610 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
2008-02-28 02:11:40 +00:00
parent de6dbeab03
commit 2f7cd346a8
1 changed files with 5 additions and 1 deletions
--- a/xCAT-server-2.0/lib/xcat/plugins/packimage.pm
+++ b/xCAT-server-2.0/lib/xcat/plugins/packimage.pm
@@ -93,7 +93,11 @@ sub process_request {
       } elsif ($arch =~ /ppc/) {
          $flags="-be";
       }
-       system("mksquashfs $temppath ../rootimg.sfs $flags");
+       my $rc = system("mksquashfs $temppath ../rootimg.sfs $flags");
+       if ($rc) {
+          $callback->({error=>["mksquashfs could not be run successfully"],errorcode=>[1]});
+          return;
+       }
       chmod(0644,"../rootimg.sfs");
    }
    chdir($oldpath);