1 files changed, 0 insertions, 53 deletions
diff --git a/search/bin/build-autocomplete b/search/bin/build-autocomplete
deleted file mode 100755
index d9a62fd..0000000
--- a/search/bin/build-autocomplete
+++ /dev/null
@@ -1,53 +0,0 @@
-#!/usr/bin/perl
-use lib "../lib";
-use Bucky;
-use Bucky::Search;
-use Data::Dumper;
-use DB_File;
-
-my $file = "auto.db";
-
-my $search = new Bucky::Search;
-
-my $index = $search->index;
-my $auto_index = $search->auto_index_write;
-
-my $partials = {};
-my $partials_with_media = {};
-foreach my $word (keys %$index)
-	{
-	# goatse operator
-	my $count =()= $index->{$word} =~ /,/g;
-
-	next unless $word;
-
-	my $par = '';
-	my @letters = split "", $word;
-	for (my $i = 0; $i < scalar @letters; $i++)
-		{
-		$par .= $letters[$i];
-		if (! exists $partials->{$par} || $partials->{$par}->[0] < $count)
-			{
-			$partials->{$par} = [$count,$word];
-			}
-		}
-	}
-# don't autocomplete if we match a word
-foreach my $word (keys %$index)
-	{
-	$partials->{$word}->[1] = $word
-	}
-
-foreach my $par (sort keys %$partials)
-	{
-	$auto_index->{$par} = $partials->{$par}->[1];
-	}
-$search->auto_index_close;
-
-print "NEW: " ; system("/bin/ls", "-l", "./$file");
-print "OLD: " ; system("/bin/ls", "-l", "../cgi-bin/$file");
-system("/bin/mv", "../cgi-bin/$file", "../cgi-bin/$file.1");
-system("/bin/mv", "./$file", "../cgi-bin/$file");
-
-exit;
-