add tarfile option to generate tar file for dependence and reverse dependence xml...

Change-Id: I12fa1566678587e44505d99e4050f5fe3e0d4e82
Signed-off-by: biao716.wang <biao716.wang@samsung.com>

diff --git a/depanneur b/depanneur
index d551661f1e215084a154687eff7af7fd2737f176..cf77bc69cae0b480e6eea50fb7c29c8d0e4b41d0 100755 (executable)
--- a/depanneur
+++ b/depanneur
@@ -192,6 +192,7 @@ my $depends = 0; #depends subcommand to put reverse dependency
 my $reverse_off = 0; #disable reverse dependency
 my $reverse_on = 1; #enable reverse dependency
 my $export_only = 0; # only export, not building
+my $tarfile = 0; # generate tar file for dependence & reverse dependence xml file
 GetOptions (
     "repository=s" => \@repos,
     "arch=s" => \$arch,
@@ -248,6 +249,7 @@ GetOptions (
     "disable-debuginfo" => \$disable_debuginfo,
     "depends" => \$depends,
     "export-only" => \$export_only,
+    "tarfile" => \$tarfile,
     );
 
 if ( $help ) {
@@ -314,6 +316,8 @@ Available options:
     --export-only
       only export, not building.
 
+    --tarfile
+      generate tar file for dependence & reverse dependence xml file.
 ";
     exit(0);
 }
@@ -2483,7 +2487,8 @@ sub generate_depends() {
 
     #Generate dependence XML file.
     info("Generating dependence XML file...");
-    open(my $f, '>', "$out/$dist\_$arch\_pkgdepends.xml") or die "$out/$dist\_$arch\_pkgdepends.xml' $!";
+    my $pkgdepsxml = "$out/$dist\_$arch\_pkgdepends.xml";
+    open(my $f, '>', $pkgdepsxml) or die "$pkgdepsxml - $!";
     print $f "<builddepinfo>\n";
     #sort in alphabetical order
     foreach my $p (sort keys %to_build) {
@@ -2504,11 +2509,17 @@ sub generate_depends() {
     }
     print $f "</builddepinfo>\n";
     close $f;
+    if ($tarfile)
+    {
+        my_system("cd $out; tar -zcf $dist\_$arch\_pkgdepends.tar.gz  $dist\_$arch\_pkgdepends.xml");
+        my_system("rm -rf $pkgdepsxml");
+    }
     info("The dependence XML file has been generated in $out");
 
     #Generate reverse dependence XML file.
     info("Generating reverse dependence XML file...");
-    open(my $rf, '>', "$out/$dist\_$arch\_revpkgdepends.xml") or die "$out/$dist\_$arch\_revpkgdepends.xml' $!";
+    my $revpkgdepsxml = "$out/$dist\_$arch\_revpkgdepends.xml";
+    open(my $rf, '>', $revpkgdepsxml) or die "$revpkgdepsxml - $!";
     print $rf "<builddepinfo>\n";
     #sort in alphabetical order
     foreach my $p (sort keys %to_build) {
@@ -2529,6 +2540,12 @@ sub generate_depends() {
     }
     print $rf "</builddepinfo>\n";
     close $rf;
+    if ($tarfile)
+    {
+        my_system("cd $out; tar -zcf $dist\_$arch\_revpkgdepends.tar.gz  $dist\_$arch\_revpkgdepends.xml");
+        my_system("rm -rf $revpkgdepsxml");
+    }
+
     info("The reverse dependence XML file has been generated in $out");
 }
 #use pre-export source to analyse