Changeset 220 for server

Timestamp:

12/29/10 11:41:48 (13 years ago)

Author:

nanardon

Message:

• add rpms/analyse function

Location:

server/trunk/web

Files:

• lib/Sophie/Controller/Rpms.pm (modified) (4 diffs)
• root/templates/html/rpms/analyse.html (added)
• root/templates/html/rpms/analyse.tt (added)
• root/templates/html/rpms/menu.tt (modified) (1 diff)

server/trunk/web/lib/Sophie/Controller/Rpms.pm

@@ -119 +119 @@
     my ($self, $c, $pkgid, $deptype) = @_;
 
-    @{ $c->stash->{xmlrpc}{deps}{$deptype} } = 
+    $c->stash->{xmlrpc} = [ 
         map { 
             { 
@@ -139 +139 @@
 
             },
-        )->all;
+        )->all ];
 }
 
@@ -263 +263 @@
         /^changelog$/ and $c->go('changelog', [ $pkgid, @args ]);
         /^location$/  and $c->go('location',  [ $pkgid, @args ]);
+        /^analyse$/   and $c->go('analyse',  [ $pkgid, @args ]);
     }
     $c->stash->{rpmurl} = $c->req->path;
@@ -423 +424 @@
 }
 
+sub analyse :Chained('rpms_') :PathPart('analyse') :Args(0) :XMLRPC {
+    my ( $self, $c, $pkgid, $dist ) = @_;
+    $pkgid ||= $c->stash->{pkgid};
+    $c->stash->{rpmurl} = ($c->req->path =~ m:(.*)/[^/]+:)[0];
+    $dist->{distribution} ||= $c->req->param('distribution');
+    $dist->{release} ||= $c->req->param('release');
+    $dist->{arch} ||= $c->req->param('arch');
+
+    if ($c->req->param('analyse')) {
+
+        my @deplist = map {
+            [ $_->{name}, $_->{sense}, $_->{evr} ]
+        } @{ $c->forward('deps', [ $pkgid, 'R' ]) };
+
+        $c->stash->{xmlrpc} = $c->forward(
+            '/analysis/solver/find_requirements',
+            [ $dist,
+                'P', \@deplist, [] ]
+        );
+    } else {
+        $c->stash->{xmlrpc} = '';
+    }
+}
+
 =head1 AUTHOR
 

server/trunk/web/root/templates/html/rpms/menu.tt

@@ -6 +6 @@
 <li><a href="[% c.uri_for('/', rpmurl, 'changelog') %]">ChangeLog</a></li>
 <li><a href="[% c.uri_for('/', rpmurl, 'location') %]">Location</a></li>
+<li><a href="[% c.uri_for('/', rpmurl, 'analyse') %]">Analyse</a></li>
 </ul>