1 |
234 |
ahitrov |
package blogs::Init; |
2 |
|
|
|
3 |
|
|
use strict; |
4 |
|
|
use warnings 'all'; |
5 |
|
|
|
6 |
|
|
use Contenido::Globals; |
7 |
|
|
use blogs::Apache; |
8 |
|
|
use blogs::Keeper; |
9 |
|
|
|
10 |
|
|
|
11 |
|
|
# загрузка всех необходимых плагину классов |
12 |
|
|
# blogs::SQL::SomeTable |
13 |
|
|
# blogs::SomeClass |
14 |
|
|
Contenido::Init::load_classes(qw( |
15 |
|
|
blogs::SQL::BlogsTable |
16 |
|
|
blogs::SQL::RecordsTable |
17 |
|
|
blogs::SQL::MembersTable |
18 |
|
|
blogs::SQL::CommentsTable |
19 |
|
|
blogs::SQL::TagsTable |
20 |
|
|
blogs::SQL::TagCloudTable |
21 |
|
|
|
22 |
|
|
blogs::TagCloud |
23 |
|
|
|
24 |
|
|
blogs::Blog |
25 |
|
|
blogs::Record |
26 |
|
|
blogs::Comment |
27 |
|
|
blogs::MemberLink |
28 |
|
|
blogs::Tag |
29 |
|
|
blogs::SubscriberLink |
30 |
|
|
|
31 |
|
|
blogs::RecordSection |
32 |
|
|
blogs::TagSection |
33 |
|
|
blogs::BlogSection |
34 |
|
|
)); |
35 |
|
|
|
36 |
|
|
sub init { |
37 |
|
|
push @{ $state->{'available_documents'} }, qw( blogs::Blog blogs::Record blogs::Comment blogs::Tag ); |
38 |
|
|
push @{ $state->{'available_sections'} }, qw( blogs::RecordSection blogs::TagSection blogs::BlogSection ); |
39 |
|
|
push @{ $state->{'available_links'} }, qw( blogs::MemberLink blogs::TagCloud ); |
40 |
|
|
0; |
41 |
|
|
} |
42 |
|
|
|
43 |
|
|
1; |