#!/usr/bin/suidperl
use strict 'vars';

$ENV{PATH} = '/bin:/usr/bin';

my $DEF_DB= '/var/lib/slocate/FILES';
my $DB = $DEF_DB;
my @GREPFLAGS = ();

while ($ARGV[0] =~ /^-/) {
  if ($ARGV[0] =~ /^--([^=]*)=(.*)/) {
    if ($1 eq 'database') {
      $DB = $2;
    } else {
      push @GREPFLAGS, $ARGV[0];
    }
  } elsif ($ARGV[0] =~ /^-(.)/) {
    if ($1 eq 'd') {
      $DB = $ARGV[1];
      shift;
    } else {
      push @GREPFLAGS, $ARGV[0];
    }
  } 
  shift;
}
my $PAT = shift;
usage() if @ARGV > 0;

my @COMMAND =  ('egrep', @GREPFLAGS, $PAT, $DB);

exec @COMMAND;
die "$0: Couldn't run 'grep' command:\n\t@COMMAND\n\t$!\n"; 

sub usage {
  print <<EOM;
$0 [-d database] [flags for grep(1)...] pattern
  -d   --patabase    Use this database (default $DEF_DB)
  (All unrecognized flags will be passed to 'grep')
EOM
    exit 1;
}