| Line # | Revision | Author | |
|---|---|---|---|
| 1 | 8 | 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(); |