!C99Shell v. 2.0 [PHP 7 Update] [25.02.2019]!

Software: Apache/2.2.22 (Debian). PHP/5.6.36 

uname -a: Linux h05.hvosting.ua 4.9.110-amd64 #3 SMP Sun Nov 4 16:27:09 UTC 2018 x86_64 

uid=1389(h33678) gid=1099(h33678) groups=1099(h33678),502(mgrsecure) 

Safe-mode: OFF (not secure)

/usr/share/doc/dovecot-core/wiki/   drwxr-xr-x
Free 1.47 GB of 7.22 GB (20.38%)
Home    Back    Forward    UPDIR    Refresh    Search    Buffer    Encoder    Tools    Proc.    FTP brute    Sec.    SQL    PHP-code    Update    Feedback    Self remove    Logout    


Viewing file:     Migration.Teapop.txt (1.96 KB)      -rw-r--r--
Select action/file-type:
(+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) |
Teapop 0.3.8
============

*WARNING: Badly done migration will cause your IMAP and/or POP3 clients to
re-download all mails. Read <Migration.txt> page first carefully.*

First at all sorry for my bad English. At work I had to migrate our existing
teapop/mbox setup to Dovecot/Maildir without change the UIDL. At first I think
I must set the option pop3_uidl_format to %Mf. But this doesn't work because
Teapop use different algorithm. So the only way I found was to set the X-UIDL
in the mbox and then use the mb2md script. My Co-worker Robert (many thanks for
programming the script) and I use the following script:

---%<-------------------------------------------------------------------------
#!/usr/bin/perl
use Digest::MD5;
$context = Digest::MD5->new;
$gotmail = 0;
$counter = 1;
@mail = ();
while (<>)
{
    $line = $_;
    if(/^From /)
    {
        if ($gotmail)
        {
            processMail ();
            $counter++;
            $context->reset();
            @mail = ();
        }
        $gotmail = 1;
    }
    push (@mail, $line);
    next if ($line =~ /^(Status|X-Status|Lines|Content-Length): /);
    $context->add($line);
}
if ($gotmail)
{
    processMail ();
}
else
{
    print STDERR "Mailbox is empty!\n";
}
sub processMail ()
{
    if ($#mail > 2)
    {
        print shift(@mail);
        print shift(@mail);
        print "X-UIDL: " . $context->hexdigest() . "\n";
        foreach $l (@mail)
        {
            print $l;
        }
    }
    else
    {
        print STDERR "Email has less then 3 lines!\n";
    }
}
---%<-------------------------------------------------------------------------

Usage: scriptname $mboxfile > $newbox

The script read the mbox file and generate the MD5 sum, if the line don't start
with Status,X-Status,Lines and Content-Length, for each mail and insert the
X-UIDL: after the Return-Path line. After that you can use the mb2md
script.Important: You must set the 'pop3_reuse_xuidl=yes'.

(This file was created from the wiki on 2013-11-24 04:42)

:: Command execute ::

Enter:
 
Select:
 

:: Search ::
  - regexp 

:: Upload ::
 
[ Read-Only ]

:: Make Dir ::
 
[ Read-Only ]
:: Make File ::
 
[ Read-Only ]

:: Go Dir ::
 
:: Go File ::
 

--[ c99shell v. 2.0 [PHP 7 Update] [25.02.2019] maintained by PinoyWH1Z | C99Shell Github | Generation time: 0.0144 ]--