Line # Revision Author
1 3 ahitrov@rambler.ru #!/usr/bin/perl
2
3 use strict;
4 BEGIN { require 'libs.pl' };
5
6 $DEBUG = 0;
7 $Contenido::Keeper::DEBUG = $DEBUG;
8 $Contenido::Project::DEBUG = $DEBUG;
9 $Contenido::State::DEBUG = $DEBUG;
10 $PhoenixDBI::DEBUG = $DEBUG;
11
12 # ������������ � ���� ������ ��� ������������ � ��������...
13 my $keeper = Contenido::Keeper->new($state);
14
15 $keeper->{SQL}->do("VACUUM FULL ANALYZE");
16
17 $keeper->shutdown();