1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
# Movable Type (r) Open Source (C) 2001-2012 Six Apart, Ltd.
# This program is distributed under the terms of the
# GNU General Public License, version 2.
#
# $Id$
package MT::Theme::Element;
use base qw( MT::ErrorHandler );
use MT::Util qw( weaken );
sub new {
my $pkg = shift;
my (%hash) = @_;
weaken( $hash{theme} ) if defined $hash{theme} && ref $hash{theme};
return bless \%hash, $pkg;
}
sub importer {
my $self = shift;
my ($blog) = @_;
my $element_handlers = MT->registry('theme_element_handlers');
my $handler = $element_handlers->{ $self->{importer} }
or return $self->error(
MT->translate(
'Component \'[_1]\' is not found.',
$self->{component},
)
);
my $importer = $handler->{importer}
or return $self->error(
MT->translate( 'Internal error: the importer is not found.', ) );
return $importer;
}
sub apply {
my $self = shift;
my ( $blog, $opts ) = @_;
my $importer = $self->importer
or return $self->errstr;
if ( !$self->validate_version($importer) ) {
return $self->error(
MT->translate(
'Compatibility error occured while applying \'[_1]\': [_2].',
$self->{id},
$self->errstr,
)
);
}
if ( !$self->validate( $importer, $self->{theme}, $blog ) ) {
return $self->error(
MT->translate(
'An Error occured while applying \'[_1]\': [_2].',
$self->{id}, $self->errstr,
)
);
}
my $handler = $importer->{import};
if ( !ref $handler ) {
$handler = MT->handler_to_coderef($handler);
}
$handler->( $self, $self->{theme}, $blog, $opts )
or return $self->error(
MT->translate(
'Fatal error occured while applying \'[_1]\': [_2].',
$self->{id}, $self->errstr,
)
);
return 1;
}
sub validate_version {
my $element = shift;
my $importer = $_[0] || $element->importer
or die sprintf 'Theme element importer not found: %s',
$element->errstr;
my $v = $element->{schema_version} || 1.0;
my $e_min = $element->{min_importer_version} || 0.0;
my $i_max = $importer->{max_schema_version} || 1.0;
my $i_min = $importer->{min_schema_version} || 0.0;
if ( defined $i_max && $v > $i_max ) {
if ( $i_max < $e_min ) {
return $element->error(
MT->translate(
"Importer for \'[_1]\' is too old.",
$element->{id},
)
);
}
return 1;
}
if ( $v < $i_min ) {
return $element->error(
MT->translate(
"Theme element \'[_1]\' is too old for this environment.",
$element->{id},
)
);
}
return 1;
}
sub validate {
my $element = shift;
my ( $importer, $theme, $blog ) = @_;
$importer ||= $element->importer
or die sprintf 'Theme element importer not found: %s',
$element->errstr;
my $validator = $importer->{validator};
return 1 if !$validator;
if ( !ref $validator ) {
$validator = MT->handler_to_coderef($validator);
}
$validator->( $element, $theme, $blog );
}
sub information_string {
my $element = shift;
my ($blog) = @_;
my $importer = $_[0] || $element->importer
or die sprintf 'Theme element importer not found: %s',
$element->errstr;
$info = $importer->{info} or return;
my $str;
if ( defined $info ) {
## info can be as CODEREF, MT Handler string and constant string.
if ( !ref $info && $info =~ /^\$\w+::/ ) {
$info = MT->handler_to_coderef($info);
}
if ( 'CODE' eq ref $info ) {
$str = $info->( $element, $element->{theme}, $blog );
}
else {
$str = $info;
}
}
return $str || $element->{name} || $element->{id} || '';
}
1;
|
