my $out = "$depends_dir/$dist/$arch/";
mkdir_p($out);
- my $total = scalar (keys %to_build);
- my $index = 1;
+ # my $total = scalar (keys %to_build);
+ # my $index = 1;
- #Generate reverse dependence xml file.
- info("Generating reverse dependence file...");
- open(my $f, '>', "$out/$dist\_$arch\_revpkgdepends.xml") or die "$out/$dist\_$arch\_revpkgdepends.xml' $!";
+ #Generate dependence XML file.
+ info("Generating dependence XML file...");
+ open(my $f, '>', "$out/$dist\_$arch\_pkgdepends.xml") or die "$out/$dist\_$arch\_pkgdepends.xml' $!";
print $f "<builddepinfo>\n";
#sort in alphabetical order
foreach my $p (sort keys %to_build) {
- info("[$index/$total] generating reverse dependence for package $p...");
+ #info("[$index/$total] generating dependence for package $p...");
print $f "<package name= \"$p\">\n";
#output package source name
print $f "<source>$p</source>\n";
- #output reverse dependence package info.
- foreach my $dep (sort @{$pkgrdeps{$p}}) {
+ #output reverse dependence package info.
+ foreach my $dep (sort @{$pkgdeps{$p}}) {
print $f "<pkgdep>$dep</pkgdep>\n";
}
- #output subpkg info.
+ #output subpkg info.
foreach my $subpn (sort @{$packs{$p}->{subpacks}}) {
print $f "<subpkg>$subpn</subpkg>\n";
}
print $f "</package>\n";
- $index++;
+ #$index++;
}
print $f "</builddepinfo>\n";
close $f;
+ 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' $!";
+ print $rf "<builddepinfo>\n";
+ #sort in alphabetical order
+ foreach my $p (sort keys %to_build) {
+ #info("[$index/$total] generating reverse dependence for package $p...");
+ print $rf "<package name= \"$p\">\n";
+ #output package source name
+ print $rf "<source>$p</source>\n";
+ #output reverse dependence package info.
+ foreach my $dep (sort @{$pkgrdeps{$p}}) {
+ print $rf "<pkgdep>$dep</pkgdep>\n";
+ }
+ #output subpkg info.
+ foreach my $subpn (sort @{$packs{$p}->{subpacks}}) {
+ print $rf "<subpkg>$subpn</subpkg>\n";
+ }
+ print $rf "</package>\n";
+ #$index++;
+ }
+ print $rf "</builddepinfo>\n";
+ close $rf;
+ info("The reverse dependence XML file has been generated in $out");
}
#use pre-export source to analyse
sub fill_packs_from_dir {