Implement exact filename searching

[deb/packages.git] / cgi-bin / search_contents.pl

diff --git a/cgi-bin/search_contents.pl b/cgi-bin/search_contents.pl
index 21aaeabb1eadf267888802b9bc0e7493ccaaf52a..839ffc00f0ad830ab43125f6ff738cefaa942c0c 100755 (executable)
--- a/cgi-bin/search_contents.pl
+++ b/cgi-bin/search_contents.pl
@@ -19,6 +19,11 @@ sub contents() {
 # only thing implemented yet: ends-with search
     my $kw = lc $cgi->param("keywords");
     $kw = reverse $kw;
+    
+    # exact filename searching follows trivially:
+    my $exact = $cgi->param("exact");
+    $kw = "/$kw" if $exact;
+
 # FIXME: ensure $suite is sanitized
     my $suite = 'stable';