Changeset 143

Timestamp:

12/19/10 13:25:57 (13 years ago)

Author:

nanardon

Message:

• add search/{binaries,sources}()

File:

• server/trunk/web/lib/Sophie/Controller/Search.pm (modified) (1 diff)

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

@@ -566 +566 @@
 }
 
+sub sources : XMLRPCPath('/search/rpm/sources') {
+    my ( $self, $c, $searchspec, $pkgid ) = @_;
+
+    my $distrs = $c->forward('distrib_search', [ $searchspec, 1 ]);
+    my $sourcerpm = $c->forward('/rpms/queryformat', [ $pkgid, '%{SOURCERPM}' ]);
+    my $nosourcerpm = $sourcerpm;
+    $nosourcerpm =~ s/\.src.rpm$/\.nosrc.rpm/;
+
+    $c->stash->{xmlrpc} = [ $c->model('Base::Rpms')->search(
+        {
+            -and => [
+                { pkgid => {
+                    IN => $c->model('Base::RpmFile')->search(
+                        { filename => [ $sourcerpm, $nosourcerpm ] }
+                    )->get_column('pkgid')->as_query
+                }, },
+                ($distrs 
+                    ? ({ pkgid => { IN => $distrs->get_column('pkgid')->as_query, }, },)
+                    : ()),
+            ],
+        }
+    )->get_column('pkgid')->all ];
+}
+
+sub binaries : XMLRPCPath('/search/rpm/binaries') {
+    my ( $self, $c, $searchspec, $pkgid ) = @_;
+
+    my $distrs = $c->forward('distrib_search', [ $searchspec, 1 ]);
+    my $sourcerpm = $c->forward('/rpms/queryformat', [ $pkgid,
+            '%{NAME}-%{VERSION}-%{RELEASE}.src.rpm' ]);
+    my $nosourcerpm = $sourcerpm;
+    $nosourcerpm =~ s/\.src.rpm$/\.nosrc.rpm/;
+
+    my $tagrs = $c->model('Base')->resultset('Tags')
+        ->search({ tagname => 'sourcerpm', value => [ $sourcerpm, $nosourcerpm ] })
+        ->get_column('pkgid');
+    $c->stash->{xmlrpc} = [ $c->model('Base::Rpms')->search(
+        {
+            -and => [
+                { issrc => 0 },
+                { pkgid =>
+                    { IN => $tagrs->as_query, },
+                },
+                ($distrs 
+                    ? ({ pkgid => { IN => $distrs->get_column('pkgid')->as_query, }, })
+                    : ()),
+            ]
+        },
+        {
+            order_by => [ qw(arch name), 'evr using >>' ],
+        },
+    )->get_column('pkgid')->all ];
+
+}
+
 sub file_search : XMLRPCPath('/search/file/byname') {
     my ( $self, $c, $searchspec, $file) = @_;