#!/usr/bonsaitools/bin/perl # $Id: find,v 1.8 2004/03/08 07:54:16 timeless%mozdev.org Exp $ # find -- Find files # # Arne Georg Gleditsch # Per Kristian Gjermshus # # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ###################################################################### use lib 'lib/'; use LXR::Common; use LXR::Config; sub find { print("

\n", "Search for files (by name) using regular expressions.\n", "
(Need some Hints ", "on performing searches?)

\n"); print ("
\n"); foreach ($Conf->allvariables) { if ($Conf->variable($_) ne $Conf->vardefault($_)) { print("variable($_), "\">\n"); } } $searchtext =~ s/\+/ /g; $searchtext =~ s/%2b/+/ig; print("Find file: \n", "\n", "
\n"); if ($searchtext ne "") { my $filename = $Conf->dbdir."/.glimpse_filenames"; unless (open(FILELLISTING,$filename)) { &warning("Could not open $filename"); return; } print("


\n"); $sourceroot = $Conf->sourceroot; while($file = ) { $file =~ s/^$sourceroot//; if($file =~ /$searchtext/i) { print(&fileref("$file", "$file"),"
\n"); } } } } ($Conf, $HTTP, $Path) = &init; $searchtext = $HTTP->{'param'}->{'string'}; &makeheader('find'); &find; &makefooter('find');