Changeset 293

Timestamp:

01/11/11 23:09:20 (13 years ago)

Author:

nanardon

Message:

• add parent dir function: search pkg owning the directories

Location:

server/trunk/web/lib/Sophie/Controller

Files:

• Analysis.pm (modified) (1 diff)
• Analysis/Solver.pm (modified) (2 diffs)

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

@@ -103 +103 @@
 }
 
+sub parentdir : XMLRPC {
+    my ($self, $c, $distspec, $id, $pool) = @_;
+    $pool ||= $id;
+
+    my @dir = $c->model('Base::UsersFiles')->search(
+            {
+                pid => [ $id ],
+            },
+            {
+                select   => [ qw(dirname) ],
+                group_by => [ qw(dirname) ],
+                order_by => [ qw(dirname) ],
+            }
+    )->get_column('dirname')->all;
+
+    $c->forward('/analysis/solver/parentdir', [ $distspec, \@dir, $pool ]);
+}
+
 =head1 AUTHOR
 

server/trunk/web/lib/Sophie/Controller/Analysis/Solver.pm

@@ -122 +122 @@
 }
 
+sub parentdir : XMLRPC {
+    my ($self, $c, $searchspec, $folder, $pool) = @_;
+
+    my %need_pool;
+    my %need_pkgid;
+    my %bydir;
+    my @notfound;
+    foreach my $dir (@{ $folder }) {
+        $dir =~ s:/$::;
+        my $found = 0;
+        my $res = $c->forward('/search/rpm/byfile', [ $searchspec, $dir, ]);
+        if (@{$res}) {
+            $found = 1;
+            foreach (@{$res}) {
+                $need_pkgid{$_} = 1;
+                $bydir{$dir}{pkg}{$_} = 1;
+            }
+        } 
+        if ($pool) {
+            $res = $c->forward('/user/folder/byfile', [ $pool, $dir, ]);
+            if (@{$res}) {
+                $found = 1;
+                foreach (@{$res}) {
+                    $need_pool{$_} = 1;
+                    $bydir{$dir}{pool}{$_} = 1;
+
+                }
+            }
+        }
+        push(@notfound, $dir) unless($found);
+    }
+    return $c->stash->{xmlrpc} = {
+        notfound => \@notfound,
+        pkg => [ keys %need_pkgid ],
+        pool => [ keys %need_pool ],
+        bydir => \%bydir,
+    };
+}
 
 =head1 AUTHOR
@@ -138 +176 @@
 1;
 
-
-=head1 AUTHOR
-
-Olivier Thauvin
-
-=head1 LICENSE
-
-This library is free software. You can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=cut
-
-__PACKAGE__->meta->make_immutable;
-
-1;