Revision 3 (by ahitrov@rambler.ru, 2010/03/24 15:19:32) The CORE
 
#!/usr/bin/perl

use strict;
BEGIN { require 'libs.pl' };

$DEBUG = 0;
$Contenido::Keeper::DEBUG = $DEBUG;
$Contenido::Project::DEBUG = $DEBUG;
$Contenido::State::DEBUG = $DEBUG;
$PhoenixDBI::DEBUG = $DEBUG;

# ������������ � ���� ������ ��� ������������ � ��������...
my $keeper = Contenido::Keeper->new($state);

$keeper->{SQL}->do("VACUUM FULL ANALYZE");

$keeper->shutdown();