#!/usr/bin/perl

# optimize.pl - compact the index

# Eric Lease Morgan <eric_morgan@infomotions.com>
# May 30, 2010 - first investigations


# define
use constant SOLR   => 'http://localhost:210/solr/great-books';

# require
use strict;
use WebService::Solr;

# do the work
my $solr = WebService::Solr->new( SOLR );
$solr->optimize;
exit;