[project @ 2003-05-21 20:04:42 by cjwatson]

Add a source package mode to pkgindex.cgi.

diff --git a/cgi/pkgindex.cgi b/cgi/pkgindex.cgi
index 6654ef2743d5ced4d3498c089a34d22845856bbe..dc0af76788c45731fb2891e665f4dba144e900bc 100755 (executable)
--- a/cgi/pkgindex.cgi
+++ b/cgi/pkgindex.cgi
@@ -16,7 +16,7 @@ nice(5);
 my %param = readparse();
 
 my $indexon = $param{'indexon'} || 'pkg';
-if ($indexon !~ m/^(pkg|maint|submitter)$/) {
+if ($indexon !~ m/^(pkg|src|maint|submitter)$/) {
     quitcgi("You have to choose something to index on");
 }
 
@@ -69,6 +69,24 @@ if ($indexon eq "pkg") {
                            mainturl($maintainers{$pkg}),
                           htmlsanit($maintainers{$pkg} || "(unknown)"));
   }
+} elsif ($indexon eq "src") {
+  $tag = "source package";
+  my $pkgsrc = getpkgsrc();
+  %count = countbugs(sub {my %d=@_;
+                          return map {
+                            $pkgsrc->{$_} || $_
+                          } splitpackages($d{"pkg"});
+                         });
+  $note = "";
+  foreach my $src (keys %count) {
+    $sortkey{$src} = lc $src;
+    $htmldescrip{$src} = sprintf('<a href="%s">%s</a> '
+                           . '(maintainer: <a href="%s">%s</a>)',
+                           srcurl($src),
+                           htmlsanit($src),
+                           mainturl($maintainers{$src}),
+                           htmlsanit($maintainers{$src} || "(unknown)"));
+  }
 } elsif ($indexon eq "maint") {
   $tag = "maintainer";
   %count = countbugs(sub {my %d=@_;