X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=cgi-bin%2Fsearch_contents.pl;h=66e216d4371ca7283ca57e8b31a1149d86f9b385;hb=53004bf39f89fca7abc8dc72e7b4571d419a4d9d;hp=5272a058292e1ed3502c208eb032673dc4dece8f;hpb=a2ea3cdb194f43906f68faba2ac24add41dc5df2;p=deb%2Fpackages.git diff --git a/cgi-bin/search_contents.pl b/cgi-bin/search_contents.pl index 5272a05..66e216d 100755 --- a/cgi-bin/search_contents.pl +++ b/cgi-bin/search_contents.pl @@ -1,12 +1,8 @@ #!/usr/bin/perl -wT # $Id$ -# search_packages.pl -- CGI interface to the Packages files on packages.debian.org +# search_contents.pl -- CGI interface to the Contents files on packages.debian.org # -# Copyright (C) 1998 James Treacy -# Copyright (C) 2000, 2001 Josip Rodin -# Copyright (C) 2001 Adam Heath -# Copyright (C) 2004 Martin Schulze -# Copyright (C) 2004-2006 Frank Lichtenheld +# Copyright (C) 2006 Jeroen van Wolffelaar # # use is allowed under the terms of the GNU Public License (GPL) # see http://www.fsf.org/copyleft/gpl.html for a copy of the license @@ -26,7 +22,6 @@ sub contents() { my $suite = 'stable'; #fixme - # fixme: I should open $reverses only once per search my $reverses = tie my %reverses, 'DB_File', "$DBDIR/contents/reverse_$suite.db", O_RDONLY, 0666, $DB_BTREE or die "Failed opening reverse DB: $!";