]>
git.proxmox.com Git - pmg-api.git/blob - src/PMG/RuleDB/ModField.pm
1 package PMG
::RuleDB
::ModField
;
10 use PMG
::RuleDB
::Object
;
12 use base
qw(PMG::RuleDB::Object);
23 return 'Header Attribute';
35 my ($type, $field, $field_value, $ogroup) = @_;
37 my $class = ref($type) || $type;
39 my $self = $class->SUPER::new
($class->otype(), $ogroup);
41 $self->{field
} = $field;
42 $self->{field_value
} = $field_value;
48 my ($type, $ruledb, $id, $ogroup, $value) = @_;
50 my $class = ref($type) || $type;
52 defined($value) || return undef;
54 my ($field, $field_value) = $value =~ m/^([^\:]*)\:(.*)$/;
56 (defined($field) && defined($field_value)) || return undef;
58 my $obj = $class->new($field, $field_value, $ogroup);
61 $obj->{digest
} = Digest
::SHA
::sha1_hex
($id, $field, $field_value, $ogroup);
67 my ($self, $ruledb) = @_;
69 defined($self->{ogroup
}) || return undef;
71 my $new_value = "$self->{field}:$self->{field_value}";
73 if (defined ($self->{id
})) {
77 "UPDATE Object SET Value = ? WHERE ID = ?",
78 undef, $new_value, $self->{id
});
83 my $sth = $ruledb->{dbh
}->prepare(
84 "INSERT INTO Object (Objectgroup_ID, ObjectType, Value) " .
87 $sth->execute($self->ogroup, $self->otype, $new_value);
89 $self->{id
} = PMG
::Utils
::lastid
($ruledb->{dbh
}, 'object_id_seq');
96 my ($self, $queue, $ruledb, $mod_group, $targets,
97 $msginfo, $vars, $marks) = @_;
99 my $fvalue = PMG
::Utils
::subst_values
($self->{field_value
}, $vars);
101 # support for multiline values (i.e. __SPAM_INFO__)
102 $fvalue =~ s/\r?\n/\n\t/sg; # indent content
103 $fvalue =~ s/\n\s*\n//sg; # remove empty line
104 $fvalue =~ s/\n?\s*$//s; # remove trailing spaces
106 my $subgroups = $mod_group->subgroups($targets);
108 foreach my $ta (@$subgroups) {
109 my ($tg, $e) = (@$ta[0], @$ta[1]);
110 $e->head->replace($self->{field
}, $fvalue);
117 return "modify field: $self->{field}:$self->{field_value}";
125 description
=> "The Field",
127 pattern
=> '[0-9a-zA-Z\/\\\[\]\+\-\.\*\_]+',
131 description
=> "The Value",
142 field
=> $self->{field
},
143 value
=> $self->{field_value
},
148 my ($self, $param) = @_;
150 $self->{field_value
} = $param->{value
};
151 $self->{field
} = $param->{field
};
158 =head1 PMG::RuleDB::ModField
160 Modify fields of a message.