PMG/RuleDB/ReportSpam.pm

   1 package PMG::RuleDB::ReportSpam;
   2
   3 use strict;
   4 use warnings;
   5 use DBI;
   6
   7 use PVE::SafeSyslog;
   8
   9 use PMG::Utils;
  10 use PMG::ModGroup;
  11 use PMG::RuleDB::Object;
  12
  13 use base qw(PMG::RuleDB::Object);
  14
  15 sub otype {
  16     return 4008;
  17 }
  18
  19 sub oclass {
  20     return 'action';
  21 }
  22
  23 sub otype_text {
  24     return 'Report Spam';
  25 }
  26
  27 sub oisedit {
  28     return 0;
  29 }
  30
  31 sub final {
  32     return 1;
  33 }
  34
  35 sub priority {
  36     return 97;
  37 }
  38
  39 sub new {
  40     my ($type, $ogroup) = @_;
  41
  42     my $class = ref($type) || $type;
  43
  44     my $self = $class->SUPER::new($class->otype(), $ogroup);
  45
  46     return $self;
  47 }
  48
  49 sub load_attr {
  50     my ($type, $ruledb, $id, $ogroup, $value) = @_;
  51
  52     my $class = ref($type) || $type;
  53
  54     my $obj = $class->new($ogroup);
  55     $obj->{id} = $id;
  56
  57     return $obj;
  58 }
  59
  60 sub save {
  61     my ($self, $ruledb) = @_;
  62
  63     defined($self->{ogroup}) || return undef;
  64
  65     if (defined ($self->{id})) {
  66         # update
  67
  68         # nothing to update
  69
  70     } else {
  71         # insert
  72
  73         my $sth = $ruledb->{dbh}->prepare(
  74             "INSERT INTO Object (Objectgroup_ID, ObjectType) VALUES (?, ?);");
  75
  76         $sth->execute($self->ogroup, $self->otype);
  77
  78         $self->{id} = PMG::Utils::lastid($ruledb->{dbh}, 'object_id_seq');
  79     }
  80
  81     return $self->{id};
  82 }
  83
  84 sub execute {
  85     my ($self, $queue, $ruledb, $mod_group, $targets,
  86         $msginfo, $vars, $marks) = @_;
  87
  88     my $rulename = $vars->{RULE} // 'unknown';
  89
  90     my $subgroups = $mod_group->subgroups($targets);
  91
  92     foreach my $ta (@$subgroups) {
  93         my ($tg, $entity) = (@$ta[0], @$ta[1]);
  94
  95         if ($msginfo->{testmode}) {
  96             my $fh = $msginfo->{test_fh};
  97             print $fh "report as spam\n";
  98         } else {
  99
 100             my $spamtest = $queue->{sa};
 101
 102             $queue->{fh}->seek (0, 0);
 103             *SATMP = \*{$queue->{fh}};
 104             my $mail = $spamtest->parse(\*SATMP);
 105
 106             $spamtest->report_as_spam($mail);
 107
 108             $mail->finish();
 109         }
 110         syslog('info', "%s: report mail as spam (rule: %s)", $queue->{logid}, $rulename);
 111         $queue->set_status ($tg, 'delivered');
 112     }
 113 }
 114
 115 sub short_desc {
 116     my $self = shift;
 117
 118     return "";
 119 }
 120
 121 1;
 122 __END__
 123
 124 =head1 PMG::RuleDB::ReportSpam
 125
 126 Report as SPAM.