Changeset 295

Timestamp:

01/11/11 23:34:48 (13 years ago)

Author:

nanardon

Message:

• check parentdir

File:

• client/trunk/bin/sophie-rpm (modified) (2 diffs)

client/trunk/bin/sophie-rpm

@@ -79 +79 @@
     if (ref $analyse && !$analyse->is_fault) {
         my $result = $analyse->value;
-
+        print "\nPackage requirements\n";
         foreach my $dep (keys %{ $result->{bydep} }) {
             print $dep . ":\n";
@@ -96 +96 @@
         }
     }
+    my $diranalyse = $sc->send_request('analysis.parentdir',
+        $distrib,
+        $rpmid,
+        [ keys %rpmid ],
+    );
+    if (ref $diranalyse && !$diranalyse->is_fault) {
+        my $result = $diranalyse->value;
+        print "\nParent directories:\n";
+        foreach my $dir (sort keys %{ $result->{bydir} }) {
+            print $dir . ":\n";
+            if (@{ $result->{bydir}{$dir}{pkg} || []} > 3) {
+                print "    " . scalar(@{ $result->{bydir}{$dir}{pkg} || []}) .
+                " results in the distribution...\n";
+            } else {
+                foreach (@{ $result->{bydir}{$dir}{pkg} || []}) {
+                    print "    " . $sc->send_request('rpms.basicinfo', $_)->value->{filename};
+                    print "\n";
+                }
+            }
+            foreach (@{ $result->{bydir}{$dir}{pool} || [] }) {
+                print "  * " . $pool{$_} . "\n";
+            }
+        }
+        if (@{ $result->{notfound} || []}) {
+            print "\nUnowned directories:\n";
+            print  map { " $_\n" }  @{ $result->{notfound} };
+        }
+    }
     print "\n";
 }