byp4a55 professor6T9

Linux SamCT211 4.4.302+ #86009 SMP Wed Nov 26 18:19:20 CST 2025 x86_64
nginx/1.23.1
192.168.4.211

FileInto.pm

# Over-ride the standard MIME::Parser::FileInto class with our own to pre-
# pend all filenames with an "n" to show they were normal attachments and
# did not come from within an archive.
package MIME::Parser::MailScanner;

use MIME::WordDecoder;
use strict;
use vars qw(@ISA);
@ISA = qw(MIME::Parser::Filer);

sub init {
    my ($self, $dir) = @_;
    $self->{MPFI_Dir} = $self->cleanup_dir($dir);
}
sub output_dir {
    shift->{MPFI_Dir};
}
sub output_path {
    my ($self, $head) = @_;

### Get the output directory:
    my $dir = $self->output_dir($head);

### Get the output filename, decoding into the local character set:
    my $fname = unmime $head->recommended_filename;

### Can we use it:
    if    (!defined($fname)) {
        $self->debug("no filename recommended: synthesizing our own");
        $fname = $self->output_filename($head);
    }
    elsif ($self->ignore_filename) {
        $self->debug("ignoring all external filenames: synthesizing our own");
        $fname = $self->output_filename($head);
    }
    elsif ($self->evil_filename($fname)) {

### Can we save it by just taking the last element?
        my $ex = $self->exorcise_filename($fname);
        if (defined($ex) and !$self->evil_filename($ex)) {
            $self->whine("Provided filename '$fname' is regarded as evil, ",
                         "but I was able to exorcise it and get something ",
                         "usable.");
            $fname = $ex;
        }
        else {
            $self->whine("Provided filename '$fname' is regarded as evil; ",
                         "I'm ignoring it and supplying my own.");
            $fname = $self->output_filename($head);
        }
    }

# JKF Added next line to put an "n" on the front of every attachment fname.
    # JKF This separates them from "a" files which came from archives.
    $fname = 'n' . $fname; # JKF 20090327

$self->debug("planning to use '$fname'");

### Resolve collisions and return final path:
    return $self->find_unused_path($dir, $fname);
}

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	0/0	0755	2025-06-20 04:13:54
..	dir	-	0/0	0755	2025-06-20 04:13:54
CustomFunctions	dir	-	0/0	0755	2025-06-20 04:13:54
Antiword.pm	text/plain	6.67 KB	0/0	0755	2025-06-20 04:13:54
BinHex.pm	text/plain	4.25 KB	0/0	0755	2025-06-20 04:13:54
Config.pm	text/plain	119.87 KB	0/0	0755	2025-06-20 04:13:54
Config.pm.orig	text/plain	116.39 KB	0/0	0755	2025-06-20 04:13:54
ConfigDefs.pl	text/plain	23.8 KB	0/0	0755	2025-06-20 04:13:54
ConfigDefs.pl.orig	text/plain	23.55 KB	0/0	0755	2025-06-20 04:13:54
ConfigSQL.pm	text/plain	8.36 KB	0/0	0755	2025-06-20 04:13:54
CustomConfig.pm	text/plain	55.55 KB	0/0	0755	2025-06-20 04:13:54
Exim.pm	text/plain	53.44 KB	0/0	0755	2025-06-20 04:13:54
EximDiskStore.pm	text/plain	18.26 KB	0/0	0755	2025-06-20 04:13:54
FileInto.pm	text/plain	2.01 KB	0/0	0755	2025-06-20 04:13:54
GenericSpam.pm	text/plain	7.59 KB	0/0	0755	2025-06-20 04:13:54
LinksDump.pm	text/plain	6.59 KB	0/0	0755	2025-06-20 04:13:54
Lock.pm	text/plain	12.57 KB	0/0	0755	2025-06-20 04:13:54
Log.pm	text/plain	5.69 KB	0/0	0755	2025-06-20 04:13:54
MCP.pm	text/plain	16.96 KB	0/0	0755	2025-06-20 04:13:54
MCPMessage.pm	text/plain	23.95 KB	0/0	0755	2025-06-20 04:13:54
Mail.pm	text/plain	2.92 KB	0/0	0755	2025-06-20 04:13:54
Message.pm	text/plain	309.43 KB	0/0	0755	2025-06-20 04:13:54
MessageBatch.pm	text/plain	44.23 KB	0/0	0755	2025-06-20 04:13:54
PFDiskStore.pm	text/plain	28.33 KB	0/0	0755	2025-06-20 04:13:54
Postfix.pm	text/plain	71.85 KB	0/0	0755	2025-06-20 04:13:54
QMDiskStore.pm	text/plain	14.22 KB	0/0	0755	2025-06-20 04:13:54
Qmail.pm	text/plain	28.25 KB	0/0	0755	2025-06-20 04:13:54
Quarantine.pm	text/plain	8.23 KB	0/0	0755	2025-06-20 04:13:54
Queue.pm	text/plain	1.66 KB	0/0	0755	2025-06-20 04:13:54
RBLs.pm	text/plain	9.3 KB	0/0	0755	2025-06-20 04:13:54
SA.pm	text/plain	46.72 KB	0/0	0755	2025-06-20 04:13:54
SMDiskStore.pm	text/plain	18.89 KB	0/0	0755	2025-06-20 04:13:54
Sendmail.pm	text/plain	42.53 KB	0/0	0755	2025-06-20 04:13:54
SweepContent.pm	text/plain	30.47 KB	0/0	0755	2025-06-20 04:13:54
SweepOther.pm	text/plain	40.44 KB	0/0	0755	2025-06-20 04:13:54
SweepViruses.pm	text/plain	146.13 KB	0/0	0755	2025-06-20 04:13:54
SystemDefs.pm	text/plain	1.41 KB	0/0	0755	2025-06-20 04:13:54
TNEF.pm	text/plain	13.94 KB	0/0	0755	2025-06-20 04:13:54
Unzip.pm	text/plain	5.27 KB	0/0	0755	2025-06-20 04:13:54
WorkArea.pm	text/plain	9.82 KB	0/0	0755	2025-06-20 04:13:54
ZMDiskStore.pm	text/plain	14.87 KB	0/0	0755	2025-06-20 04:13:54
ZMailer.pm	text/plain	38.02 KB	0/0	0755	2025-06-20 04:13:54

Team Anon Force

https://t.me/Professor6T9x