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
|
# Movable Type (r) Open Source (C) 2001-2008 Six Apart, Ltd.
# This program is distributed under the terms of the
# GNU General Public License, version 2.
#
# $Id: IPBanList.pm 1174 2008-01-08 21:02:50Z bchoate $
package MT::IPBanList;
use strict;
use base qw( MT::Object );
__PACKAGE__->install_properties({
column_defs => {
'id' => 'integer not null auto_increment',
'blog_id' => 'integer not null',
'ip' => 'string(15) not null',
},
indexes => {
blog_id => 1,
ip => 1,
},
audit => 1,
datasource => 'ipbanlist',
primary_key => 'id',
});
sub class_label {
MT->translate("IP Ban");
}
sub class_label_plural {
MT->translate("IP Bans");
}
sub ban_ip {
my $class = shift;
my ($ip, $blog_id) = @_;
$class->set_by_key({ip => $ip, blog_id => $blog_id});
}
1;
__END__
=head1 NAME
MT::IPBanList - Movable Type IP comment banning record
=head1 SYNOPSIS
use MT::IPBanList;
my $ban = MT::IPBanList->new;
$ban->blog_id($blog->id);
$ban->ip($ip_address);
$ban->save
or die $ban->errstr;
=head1 DESCRIPTION
An I<MT::IPBanList> object represents a single IP address that is banned from
commenting on one of your blogs.
=head1 USAGE
As a subclass of I<MT::Object>, I<MT::IPBanList> inherits all of the
data-management and -storage methods from that class; thus you should look
at the I<MT::Object> documentation for details about creating a new object,
loading an existing object, saving an object, etc.
=head1 DATA ACCESS METHODS
The I<MT::BanList> object holds the following pieces of data. These fields can
be accessed and set using the standard data access methods described in the
I<MT::Object> documentation.
=over 4
=item * id
The numeric ID of the banlist record.
=item * blog_id
The numeric ID of the blog for which the IP address is banned.
=item * ip
The IP address. This can be a partial IP address--for example, a partial
address of C<10.100> will block the IP addresses C<10.100.2.1>,
C<10.100.100.3>, etc.
=back
=head2 ban_ip($ip, $blog_id)
This convenience method can be used in place of setting the I<ip> and
I<blog_id> individually.
=head1 DATA LOOKUP
In addition to numeric ID lookup, you can look up or sort records by any
combination of the following fields. See the I<load> documentation in
I<MT::Object> for more information.
=over 4
=item * blog_id
=item * ip
=back
=head1 AUTHOR & COPYRIGHT
Please see L<MT/AUTHOR & COPYRIGHT>.
=cut
|
