Changeset 262 for server/trunk/web/lib/Sophie/Controller/Distrib.pm

Timestamp:

01/01/11 20:20:40 (13 years ago)

Author:

nanardon

Message:

• complete /distrib doc and feature

File:

• server/trunk/web/lib/Sophie/Controller/Distrib.pm (modified) (3 diffs)

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

@@ -533 +533 @@
 C<DISTRIBUTION>, C<RELEASE>, C<ARCH>.
 
-This is likelly the same thing than C</rpm/<PKGID>> but website will return 404
-errur if the rpm is not in this distrib
+This is likelly the same thing than C</rpm/PKGID> but website will return 404
+error if the rpm is not in this distrib
 
 =cut
@@ -557 +557 @@
 }
 
+=head2 Url: /distrib/<DISTRIB>/<RELEASE>/<ARCH>/media/<MEDIA>
+
+Return the list of rpms in media C<MEDIA> for distribution C<DISTRIB>,
+C<RELEASE>, C<ARCH>.
+
+The return list is an array of struct:
+
+    [
+        {
+            filename => 'zvbi-0.2.33-5.fc14.x86_64.rpm',
+            pkgid => 'bb9cc5113f0de3e4c7140a1ee8694900'
+        },
+        {
+            filename => 'zvbi-devel-0.2.33-5.fc14.i686.rpm',
+            pkgid => '2c3b41c5e1c475dfa31492998eb4de9f'
+        }
+    ]
+
+=cut
+
 sub media_list_rpms :Chained('_media_list_rpms') PathPart('') :Args(0) {
     my ( $self, $c ) = @_;
@@ -562 +582 @@
 }
 
+=head2 Url: /distrib/<DISTRIB>/<RELEASE>/<ARCH>/media/<MEDIA>/rpms/<NAME>
+
+Show binary rpm named C<NAME> in this distribution/media.
+
+Return C<404> error if such rpm does not exists
+
+=cut
+
 sub media_rpm_byname :Chained('_media_list_rpms') PathPart('rpms') {
-    my ( $self, $c, $name ) = @_;
-}
+    my ( $self, $c, $name, @subpart ) = @_;
+    $c->stash->{dist}{src} = 0;
+    ($c->stash->{pkgid}) = @{ $c->forward('/search/rpm/byname',
+        [ $c->stash->{dist}, $name ]) };
+    $c->go('/404/index') unless ($c->stash->{pkgid});
+    $c->go('/rpms/rpms', [ $c->stash->{pkgid}, @subpart ]);
+}
+
+=head2 Url: /distrib/<DISTRIB>/<RELEASE>/<ARCH>/media/<MEDIA>/srpms/<NAME>
+
+Show source rpm named C<NAME> in this distribution/media.
+
+Return C<404> error if such rpm does not exists
+
+=cut
+
 sub media_srpm_byname :Chained('_media_list_rpms') PathPart('srpms') {
-    my ( $self, $c, $name ) = @_;
-}
+    my ( $self, $c, $name, @subpart ) = @_;
+    $c->stash->{dist}{src} = 0;
+    ($c->stash->{pkgid}) = @{ $c->forward('/search/rpm/byname',
+        [ $c->stash->{dist}, $name ]) };
+    $c->go('/404/index') unless ($c->stash->{pkgid});
+    $c->go('/rpms/rpms', [ $c->stash->{pkgid}, @subpart ]);
+}
+
+=head2 Url: /distrib/<DISTRIB>/<RELEASE>/<ARCH>/media/<MEDIA>/by-pkgid/<PKGID>
+
+Show rpm having C<PKGID> in this distribution/media.
+
+Return C<404> error if such rpm does not exists
+
+=cut
 
 sub media_rpm_bypkgid :Chained('_media_list_rpms') PathPart('by-pkgid') {