Changeset 331

Timestamp:

01/21/11 18:06:58 (13 years ago)

Author:

nanardon

Message:

• add rpms/scriptlet page

Location:

server/trunk/web

Files:

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

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

@@ -382 +382 @@
         /^analyse$/    and $c->go('analyse',     [ $pkgid, @args ]);
         /^dependency$/ and $c->go('dependency',  [ $pkgid, @args ]);
-        /^history$/    and $c->go('history',  [ $pkgid, @args ]);
+        /^history$/    and $c->go('history',     [ $pkgid, @args ]);
         /^query$/      and $c->go('query',       [ $pkgid, @args ]);
+        /^scriptlet$/  and $c->go('scriptlet',   [ $pkgid, @args ]);
         /./            and $c->go('/404/index'); # other subpart dont exists
     }
@@ -511 +512 @@
 }
 
+sub scriptlet :Chained('rpms_') :PathPart('scriptlet') :Args(0) :XMLRPCLocal {
+    my ( $self, $c, $pkgid ) = @_;
+    $pkgid ||= $c->stash->{pkgid};
+    $c->stash->{rpmurl} = ($c->req->path =~ m:(.*)/[^/]+:)[0];
+
+    $c->stash->{xmlrpc} = {};
+    foreach (
+            [ 'PREIN', 'PREINPROG' ],
+            [ 'POSTIN', 'POSTINPROG' ],
+            [ 'PREUN', 'PREUNPROG' ],
+            [ 'POSTUN', 'POSTUNPROG' ],
+            [ 'PRETRANS', 'PRETRANSPROG' ],
+            [ 'POSTTRANS', 'POSTTRANSPROG' ],
+        ) {
+            
+        my ($res) = $c->model('Base::Rpms')->search(
+            { pkgid => $pkgid },
+            { 
+                select => [ 
+                    qq{rpmquery("header", ?)},
+                    qq{rpmquery("header", ?)},
+                ],
+                as => [ qw(script prog) ],
+                bind => $_,
+            }
+        )->all;
+        
+        $c->stash->{xmlrpc}{$_->[0]} = { $res->get_columns } if ($res);
+    }
+    $c->stash->{xmlrpc}{triggers} = [
+        map { { $_->get_columns } }
+        $c->model('Base::Rpms')->search(
+            { pkgid => $pkgid },
+            { 
+                select => [ 
+                    qq{rpmquery("header", ?)},
+                    qq{rpmquery("header", ?)},
+                    qq{rpmquery("header", ?)},
+                    qq{rpmsenseflag(rpmquery("header", ?)::int)},
+                    qq{rpmquery("header", ?)},
+                ],
+                as => [ qw(script prog name sense version) ],
+                bind => [qw(
+                    TRIGGERSCRIPTS
+                    TRIGGERSCRIPTPROG
+                    TRIGGERNAME
+                    TRIGGERFLAGS
+                    TRIGGERVERSION
+                    )]
+            }
+        )->all ];
+
+    return $c->stash->{xmlrpc};
+}
+
 =head2 rpms.location( PKGID )
 

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

@@ -8 +8 @@
 <li><a href="[% c.uri_for('/', rpmurl, 'deps') %]">Deps</a></li>
 <li><a href="[% c.uri_for('/', rpmurl, 'files') %]">Files</a></li>
+<li><a href="[% c.uri_for('/', rpmurl, 'scriptlet') %]">Scripts</a></li>
 <li><a href="[% c.uri_for('/', rpmurl, 'changelog') %]">ChangeLog</a></li>
 <li><a href="[% c.uri_for('/', rpmurl, 'location') %]">Location</a></li>