mirror of
https://github.com/imapsync/imapsync.git
synced 2024-11-17 00:02:29 +01:00
1427 lines
38 KiB
Bash
1427 lines
38 KiB
Bash
#!/bin/sh
|
||
|
||
# $Id: tests.sh,v 1.109 2010/07/16 23:28:12 gilles Exp gilles $
|
||
|
||
# Example:
|
||
# CMD_PERL='perl -I./Mail-IMAPClient-3.25/lib' sh -x tests.sh
|
||
|
||
|
||
HOST1=${HOST1:-'localhost'}
|
||
echo HOST1=$HOST1
|
||
HOST2=${HOST2:-'localhost'}
|
||
echo HOST2=$HOST2
|
||
|
||
# most tests use:
|
||
CMD_PERL=${CMD_PERL:-'perl -I./Mail-IMAPClient-2.2.9'}
|
||
|
||
# few debugging tests use:
|
||
CMD_PERL_2xx='perl -I./Mail-IMAPClient-2.2.9'
|
||
CMD_PERL_3xx='perl -I./Mail-IMAPClient-3.25/lib'
|
||
|
||
#### Shell pragmas
|
||
|
||
exec 3>&2 #
|
||
#set -x # debug mode. See what is running
|
||
set -e # exit on first failure
|
||
|
||
#### functions definitions
|
||
|
||
echo3() {
|
||
#echo '#####################################################' >&3
|
||
echo "$@" >&3
|
||
}
|
||
|
||
run_test() {
|
||
echo3 "#### $test_count $1"
|
||
$1
|
||
if test x"$?" = x"0"; then
|
||
echo "$1 passed"
|
||
else
|
||
echo "$1 failed" >&2
|
||
fi
|
||
}
|
||
|
||
run_tests() {
|
||
for t in "$@"; do
|
||
test_count=`expr 1 + $test_count`
|
||
run_test "$t"
|
||
#sleep 1
|
||
done
|
||
}
|
||
|
||
|
||
#### Variable definitions
|
||
|
||
test_count=0
|
||
|
||
##### The tests functions
|
||
|
||
perl_syntax() {
|
||
$CMD_PERL -c ./imapsync
|
||
}
|
||
|
||
|
||
no_args() {
|
||
$CMD_PERL ./imapsync
|
||
}
|
||
|
||
# list of accounts on plume :
|
||
|
||
# mailbox toto used on first_sync()
|
||
# bad_login()
|
||
# bad_host()
|
||
|
||
# mailbox titi used on first_sync()
|
||
# bad_host()
|
||
# locallocal()
|
||
|
||
# mailbox tata used on locallocal()
|
||
|
||
# mailbox tata titi on most ll_*() tests
|
||
|
||
# mailbox tete@est.belle # used on big size tests
|
||
# big_transfert()
|
||
# big_transfert_sizes_only()
|
||
# dprof()
|
||
|
||
sendtestmessage() {
|
||
email=${1:-"tata"}
|
||
rand=`pwgen 16 1`
|
||
mess='test:'$rand
|
||
cmd="echo $mess""| mail -s ""$mess"" $email"
|
||
echo $cmd
|
||
eval "$cmd"
|
||
}
|
||
|
||
|
||
can_send() {
|
||
test X`hostname` = X"plume" && return 0;
|
||
test X`hostname` = X"vadrouille" && return 0;
|
||
return 1
|
||
}
|
||
|
||
zzzz() {
|
||
$CMD_PERL -V
|
||
|
||
}
|
||
|
||
option_version() {
|
||
$CMD_PERL ./imapsync --version
|
||
}
|
||
|
||
|
||
option_tests() {
|
||
$CMD_PERL ./imapsync --tests
|
||
}
|
||
|
||
option_bad_delete2() {
|
||
! $CMD_PERL ./imapsync --delete 2 --blabla
|
||
}
|
||
|
||
passwords_masked() {
|
||
$CMD_PERL ./imapsync --host1 boumboum --password1 secret --justbanner | grep MASKED
|
||
}
|
||
|
||
first_sync_dry() {
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 toto \
|
||
--passfile1 ../../var/pass/secret.toto \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--noauthmd5 --dry
|
||
}
|
||
|
||
first_sync() {
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 toto \
|
||
--passfile1 ../../var/pass/secret.toto \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--noauthmd5 \
|
||
--allow3xx
|
||
}
|
||
|
||
|
||
locallocal() {
|
||
if can_send; then
|
||
#echo3 Here is plume
|
||
sendtestmessage
|
||
else
|
||
:
|
||
fi
|
||
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--allow3xx
|
||
}
|
||
|
||
ll_pidfile() {
|
||
|
||
$CMD_PERL ./imapsync \
|
||
--justbanner \
|
||
--pidfile /var/tmp/imapsync.pid
|
||
! test -f /var/tmp/imapsync.pid
|
||
}
|
||
|
||
|
||
|
||
ll_ask_password() {
|
||
{ sleep 2; cat ../../var/pass/secret.tata; } | \
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--justlogin
|
||
}
|
||
|
||
|
||
|
||
ll_timeout() {
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--folder INBOX --timeout 1
|
||
}
|
||
|
||
|
||
|
||
ll_timeout_ssl() {
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--folder INBOX --timeout 5 --ssl1 --ssl2 \
|
||
--allow3xx
|
||
}
|
||
|
||
|
||
|
||
|
||
ll_folder() {
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--folder INBOX.yop --folder INBOX.Trash \
|
||
--allow3xx
|
||
}
|
||
|
||
ll_oneemail() {
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--folder INBOX.oneemail \
|
||
--allow3xx
|
||
}
|
||
|
||
|
||
|
||
ll_folderrec() {
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--folderrec INBOX.yop \
|
||
--allow3xx
|
||
}
|
||
|
||
|
||
|
||
ll_buffersize() {
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--buffersize 8 \
|
||
--allow3xx
|
||
}
|
||
|
||
|
||
ll_justfolders() {
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--justfolders \
|
||
--allow3xx
|
||
echo "rm -rf /home/vmail/titi/.new_folder/"
|
||
}
|
||
|
||
ll_bug_folder_name_with_blank() {
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--justfolders \
|
||
--allow3xx
|
||
echo "rm -rf /home/vmail/titi/.bugs/"
|
||
}
|
||
|
||
|
||
ll_prefix12() {
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--folder INBOX.qqq \
|
||
--prefix1 INBOX.\
|
||
--prefix2 INBOX. \
|
||
--allow3xx
|
||
}
|
||
|
||
|
||
|
||
ll_nosyncinternaldates() {
|
||
can_send && sendtestmessage toto
|
||
$CMD_PERL_2xx ./imapsync \
|
||
--host1 $HOST1 --user1 toto \
|
||
--passfile1 ../../var/pass/secret.toto \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--folder INBOX --noauthmd5 \
|
||
--nosyncinternaldates --delete2 --expunge2
|
||
#--debugimap2
|
||
|
||
can_send && sendtestmessage toto
|
||
$CMD_PERL_3xx ./imapsync \
|
||
--host1 $HOST1 --user1 toto \
|
||
--passfile1 ../../var/pass/secret.toto \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--folder INBOX --noauthmd5 \
|
||
--nosyncinternaldates --delete2 --expunge2
|
||
#--debugimap2
|
||
}
|
||
# bug:
|
||
# $d=""; # no bug with $d=undef
|
||
# $imap2->append_string($h2_fold,$string, $h1_flags, $d);
|
||
# 3.25 idate : Sending: 16 APPEND INBOX () "16-Jul-2010 22:09:42 +0200" {428}
|
||
# 2.xx idate : Sending: 62 APPEND INBOX "16-Jul-2010 22:14:00 +0200" {428}
|
||
# 3.25 noidate: Sending: 16 APPEND INBOX () "" {428} # Fails: NO IMAP!
|
||
# 2.xx noidate: Sending: 62 APPEND INBOX {428}
|
||
|
||
ll_idatefromheader() {
|
||
if can_send; then
|
||
#echo3 Here is plume
|
||
sendtestmessage
|
||
else
|
||
:
|
||
fi
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--folder INBOX.oneemail \
|
||
--idatefromheader --debug --dry \
|
||
--allow3xx
|
||
}
|
||
|
||
|
||
|
||
ll_folder_rev() {
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 titi \
|
||
--passfile1 ../../var/pass/secret.titi \
|
||
--host2 $HOST2 --user2 tata \
|
||
--passfile2 ../../var/pass/secret.tata \
|
||
--folder INBOX.yop \
|
||
--allow3xx
|
||
}
|
||
|
||
ll_subscribed()
|
||
{
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--subscribed \
|
||
--allow3xx
|
||
}
|
||
|
||
|
||
ll_subscribe()
|
||
{
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--subscribed --subscribe \
|
||
--allow3xx
|
||
}
|
||
|
||
ll_justconnect()
|
||
{
|
||
$CMD_PERL ./imapsync \
|
||
--host2 $HOST2 \
|
||
--host1 $HOST1 \
|
||
--justconnect \
|
||
--allow3xx
|
||
}
|
||
|
||
ll_justfoldersizes()
|
||
{
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--justfoldersizes
|
||
}
|
||
|
||
ll_dev_reconnect()
|
||
{
|
||
# in another terminal:
|
||
#
|
||
: <<'EOF'
|
||
while :; do
|
||
killall -u vmail imapd;
|
||
RAND_WAIT=`numrandom .1..5i.1`
|
||
echo sleeping $RAND_WAIT
|
||
sleepenh $RAND_WAIT
|
||
done
|
||
EOF
|
||
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi
|
||
|
||
#--folder INBOX
|
||
#--debug --debugimap
|
||
}
|
||
|
||
|
||
|
||
ll_authmd5()
|
||
{
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--justlogin --authmd5 \
|
||
--allow3xx
|
||
}
|
||
|
||
ll_noauthmd5()
|
||
{
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--justfoldersizes --noauthmd5 \
|
||
--allow3xx
|
||
}
|
||
|
||
|
||
ll_maxage()
|
||
{
|
||
if can_send; then
|
||
#echo3 Here is plume
|
||
sendtestmessage
|
||
else
|
||
:
|
||
fi
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--maxage 1 \
|
||
--allow3xx
|
||
}
|
||
|
||
|
||
|
||
ll_maxsize()
|
||
{
|
||
|
||
if can_send; then
|
||
#echo3 Here is plume
|
||
sendtestmessage
|
||
else
|
||
:
|
||
fi
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--maxsize 10 \
|
||
--allow3xx
|
||
}
|
||
|
||
ll_skipsize()
|
||
{
|
||
|
||
if can_send; then
|
||
#echo3 Here is plume
|
||
sendtestmessage
|
||
else
|
||
:
|
||
fi
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--skipsize --folder INBOX.yop.yap \
|
||
--allow3xx
|
||
}
|
||
|
||
ll_skipheader()
|
||
{
|
||
if can_send; then
|
||
#echo3 Here is plume
|
||
sendtestmessage
|
||
else
|
||
:
|
||
fi
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--skipheader '^X-.*|^Date' --folder INBOX.yop.yap \
|
||
--allow3xx --debug
|
||
}
|
||
|
||
|
||
|
||
ll_include()
|
||
{
|
||
if can_send; then
|
||
#echo3 Here is plume
|
||
sendtestmessage
|
||
else
|
||
:
|
||
fi
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--include '^INBOX.yop' \
|
||
--allow3xx
|
||
}
|
||
|
||
ll_exclude()
|
||
{
|
||
if can_send; then
|
||
#echo3 Here is plume
|
||
sendtestmessage
|
||
else
|
||
:
|
||
fi
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--exclude '^INBOX.yop' \
|
||
--allow3xx
|
||
}
|
||
|
||
|
||
|
||
ll_regextrans2()
|
||
{
|
||
if can_send; then
|
||
#echo3 Here is plume
|
||
sendtestmessage
|
||
else
|
||
:
|
||
fi
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--justfolders \
|
||
--nofoldersize \
|
||
--regextrans2 's/yop/yoX/' \
|
||
--folder 'INBOX.yop.yap'
|
||
}
|
||
|
||
ll_regextrans2_slash()
|
||
{
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--justfolders \
|
||
--nofoldersize \
|
||
--folder 'INBOX.yop.yap' \
|
||
--sep1 '/' \
|
||
--regextrans2 's,/,_,'
|
||
|
||
}
|
||
|
||
|
||
ll_regextrans2_remove_space()
|
||
{
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--justfolders \
|
||
--nofoldersize \
|
||
--folder 'INBOX.yop.y p' \
|
||
--regextrans2 's, ,,' \
|
||
--dry
|
||
|
||
}
|
||
|
||
|
||
|
||
|
||
ll_sep2()
|
||
{
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--folder INBOX.yop.yap \
|
||
--sep2 '\\' --dry \
|
||
--allow3xx
|
||
}
|
||
|
||
ll_bad_login()
|
||
{
|
||
! $CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 toto \
|
||
--passfile1 ../../var/pass/secret.toto \
|
||
--host2 $HOST2 --user2 notiti \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--allow3xx
|
||
|
||
}
|
||
|
||
ll_bad_host()
|
||
{
|
||
! $CMD_PERL ./imapsync \
|
||
--host1 badhost --user1 toto \
|
||
--passfile1 ../../var/pass/secret.toto \
|
||
--host2 badhost --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--allow3xx
|
||
|
||
}
|
||
|
||
ll_bad_host_ssl()
|
||
{
|
||
! $CMD_PERL ./imapsync \
|
||
--host1 badhost --user1 toto \
|
||
--passfile1 ../../var/pass/secret.toto \
|
||
--host2 badhost --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--ssl1 --ssl2 \
|
||
--allow3xx
|
||
}
|
||
|
||
|
||
ll_justfoldersizes()
|
||
{
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--justfoldersizes \
|
||
--allow3xx
|
||
}
|
||
|
||
|
||
|
||
ll_useheader()
|
||
{
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--folder INBOX.yop.yap \
|
||
--useheader 'Message-ID' \
|
||
--dry --debug \
|
||
--allow3xx
|
||
echo 'rm /home/vmail/tata/.yop.yap/cur/*'
|
||
}
|
||
|
||
|
||
ll_regexmess()
|
||
{
|
||
if can_send; then
|
||
rm -f /home/vmail/titi/.yop.yap/cur/*
|
||
fi
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--folder INBOX.yop.yap \
|
||
--regexmess 's/\157/O/g' \
|
||
--regexmess 's/p/Z/g' \
|
||
--debug \
|
||
--allow3xx
|
||
|
||
if can_send; then
|
||
file=`ls -t /home/vmail/titi/.yop.yap/cur/* | tail -1`
|
||
diff ../../var/imapsync/tests/ll_regexmess/dest_01 $file
|
||
#echo 'rm -f /home/vmail/titi/.yop.yap/cur/*'
|
||
fi
|
||
}
|
||
|
||
ll_regexmess_scwchu()
|
||
{
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--folder INBOX.scwchu \
|
||
--regexmess 's{\A(.*?(?! ^$))^Date:(.*?)$}{$1Date:$2\nReceived: From; $2}gxms' \
|
||
--skipsize --skipheader 'Received: From;' \
|
||
--debug \
|
||
--allow3xx
|
||
echo 'rm /home/vmail/titi/.scwchu/cur/*'
|
||
}
|
||
|
||
|
||
ll_flags()
|
||
{
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--folder INBOX.yop.yap \
|
||
--debug
|
||
|
||
echo 'rm /home/vmail/titi/.yop.yap/cur/*'
|
||
}
|
||
|
||
ll_regex_flag()
|
||
{
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--folder INBOX.yop.yap \
|
||
--debug --regexflag 's/\\Answered/\\Seen/g'
|
||
|
||
echo 'rm -f /home/vmail/titi/.yop.yap/cur/*'
|
||
}
|
||
|
||
ll_regex_flag2()
|
||
{
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--folder INBOX.yop.yap \
|
||
--debug --regexflag s/\\\\Answered/\\\\Flagged/g
|
||
|
||
echo 'rm -f /home/vmail/titi/.yop.yap/cur/*'
|
||
}
|
||
|
||
|
||
ll_regex_flag3()
|
||
{
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--folder INBOX.yop.yap \
|
||
--debug --regexflag s/\\\\Answered//g
|
||
|
||
echo 'rm -f /home/vmail/titi/.yop.yap/cur/*'
|
||
}
|
||
|
||
ll_regex_flag_keep_only()
|
||
{
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--folder INBOX.yop.yap \
|
||
--debug \
|
||
--regexflag 's/(.*)/$1 jrdH8u/' \
|
||
--regexflag 's/.*?(\\Seen|\\Answered|\\Flagged|\\Deleted|\\Draft|jrdH8u)/$1 /g' \
|
||
--regexflag 's/(\\Seen|\\Answered|\\Flagged|\\Deleted|\\Draft|jrdH8u) (?!(\\Seen|\\Answered|\\Flagged|\\Deleted|\\Draft|jrdH8u)).*/$1 /g' \
|
||
--regexflag 's/jrdH8u *//'
|
||
|
||
echo 'rm -f /home/vmail/titi/.yop.yap/cur/*'
|
||
}
|
||
|
||
|
||
ll_tls_justconnect() {
|
||
$CMD_PERL ./imapsync \
|
||
--host1 l \
|
||
--host2 l \
|
||
--tls1 --tls2 \
|
||
--justconnect --debug
|
||
}
|
||
|
||
ll_tls_justlogin() {
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--tls1 --tls2 \
|
||
--justlogin --debug
|
||
}
|
||
|
||
|
||
|
||
ll_tls_devel() {
|
||
CMD_PERL='perl -I./Mail-IMAPClient-2.2.9' ll_justlogin ll_ssl_justlogin \
|
||
&& CMD_PERL='perl -I./Mail-IMAPClient-3.25/lib' ll_justlogin ll_ssl_justlogin \
|
||
&& CMD_PERL='perl -I./Mail-IMAPClient-2.2.9' ll_tls_justconnect ll_tls_justlogin \
|
||
&& CMD_PERL='perl -I./Mail-IMAPClient-3.25/lib' ll_tls_justconnect ll_tls_justlogin
|
||
}
|
||
|
||
ll_tls() {
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--tls1 --tls2
|
||
}
|
||
|
||
|
||
|
||
ll_ssl_justconnect() {
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 \
|
||
--host2 $HOST2 \
|
||
--ssl1 --ssl2 \
|
||
--justconnect
|
||
}
|
||
|
||
ll_ssl_justlogin() {
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--ssl1 --ssl2 \
|
||
--justlogin
|
||
}
|
||
|
||
|
||
ll_ssl() {
|
||
if can_send; then
|
||
#echo3 Here is plume
|
||
sendtestmessage
|
||
else
|
||
:
|
||
fi
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--ssl1 --ssl2 \
|
||
--allow3xx
|
||
}
|
||
|
||
ll_authmech_PLAIN() {
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--justfoldersizes --nofoldersizes \
|
||
--authmech1 PLAIN --authmech2 PLAIN \
|
||
--allow3xx
|
||
|
||
}
|
||
|
||
ll_authuser() {
|
||
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--justfoldersizes --nofoldersizes \
|
||
--authuser2 titi \
|
||
--allow3xx
|
||
}
|
||
|
||
|
||
|
||
|
||
ll_authmech_LOGIN() {
|
||
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--justfoldersizes --nofoldersizes \
|
||
--authmech1 LOGIN --authmech2 LOGIN \
|
||
--allow3xx
|
||
}
|
||
|
||
ll_authmech_CRAMMD5() {
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--justfoldersizes --nofoldersizes \
|
||
--authmech1 CRAM-MD5 --authmech2 CRAM-MD5 \
|
||
--allow3xx
|
||
}
|
||
|
||
ll_delete2() {
|
||
if can_send; then
|
||
sendtestmessage titi
|
||
else
|
||
:
|
||
fi
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--folder INBOX \
|
||
--delete2 --expunge2
|
||
}
|
||
|
||
ll_delete() {
|
||
if can_send; then
|
||
sendtestmessage titi
|
||
else
|
||
:
|
||
fi
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 titi \
|
||
--passfile1 ../../var/pass/secret.titi \
|
||
--host2 $HOST2 --user2 tata \
|
||
--passfile2 ../../var/pass/secret.tata \
|
||
--folder INBOX \
|
||
--delete --expunge
|
||
}
|
||
|
||
|
||
ll_bigmail() {
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--folder INBOX.bigmail \
|
||
--allow3xx
|
||
echo 'rm /home/vmail/titi/.bigmail/cur/*'
|
||
}
|
||
|
||
|
||
msw() {
|
||
if can_send; then
|
||
sendtestmessage toto
|
||
fi
|
||
scp imapsync test.bat \
|
||
../../var/pass/secret.toto \
|
||
../../var/pass/secret.titi \
|
||
../../var/pass/secret.tata \
|
||
Admin@c:'C:/msys/1.0/home/Admin/imapsync/'
|
||
|
||
ssh Admin@c 'C:/msys/1.0/home/Admin/imapsync/test.bat'
|
||
scp Admin@c:'C:/msys/1.0/home/Admin/imapsync/imapsync.exe' .
|
||
}
|
||
|
||
|
||
|
||
|
||
gmail() {
|
||
|
||
$CMD_PERL ./imapsync \
|
||
--allow3xx \
|
||
--host1 imap.gmail.com \
|
||
--ssl1 \
|
||
--user1 gilles.lamiral@gmail.com \
|
||
--passfile1 ../../var/pass/secret.gilles_gmail \
|
||
--host2 $HOST2 \
|
||
--ssl2 \
|
||
--user2 tata \
|
||
--passfile2 ../../var/pass/secret.tata \
|
||
--useheader 'Message-Id' --skipsize \
|
||
--regextrans2 's/\[Gmail\]/Gmail/' \
|
||
--authmech1 LOGIN \
|
||
--allowsizemismatch
|
||
#--dry # --debug --debugimap # --authmech1 LOGIN
|
||
|
||
}
|
||
|
||
gmail_gmail() {
|
||
|
||
$CMD_PERL ./imapsync \
|
||
--allow3xx \
|
||
--host1 imap.gmail.com \
|
||
--ssl1 \
|
||
--user1 gilles.lamiral@gmail.com \
|
||
--passfile1 ../../var/pass/secret.gilles_gmail \
|
||
--host2 imap.gmail.com \
|
||
--ssl2 \
|
||
--user2 gilles.lamiral@gmail.com \
|
||
--passfile2 ../../var/pass/secret.gilles_gmail \
|
||
--useheader 'Message-Id' --skipsize \
|
||
--regextrans2 's<>INBOX<4F>inbox_copy<70>' \
|
||
--folder INBOX \
|
||
--authmech1 LOGIN --authmech2 LOGIN \
|
||
--allowsizemismatch
|
||
#--dry # --debug --debugimap # --authmech1 LOGIN
|
||
|
||
}
|
||
|
||
gmail_gmail2() {
|
||
$CMD_PERL ./imapsync \
|
||
--allow3xx \
|
||
--host1 imap.gmail.com \
|
||
--ssl1 \
|
||
--user1 gilles.lamiral@gmail.com \
|
||
--passfile1 ../../var/pass/secret.gilles_gmail \
|
||
--host2 imap.gmail.com \
|
||
--ssl2 \
|
||
--user2 imapsync.gl@gmail.com \
|
||
--passfile2 ../../var/pass/secret.imapsync.gl_gmail \
|
||
--useheader 'Message-Id' --skipsize \
|
||
--folder INBOX \
|
||
--authmech1 LOGIN --authmech2 LOGIN \
|
||
--allowsizemismatch
|
||
#--dry # --debug --debugimap # --authmech1 LOGIN
|
||
|
||
}
|
||
|
||
|
||
allow3xx() {
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--allow3xx --justlogin
|
||
}
|
||
|
||
noallow3xx() {
|
||
! perl -I./Mail-IMAPClient-3.25/lib ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--noallow3xx --justlogin
|
||
}
|
||
|
||
|
||
archiveopteryx_1() {
|
||
if can_send; then
|
||
#echo3 Here is plume
|
||
sendtestmessage je@lupus.aox.org
|
||
else
|
||
:
|
||
fi
|
||
$CMD_PERL ./imapsync \
|
||
--host1 lupus.aox.org --user1 je \
|
||
--passfile1 ../../var/pass/secret.aox_je \
|
||
--host2 lupus.aox.org --user2 je \
|
||
--passfile2 ../../var/pass/secret.aox_je \
|
||
--folder INBOX --regextrans2 's/INBOX/copy/' \
|
||
--allow3xx
|
||
}
|
||
|
||
ll_justlogin() {
|
||
# Look in the file ../../var/pass/secret.tptp to see
|
||
# strange \ character behavior
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 titi \
|
||
--passfile2 ../../var/pass/secret.titi \
|
||
--allow3xx --justlogin --noauthmd5
|
||
}
|
||
|
||
ll_justlogin_backslash_char() {
|
||
# Look in the file ../../var/pass/secret.tptp to see
|
||
# strange \ character behavior
|
||
$CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 $HOST2 --user2 tptp@est.belle \
|
||
--passfile2 ../../var/pass/secret.tptp \
|
||
--allow3xx --justlogin --noauthmd5
|
||
}
|
||
|
||
|
||
##########################
|
||
# specific tests
|
||
##########################
|
||
|
||
big_transfert()
|
||
{
|
||
date1=`date`
|
||
{ $CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 gilles@est.belle \
|
||
--passfile1 ../../var/pass/secret.gilles_mbox \
|
||
--host2 $HOST2 --user2 tete@est.belle \
|
||
--passfile2 ../../var/pass/secret.tete \
|
||
--noauthmd5 \
|
||
--fast --folder INBOX.Junk \
|
||
--useheader Message-ID --useheader Received || \
|
||
true
|
||
}
|
||
date2=`date`
|
||
echo3 "[$date1] [$date2]"
|
||
}
|
||
|
||
big_transfert_sizes_only()
|
||
{
|
||
date1=`date`
|
||
{ $CMD_PERL ./imapsync \
|
||
--host1 $HOST1 --user1 gilles@est.belle \
|
||
--passfile1 ../../var/pass/secret.gilles_mbox \
|
||
--host2 $HOST2 --user2 tete@est.belle \
|
||
--passfile2 ../../var/pass/secret.tete \
|
||
--noauthmd5 \
|
||
--justfoldersizes --folder INBOX.Junk || \
|
||
true
|
||
}
|
||
date2=`date`
|
||
echo3 "[$date1] [$date2]"
|
||
}
|
||
|
||
|
||
|
||
dprof_justfoldersizes()
|
||
{
|
||
date1=`date`
|
||
{ $CMD_PERL -d:DProf ./imapsync \
|
||
--host1 $HOST1 --user1 gilles@est.belle \
|
||
--passfile1 ../../var/pass/secret.gilles_mbox \
|
||
--host2 $HOST2 --user2 tete@est.belle \
|
||
--passfile2 ../../var/pass/secret.tete \
|
||
--noauthmd5 \
|
||
--justfoldersizes --folder INBOX.Junk || \
|
||
true
|
||
}
|
||
date2=`date`
|
||
echo3 "[$date1] [$date2]"
|
||
mv tmon.out dprof_justfoldersizes_tmon.out
|
||
dprofpp -O 30 dprof_justfoldersizes_tmon.out
|
||
dprofpp -O 30 -I dprof_justfoldersizes_tmon.out
|
||
}
|
||
|
||
|
||
dprof_bigfolder()
|
||
{
|
||
date1=`date`
|
||
{ $CMD_PERL -d:DProf ./imapsync \
|
||
--host1 $HOST1 --user1 gilles@est.belle \
|
||
--passfile1 ../../var/pass/secret.gilles_mbox \
|
||
--host2 $HOST2 --user2 tete@est.belle \
|
||
--passfile2 ../../var/pass/secret.tete \
|
||
--noauthmd5 \
|
||
--nofoldersizes --folder INBOX.15_imapsync.imapsync-list || \
|
||
true
|
||
}
|
||
date2=`date`
|
||
echo3 "[$date1] [$date2]"
|
||
mv tmon.out dprof_bigfolder_tmon.out
|
||
dprofpp -O 30 dprof_bigfolder_tmon.out
|
||
dprofpp -O 30 -I dprof_bigfolder_tmon.out
|
||
}
|
||
|
||
|
||
|
||
|
||
essnet_justconnect()
|
||
{
|
||
./imapsync \
|
||
--host1 mail2.softwareuno.com \
|
||
--user1 gilles@mail2.softwareuno.com \
|
||
--passfile1 ../../var/pass/secret.prw \
|
||
--host2 mail.softwareuno.com \
|
||
--user2 gilles@softwareuno.com \
|
||
--passfile2 ../../var/pass/secret.prw \
|
||
--dry --noauthmd5 --sep1 / --foldersizes --justconnect
|
||
}
|
||
|
||
essnet_mail2_mail()
|
||
{
|
||
./imapsync \
|
||
--host1 mail2.softwareuno.com \
|
||
--user1 gilles@mail2.softwareuno.com \
|
||
--passfile1 ../../var/pass/secret.prw \
|
||
--host2 mail.softwareuno.com \
|
||
--user2 gilles@softwareuno.com \
|
||
--passfile2 ../../var/pass/secret.prw \
|
||
--noauthmd5 --sep1 / --foldersizes \
|
||
--prefix2 "INBOX/" --regextrans2 's<>INBOX/INBOX<4F>INBOX<4F>'
|
||
}
|
||
|
||
essnet_mail2_mail_t123()
|
||
{
|
||
|
||
for user1 in test1 test2 test3; do
|
||
./imapsync \
|
||
--host1 mail2.softwareuno.com \
|
||
--user1 ${user1}@mail2.softwareuno.com \
|
||
--passfile1 ../../var/pass/secret.prw \
|
||
--host2 mail.softwareuno.com \
|
||
--user2 gilles@softwareuno.com \
|
||
--passfile2 ../../var/pass/secret.prw \
|
||
--noauthmd5 --sep1 / --foldersizes \
|
||
--prefix2 "INBOX/" --regextrans2 's<>INBOX/INBOX<4F>INBOX<4F>' \
|
||
--debug \
|
||
|| true
|
||
done
|
||
}
|
||
|
||
|
||
essnet_plume2()
|
||
{
|
||
./imapsync \
|
||
--host1 mail2.softwareuno.com \
|
||
--user1 gilles@mail2.softwareuno.com \
|
||
--passfile1 ../../var/pass/secret.prw \
|
||
--host2 plume --user2 tata \
|
||
--passfile2 ../../var/pass/secret.tata \
|
||
--noauthmd5 --sep1 / --foldersizes \
|
||
--prefix2 INBOX. --regextrans2 's<>INBOX.INBOX<4F>INBOX<4F>'
|
||
}
|
||
|
||
dynamicquest_1()
|
||
{
|
||
|
||
perl -I bugs/lib ./imapsync \
|
||
--host1 69.38.48.81 \
|
||
--user1 testuser1@dq.com \
|
||
--passfile1 ../../var/pass/secret.dynamicquest \
|
||
--host2 69.38.48.81 \
|
||
--user2 testuser2@dq.com \
|
||
--passfile2 ../../var/pass/secret.dynamicquest \
|
||
--noauthmd5 --sep1 "/" --sep2 "/" \
|
||
--justconnect --dry
|
||
}
|
||
|
||
dynamicquest_2()
|
||
{
|
||
|
||
perl -I bugs/lib ./imapsync \
|
||
--host1 mail.dynamicquest.com \
|
||
--user1 gomez \
|
||
--passfile1 ../../var/pass/secret.dynamicquestgomez \
|
||
--host2 69.38.48.81 \
|
||
--user2 testuser2@dq.com \
|
||
--passfile2 ../../var/pass/secret.dynamicquest \
|
||
--noauthmd5 \
|
||
--justconnect --dry
|
||
}
|
||
|
||
dynamicquest_3()
|
||
{
|
||
|
||
perl -I bugs/lib ./imapsync \
|
||
--host1 loul \
|
||
--user1 tata \
|
||
--passfile1 ../../var/pass/secret.tata \
|
||
--host2 69.38.48.81 \
|
||
--user2 testuser2@dq.com \
|
||
--passfile2 ../../var/pass/secret.dynamicquest \
|
||
--noauthmd5 --sep2 "/" --debug --debugimap
|
||
|
||
}
|
||
|
||
mailenable() {
|
||
./imapsync \
|
||
--user1 imapsync@damashekconsulting.com \
|
||
--host1 imap.damashekconsulting.com \
|
||
--passfile1 ../../var/pass/secret.damashek \
|
||
--sep1 "." --prefix1 "" \
|
||
--host2 $HOST2 --user2 toto \
|
||
--passfile2 ../../var/pass/secret.toto \
|
||
--noauthmd5
|
||
}
|
||
|
||
ariasolutions() {
|
||
./imapsync \
|
||
--host1 209.17.174.20 \
|
||
--user1 chrisw@canadapack.com \
|
||
--passfile1 ../../var/pass/secret.ariasolutions \
|
||
--host2 209.17.174.20 \
|
||
--user2 chrisw@canadapack.com \
|
||
--passfile2 ../../var/pass/secret.ariasolutions \
|
||
--dry --noauthmd5 --justfoldersizes
|
||
|
||
./imapsync \
|
||
--host1 209.17.174.20 \
|
||
--user1 test@domain.local \
|
||
--passfile1 ../../var/pass/secret.ariasolutions \
|
||
--host2 209.17.174.20 \
|
||
--user2 test@domain.local \
|
||
--passfile2 ../../var/pass/secret.ariasolutions \
|
||
--dry --noauthmd5 --ssl1
|
||
|
||
# hang after auth failure
|
||
./imapsync \
|
||
--host1 209.17.174.20 \
|
||
--user1 test@domain.local \
|
||
--passfile1 ../../var/pass/secret.ariasolutions \
|
||
--host2 209.17.174.20 \
|
||
--user2 test@domain.local \
|
||
--passfile2 ../../var/pass/secret.ariasolutions \
|
||
--dry --debug --debugimap
|
||
|
||
}
|
||
|
||
|
||
ariasolutions2() {
|
||
./imapsync \
|
||
--host1 209.17.174.12 \
|
||
--user1 chrisw@basebuilding.net \
|
||
--passfile1 ../../var/pass/secret.ariasolutions2 \
|
||
--host2 209.17.174.20 \
|
||
--user2 chrisw@basebuilding.net\
|
||
--passfile2 ../../var/pass/secret.ariasolutions2 \
|
||
--noauthmd5 --syncinternaldates
|
||
# --dry --debug --debugimap
|
||
|
||
|
||
}
|
||
|
||
genomics() {
|
||
|
||
# Blocked, timeout ignored
|
||
./imapsync \
|
||
--host1 mail.genomics.org.cn --user1 lamiral --passfile1 ../../var/pass/secret.genomics \
|
||
--host2 szmail.genomics.cn --user2 lamiral --passfile2 ../../var/pass/secret.genomics \
|
||
--sep1 . --prefix1 'INBOX.' --folder INBOX --useheader 'Message-Id' --expunge --skipsize \
|
||
--timeout 7 --debug --debugimap
|
||
|
||
}
|
||
##########################
|
||
##########################
|
||
|
||
# Tests list
|
||
|
||
mandatory_tests='
|
||
no_args
|
||
option_version
|
||
option_tests
|
||
option_bad_delete2
|
||
passwords_masked
|
||
first_sync_dry
|
||
first_sync
|
||
locallocal
|
||
ll_pidfile
|
||
ll_ask_password
|
||
ll_bug_folder_name_with_blank
|
||
ll_timeout
|
||
ll_folder
|
||
ll_buffersize
|
||
ll_justfolders
|
||
ll_prefix12
|
||
ll_nosyncinternaldates
|
||
ll_idatefromheader
|
||
ll_folder_rev
|
||
ll_subscribed
|
||
ll_subscribe
|
||
ll_justfoldersizes
|
||
ll_authmd5
|
||
ll_noauthmd5
|
||
ll_maxage
|
||
ll_maxsize
|
||
ll_skipsize
|
||
ll_skipheader
|
||
ll_include
|
||
ll_exclude
|
||
ll_regextrans2
|
||
ll_sep2
|
||
ll_bad_login
|
||
ll_bad_host
|
||
ll_bad_host_ssl
|
||
ll_justfoldersizes
|
||
ll_useheader
|
||
ll_regexmess
|
||
ll_regexmess_scwchu
|
||
ll_flags
|
||
ll_regex_flag
|
||
ll_regex_flag_keep_only
|
||
ll_justconnect
|
||
ll_justlogin
|
||
ll_ssl
|
||
ll_ssl_justconnect
|
||
ll_ssl_justlogin
|
||
ll_tls_justconnect
|
||
ll_tls_justlogin
|
||
ll_tls
|
||
ll_authmech_PLAIN
|
||
ll_authmech_LOGIN
|
||
ll_authmech_CRAMMD5
|
||
ll_authuser
|
||
ll_delete2
|
||
ll_delete
|
||
ll_folderrec
|
||
ll_bigmail
|
||
gmail
|
||
gmail_gmail
|
||
gmail_gmail2
|
||
archiveopteryx_1
|
||
allow3xx
|
||
noallow3xx'
|
||
|
||
other_tests='
|
||
msw
|
||
ll_justlogin_backslash_char'
|
||
|
||
l() {
|
||
echo "$mandatory_tests" "$other_tests"
|
||
}
|
||
|
||
# mandatory tests
|
||
|
||
run_tests perl_syntax
|
||
|
||
# All tests
|
||
|
||
test $# -eq 0 && run_tests $mandatory_tests
|
||
|
||
|
||
# selective tests
|
||
|
||
test $# -gt 0 && run_tests "$@"
|
||
|
||
# If there, all is good
|
||
|
||
echo3 ALL $test_count TESTS SUCCESSFUL
|
||
|