Changeset 99

Timestamp:

12/09/10 05:50:31 (13 years ago)

Author:

nanardon

Message:

• add rpms/basicinfo to get faster only basic information about a rpm

File:

• server/trunk/web/lib/Sophie/Controller/Rpms.pm (modified) (2 diffs)

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

@@ -55 +55 @@
 }
 
-
-sub info : XMLRPCLocal {
+sub basicinfo : XMLRPCLocal {
     my ($self, $c, $pkgid) = @_;
 
-    my %info = ( pkgid => $pkgid );
-    foreach (qw(name version release epoch url group size packager
-                url sourcerpm license buildhost
-                arch distribution)) {
+    my $rpm = $c->model('base::Rpms')->find(
+        { pkgid => $pkgid },
+    );
+    $rpm or return;
+    my %info = $rpm->get_columns;
+    $info{src} = $info{issrc} ? 1 : 0;
+    foreach (qw(version release arch)) {
         if (my $r = $c->model('base')->resultset('Rpms')->search(
             { pkgid => $pkgid },
@@ -74 +76 @@
         }
     }
-    my $rpm = $c->model('base')->resultset('Rpms')->search(
+
+    return $c->stash->{xmlrpc} = \%info;
+}
+
+
+sub info : XMLRPCLocal {
+    my ($self, $c, $pkgid) = @_;
+
+
+    my $info = $c->forward('basicinfo', [ $pkgid ]);
+    foreach (qw(name epoch url group size packager
+                url sourcerpm license buildhost
+                distribution)) {
+        if (my $r = $c->model('base')->resultset('Rpms')->search(
             { pkgid => $pkgid },
-        )->next;
-    $info{description} = $rpm->description;
-    $info{summary} = $rpm->summary;
-    $info{src} = $rpm->issrc ? 1 : 0;
-    $info{evr} = $rpm->evr;
-
-    return $c->stash->{xmlrpc} = \%info;
+            { 
+                select => [ qq{rpmquery("header", ?)} ],
+                as => [ 'qf' ],
+                bind => [ $_ ],
+            }
+            )->next) { 
+            $info->{$_} = $r->get_column('qf');
+        }
+    }
+
+    return $c->stash->{xmlrpc} = $info;
 }