Line # Revision Author
1 760 ahitrov #!/usr/bin/env perl
2 8 ahitrov@rambler.ru
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();