mirror of
https://github.com/imapsync/imapsync.git
synced 2024-11-16 15:52:47 +01:00
6329 lines
189 KiB
Bash
6329 lines
189 KiB
Bash
#!/bin/sh
|
|
|
|
# $Id: tests.sh,v 1.353 2020/01/02 23:48:18 gilles Exp gilles $
|
|
|
|
# general tests start
|
|
# general tests end
|
|
|
|
# Example 1:
|
|
# CMD_PERL='perl -I./W/Mail-IMAPClient-3.39/lib' sh -x tests.sh
|
|
|
|
# Example 2:
|
|
# To select which Mail-IMAPClient within arguments:
|
|
# sh -x tests.sh 2 ll 3 ll
|
|
# This runs ll() with Mail-IMAPClient-2.2.9 then
|
|
# again with Mail-IMAPClient-3.xx
|
|
# 2 means "use Mail-IMAPClient-2.2.9"
|
|
# 3 means "use Mail-IMAPClient-3.xx"
|
|
|
|
|
|
HOST1=${HOST1:-'localhost'}
|
|
echo HOST1=$HOST1
|
|
HOST2=${HOST2:-'localhost'}
|
|
echo HOST2=$HOST2
|
|
|
|
# most tests use:
|
|
|
|
# few debugging tests use:
|
|
CMD_PERL_3xx='perl -I./W/Mail-IMAPClient-3.42/lib'
|
|
|
|
CMD_PERL=${CMD_PERL:-$CMD_PERL_3xx}
|
|
|
|
#echo $CMD_PERL
|
|
#exit
|
|
|
|
#### 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
|
|
}
|
|
|
|
echolog() {
|
|
echo "`date_ymdhms` : $@" >> W/.tests.errors.txt
|
|
echo3 Last errors listed in W/.tests.errors.txt
|
|
}
|
|
|
|
run_test() {
|
|
echo3 "#### $tests_count $1"
|
|
setxon
|
|
# do not run anything between the two following instructions
|
|
$1; run_test_status=$?
|
|
# now you can run
|
|
setxback 2> /dev/null
|
|
if test x"$run_test_status" = x"0"; then
|
|
echo "$1 passed"
|
|
else
|
|
echo3 "$1 failed"
|
|
fi
|
|
return $run_test_status
|
|
}
|
|
|
|
setxon() {
|
|
if ! { echo $-|grep x ; } ; then
|
|
#echo 'set -x was off'
|
|
setx_restore_cmd='set +x'
|
|
set -x
|
|
else
|
|
echo 'set -x already on'
|
|
setx_restore_cmd=""
|
|
fi
|
|
}
|
|
|
|
setxback() {
|
|
$setx_restore_cmd
|
|
}
|
|
|
|
run_tests() {
|
|
for t in "$@"; do
|
|
test X"$t" = X3 && CMD_PERL=$CMD_PERL_3xx && continue
|
|
tests_count=`expr 1 + $tests_count`
|
|
#
|
|
if ! run_test "$t"; then
|
|
tests_failed_count=`expr 1 + $tests_failed_count`
|
|
tests_failed_list="$tests_failed_list $t"
|
|
fi
|
|
sleep 0
|
|
done
|
|
if test 0 -eq $tests_failed_count; then
|
|
echo3 "ALL $tests_count TESTS SUCCESSFUL"
|
|
echolog "ALL $tests_count TESTS SUCCESSFUL"
|
|
return 0
|
|
else
|
|
# At least one failed
|
|
echo3 "FAILED $tests_failed_count/$tests_count TESTS: $tests_failed_list"
|
|
echolog "FAILED $tests_failed_count/$tests_count TESTS: $tests_failed_list"
|
|
return 1
|
|
fi
|
|
}
|
|
|
|
|
|
#### Variable definitions
|
|
|
|
tests_count=0
|
|
tests_failed_count=0
|
|
|
|
##### The tests functions
|
|
|
|
perl_syntax() {
|
|
$CMD_PERL -c ./imapsync
|
|
}
|
|
|
|
|
|
no_args() {
|
|
$CMD_PERL ./imapsync
|
|
}
|
|
|
|
# list of accounts on petite :
|
|
|
|
# mailboxes toto -> titi used on first_sync()
|
|
|
|
# mailboxes tata -> titi used on ll()
|
|
# mailboxes tata -> titi on most ll_*() tests
|
|
|
|
# mailbox tete@est.belle used on big size tests:
|
|
# huge_folder()
|
|
# huge_folder_sizes_only()
|
|
# dprof()
|
|
|
|
# mailbox big1 big2 used on bigmail tests
|
|
# ll_bigmail()
|
|
# ll_memory_consumption
|
|
|
|
# mailboxes toto -> delme -> delme used on ll_delself
|
|
|
|
sendtestmessage() {
|
|
email=${1:-"tata"}
|
|
rand=${2:-"`pwgen 16 1`"}
|
|
mess='test: '"$rand"
|
|
cmd="echo $mess""| mail -s '""$mess""' $email"
|
|
echo $cmd
|
|
eval "$cmd"
|
|
}
|
|
|
|
sendtestmessage_titi() {
|
|
email=${1:-"titi"}
|
|
rand=${2:-"`pwgen 16 1`"}
|
|
mess='test: '"$rand"
|
|
cmd="echo $mess""| mail -s '""$mess""' $email"
|
|
echo $cmd
|
|
eval "$cmd"
|
|
}
|
|
|
|
|
|
can_send() {
|
|
|
|
# no send at all
|
|
return 1
|
|
|
|
test X`hostname` = X"petite" && return 0;
|
|
test X`hostname` = X"plume" && return 0;
|
|
test X`hostname` = X"vadrouille" && return 0;
|
|
return 1
|
|
}
|
|
|
|
at_home() {
|
|
test X`hostname` = X"petite" && return 0;
|
|
return 1
|
|
}
|
|
|
|
|
|
zzzz() {
|
|
$CMD_PERL -V
|
|
|
|
}
|
|
|
|
set_return_code_variables()
|
|
{
|
|
# Copy from imapsync
|
|
EX_OK=0 #/* successful termination */
|
|
EX_USAGE=64 #/* command line usage error */
|
|
EX_NOINPUT=66 #/* cannot open input */
|
|
EX_UNAVAILABLE=69 #/* service unavailable */
|
|
EX_SOFTWARE=70 #/* internal software error */
|
|
|
|
EXIT_CATCH_ALL=1 # Any other error
|
|
|
|
EXIT_BY_SIGNAL=6
|
|
EXIT_PID_FILE_ERROR=8
|
|
|
|
EXIT_CONNECTION_FAILURE=10
|
|
EXIT_TLS_FAILURE=12
|
|
EXIT_AUTHENTICATION_FAILURE=16
|
|
EXIT_SUBFOLDER1_NO_EXISTS=21
|
|
|
|
EXIT_WITH_ERRORS=111
|
|
EXIT_WITH_ERRORS_MAX=112
|
|
EXIT_TESTS_FAILED=254 # Like Test::More API
|
|
}
|
|
|
|
# general tests start
|
|
|
|
option_version() {
|
|
$CMD_PERL ./imapsync --version
|
|
}
|
|
|
|
|
|
option_tests() {
|
|
$CMD_PERL ./imapsync --tests
|
|
}
|
|
|
|
option_tests_in_var_tmp_sub() {
|
|
(
|
|
mkdir -p /var/tmp/imapsync_tests
|
|
cd /var/tmp/imapsync_tests
|
|
/g/public_html/imapsync/i3 --tests
|
|
)
|
|
}
|
|
|
|
option_tests_in_var_tmp() {
|
|
(
|
|
cd /var/tmp/
|
|
/g/public_html/imapsync/i3 --tests
|
|
)
|
|
}
|
|
|
|
option_testsdebug() {
|
|
$CMD_PERL ./imapsync --testsdebug
|
|
}
|
|
|
|
option_releasecheck() {
|
|
$CMD_PERL ./imapsync --help --releasecheck | egrep 'This imapsync.*local.*official'
|
|
}
|
|
|
|
option_noreleasecheck() {
|
|
! { $CMD_PERL ./imapsync --help --noreleasecheck | egrep 'This imapsync.*local.*official' ; }
|
|
}
|
|
|
|
|
|
option_bad_delete2() {
|
|
$CMD_PERL ./imapsync --delete 2 --blabla
|
|
test "$?" = "$EX_USAGE"
|
|
}
|
|
|
|
option_extra_arguments() {
|
|
$CMD_PERL ./imapsync --testslive blabla
|
|
test "$?" = "$EX_USAGE"
|
|
}
|
|
|
|
passwords_masked() {
|
|
$CMD_PERL ./imapsync --host1 boumboum --password1 secret --justbanner | grep MASKED
|
|
}
|
|
|
|
passwords_not_masked() {
|
|
$CMD_PERL ./imapsync --host1 boumboum --password1 secret --justbanner --showpasswords| grep secret
|
|
}
|
|
|
|
passwords_dollar() {
|
|
$CMD_PERL ./imapsync --host1 boumboum --user1 ee --password1 '$secret' --host2 boumboum --user2 ee --password2 '$secret' --showpasswords
|
|
}
|
|
|
|
passwords_parenthese() {
|
|
#$CMD_PERL ./imapsync --host1 $HOST1 --user1 ee --password1 '( secret' --host2 $HOST2 --user2 ee --password2 '(secret' --showpasswords --debugimap1
|
|
$CMD_PERL ./imapsync --host1 $HOST1 --user1 ee --password1 'secret )' --host2 $HOST2 --user2 ee --password2 '(secret' --showpasswords --debugimap1
|
|
}
|
|
|
|
passfile1_noexist() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 /noexists \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi
|
|
test "$?" = "$EX_NOINPUT"
|
|
}
|
|
|
|
passfile2_noexist() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 /noexists
|
|
test "$?" = "$EX_NOINPUT"
|
|
}
|
|
|
|
ll_showpasswords() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--password1 'ami\"seen' \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justlogin --showpasswords --debugimap1
|
|
}
|
|
|
|
ll_authentication_failure() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--password1 wrong \
|
|
--host2 $HOST2 --user2 titi \
|
|
--password2 wrong
|
|
test "$?" = "$EXIT_AUTHENTICATION_FAILURE"
|
|
}
|
|
|
|
ll_justhost1()
|
|
{
|
|
$CMD_PERL ./imapsync --host1 $HOST2
|
|
}
|
|
|
|
ll_justhost2()
|
|
{
|
|
$CMD_PERL ./imapsync --host2 $HOST2
|
|
}
|
|
|
|
|
|
# In mandatory_tests
|
|
testslive() {
|
|
$CMD_PERL ./imapsync --testslive
|
|
}
|
|
|
|
# In mandatory_tests
|
|
testslive6() {
|
|
$CMD_PERL ./imapsync --testslive6
|
|
}
|
|
|
|
|
|
first_sync_dry() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 toto \
|
|
--passfile1 ../../var/pass/secret.toto \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--dry
|
|
}
|
|
|
|
first_sync() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 toto \
|
|
--passfile1 ../../var/pass/secret.toto \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi
|
|
}
|
|
|
|
|
|
ll() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi
|
|
}
|
|
|
|
ll_INBOX() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX
|
|
}
|
|
|
|
ll_skipcrossduplicates() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--skipcrossduplicates --debugcrossduplicates
|
|
}
|
|
|
|
|
|
|
|
ll_append_debugimap() {
|
|
sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX --maxage 1 --debugimap1 --nofoldersizes
|
|
}
|
|
|
|
|
|
ll_diff() {
|
|
# sendtestmessage
|
|
CMD_IMAPSYNC=./imapsync_old ll_tee LOG_imapsync/ll_diff_1.txt
|
|
# sendtestmessage
|
|
CMD_IMAPSYNC=./imapsync ll_tee LOG_imapsync/ll_diff_2.txt
|
|
|
|
diff LOG_imapsync/ll_diff_1.txt LOG_imapsync/ll_diff_2.txt
|
|
}
|
|
|
|
|
|
ll_tee() {
|
|
logfile=${1:-"LOG_imapsync/ll_tee.txt"}
|
|
$CMD_PERL $CMD_IMAPSYNC \
|
|
--host1 $HOST1 --user1 tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.few_emails --password1 wrong | tee $logfile
|
|
# --passfile1 ../../var/pass/secret.tata \
|
|
}
|
|
|
|
ll_minsize() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--minsize 1000000 --folder INBOX
|
|
}
|
|
|
|
ll_search_larger() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--search 'LARGER 1000' --folder INBOX
|
|
}
|
|
|
|
|
|
ll_maxsize() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--maxsize 1000 --folder INBOX
|
|
}
|
|
|
|
ll_search_smaller() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--search 'SMALLER 1000' --folder INBOX
|
|
}
|
|
|
|
kk_simulong() {
|
|
$CMD_PERL ./imapsync \
|
|
--testslive --simulong 30
|
|
}
|
|
|
|
# In mandatory_tests
|
|
ll_sigreconnect_INT() {
|
|
( $CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--sigreconnect INT --simulong 30 \
|
|
--pidfile /tmp/imapsync_tests_ll_sigreconnect_INT.pid
|
|
echo status code when killing itself: $? # status code when killing itself?
|
|
) &
|
|
echo ; sleep 2; echo ;
|
|
kill -INT `head -1 /tmp/imapsync_tests_ll_sigreconnect_INT.pid`
|
|
echo ; sleep 3; echo ;
|
|
kill -INT `head -1 /tmp/imapsync_tests_ll_sigreconnect_INT.pid`
|
|
echo ; sleep 3; echo ;
|
|
kill -INT `head -1 /tmp/imapsync_tests_ll_sigreconnect_INT.pid`
|
|
sleepenh 0.1
|
|
kill -INT `head -1 /tmp/imapsync_tests_ll_sigreconnect_INT.pid`
|
|
wait
|
|
}
|
|
|
|
ll_sigreconnect_CACA() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--sigreconnect CACA --simulong 30
|
|
}
|
|
|
|
ll_sigreconnect_none() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--sigreconnect '' --simulong 30
|
|
}
|
|
|
|
ll_sigignore_INT() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--sigignore 'INT' --simulong 10
|
|
}
|
|
|
|
ll_sigignore_TERM() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--sigignore 'TERM' --simulong 10
|
|
}
|
|
|
|
# ABORT tests
|
|
|
|
# In mandatory_tests
|
|
ll_abort_pidfile_no_exist() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--abort --pidfile /noexist \
|
|
| grep 'Can not read pidfile /noexist. Exiting.'
|
|
}
|
|
|
|
# In mandatory_tests
|
|
ll_abort_noprocess() {
|
|
echo 999999 > /tmp/imapsync_fake.pid
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--abort --pidfile /tmp/imapsync_fake.pid \
|
|
| grep 'Can not send signal kill ZERO to PID 999999.'
|
|
}
|
|
|
|
# In mandatory_tests
|
|
ll_abort() { # send QUIT signal
|
|
rm -f LOG_imapsync/imapsync_abortme.log
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--pidfile /tmp/imapsync_abortme.pid \
|
|
--logfile imapsync_abortme.log --simulong 4 &
|
|
|
|
sleep 2
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--abort --pidfile /tmp/imapsync_abortme.pid \
|
|
--logfile imapsync_aborter.log \
|
|
| egrep 'Process PID .* ended.' \
|
|
|| { echo 'Look into LOG_imapsync/imapsync_aborter.log' ; return 1 ; }
|
|
|
|
|
|
grep 'Killing myself with signal QUIT' LOG_imapsync/imapsync_abortme.log
|
|
}
|
|
|
|
|
|
|
|
# In mandatory_tests
|
|
ll_abort_cgi_context_tail() {
|
|
rm -f LOG_imapsync/imapsync_abortme.log
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--pidfile /tmp/imapsync_abortme_cgi_context.pid --pidfilelocking --tail \
|
|
--logfile imapsync_abortme_cgi_context.log --simulong 4 &
|
|
|
|
sleep 2
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--abort --pidfile /tmp/imapsync_abortme_cgi_context.pid --pidfilelocking --tail \
|
|
| egrep 'Process PID .* ended.' || return 1
|
|
|
|
grep 'Killing myself with signal QUIT' LOG_imapsync/imapsync_abortme_cgi_context.log
|
|
}
|
|
|
|
# In mandatory_tests
|
|
ll_abort_no_pidfile_option() {
|
|
rm -f LOG_imapsync/imapsync_abortme.log
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--logfile imapsync_abortme_no_pidfile_option.log --simulong 4 &
|
|
|
|
sleep 2
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--abort \
|
|
| egrep 'Process PID .* ended.' || return 1
|
|
|
|
grep 'Killing myself with signal QUIT' LOG_imapsync/imapsync_abortme_no_pidfile_option.log
|
|
}
|
|
|
|
|
|
abort_tests()
|
|
{
|
|
ll_abort_pidfile_no_exist \
|
|
&& ll_abort_noprocess \
|
|
&& ll_abort \
|
|
&& ll_abort_cgi_context_tail \
|
|
&& ll_abort_no_pidfile_option
|
|
}
|
|
|
|
ll_nouid1() {
|
|
can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--nouid1 --folder INBOX # --debugimap1
|
|
}
|
|
|
|
|
|
|
|
ll_eta() {
|
|
can_send && sendtestmessage
|
|
can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX
|
|
}
|
|
|
|
ll_final_diff() {
|
|
can_send && sendtestmessage
|
|
can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX --f1f2 INBOX=INBOX.final_diff --maxage 30
|
|
}
|
|
|
|
ll_with_errors() {
|
|
can_send && sendtestmessage
|
|
can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX --maxage 30 \
|
|
--regexflag 's/.*/PasGlop \\PasGlopRe/'
|
|
}
|
|
|
|
|
|
|
|
ll_errors() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--nofoldersizes --folder INBOX.errors --regexflag 's/.*/PasGlop \\PasGlopRe/' --errorsmax 5 --delete2
|
|
#--pipemess 'grep lalalala' --nopipemesscheck --dry --debugcontent --debugflags
|
|
}
|
|
|
|
ll_debug()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--debug
|
|
}
|
|
|
|
ll_debugcontent() {
|
|
can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--debugcontent --maxage 1 --folder INBOX --dry
|
|
}
|
|
|
|
|
|
ll_debugmemory() {
|
|
sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--debugmemory --nofoldersizes --folder INBOX
|
|
}
|
|
|
|
ll_justfolderlists()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--checkselectable --justfolderlists
|
|
}
|
|
|
|
|
|
ll_checkselectable()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--checkselectable --debugimap1 --justfolderlists \
|
|
| grep 'is selectable'
|
|
}
|
|
|
|
ll_nocheckselectable()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--nocheckselectable --justfolderlists \
|
|
| grep 'Not checking that wanted folders are selectable'
|
|
}
|
|
|
|
ll_checkfoldersexist()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--checkfoldersexist --debug --justfolderlists \
|
|
| grep -i 'checking'
|
|
}
|
|
|
|
ll_nocheckfoldersexist()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--nocheckfoldersexist --justfolderlists \
|
|
| grep -i 'Not checking that wanted folders exist'
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
ll_nofoldersizes()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--nofoldersizes --folder INBOX
|
|
}
|
|
|
|
ll_nofoldersizes_foldersizesatend()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--nofoldersizes --foldersizesatend --folder INBOX
|
|
}
|
|
|
|
|
|
pidfile_well_removed() {
|
|
$CMD_PERL ./imapsync \
|
|
--justbanner \
|
|
--pidfile /var/tmp/imapsync.pid
|
|
test "$?" = "$EX_OK" || return 1
|
|
! test -f /var/tmp/imapsync.pid
|
|
}
|
|
|
|
pidfile_bad() {
|
|
$CMD_PERL ./imapsync \
|
|
--justbanner \
|
|
--pidfile /var/tmp/noexist/imapsync.pid
|
|
test "$?" = "$EXIT_PID_FILE_ERROR"
|
|
}
|
|
|
|
test_tail() {
|
|
$CMD_PERL ./imapsync \
|
|
--justbanner --simulong 15 \
|
|
--pidfile /var/tmp/imapsync_tail_tests.pid \
|
|
--pidfilelocking &
|
|
|
|
sleep 1
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--justbanner \
|
|
--pidfile /var/tmp/imapsync_tail_tests.pid \
|
|
--pidfilelocking --tail
|
|
|
|
}
|
|
|
|
ll_pidfilelocking() {
|
|
rm -f /var/tmp/imapsync_test_pidfilelocking.pid
|
|
|
|
echo ll_pidfilelocking 01 lockfile is not previously there
|
|
$CMD_PERL ./imapsync --justbanner \
|
|
--pidfile /var/tmp/imapsync_test_pidfilelocking.pid \
|
|
--pidfilelocking || return 1
|
|
|
|
echo ll_pidfilelocking 02 lockfile normally removed
|
|
! test -f /var/tmp/imapsync_test_pidfilelocking.pid || return 1
|
|
|
|
echo ll_pidfilelocking 03 lockfile created before
|
|
touch /var/tmp/imapsync_test_pidfilelocking.pid || return 1
|
|
|
|
echo ll_pidfilelocking 04 lockfile already there but not with a PID number
|
|
! $CMD_PERL ./imapsync --justbanner \
|
|
--pidfile /var/tmp/imapsync_test_pidfilelocking.pid \
|
|
--pidfilelocking || return 1
|
|
|
|
echo ll_pidfilelocking 05 lockfile still there
|
|
test -f /var/tmp/imapsync_test_pidfilelocking.pid || return 1
|
|
|
|
echo ll_pidfilelocking 06 filling lockfile with 33333
|
|
echo 33333 > /var/tmp/imapsync_test_pidfilelocking.pid
|
|
|
|
echo ll_pidfilelocking 07 lockfile already there with fake PID in it, imapsync will remove it and generate a new one.
|
|
$CMD_PERL ./imapsync --justbanner \
|
|
--pidfile /var/tmp/imapsync_test_pidfilelocking.pid \
|
|
--pidfilelocking || return 1
|
|
|
|
echo ll_pidfilelocking 08 lockfile should be removed now
|
|
! test -f /var/tmp/imapsync_test_pidfilelocking.pid || return 1
|
|
}
|
|
|
|
|
|
justbanner() {
|
|
$CMD_PERL ./imapsync \
|
|
--justbanner
|
|
}
|
|
|
|
nomodules_version() {
|
|
$CMD_PERL ./imapsync \
|
|
--justbanner \
|
|
--nomodules_version
|
|
}
|
|
|
|
|
|
ll_ask_password() {
|
|
{
|
|
sleep 2; cat ../../var/pass/secret.tata;
|
|
sleep 2; cat ../../var/pass/secret.titi;
|
|
} | \
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--justlogin
|
|
}
|
|
|
|
ll_env_password() {
|
|
set +x
|
|
IMAPSYNC_PASSWORD1=`cat ../../var/pass/secret.tata` \
|
|
IMAPSYNC_PASSWORD2=`cat ../../var/pass/secret.titi` \
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--host2 $HOST2 --user2 titi --passfile2 ../../var/pass/secret.titi \
|
|
--justlogin
|
|
}
|
|
|
|
|
|
ll_authmech_PREAUTH() {
|
|
# No PREAUTH on my box
|
|
! $CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata --authmech1 PREAUTH \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justlogin
|
|
}
|
|
|
|
|
|
ll_unknow_option() {
|
|
! $CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX --unknow_option
|
|
}
|
|
|
|
|
|
|
|
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 3 --justlogin
|
|
}
|
|
|
|
ll_timeout1_timeout2() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX --timeout1 4 --timeout2 5 --justlogin
|
|
}
|
|
|
|
ll_timeout_timeout1() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX --timeout1 5 --timeout 4 --justlogin
|
|
}
|
|
|
|
|
|
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
|
|
}
|
|
|
|
|
|
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
|
|
}
|
|
|
|
ll_backstar() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder 'INBOX.backstar\*' --dry --justfolders --debugimap1 --regextrans2 's#\\|\*#_#g'
|
|
}
|
|
|
|
ll_star() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder 'INBOX.backstar\*' --dry --justfolders --regextrans2 's,\*,_,g'
|
|
}
|
|
|
|
ll_tr() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--dry --justfolders --regextrans2 'tr/a/_/'
|
|
}
|
|
|
|
ll_regextrans2_d() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--dry --justfolders --regextrans2 's,INBOX\.,,'
|
|
}
|
|
|
|
|
|
lks_trailing_space() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 ks.lamiral.info --user2 tata \
|
|
--passfile2 ../../var/pass/secret.tata \
|
|
--justfolders --ssl1 --ssl2
|
|
}
|
|
|
|
|
|
lks_doublequote() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 ks.lamiral.info --user2 tata \
|
|
--passfile2 ../../var/pass/secret.tata \
|
|
--folder 'INBOX."uni"' --debugimap2 --nofoldersizes --justfolders --ssl1 --ssl2
|
|
}
|
|
|
|
lks_doublequote_rev() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 ks.lamiral.info --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 tata \
|
|
--passfile2 ../../var/pass/secret.tata \
|
|
--foldersizes --ssl1 --ssl2 --justfolders
|
|
}
|
|
|
|
ksks_password_doublequote() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 ks.lamiral.info --user1 test1 \
|
|
--password1 'secret1' \
|
|
--host2 ks.lamiral.info --user2 test1 \
|
|
--password2 '"secret1"' \
|
|
--debugimap --justlogin --showpasswords
|
|
}
|
|
|
|
ksks_empty_test1()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 ks.lamiral.info --user1 test1 \
|
|
--password1 'secret1' \
|
|
--host2 ks.lamiral.info --user2 test1 \
|
|
--password2 'secret1' \
|
|
--delete1 --delete1emptyfolders
|
|
}
|
|
|
|
ksks_init_test1()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 ks.lamiral.info --user2 test1 \
|
|
--password2 'secret1' \
|
|
--folder INBOX.init --f1f2 INBOX.init=INBOX
|
|
}
|
|
|
|
# In mandatory_tests
|
|
ksks_reset_test1()
|
|
{
|
|
ksks_empty_test1
|
|
ksks_init_test1
|
|
}
|
|
|
|
ksks_empty_test2() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 ks.lamiral.info --user1 test2 \
|
|
--password1 'secret2' \
|
|
--host2 ks.lamiral.info --user2 test2 \
|
|
--password2 'secret2' \
|
|
--delete1 --delete1emptyfolders
|
|
}
|
|
|
|
|
|
|
|
|
|
ll_folder_noexist() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.noexist --folder INBOX.noexist2
|
|
}
|
|
|
|
|
|
ll_folder_mixfolders() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--mixfolders --justfolders --nofoldersizes
|
|
}
|
|
|
|
|
|
|
|
# Way to check it each time:
|
|
# sh -x tests.sh ll_folder_create ll_delete2folders
|
|
|
|
# In mandatory_tests
|
|
ll_folder_create() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.yop --regextrans2 's/yop/new.nested.yop/' \
|
|
--justfolders
|
|
}
|
|
|
|
# In mandatory_tests
|
|
ll_folder_create_INBOX_Inbox() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX --regextrans2 's/INBOX/Inbox/' \
|
|
--justfolders --nofoldersizes
|
|
}
|
|
|
|
ll_folder_create_backslash_backslash() {
|
|
$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.yip --regextrans2 's/yop/newyop/' \
|
|
--sep2 '\\' \
|
|
--justfolders --nofoldersizes --dry
|
|
}
|
|
|
|
ll_folder_domino() {
|
|
$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.yip --regextrans2 's/yop/newyop/' \
|
|
--sep2 '\' --prefix2 '' --prefix1 '' \
|
|
--regextrans2 's,^Inbox\\(.*),$1,i' \
|
|
--justfolders --dry --debug
|
|
}
|
|
|
|
ll_folder_domino_sub() {
|
|
$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.yip --regextrans2 's/yop/newyop/' \
|
|
--sep2 '\' --prefix2 '' \
|
|
--subfolder2 'OLDBOX' \
|
|
--justfolders --dry --debug
|
|
}
|
|
|
|
# In mandatory_tests
|
|
ll_domino2() {
|
|
$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.yip --regextrans2 's/yop/newyop/' \
|
|
--domino2 \
|
|
--subfolder2 'OLDBOX' \
|
|
--justfolders --dry --debug
|
|
|
|
}
|
|
|
|
# In mandatory_tests
|
|
ll_domino1_domino2() {
|
|
$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.yip --regextrans2 's/yop/newyop/' \
|
|
--domino1 --domino2 \
|
|
--subfolder2 'OLDBOX' \
|
|
--justfolders --dry
|
|
}
|
|
|
|
|
|
|
|
|
|
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
|
|
}
|
|
|
|
ll_debugimap() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.oneemail --debugimap
|
|
}
|
|
|
|
ll_few_emails() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.few_emails
|
|
}
|
|
|
|
ll_few_emails_dev() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.few_emails --nofoldersizes
|
|
}
|
|
|
|
ll_pipemess() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.few_emails --pipemess 'cat' --pipemess 'reformime -r7'
|
|
cmd_status=$?
|
|
echo "sudo rm -rf /home/vmail/titi/.few_emails/"
|
|
return $cmd_status
|
|
}
|
|
|
|
ll_pipemess_catcat() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.few_emails --pipemess '(cat|cat)' --pipemess 'reformime -r7'
|
|
cmd_status=$?
|
|
echo "sudo rm -rf /home/vmail/titi/.few_emails/"
|
|
return $cmd_status
|
|
}
|
|
|
|
ll_pipemess_nocmd() {
|
|
|
|
! $CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.few_emails --pipemess 'nocat'
|
|
|
|
echo "sudo rm -rf /home/vmail/titi/.few_emails/"
|
|
}
|
|
|
|
ll_pipemess_false() {
|
|
|
|
! $CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.few_emails --pipemess '/bin/false' --nopipemesscheck
|
|
|
|
echo "sudo rm -rf /home/vmail/titi/.few_emails/"
|
|
}
|
|
|
|
ll_pipemess_true() {
|
|
|
|
! $CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.few_emails --pipemess '/bin/true'
|
|
|
|
echo "sudo rm -rf /home/vmail/titi/.few_emails/"
|
|
}
|
|
|
|
|
|
ll_size_null() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.size_null
|
|
}
|
|
|
|
# In mandatory_tests
|
|
ll_noheader() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.few_emails --useheader '' --debug
|
|
}
|
|
|
|
# In mandatory_tests
|
|
ll_noheader_force() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.few_emails \
|
|
--useheader '' \
|
|
--skipheader 'Message-Id|Date'
|
|
}
|
|
|
|
ll_addheader() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.addheader --delete2 --addheader
|
|
}
|
|
|
|
|
|
|
|
ll_usecachemaxage() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--useuid --maxage 3
|
|
}
|
|
|
|
|
|
|
|
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 --justfolders
|
|
}
|
|
|
|
ll_folderrec_star() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folderrec 'INBOX.yop.*' --justfolders
|
|
}
|
|
|
|
ll_change_blank() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfolders --nofoldersizes --folder "INBOX. blanc_begin" --regextrans2 "s,(\.|^) +,\$1,g"
|
|
}
|
|
|
|
|
|
|
|
|
|
ll_folderrec_blank_bug() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folderrec "INBOX.blanc "
|
|
}
|
|
|
|
ll_folderrec_blank_bug_2() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folderrec "INBOX.blanc"
|
|
}
|
|
|
|
ll_folderrec_blank_bug_3() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folderrec '"INBOX.blanc "'
|
|
}
|
|
|
|
|
|
|
|
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
|
|
}
|
|
|
|
ll_automap() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justautomap --automap
|
|
}
|
|
|
|
ll_justautomap() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justautomap
|
|
}
|
|
|
|
|
|
l_ks_automap() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 test2.lamiral.info --user2 test2 \
|
|
--password2 secret2 \
|
|
--justautomap --automap
|
|
}
|
|
|
|
l_gmail_automap() {
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap.gmail.com \
|
|
--ssl2 \
|
|
--user2 imapsync.gl@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl_gmail \
|
|
--justautomap --automap --dry
|
|
}
|
|
|
|
gmail_l_automap() {
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com \
|
|
--ssl1 \
|
|
--user1 gilles.lamiral@gmail.com \
|
|
--passfile1 ../../var/pass/secret.gilles_gmail \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justautomap --automap --dry
|
|
}
|
|
|
|
|
|
|
|
ll_justfolders() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfolders
|
|
echo "sudo rm -rf /home/vmail/titi/.new_folder/"
|
|
}
|
|
|
|
|
|
ll_justfolders_delete1emptyfolders() {
|
|
./W/learn/create_folder localhost tata `cat /g/var/pass/secret.tata` INBOX.Empty INBOX.Empty.Empty INBOX.Empty.Empty.Empty
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfolders --delete1emptyfolders --include Empty --folder INBOX --folderfirst INBOX.Empty.Empty --foldersizes
|
|
}
|
|
|
|
|
|
|
|
ll_delete1_delete1emptyfolders() {
|
|
./W/learn/create_folder localhost tata `cat /g/var/pass/secret.tata` INBOX.Empty INBOX.Empty.Empty INBOX.Empty.Empty.Empty
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--delete1emptyfolders --delete1 --include Empty --folder INBOX --folderfirst INBOX.Empty.Empty --dry
|
|
}
|
|
|
|
|
|
|
|
ll_justfolders_skipemptyfolders() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfolders --skipemptyfolders \
|
|
--folder INBOX.empty --folder INBOX.notempty
|
|
}
|
|
|
|
|
|
|
|
|
|
ll_justfolders_folderfirst_noexist() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--nofoldersizes --justfolders --folderfirst noexist --debug
|
|
}
|
|
|
|
|
|
|
|
ll_justfolders_foldersizes()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfolders
|
|
echo "sudo rm -rf /home/vmail/titi/.new_folder/"
|
|
}
|
|
|
|
|
|
# In mandatory_tests
|
|
ll_delete2foldersonly_dry()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfolders --nofoldersizes \
|
|
--subfolder2 NEW --delete2foldersonly NEW --dry
|
|
}
|
|
|
|
# In mandatory_tests
|
|
ll_delete2foldersonly_subfolder2()
|
|
{
|
|
./W/learn/create_folder localhost titi `cat /g/var/pass/secret.titi` INBOX.NEW_2
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfolders --nofoldersizes \
|
|
--subfolder2 NEW_2 \
|
|
--delete2foldersonly NEW_2 --folder INBOX --debug
|
|
# NEW_2 should be still there because of --subfolder2 NEW_2
|
|
test -d /home/vmail/titi/.NEW_2/ || return 1
|
|
}
|
|
|
|
# In mandatory_tests
|
|
ll_delete2foldersbutnot()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfolders --nofoldersizes \
|
|
--delete2foldersbutnot 'm{NEW_2|NEW_3|\[abc\]}' \
|
|
--dry
|
|
}
|
|
|
|
# In mandatory_tests
|
|
ll_delete2foldersonly_NEW_3()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfolders --nofoldersizes \
|
|
--regextrans2 's,^INBOX.oneemail$,INBOX.NEW_3.oneemail,' \
|
|
--regextrans2 's,^INBOX.oneemail2$,INBOX.NEW_3.oneemail2,'
|
|
|
|
test -d /home/vmail/titi/.NEW_3.oneemail/ || return 1
|
|
test -d /home/vmail/titi/.NEW_3.oneemail2/ || return 1
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfolders --nofoldersizes \
|
|
--include 'rrrrr' \
|
|
--delete2foldersonly '/^INBOX.NEW_3.oneemail$/'
|
|
|
|
! test -d /home/vmail/titi/.NEW_3.oneemail/ || return 1
|
|
test -d /home/vmail/titi/.NEW_3.oneemail2/ || return 1
|
|
}
|
|
|
|
ll_delete2foldersonly_bug() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfolders --nofoldersizes \
|
|
--include 'rrrrr' \
|
|
--delete2foldersonly '/INBOX.Archive/' --dry
|
|
# --delete2foldersonly '/^INBOX.Archive$/' --dry
|
|
|
|
}
|
|
|
|
|
|
# In mandatory_tests
|
|
ll_delete2folders()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfolders --nofoldersizes \
|
|
--delete2folders
|
|
|
|
! test -d /home/vmail/titi/.NEW_3/ || return 1
|
|
}
|
|
|
|
|
|
|
|
|
|
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 --fast
|
|
echo "rm -rf /home/vmail/titi/.bugs/"
|
|
}
|
|
|
|
|
|
ll_bug_folder_name_with_backslash() {
|
|
# Bug with Mail-IMAPClient-2.2.9
|
|
# Fixed using Mail-IMAPClient-3.28
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--fast
|
|
|
|
# --folder "INBOX.yop.jj\\kk"
|
|
# --folder '"INBOX.yop.jj\kk"' --debug --debugimap --regextrans2 's,\\,_,g'
|
|
# --folder "INBOX.yop.jj\\kk" --debug --debugimap1
|
|
echo "sudo rm -rf '/home/vmail/titi/.yop.jj\\kk'"
|
|
}
|
|
|
|
|
|
|
|
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.
|
|
}
|
|
|
|
|
|
|
|
ll_nosyncinternaldates() {
|
|
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 \
|
|
--nosyncinternaldates --delete2
|
|
}
|
|
# 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() {
|
|
|
|
# can_send && sendtestmessage
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.oneemail2 \
|
|
--idatefromheader --debug --dry
|
|
}
|
|
|
|
ll_idatefromheader_barker() {
|
|
|
|
# can_send && sendtestmessage
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap.europe.secureserver.net --user2 test@alicebarkertest.com \
|
|
--passfile2 ../../var/pass/secret.barker \
|
|
--folder INBOX.oneemail2 --nofoldersizes \
|
|
--debug --useheader ALL
|
|
}
|
|
|
|
|
|
|
|
|
|
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
|
|
}
|
|
|
|
ll_subscribed()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--subscribed
|
|
}
|
|
|
|
|
|
ll_nosubscribe()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--subscribed --nosubscribe
|
|
}
|
|
|
|
ll_justconnect()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 \
|
|
--host2 $HOST2 \
|
|
--justconnect
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
ll_justconnect_ipv6()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 "::1" \
|
|
--host2 "::1" \
|
|
--justconnect
|
|
}
|
|
|
|
ll_justconnect_ipv6_nossl()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 "::1" --nossl1 \
|
|
--host2 "::1" --nossl2 \
|
|
--justconnect
|
|
}
|
|
|
|
ks_justconnect_ipv6()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 ks2ipv6.lamiral.info \
|
|
--host2 ks2ipv6.lamiral.info \
|
|
--justconnect
|
|
}
|
|
|
|
ks_justconnect_ipv6_nossl()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 ks2ipv6.lamiral.info --nossl1 \
|
|
--host2 ks2ipv6.lamiral.info --nossl2 \
|
|
--justconnect
|
|
}
|
|
|
|
|
|
|
|
ll_justfoldersizes()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--nocheckfoldersexist --nocheckselectable \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfoldersizes # --folder INBOX
|
|
}
|
|
|
|
ll_justfoldersizes_all_to_INBOX()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--nocheckfoldersexist --nocheckselectable \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfoldersizes --regextrans2 's/.*/INBOX/'
|
|
}
|
|
|
|
|
|
ll_justfoldersizes_case_different()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--nocheckfoldersexist --nocheckselectable \
|
|
--justfoldersizes --folder NoExist --folder INBOX --regextrans2 's,^INBOX$,iNbOx,'
|
|
}
|
|
|
|
ll_justfoldersizes_case_different_2()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfoldersizes --folder INBOX.yop --regextrans2 's,yop,YoP,'
|
|
}
|
|
|
|
|
|
|
|
ll_justfoldersizes_noexist()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfoldersizes --folder NoExist --folder AnotherNoExist \
|
|
--nocheckfoldersexist --errorsmax 2
|
|
}
|
|
|
|
|
|
ll_reconnect_on_signal_debugimap()
|
|
{
|
|
# in another terminal:
|
|
#
|
|
: <<'EOF'
|
|
while echo ENTER TO STOP; read a ; do
|
|
killall --signal STOP -v -u vmail imapd
|
|
echo ENTER to CONT; read a
|
|
killall --signal CONT -v -u vmail imapd
|
|
done
|
|
EOF
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--debugsleep 3.5 --debugimap
|
|
}
|
|
|
|
ll_reconnect_on_signal()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi
|
|
}
|
|
|
|
|
|
|
|
ll_dev_reconnect()
|
|
{
|
|
# in another terminal:
|
|
#
|
|
: <<'EOF'
|
|
while :; do
|
|
killall -v -u vmail imapd;
|
|
RAND_WAIT=`numrandom .1..5i.1`
|
|
echo sleeping $RAND_WAIT
|
|
sleepenh $RAND_WAIT
|
|
done
|
|
# or
|
|
while read y; do
|
|
killall -v -u vmail imapd
|
|
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 --useuid \
|
|
--reconnectretry2 0 --reconnectretry1 0
|
|
}
|
|
|
|
ll_dev_reconnect_ssl_tls()
|
|
{
|
|
# in another terminal:
|
|
#
|
|
: <<'EOF'
|
|
while :; do
|
|
killall -v -u vmail imapd;
|
|
RAND_WAIT=`numrandom .1..5i.1`
|
|
echo sleeping $RAND_WAIT
|
|
sleepenh $RAND_WAIT
|
|
done
|
|
# or
|
|
while read y; do
|
|
echo ENTER to kill all imapd
|
|
killall -v -u vmail imapd;
|
|
done
|
|
|
|
EOF
|
|
can_send && sendtestmessage
|
|
# can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --ssl1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --tls2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX --useuid \
|
|
--delete2
|
|
}
|
|
|
|
ll_dev_reconnect_tls()
|
|
{
|
|
# in another terminal:
|
|
#
|
|
: <<'EOF'
|
|
while :; do
|
|
killall -v -u vmail imapd;
|
|
RAND_WAIT=`numrandom .1..5i.1`
|
|
echo sleeping $RAND_WAIT
|
|
sleepenh $RAND_WAIT
|
|
done
|
|
# or
|
|
while read y; do
|
|
echo ENTER to kill all imapd
|
|
killall -v -u vmail imapd;
|
|
done
|
|
|
|
EOF
|
|
can_send && sendtestmessage
|
|
# can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --tls1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --tls2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX --useuid \
|
|
--delete2 --debugsleep 5 --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
|
|
}
|
|
|
|
ll_authmd51()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justlogin --authmd51
|
|
}
|
|
|
|
ll_authmd52()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justlogin --authmd52
|
|
}
|
|
|
|
ll_noauthmd5()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justlogin --noauthmd5
|
|
}
|
|
|
|
|
|
ll_maxage()
|
|
{
|
|
can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--maxage 1 --folder INBOX
|
|
}
|
|
|
|
ll_maxage_0()
|
|
{
|
|
can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--maxage 0 --folder INBOX
|
|
}
|
|
|
|
ll_maxage_0_float_1min()
|
|
{
|
|
can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--maxage 0.0006944 --folder INBOX --noabletosearch
|
|
}
|
|
|
|
|
|
|
|
ll_minage_0()
|
|
{
|
|
can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--minage 0 --folder INBOX
|
|
}
|
|
|
|
ll_maxage_10000_minage_9999()
|
|
{
|
|
# INTERSECTION: 0 messages
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--maxage 10000 --minage 9999 \
|
|
--folder INBOX --justfoldersizes
|
|
}
|
|
|
|
ll_maxage_9999_minage_10000()
|
|
{
|
|
# UNION: all messages
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--maxage 9999 --minage 10000 \
|
|
--folder INBOX --justfoldersizes
|
|
}
|
|
|
|
ll_maxage_10000_minage_9999_noabletosearch()
|
|
{
|
|
# INTERSECTION: 0 messages
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--maxage 10000 --minage 9999 \
|
|
--folder INBOX --justfoldersizes --noabletosearch
|
|
}
|
|
|
|
ll_maxage_9999_minage_10000_noabletosearch()
|
|
{
|
|
# UNION: all messages
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--maxage 9999 --minage 10000 \
|
|
--folder INBOX --justfoldersizes --noabletosearch
|
|
}
|
|
|
|
|
|
|
|
ll_maxage_10000()
|
|
{
|
|
can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--maxage 10000 --folder INBOX
|
|
}
|
|
|
|
|
|
ll_maxage_0_debugimap2()
|
|
{
|
|
#can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--maxage 0 --folder INBOX --debugimap2 --nofoldersizes
|
|
}
|
|
|
|
|
|
|
|
ll_search_ALL()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--search 'ALL' --folder INBOX
|
|
}
|
|
|
|
ll_search1_NOT_OR_OR_UID()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--search1 'NOT OR OR UID 20000 UID 20002 UID 20004' --folder INBOX
|
|
}
|
|
|
|
ll_search1_OR_OR_UID()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--search1 'OR OR UID 20000 UID 20002 UID 20004' --folder INBOX
|
|
}
|
|
|
|
ll_search2_NOT_OR_OR_UID()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--search2 'NOT OR OR UID 20000 UID 20002 UID 20004' --folder INBOX
|
|
}
|
|
|
|
|
|
ll_search_FLAGGED()
|
|
{
|
|
can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--search 'FLAGGED' --folder INBOX
|
|
}
|
|
|
|
ll_search_NOT_DELETED()
|
|
{
|
|
can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--search 'NOT DELETED' --folder INBOX
|
|
}
|
|
|
|
|
|
ll_search_SENTSINCE()
|
|
{
|
|
can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--search 'SENTSINCE 11-Jul-2011' --folder INBOX
|
|
}
|
|
|
|
ll_search_BEFORE_delete2_useuid()
|
|
{
|
|
can_send && sendtestmessage titi
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--search 'BEFORE 29-Sep-2011' --folder INBOX --delete2 --useuid
|
|
}
|
|
|
|
ll_search_SENTBEFORE()
|
|
{
|
|
can_send && sendtestmessage titi
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--search 'SENTBEFORE 31-Dec-2013' --folder INBOX --delete2
|
|
}
|
|
|
|
ll_search_SENTSINCE_and_BEFORE()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--search 'SENTSINCE 1-Jan-2010 SENTBEFORE 31-Dec-2013' --folder INBOX --delete2 --dry
|
|
}
|
|
|
|
ll_search_SENTSINCE_and_BEFORE_search2()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--search 'SENTSINCE 1-Jan-2010 SENTBEFORE 31-Dec-2013' \
|
|
--search2 'ALL' --folder INBOX --delete2
|
|
}
|
|
|
|
ll_search_HEADER_attachment()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--search "OR HEADER Content-Disposition attachment HEADER Content-Type multipart/mixed" \
|
|
--folder INBOX
|
|
}
|
|
|
|
ll_search_HEADER_attachment_multipart()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--search "HEADER Content-Type multipart/mixed" \
|
|
--folder INBOX
|
|
}
|
|
|
|
ll_search_NOT_SUBJECT()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--search "NOT SUBJECT test:" \
|
|
--folder INBOX
|
|
}
|
|
|
|
|
|
|
|
|
|
ll_maxage_nonew()
|
|
{
|
|
can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--maxage 1 --nofoldersizes \
|
|
--folder INBOX.few_emails
|
|
}
|
|
|
|
|
|
ll_nosearch_hack()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.few_emails --noabletosearch
|
|
# --debugdev --debugimap
|
|
}
|
|
|
|
ll_noabletosearch1()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.few_emails --noabletosearch1 --debugimap
|
|
}
|
|
|
|
ll_noabletosearch2()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.few_emails --noabletosearch2 --debugimap
|
|
}
|
|
|
|
|
|
ll_newmessage()
|
|
{
|
|
can_send && sendtestmessage
|
|
can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--maxage 1 --folder INBOX --nofoldersizes \
|
|
--debugLIST
|
|
}
|
|
|
|
ll_debugLIST()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX --nofoldersizes \
|
|
--debugLIST
|
|
}
|
|
|
|
ll_search_UID()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX --nofoldersizes \
|
|
--debugLIST --search1 "UID 10000:20000"
|
|
}
|
|
|
|
|
|
|
|
|
|
ll_exitwhenover()
|
|
{
|
|
sendtestmessage
|
|
sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--maxage 1 --folder INBOX --nofoldersizes \
|
|
--exitwhenover 100
|
|
}
|
|
|
|
|
|
|
|
|
|
ll_folder_INBOX()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX --noreleasecheck --usecache --delete2
|
|
}
|
|
|
|
ll_dry_folder_missing()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX --dry --regextrans2 "s,^INBOX$,noexit,"
|
|
}
|
|
|
|
|
|
|
|
ll_maxage_9999()
|
|
{
|
|
# can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfoldersizes --folder INBOX \
|
|
--maxage 9999
|
|
}
|
|
|
|
ll_maxlinelength()
|
|
{
|
|
can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--maxlinelength 8 --nofoldersizes --folder INBOX
|
|
}
|
|
|
|
ll_maxlinelengthcmd()
|
|
{
|
|
can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--maxlinelength 8 --maxlinelengthcmd cat --nofoldersizes --folder INBOX
|
|
}
|
|
|
|
|
|
|
|
ll_minmaxlinelength()
|
|
{
|
|
can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--minmaxlinelength 1000 --nofoldersizes --folder INBOX
|
|
}
|
|
|
|
|
|
ll_maxlinelength_prepa_1()
|
|
{
|
|
$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 \
|
|
--folderrec INBOX.Junk --foldersizes --justfolders \
|
|
--usecache --tmpdir /var/tmp --minmaxlinelength 8000 --debugmaxlinelength
|
|
}
|
|
|
|
ll_maxlinelength_prepa_2()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tete@est.belle \
|
|
--passfile1 ../../var/pass/secret.tete \
|
|
--host2 ks.lamiral.info --user2 tata \
|
|
--passfile2 ../../var/pass/secret.tata \
|
|
--ssl2 \
|
|
--include INBOX.Junk.20 --foldersizes --nojustfolders \
|
|
--useuid --tmpdir /var/tmp --minmaxlinelength 10 --delete2 --nofastio1 --nofastio2
|
|
}
|
|
|
|
|
|
|
|
ll_maxsize()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--maxsize 10 --folder INBOX
|
|
}
|
|
|
|
ll_maxsize_useuid()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--maxsize 10 --folder INBOX \
|
|
--useuid --debugcache
|
|
}
|
|
|
|
ll_minsize_useuid()
|
|
{
|
|
can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX \
|
|
--useuid --debugLIST --minsize 500 --maxage 1
|
|
}
|
|
|
|
|
|
|
|
|
|
ll_skipsize()
|
|
{
|
|
can_send && sendtestmessage
|
|
$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
|
|
}
|
|
|
|
ll_skipheader()
|
|
{
|
|
can_send && sendtestmessage
|
|
$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 \
|
|
--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'
|
|
}
|
|
|
|
ll_include_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 \
|
|
--nofoldersizes \
|
|
--include '^INBOX.yop' --include '^INBOX.'
|
|
}
|
|
|
|
ll_include_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 \
|
|
--nofoldersizes \
|
|
--include '^INBOX.yop' --exclude '^INBOX.'
|
|
}
|
|
|
|
|
|
|
|
ll_exclude()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--exclude '^(?i)INBOX.YOP' --justfolders --nofoldersizes
|
|
}
|
|
|
|
ll_exclude_2()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--exclude '^INBOX.yop$' --justfolders --nofoldersizes
|
|
}
|
|
|
|
ll_exclude_INBOX()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--exclude '^INBOX' --justfolders --nofoldersizes --dry
|
|
}
|
|
|
|
ll_exclude_blanc_middle()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--exclude '^INBOX.blanc\smiddle' --justfolders --nofoldersizes --dry
|
|
}
|
|
|
|
ll_f1f2_01()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfolders \
|
|
--folder 'INBOX.yop.yap' --f1f2 'INBOX.yop.yap=INBOX/rha/lovely' --f1f2 'lalala=lululu' --debugfolders
|
|
|
|
}
|
|
|
|
ll_regextrans2()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfolders \
|
|
--regextrans2 's/yop/yoX/' \
|
|
--folder 'INBOX.yop.yap' --debug
|
|
}
|
|
|
|
ll_regextrans2_downcase()
|
|
{
|
|
# lowercase the last basename part
|
|
# [INBOX.yop.YAP] -> [INBOX.yop.yap] using re [s/(.*)\Q${h1_sep}\E(.+)$/$1${h2_sep}\L$2\E/]
|
|
# [INBOX.yop.YAP] -> [INBOX.yop.yap]
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfolders \
|
|
--nofoldersizes \
|
|
--regextrans2 's/(.*)\Q${h1_sep}\E(.+)$/$1${h2_sep}\L$2\E/' \
|
|
--folder 'INBOX.yop.YAP' --justfolders --debug --dry
|
|
}
|
|
|
|
ll_regextrans2_ucfirst()
|
|
{
|
|
# lowercase the last basename part
|
|
# [INBOX.yop.YAP] -> [INBOX.yop.yap] using re [s/(.*)\Q${h1_sep}\E(.+)$/$1${h2_sep}\L$2\E/]
|
|
# [INBOX.yop.YAP] -> [INBOX.yop.yap]
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfolders \
|
|
--nofoldersizes \
|
|
--regextrans2 's/(.*)\Q${h1_sep}\E(.)(.+)$/$1${h2_sep}\u$2\L$3\E/' \
|
|
--folder 'INBOX.yop.YAP' --justfolders --debug --dry
|
|
}
|
|
|
|
|
|
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 \
|
|
--nofoldersizes \
|
|
--folder 'INBOX.yop.yap' \
|
|
--sep1 '/' \
|
|
--regextrans2 's,/,_,'
|
|
|
|
}
|
|
|
|
|
|
ll_regextrans2_dot()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfolders \
|
|
--folder 'INBOX.yop.yap' \
|
|
--regextrans2 "s,\.,_,g" --dry
|
|
}
|
|
|
|
|
|
|
|
|
|
ll_subfolder2()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfolders --foldersizesatend \
|
|
--subfolder2 SUB
|
|
}
|
|
|
|
ll_subfolder1()
|
|
{
|
|
# reverse of ll_subfolder2
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST2 --user1 titi \
|
|
--passfile1 ../../var/pass/secret.titi \
|
|
--host2 $HOST1 --user2 tata \
|
|
--passfile2 ../../var/pass/secret.tata \
|
|
--justfolders \
|
|
--subfolder1 SUB --dry
|
|
}
|
|
|
|
ll_subfolder1_INBOX_SUB()
|
|
{
|
|
# reverse of ll_subfolder2
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST2 --user1 titi \
|
|
--passfile1 ../../var/pass/secret.titi \
|
|
--host2 $HOST1 --user2 tata \
|
|
--passfile2 ../../var/pass/secret.tata \
|
|
--justfolders \
|
|
--subfolder1 INBOX.SUB --dry
|
|
}
|
|
|
|
ll_subfolder1_DOES_NOT_EXIST()
|
|
{
|
|
# --subfolder1 does not exist
|
|
! $CMD_PERL ./imapsync \
|
|
--host1 $HOST2 --user1 titi \
|
|
--passfile1 ../../var/pass/secret.titi \
|
|
--host2 $HOST1 --user2 tata \
|
|
--passfile2 ../../var/pass/secret.tata \
|
|
--justfolders \
|
|
--subfolder1 DOES_NOT_EXIST --dry
|
|
}
|
|
|
|
|
|
|
|
ll_nochildren()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 w00d0310.kasserver.com --user2 m0331832 \
|
|
--passfile2 ../../var/pass/secret.kasserver \
|
|
--folderrec INBOX.A --subfolder2 inferior_top_level
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
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 \
|
|
--nofoldersizes \
|
|
--folder 'INBOX.yop.y p' \
|
|
--regextrans2 's, ,,' \
|
|
--dry
|
|
|
|
}
|
|
|
|
|
|
ll_regextrans2_archive_per_month()
|
|
{
|
|
# Bad behavior on Courier
|
|
# SENTBEFORE 31-Apr returns nothing
|
|
# SENTBEFORE 30 Apr returns messages
|
|
|
|
year=2012
|
|
month=Apr
|
|
month_n=04
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--nofoldersizes \
|
|
--search "SENTSINCE 1-$month-$year SENTBEFORE 30-$month-$year" \
|
|
--regextrans2 "s{.*}{INBOX.Archive.$year.$month_n}"
|
|
}
|
|
|
|
|
|
ll_regextrans2_archive_per_year_flat_hard_year()
|
|
{
|
|
year=
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--nofoldersizes \
|
|
--search "SENTSINCE 1-1-$year SENTBEFORE 30-12-2018" \
|
|
--sep2 _ --regextrans2 's{(.*)}{Archive_$1_2018}' --justfolders --dry
|
|
}
|
|
|
|
ll_regextrans2_archive_per_year_flat_variable_year()
|
|
{
|
|
year=2018
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--nofoldersizes \
|
|
--search "SENTSINCE 1-1-$year SENTBEFORE 30-12-$year" \
|
|
--sep2 _ --regextrans2 's{(.*)}{Archive_$1_'"$year}" --justfolders --dry
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
ll_regextrans2_ALLIN()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--regextrans2 's/.*/INBOX.ALLIN/' \
|
|
--folderrec 'INBOX.yop' --delete2
|
|
}
|
|
|
|
ll_regextrans2_ALLIN_usecache()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--regextrans2 's/.*/INBOX.ALLIN/' \
|
|
--folderrec 'INBOX.yop' --delete2 --usecache --nodelete2duplicates
|
|
}
|
|
|
|
ll_regextrans2_ALLIN_fake()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--regextrans2 's/.*/INBOX.ALLIN/' \
|
|
--foldersizes \
|
|
--folderrec 'INBOX.yop' --delete2
|
|
}
|
|
|
|
|
|
ll_regextrans2_ALLIN_useuid()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--foldersizes \
|
|
--regextrans2 's/.*/INBOX.ALLIN/' \
|
|
--folderrec 'INBOX.yop' --delete2 --useuid
|
|
}
|
|
|
|
|
|
|
|
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
|
|
}
|
|
|
|
ll_bad_login()
|
|
{
|
|
! $CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.toto \
|
|
--host2 $HOST2 --user2 notiti \
|
|
--passfile2 ../../var/pass/secret.titi
|
|
|
|
}
|
|
|
|
ll_bad_host()
|
|
{
|
|
! $CMD_PERL ./imapsync \
|
|
--host1 badhost --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 badhost --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi
|
|
|
|
}
|
|
|
|
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
|
|
}
|
|
|
|
|
|
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
|
|
echo 'rm /home/vmail/titi/.yop.yap/cur/*'
|
|
}
|
|
|
|
|
|
ll_useheader_Received()
|
|
{
|
|
$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 'Received' \
|
|
--dry --debug --fast
|
|
echo 'rm /home/vmail/titi/.yop.yap/cur/*'
|
|
}
|
|
|
|
ll_useheader_noheader()
|
|
{
|
|
$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 'NoExist' \
|
|
--debug --delete2
|
|
echo 'rm /home/vmail/titi/.yop.yap/cur/*'
|
|
}
|
|
|
|
|
|
|
|
ll_skipmess()
|
|
{
|
|
if can_send; then
|
|
#echo3 Here is plume
|
|
sendtestmessage tata
|
|
fi
|
|
sendtestmessage tata
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX --nofoldersizes \
|
|
--skipmess 'm{.*}ism'
|
|
}
|
|
|
|
ll_skipmess_8bits()
|
|
{
|
|
if can_send; then
|
|
#echo3 Here is plume
|
|
SUBJ="`echo -e 'xFF:\0277'`"
|
|
sendtestmessage tata "$SUBJ"
|
|
fi
|
|
#return
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX --nofoldersizes --noreleasecheck \
|
|
--skipmess 'm/[\x80-\xff]/'
|
|
}
|
|
|
|
ll_skipmess_Content_Type_Message_partial()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.partial --nofoldersizes --noreleasecheck \
|
|
--skipmess 'm{\A((?:[^\n]+\r\n)+|)^Content-Type: Message/Partial;[^\n]*\n(?:\r\n|.*\r\n\r\n)}ism' --dry --addheader
|
|
echo "sudo rm -rf /home/vmail/titi/.partial/cur/*"
|
|
|
|
# --skipmess 'm{\A((?:[^\n]+\n)+|)^Content-Type: Message/Partial;[^\n]*\n(?:\r?\n|.*\r?\n\r?\n)}ism' --dry --addheader
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
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
|
|
|
|
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 'sudo rm -fv /home/vmail/titi/.yop.yap/cur/*'
|
|
fi
|
|
}
|
|
|
|
ll_regexmess_bad_regex()
|
|
{
|
|
! $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 'I am BAD'
|
|
}
|
|
|
|
ll_regexmess_trailing_NUL()
|
|
{
|
|
if can_send; then
|
|
rm -fv /home/vmail/titi/.NUL_char/cur/*
|
|
echo /home/vmail/tata/.NUL_char/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.NUL_char \
|
|
--debugcontent \
|
|
--regexmess 's/(\x00)+\Z//g'
|
|
|
|
if can_send; then
|
|
file=`ls -t /home/vmail/titi/.NUL_char/cur/* | tail -1`
|
|
diff ../../var/imapsync/tests/ll_regexmess/dest_02_null_removed $file
|
|
#echo 'sudo rm -fv /home/vmail/titi/.NUL_char/cur/*'
|
|
fi
|
|
}
|
|
|
|
|
|
ll_regexmess_add_header()
|
|
{
|
|
if at_home; 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/\A/X-migrated-from-foo: 20100617\n/' \
|
|
--search 'SUBJECT add_some_header_please' \
|
|
--debugcontent
|
|
|
|
if at_home; then
|
|
file=`ls -t /home/vmail/titi/.yop.yap/cur/* | tail -1`
|
|
diff W/t/07_ll_regexmess_add_header.txt $file || return 1
|
|
echo 'sudo rm -fv /home/vmail/titi/.yop.yap/cur/*'
|
|
fi
|
|
}
|
|
|
|
|
|
ll_regexmess_add_header_path()
|
|
{
|
|
if at_home; then
|
|
rm -fv "/home/vmail/titi/.yop.blanc blanc/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.blanc blanc" \
|
|
--regexmess 's/\A/X-ImapSync-OriginalPath-$sync->{user1}: $sync->{ h1_current_folder }\n/' \
|
|
--search 'SUBJECT add_some_header_please' \
|
|
--debugcontent
|
|
|
|
if at_home; then
|
|
file=`ls -t "/home/vmail/titi/.yop.blanc blanc/cur/"* | tail -1`
|
|
diff W/t/08_ll_regexmess_add_header_path.txt "$file" || return 1
|
|
echo 'sudo rm -fv "/home/vmail/titi/.yop.blanc blanc/cur/"*'
|
|
fi
|
|
|
|
}
|
|
|
|
ll_regexmess_add_header_path_verif()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 titi \
|
|
--passfile1 ../../var/pass/secret.titi \
|
|
--host2 $HOST2 --user2 tata \
|
|
--passfile2 ../../var/pass/secret.tata \
|
|
--folder "INBOX.yop.blanc blanc" \
|
|
--search1 'HEADER X-ImapSync-OriginalPath-tata ""' \
|
|
--debugcontent --dry --useuid --debugimap1
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 titi \
|
|
--passfile1 ../../var/pass/secret.titi \
|
|
--host2 $HOST2 --user2 tata \
|
|
--passfile2 ../../var/pass/secret.tata \
|
|
--folder "INBOX.yop.blanc blanc" \
|
|
--search1 'HEADER X-ImapSync-OriginalPath-tata "INBOX.yop.blanc blanc"' \
|
|
--debugcontent --dry --useuid --debugimap1
|
|
|
|
}
|
|
|
|
|
|
ll_regexmess_change_header()
|
|
{
|
|
#
|
|
if at_home; 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{\A(.*?(?! ^$))^Date:\ \(Invalid\)(.*?)$}{$1Date: Thu, 1 Jun 2017 23:59:59 +0000}xms' \
|
|
--search "HEADER Date Invalid" \
|
|
--debugcontent --dry
|
|
|
|
}
|
|
|
|
ll_regexmess_truncate_long_message_regex()
|
|
{
|
|
#
|
|
if at_home; then
|
|
rm -f /home/vmail/titi/.yop.yap/cur/*
|
|
fi
|
|
# Does not work
|
|
! $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/.{40000}\K.*//s' \
|
|
--debugcontent --minsize 100000
|
|
# Quantifier in {,} bigger than 32766 in regex; marked by <-- HERE in m/.{ <-- HERE 40000}
|
|
|
|
}
|
|
|
|
ll_regexmess_truncate_long_message_substr()
|
|
{
|
|
#
|
|
if at_home; then
|
|
rm -f /home/vmail/titi/.yop.yap/cur/*
|
|
fi
|
|
# Works well
|
|
$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 \
|
|
--pipemess 'perl -0ne "print substr \$_,0,40000" ' \
|
|
--debugcontent --minsize 100000
|
|
|
|
}
|
|
|
|
ll_regexmess_truncate_long_message_truncmess()
|
|
{
|
|
#
|
|
if at_home; then
|
|
rm -f /home/vmail/titi/.yop.yap/cur/*
|
|
fi
|
|
# Works well
|
|
$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 \
|
|
--truncmess 40000 \
|
|
--debugcontent --minsize 100000
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
ll_search_not_header() {
|
|
$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 \
|
|
--search "NOT HEADER Date Invalid" --debugcontent --dry
|
|
}
|
|
|
|
ll_regexmess_remove_header_Disposition()
|
|
{
|
|
#Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.regexmess \
|
|
--nofoldersizes \
|
|
--regexmess 's{\A(.*?(?! ^$))(^Disposition-Notification-To:.*?\n)}{$1}gxms' \
|
|
--debugcontent --debug
|
|
echo "sudo sh -c 'rm /home/vmail/titi/.regexmess/cur/*'"
|
|
}
|
|
|
|
ll_disarmreadreceipts()
|
|
{
|
|
#Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.disarm \
|
|
--nofoldersizes \
|
|
--disarmreadreceipts \
|
|
--debugcontent --debug --dry
|
|
echo "sudo sh -c 'rm /home/vmail/titi/.disarm/cur/*'"
|
|
}
|
|
|
|
|
|
|
|
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
|
|
echo 'rm /home/vmail/titi/.scwchu/cur/*'
|
|
}
|
|
|
|
ll_regexmess_wong()
|
|
{
|
|
$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}{Content-Type: text/plain; charset="big5"\n}gxms' \
|
|
--debugcontent --debug
|
|
echo "sudo sh -c 'rm /home/vmail/titi/.scwchu/cur/*'"
|
|
}
|
|
|
|
ll_regexmess_wong_2()
|
|
{
|
|
#Received: from hkuhp22.hku.hk
|
|
$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(.*?(?!^$))^(Received: from hkuhp22.hku.hk.*?)$}{$1Content-Type: text/plain; charset="big5"\n$2}gms' \
|
|
--debugcontent --debug --dry
|
|
echo "sudo sh -c '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 \
|
|
--debugflags
|
|
|
|
echo 'rm /home/vmail/titi/.yop.yap/cur/*'
|
|
}
|
|
|
|
ll_resyncflags()
|
|
{
|
|
$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 \
|
|
--debugflags --resyncflags | grep 'Host1: flags init msg' || return 1
|
|
|
|
echo 'rm /home/vmail/titi/.yop.yap/cur/*'
|
|
}
|
|
|
|
ll_syncflagsaftercopy()
|
|
{
|
|
# courier doesn't gives the flags just after an copy
|
|
$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 --nofoldersizes \
|
|
--debugflags --syncflagsaftercopy # | grep 'replacing h2 flags' || return 1
|
|
# | grep 'could not get its flags' || return 1
|
|
echo 'sudo rm /home/vmail/titi/.yop.yap/cur/*'
|
|
}
|
|
|
|
|
|
|
|
ll_noresyncflags()
|
|
{
|
|
$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 \
|
|
--debugflags --noresyncflags | grep 'Host1: flags init msg' && return 1
|
|
|
|
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 \
|
|
--regexflag 's/\\Answered/\$Forwarded/g' --debugflags
|
|
|
|
echo 'rm -f /home/vmail/titi/.yop.yap/cur/*'
|
|
}
|
|
|
|
ll_regex_flag_remove()
|
|
{
|
|
$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 \
|
|
--regexflag 's/\\Indexed//gi' --debugflags
|
|
|
|
echo 'rm -f /home/vmail/titi/.yop.yap/cur/*'
|
|
}
|
|
|
|
ll_regex_flag_bad()
|
|
{
|
|
! $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 \
|
|
--regexflag 'I am bad' --debugflags
|
|
|
|
echo 'sudo rm -fv /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 'sudo rm -fv /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_flag4()
|
|
{
|
|
$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 --nofoldersizes \
|
|
--regexflag 's/\$label1/\\label1/g' \
|
|
--regexflag "s/\\\$Forwarded//g" --debugflags
|
|
|
|
echo 'sudo rm -f /home/vmail/titi/.yop.yap/cur/*'
|
|
}
|
|
|
|
ll_regex_flag5()
|
|
{
|
|
$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 \
|
|
--debugflags --regexflag "s/Answered/Flagged/g"
|
|
|
|
echo 'rm -f /home/vmail/titi/.yop.yap/cur/*'
|
|
}
|
|
|
|
|
|
|
|
|
|
ll_regex_flag6_add_SEEN()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 tata \
|
|
--passfile2 ../../var/pass/secret.tata \
|
|
--folder INBOX.flagsetSeen \
|
|
--debugflags --regexflag "s/(.*)/\$1 \\\\Seen/" --dry
|
|
|
|
echo 'rm -f /home/vmail/titi/.yop.yap/cur/*'
|
|
}
|
|
|
|
ll_regex_flag7_add_SEEN()
|
|
{
|
|
$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 \
|
|
--debugflags --regexflag 's,,\\Seen ,' --dry
|
|
# on windows --regexflag "s,,\\Seen ," --dry
|
|
|
|
echo 'rm -f /home/vmail/titi/.yop.yap/cur/*'
|
|
}
|
|
|
|
ll_regex_flag8_add_SEEN_if_not_here()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.flagsetSeen --nofoldersizes \
|
|
--debugflags --dry --regexflag 's,\\Seen,,' --regexflag 's,,\\Seen ,'
|
|
# On windows: --regexflag "s,((?!\\Seen).*),$1 \\Seen,"
|
|
}
|
|
|
|
ll_regex_flag8_add_SEEN_always()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.flagsetSeen --nofoldersizes \
|
|
--debugflags --dry --regexflag "s,,\\\\Seen ,"
|
|
|
|
}
|
|
|
|
|
|
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 $HOST1 \
|
|
--host2 $HOST2 \
|
|
--tls1 --tls2 \
|
|
--justconnect --debugimap
|
|
}
|
|
|
|
ll_tls_justconnect_SSL_version() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 \
|
|
--host2 $HOST2 \
|
|
--tls1 --tls2 \
|
|
--justconnect --debugimap --ssl1_SSL_version SSLv3 --ssl2_SSL_version SSLv2
|
|
}
|
|
|
|
|
|
|
|
|
|
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 --debugimap
|
|
}
|
|
|
|
|
|
ll_tls_devel() {
|
|
ll_justlogin && ll_ssl_justlogin \
|
|
&& 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_justconnect_SSL_version() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 \
|
|
--host2 $HOST2 \
|
|
--ssl1 --ssl2 \
|
|
--justconnect --ssl1_SSL_version SSLv3 --ssl2_SSL_version SSLv2
|
|
}
|
|
|
|
|
|
ll_ssl_justconnect_sslargs() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 \
|
|
--host2 $HOST2 \
|
|
--ssl1 --ssl2 \
|
|
--justconnect --sslargs1 SSL_version=SSLv23 --sslargs1 SSL_verify_mode=0
|
|
}
|
|
|
|
ll_ssl_justconnect_sslargs_SSL_verify_mode1() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 \
|
|
--host2 $HOST2 \
|
|
--ssl1 --ssl2 \
|
|
--justconnect --sslargs1 SSL_version=SSLv23 --sslargs1 SSL_verify_mode=1
|
|
}
|
|
|
|
ll_ssl_justconnect_sslargs_SSL_versionTLSv1_1() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 \
|
|
--host2 $HOST2 \
|
|
--tls1 \
|
|
--justconnect --sslargs1 SSL_version=TLSv1_1 --sslargs1 SSL_verify_mode=0 --debugssl 4
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ll_ssl1_tls2_justconnect() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 \
|
|
--host2 $HOST2 \
|
|
--ssl1 --tls2 \
|
|
--justconnect --debugimap
|
|
}
|
|
|
|
ll_tls1_ssl2_justconnect() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 \
|
|
--host2 $HOST2 \
|
|
--tls1 --ssl2 \
|
|
--justconnect --debugimap
|
|
}
|
|
|
|
ll_ssl1_tls1_justconnect() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 \
|
|
--host2 $HOST2 \
|
|
--ssl1 --tls1 \
|
|
--justconnect --debugimap
|
|
}
|
|
|
|
ll_ssl_justconnect_SSL_VERIFY_PEER() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 \
|
|
--ssl1 \
|
|
--justconnect \
|
|
--host2 imap.gmail.com \
|
|
--ssl2 \
|
|
--sslargs2 SSL_verify_mode=1
|
|
#--sslargs2 SSL_ca_file=/etc/ssl/certs/ca-certificates.crt
|
|
}
|
|
|
|
|
|
ll_justconnect_devel() {
|
|
ll_justconnect && ll_tls_justconnect && ll_ssl_justconnect && ll_ssl1_tls2_justconnect && ll_tls1_ssl2_justconnect && ! ll_ssl1_tls1_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_justlogin_SSL_version() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--ssl1 --ssl2 \
|
|
--justlogin --ssl1_SSL_version SSLv23 --ssl2_SSL_version SSLv23 --debugssl 4
|
|
}
|
|
|
|
ll_ssl_justlogin_sslargs() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--ssl1 --ssl2 \
|
|
--sslargs1 SSL_version=SSLv3 --sslargs1 SSL_verify_mode=1
|
|
}
|
|
|
|
|
|
|
|
|
|
ll_ssl_tls_justlogin() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--ssl1 --tls1 --ssl2 --tls2 \
|
|
--justlogin --debug
|
|
}
|
|
|
|
ll_justlogin_devel() {
|
|
ll_justlogin && ll_ssl_justlogin && ll_tls_justlogin && ! ll_ssl_tls_justlogin
|
|
}
|
|
|
|
ll_ssl() {
|
|
if can_send; then
|
|
#echo3 Here is plume
|
|
sendtestmessage
|
|
fi
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--ssl1 --ssl2
|
|
}
|
|
|
|
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
|
|
}
|
|
|
|
ll_authmech_PLAIN_ssl() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --ssl1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --ssl2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfoldersizes --nofoldersizes \
|
|
--authmech1 PLAIN --authmech2 PLAIN
|
|
}
|
|
|
|
|
|
ll_authmech_XOAUTH_gmail() {
|
|
! ping -c2 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com --ssl1 --user1 imapsync@lab3.dedalusprime.com.br \
|
|
--passfile1 ../../var/pass/secret.xoauth \
|
|
--host2 imap.gmail.com --ssl2 --user2 imapsync@lab3.dedalusprime.com.br \
|
|
--passfile2 ../../var/pass/secret.xoauth \
|
|
--justfoldersizes --nofoldersizes \
|
|
--authmech1 XOAUTH --authmech2 XOAUTH
|
|
}
|
|
|
|
ll_authmech_xoauth_gmail() { ll_authmech_XOAUTH_gmail; }
|
|
|
|
ll_authmech_XOAUTH2_gmail() {
|
|
! ping -c1 imap.gmail.com || { $CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com --ssl1 --user1 gilles.lamiral@gmail.com \
|
|
--passfile1 ../../var/pass/secret.xoauth2 \
|
|
--host2 imap.gmail.com --ssl2 --user2 gilles.lamiral@gmail.com \
|
|
--passfile2 ../../var/pass/secret.xoauth2 \
|
|
--justlogin \
|
|
--authmech1 XOAUTH2 --authmech2 XOAUTH2 --debug | grep unauthorized_client ; }
|
|
}
|
|
ll_authmech_xoauth2_gmail() { ll_authmech_XOAUTH2_gmail; }
|
|
|
|
ll_authmech_XOAUTH2_json_gmail() {
|
|
! ping -c1 imap.gmail.com || { $CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com --ssl1 --user1 gilles.lamiral@gmail.com \
|
|
--password1 ../../var/pass/secret.xoauth2.json \
|
|
--host2 imap.gmail.com --ssl2 --user2 gilles.lamiral@gmail.com \
|
|
--password2 ../../var/pass/secret.xoauth2.json \
|
|
--justlogin \
|
|
--authmech1 XOAUTH2 --authmech2 XOAUTH2 --debug | grep unauthorized_client ; }
|
|
}
|
|
ll_authmech_xoauth2_json_gmail() { ll_authmech_XOAUTH2_json_gmail; }
|
|
|
|
ll_authmech_XOAUTH2_json_gmail_app() {
|
|
! ping -c1 imap.gmail.com || { $CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com --ssl1 --user1 gilles.lamiral@gmail.com \
|
|
--password1 ../../var/pass/secret.xoauth2.json \
|
|
--host2 imap.gmail.com --ssl2 --user2 gilles.lamiral@gmail.com \
|
|
--password2 ../../var/pass/secret.xoauth2.json \
|
|
--justlogin \
|
|
--authmech1 XOAUTH2 --authmech2 XOAUTH2 --debugimap ; }
|
|
}
|
|
ll_authmech_xoauth2_json_gmail_app() { ll_authmech_XOAUTH2_json_gmail_app; }
|
|
|
|
|
|
|
|
ll_authmech_XOAUTH2_gmail_proxy() {
|
|
! ping -c1 imap.gmail.com || https_proxy=http://localhost:8080/ $CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com --ssl1 --user1 gilles.lamiral@gmail.com \
|
|
--passfile1 ../../var/pass/secret.xoauth2 \
|
|
--host2 imap.gmail.com --ssl2 --user2 gilles.lamiral@gmail.com \
|
|
--passfile2 ../../var/pass/secret.xoauth2 \
|
|
--justlogin \
|
|
--authmech1 XOAUTH2 --authmech2 XOAUTH2 --debug
|
|
}
|
|
ll_authmech_xoauth2_gmail_proxy() { ll_authmech_XOAUTH2_gmail_proxy; }
|
|
|
|
|
|
|
|
ll_authmech_NTLM() {
|
|
$CMD_PERL -I./W/NTLM-1.09/blib/lib ./imapsync \
|
|
--host1 mail.freshgrillfoods.com --user1 ktraster \
|
|
--passfile1 ../../var/pass/secret.ktraster \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justlogin \
|
|
--debug --authmech1 NTLM
|
|
|
|
}
|
|
|
|
ll_authmech_NTLM_domain() {
|
|
$CMD_PERL -I./W/NTLM-1.09/blib/lib ./imapsync \
|
|
--host1 mail.freshgrillfoods.com --user1 ktraster \
|
|
--passfile1 ../../var/pass/secret.ktraster \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justlogin \
|
|
--authmech1 NTLM --domain1 freshgrillfoods.com --debugimap1
|
|
}
|
|
|
|
ll_authmech_NTLM_2() {
|
|
$CMD_PERL -I./W/NTLM-1.09/blib/lib ./imapsync \
|
|
--host1 mail.freshgrillfoods.com --user1 ktraster \
|
|
--passfile1 ../../var/pass/secret.ktraster \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--authmech1 NTLM --dry
|
|
|
|
|
|
}
|
|
|
|
|
|
ll_authmech_X_MASTERAUTH()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--authmech1 'X-MASTERAUTH' # --debugimap1
|
|
}
|
|
|
|
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
|
|
}
|
|
|
|
ll_authuser_2()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 anything \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfoldersizes \
|
|
--authuser2 titi --folder INBOX.lalala
|
|
}
|
|
|
|
|
|
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
|
|
}
|
|
|
|
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
|
|
}
|
|
|
|
ll_delete1() {
|
|
# Sync done
|
|
test -f /home/vmail/tata/.oneemail3/cur/* || return 1
|
|
#test -f /home/vmail/titi/.oneemail3/cur/* || return 1
|
|
echo 11111111111111111111111 tata titi
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.oneemail3 --delete1
|
|
|
|
#find /home/vmail/titi/.oneemail3/ || :
|
|
echo After first sync, tata has none, titi has one message
|
|
! test -f /home/vmail/tata/.oneemail3/cur/* || return 1
|
|
test -f /home/vmail/titi/.oneemail3/cur/* || return 1
|
|
|
|
echo 222222222222222222222222 back: titi tata
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 titi \
|
|
--passfile1 ../../var/pass/secret.titi \
|
|
--host2 $HOST2 --user2 tata \
|
|
--passfile2 ../../var/pass/secret.tata \
|
|
--folder INBOX.oneemail3 --delete1
|
|
|
|
test -f /home/vmail/tata/.oneemail3/cur/* || return 1
|
|
! test -f /home/vmail/titi/.oneemail3/cur/* || return 1
|
|
|
|
echo 3333333333333333333333333 initial state
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.oneemail3
|
|
|
|
#find /home/vmail/titi/.oneemail3/ || :
|
|
echo ll_delete1 finished
|
|
}
|
|
|
|
ll_delete1_twoemails()
|
|
{
|
|
# initial
|
|
ls /home/vmail/tata/.twoemails/cur/* || return 1
|
|
|
|
echo 11111111111111111111111 tata titi
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.twoemails --delete1
|
|
|
|
#find /home/vmail/titi/.twoemails/ || :
|
|
echo After first sync, tata has none, titi has two messages
|
|
! ls /home/vmail/tata/.twoemails/cur/* || return 1
|
|
ls /home/vmail/titi/.twoemails/cur/* || return 1
|
|
|
|
echo 222222222222222222222222 back: titi tata
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 titi \
|
|
--passfile1 ../../var/pass/secret.titi \
|
|
--host2 $HOST2 --user2 tata \
|
|
--passfile2 ../../var/pass/secret.tata \
|
|
--folder INBOX.twoemails --delete1
|
|
|
|
ls /home/vmail/tata/.twoemails/cur/* || return 1
|
|
! ls /home/vmail/titi/.twoemails/cur/* || return 1
|
|
|
|
echo 3333333333333333333333333 initial state
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.twoemails
|
|
|
|
#find /home/vmail/titi/.twoemails/ || :
|
|
echo ll_delete1_twoemails finished
|
|
}
|
|
|
|
|
|
|
|
ll_delete1_delete2() {
|
|
! $CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 titi \
|
|
--passfile1 ../../var/pass/secret.titi \
|
|
--host2 $HOST2 --user2 tata \
|
|
--passfile2 ../../var/pass/secret.tata \
|
|
--delete1 --delete2
|
|
}
|
|
|
|
|
|
ll_delete2() {
|
|
#can_send && sendtestmessage titi
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX \
|
|
--delete2
|
|
}
|
|
|
|
ll_delete2_reverse() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 titi \
|
|
--passfile1 ../../var/pass/secret.titi \
|
|
--host2 $HOST2 --user2 tata \
|
|
--passfile2 ../../var/pass/secret.tata \
|
|
--folder INBOX \
|
|
--delete2
|
|
}
|
|
|
|
|
|
|
|
ll_delete1_reverse() {
|
|
ll_INBOX
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 titi \
|
|
--passfile1 ../../var/pass/secret.titi \
|
|
--host2 $HOST2 --user2 tata \
|
|
--passfile2 ../../var/pass/secret.tata \
|
|
--folder INBOX \
|
|
--delete1 --minage 600 --maxage 999 # --dry
|
|
|
|
}
|
|
|
|
ll_delete1_reverse_useuid() {
|
|
ll_INBOX
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 titi \
|
|
--passfile1 ../../var/pass/secret.titi \
|
|
--host2 $HOST2 --user2 tata \
|
|
--passfile2 ../../var/pass/secret.tata \
|
|
--folder INBOX \
|
|
--delete1 --minage 100 --maxage 600 \
|
|
--useuid
|
|
}
|
|
|
|
|
|
ll_delself() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 toto \
|
|
--passfile1 ../../var/pass/secret.toto \
|
|
--host2 $HOST2 --user2 delme \
|
|
--passfile2 ../../var/pass/secret.delme
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 delme \
|
|
--passfile1 ../../var/pass/secret.delme \
|
|
--host2 $HOST2 --user2 delme \
|
|
--passfile2 ../../var/pass/secret.delme \
|
|
--delete1 --noexpungeaftereach
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 delme \
|
|
--passfile1 ../../var/pass/secret.delme \
|
|
--host2 $HOST2 --user2 delme \
|
|
--passfile2 ../../var/pass/secret.delme \
|
|
--justfolders --delete2folders --regextrans2 "s/.*/INBOX/" --foldersizes
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 delme \
|
|
--passfile1 ../../var/pass/secret.delme \
|
|
--host2 $HOST2 --user2 delme \
|
|
--passfile2 ../../var/pass/secret.delme \
|
|
--justfoldersizes
|
|
|
|
}
|
|
|
|
|
|
|
|
ll_delete2_minage() {
|
|
can_send && sendtestmessage titi
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX \
|
|
--delete2 --minage 1
|
|
}
|
|
|
|
ll_delete2_minage_useuid() {
|
|
can_send && sendtestmessage titi
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX \
|
|
--delete2 --uidexpunge2 --minage 1 --useuid
|
|
}
|
|
|
|
ll_delete2_uidexpunge2_implicit() {
|
|
can_send && sendtestmessage titi
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX \
|
|
--delete2 --useuid
|
|
}
|
|
|
|
|
|
ll_delete2duplicates() {
|
|
can_send && sendtestmessage titi
|
|
can_send && sendtestmessage tata
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX \
|
|
--delete2duplicates --uidexpunge2
|
|
}
|
|
|
|
ll_duplicates_across_folders() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.zz_1 \
|
|
--folder INBOX.zz_2 \
|
|
--folder INBOX.zz_3 \
|
|
--skipcrossduplicates --debugcrossduplicates
|
|
}
|
|
|
|
ll_delete2_dev() {
|
|
can_send && sendtestmessage titi
|
|
can_send && sendtestmessage
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX --nofoldersizes \
|
|
--delete2
|
|
}
|
|
|
|
|
|
ll_maxmessagespersecond() {
|
|
ll_delete1_reverse
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX \
|
|
--maxmessagespersecond 3.3
|
|
}
|
|
|
|
ll_maxbytespersecond() {
|
|
ll_delete1_reverse
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX \
|
|
--maxbytespersecond 2000 --nofoldersizes
|
|
}
|
|
|
|
ll_maxbytesafter() {
|
|
ll_delete1_reverse
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX \
|
|
--maxbytespersecond 1000 --maxbytesafter 20000 --nofoldersizes
|
|
}
|
|
|
|
|
|
|
|
ll_bigmail() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 big1 \
|
|
--passfile1 ../../var/pass/secret.big1 \
|
|
--host2 $HOST2 --user2 big2 \
|
|
--passfile2 ../../var/pass/secret.big2 \
|
|
--folder INBOX.bigmail --debugmemory --nofoldersizes
|
|
echo 'sudo sh -c "rm -v /home/vmail/big2/.bigmail/cur/*"'
|
|
}
|
|
|
|
ll_bigmail_fastio() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 big1 \
|
|
--passfile1 ../../var/pass/secret.big1 \
|
|
--host2 $HOST2 --user2 big2 \
|
|
--passfile2 ../../var/pass/secret.big2 \
|
|
--folder INBOX.bigmail --fastio1 --fastio2
|
|
echo 'sudo sh -c "rm -v /home/vmail/big2/.bigmail/cur/*"'
|
|
}
|
|
|
|
# In mandatory_tests
|
|
memory_stress() {
|
|
free
|
|
$CMD_PERL ./imapsync --testsunit tests_memory_stress && free
|
|
}
|
|
|
|
ll_memory_consumption() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 big1 \
|
|
--passfile1 ../../var/pass/secret.big1 \
|
|
--host2 $HOST2 --user2 big2 \
|
|
--passfile2 ../../var/pass/secret.big2 \
|
|
--folder INBOX.bigmail2 \
|
|
--nofoldersizes
|
|
echo 'sudo sh -c "rm -v /home/vmail/big2/.bigmail2/cur/*"'
|
|
}
|
|
|
|
|
|
ll_remove_duplicates() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST1 --user2 tata \
|
|
--passfile2 ../../var/pass/secret.tata \
|
|
--folder INBOX.duplicates --delete2
|
|
}
|
|
|
|
|
|
|
|
msw() {
|
|
if can_send; then
|
|
sendtestmessage toto
|
|
fi
|
|
scp imapsync test.bat test_exe.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' .
|
|
}
|
|
|
|
msw2() {
|
|
if can_send; then
|
|
sendtestmessage toto
|
|
fi
|
|
scp imapsync test_exe.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_exe.bat'
|
|
}
|
|
|
|
ll_change_characters_doublequotes() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justfolders --dry --nofoldersizes \
|
|
--regextrans2 's,\",_,g'
|
|
|
|
}
|
|
|
|
|
|
|
|
ll_change_characters_gmail() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder "INBOX. f g\h\"i'j " --justfolders \
|
|
--regextrans2 "s/['\"\\\\]/_/g" --regextrans2 's,(/|^) +,$1,g' --regextrans2 's, +(/|$),$1,g'
|
|
|
|
}
|
|
|
|
ll_blanc_vs_hyphen_gmail() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder "INBOX.A-B" --folder "INBOX.A B" --folder "INBOX.A.B" --justfolders
|
|
}
|
|
|
|
|
|
# Gmail tests
|
|
# A big mess!
|
|
|
|
xxxxx_gmail() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 $HOST2 \
|
|
--user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap.gmail.com \
|
|
--ssl2 \
|
|
--user2 gilles.lamiral@gmail.com \
|
|
--passfile2 ../../var/pass/secret.gilles_gmail \
|
|
--nofoldersizes \
|
|
--regextrans2 's,(/|^) +,$1,g' --regextrans2 's, +(/|$),$1,g' \
|
|
--exclude 'INBOX.yop.YAP' \
|
|
--regextrans2 "s,^Messages envoy&AOk-s$,[Gmail]/Messages envoy&AOk-s," \
|
|
--regextrans2 "s,^Sent$,[Gmail]/Sent Mail," \
|
|
--folder 'INBOX.Messages envoy&AOk-s' \
|
|
--folder 'INBOX.Sent'
|
|
|
|
}
|
|
|
|
xxxxx_gmail_useuid() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 $HOST2 \
|
|
--user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap.gmail.com \
|
|
--ssl2 \
|
|
--user2 gilles.lamiral@gmail.com \
|
|
--passfile2 ../../var/pass/secret.gilles_gmail \
|
|
--nofoldersizes \
|
|
--regextrans2 "s,^Sent$,[Gmail]/Sent Mail," \
|
|
--folder 'INBOX.Sent' --useuid --dry
|
|
}
|
|
|
|
xxxxx_gmail_02() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 $HOST2 \
|
|
--user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap.gmail.com \
|
|
--ssl2 \
|
|
--user2 gilles.lamiral@gmail.com \
|
|
--passfile2 ../../var/pass/secret.gilles_gmail \
|
|
--nofoldersizes \
|
|
--regextrans2 's,(.*),SMS,'
|
|
}
|
|
|
|
xxxxx_gmail_03() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 $HOST2 \
|
|
--user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap.gmail.com \
|
|
--ssl2 \
|
|
--user2 gilles.lamiral@gmail.com \
|
|
--passfile2 ../../var/pass/secret.gilles_gmail \
|
|
--nofoldersizes \
|
|
--folder INBOX.few_emails --debug --useheader Message-ID --delete2 --dry
|
|
}
|
|
|
|
xxxxx_gmail_03_Received() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 $HOST2 \
|
|
--user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap.gmail.com \
|
|
--ssl2 \
|
|
--user2 gilles.lamiral@gmail.com \
|
|
--passfile2 ../../var/pass/secret.gilles_gmail \
|
|
--nofoldersizes \
|
|
--folder INBOX.few_emails --debug --useheader Received --delete2 --dry
|
|
}
|
|
|
|
|
|
xxxxx_gmail_04_Sent() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 $HOST2 \
|
|
--user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap.gmail.com \
|
|
--ssl2 \
|
|
--user2 gilles.lamiral@gmail.com \
|
|
--passfile2 ../../var/pass/secret.gilles_gmail \
|
|
--folder INBOX.Sent \
|
|
--regextrans2 's{Sent}{[Gmail]/Messages envoy&AOk-s}' \
|
|
--debugflags
|
|
}
|
|
|
|
xxxxx_gmail_05_justfolders() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 $HOST2 \
|
|
--user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap.gmail.com \
|
|
--ssl2 \
|
|
--user2 gilles.lamiral@gmail.com \
|
|
--passfile2 ../../var/pass/secret.gilles_gmail \
|
|
--justfolders --nofoldersizes \
|
|
--regextrans2 's,(/|^) +,$1,g' --regextrans2 's, +(/|$),$1,g' \
|
|
--regextrans2 "s/[\^]/_/g" --debug
|
|
}
|
|
|
|
|
|
xxxxx_gmail_05_justlogin() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 $HOST2 \
|
|
--user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap.gmail.com \
|
|
--ssl2 \
|
|
--user2 gilles.lamiral@gmail.com \
|
|
--passfile2 ../../var/pass/secret.gilles_gmail \
|
|
--justlogin
|
|
}
|
|
|
|
xxxxx_gmail_05_justlogin_exe() {
|
|
|
|
! ping -c1 imap.gmail.com || ./imapsync_elf_x86.bin \
|
|
--host1 $HOST2 \
|
|
--user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap.gmail.com \
|
|
--ssl2 \
|
|
--user2 gilles.lamiral@gmail.com \
|
|
--passfile2 ../../var/pass/secret.gilles_gmail \
|
|
--justlogin
|
|
}
|
|
|
|
xxxxx_gmail_05_justlogin_SSLv3() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 $HOST2 \
|
|
--user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap.gmail.com \
|
|
--ssl2 \
|
|
--user2 gilles.lamiral@gmail.com \
|
|
--passfile2 ../../var/pass/secret.gilles_gmail \
|
|
--justlogin --ssl2_SSL_version SSLv3 --justconnect
|
|
}
|
|
|
|
xxxxx_gmail_05_justlogin_SSLv2() {
|
|
|
|
! ping -c1 imap.gmail.com || ! $CMD_PERL ./imapsync \
|
|
--host1 $HOST2 \
|
|
--user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap.gmail.com \
|
|
--ssl2 \
|
|
--user2 gilles.lamiral@gmail.com \
|
|
--passfile2 ../../var/pass/secret.gilles_gmail \
|
|
--justlogin --ssl2_SSL_version SSLv2
|
|
}
|
|
|
|
xxxxx_gmail_05_justlogin_SSLv23() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 $HOST2 \
|
|
--user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap.gmail.com \
|
|
--ssl2 \
|
|
--user2 gilles.lamiral@gmail.com \
|
|
--passfile2 ../../var/pass/secret.gilles_gmail \
|
|
--justlogin --ssl2_SSL_version SSLv23
|
|
}
|
|
|
|
|
|
|
|
|
|
xxxxx_gmail_trailing_blanks() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 $HOST2 \
|
|
--user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap.gmail.com \
|
|
--ssl2 \
|
|
--user2 gilles.lamiral@gmail.com \
|
|
--passfile2 ../../var/pass/secret.gilles_gmail \
|
|
--nofoldersizes \
|
|
--justfolders \
|
|
--include "[ ]" \
|
|
--regextrans2 's,^ +| +$,,g' --regextrans2 's,/ +| +/,/,g'
|
|
}
|
|
|
|
xxxxx_gmail_trailing_blanks_gmail2() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 $HOST2 \
|
|
--user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--user2 gilles.lamiral@gmail.com \
|
|
--passfile2 ../../var/pass/secret.gilles_gmail \
|
|
--nofoldersizes \
|
|
--justfolders \
|
|
--include "[ ]" \
|
|
--gmail2 --dry
|
|
}
|
|
|
|
xxxxx_gmail_delete2folders() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 $HOST2 \
|
|
--user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--user2 gilles.lamiral@gmail.com \
|
|
--passfile2 ../../var/pass/secret.gilles_gmail \
|
|
--nofoldersizes \
|
|
--justfolders \
|
|
--include "[ ]" \
|
|
--gmail2 --delete2foldersonly "m, ," --delete2foldersbutnot 'm,Gmail,'
|
|
}
|
|
|
|
|
|
xxxxx_gmail_07_hierarchy() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 $HOST2 \
|
|
--user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap.gmail.com \
|
|
--ssl2 \
|
|
--user2 gilles.lamiral@gmail.com \
|
|
--passfile2 ../../var/pass/secret.gilles_gmail \
|
|
--nofoldersizes \
|
|
--folder INBOX.yop.yup.yip.yap.yep --justfolders
|
|
}
|
|
|
|
|
|
xxxxx_gmail_07_subfolder() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 $HOST2 \
|
|
--user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap.gmail.com \
|
|
--ssl2 \
|
|
--user2 gilles.lamiral@gmail.com \
|
|
--passfile2 ../../var/pass/secret.gilles_gmail \
|
|
--nofoldersizes \
|
|
--justfolders --subfolder2 BBB
|
|
}
|
|
|
|
|
|
|
|
|
|
xxxxx_gmail_09_via_stunnel() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 $HOST2 \
|
|
--user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 localhost \
|
|
--port2 9993 \
|
|
--user2 gilles.lamiral@gmail.com \
|
|
--passfile2 ../../var/pass/secret.gilles_gmail \
|
|
--foldersizes \
|
|
--folder INBOX
|
|
}
|
|
|
|
|
|
|
|
gmail_xxxxx() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com \
|
|
--ssl1 \
|
|
--user1 gilles.lamiral@gmail.com \
|
|
--passfile1 ../../var/pass/secret.gilles_gmail \
|
|
--host2 $HOST2 \
|
|
--user2 tata \
|
|
--passfile2 ../../var/pass/secret.tata \
|
|
--nofoldersizes \
|
|
--dry --justfolders --exclude "\[Gmail\]/All Mail"
|
|
}
|
|
|
|
|
|
gmail() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com \
|
|
--ssl1 \
|
|
--user1 gilles.lamiral@gmail.com \
|
|
--passfile1 ../../var/pass/secret.gilles_gmail \
|
|
--host2 $HOST2 \
|
|
--user2 tata \
|
|
--passfile2 ../../var/pass/secret.tata \
|
|
--exclude Gmail --exclude "blanc\ $"
|
|
}
|
|
|
|
gmail_l_tata() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com \
|
|
--ssl1 \
|
|
--user1 gilles.lamiral@gmail.com \
|
|
--passfile1 ../../var/pass/secret.gilles_gmail \
|
|
--host2 $HOST2 \
|
|
--user2 tata \
|
|
--passfile2 ../../var/pass/secret.tata \
|
|
--folder INBOX
|
|
}
|
|
|
|
|
|
gmail_justfolders() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com \
|
|
--ssl1 \
|
|
--user1 gilles.lamiral@gmail.com \
|
|
--passfile1 ../../var/pass/secret.gilles_gmail \
|
|
--host2 $HOST2 \
|
|
--user2 tata \
|
|
--passfile2 ../../var/pass/secret.tata \
|
|
--justfolders --exclude Gmail --exclude "blanc\ $"
|
|
}
|
|
|
|
gmail_justfolders_remove_Gmail() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com \
|
|
--ssl1 \
|
|
--user1 gilles.lamiral@gmail.com \
|
|
--passfile1 ../../var/pass/secret.gilles_gmail \
|
|
--host2 $HOST2 \
|
|
--user2 tata \
|
|
--passfile2 ../../var/pass/secret.tata \
|
|
--regextrans2 "s,\[Gmail\].,," --dry --justfolders
|
|
}
|
|
|
|
|
|
|
|
|
|
gmail_via_stunnel_ks() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 ks.lamiral.info \
|
|
--port1 243 --nossl1 \
|
|
--user1 gilles.lamiral@gmail.com \
|
|
--passfile1 ../../var/pass/secret.gilles_gmail \
|
|
--host2 $HOST2 \
|
|
--user2 tata \
|
|
--passfile2 ../../var/pass/secret.tata \
|
|
--useheader 'Message-Id' \
|
|
--useheader="X-Gmail-Received" \
|
|
--debug --justfolders
|
|
}
|
|
|
|
easygmail_gmail1_gmail2() {
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--gmail1 \
|
|
--user1 gilles.lamiral@gmail.com \
|
|
--passfile1 ../../var/pass/secret.gilles_gmail \
|
|
--gmail2 \
|
|
--user2 imapsync.gl@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl_gmail \
|
|
--justfolders
|
|
}
|
|
|
|
easygmail_gmail2() {
|
|
$CMD_PERL ./imapsync \
|
|
--user1 gilles.lamiral@gmail.com \
|
|
--passfile1 ../../var/pass/secret.gilles_gmail \
|
|
--host1 imap.gmail.com --ssl1 \
|
|
--gmail2 \
|
|
--user2 imapsync.gl@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl_gmail \
|
|
--justfolders
|
|
}
|
|
|
|
|
|
|
|
gmail_gmail() {
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--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 \
|
|
--justfolders --exclude Gmail --exclude "blanc\ $"
|
|
}
|
|
|
|
gmail_gmail_ipv6() {
|
|
|
|
! ping6 -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 2a00:1450:400c:c0a::6c \
|
|
--ssl1 \
|
|
--user1 gilles.lamiral@gmail.com \
|
|
--passfile1 ../../var/pass/secret.gilles_gmail \
|
|
--host2 wl-in-x6c.1e100.net. \
|
|
--ssl2 \
|
|
--user2 imapsync.gl@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl_gmail \
|
|
--justlogin
|
|
}
|
|
|
|
|
|
|
|
gmail_gmail_automap() {
|
|
$CMD_PERL ./imapsync \
|
|
--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 \
|
|
--justfolders --dry --automap --justautomap --f1f2 Junk=Junk --f1f2 Trash=Cake
|
|
}
|
|
|
|
gmail_gmail_noautomap() {
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--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 \
|
|
--justfolders --dry --noautomap
|
|
}
|
|
|
|
|
|
gmail_gmail_justconnect() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--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 \
|
|
--justconnect --timeout 1
|
|
}
|
|
|
|
gmail_gmail_justlogin() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--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 \
|
|
--justlogin --id --debugimap
|
|
}
|
|
|
|
|
|
|
|
|
|
gmail_gl_gl2_justfolders() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com \
|
|
--user1 imapsync.gl@gmail.com \
|
|
--passfile1 ../../var/pass/secret.imapsync.gl_gmail \
|
|
--host2 imap.gmail.com \
|
|
--user2 imapsync.gl2@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl_gmail \
|
|
--justfolders --exclude Gmail --exclude "blanc\ $" --dry
|
|
}
|
|
|
|
|
|
gmail_gl_gl2() {
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com \
|
|
--user1 imapsync.gl@gmail.com \
|
|
--passfile1 ../../var/pass/secret.imapsync.gl_gmail \
|
|
--host2 imap.gmail.com \
|
|
--user2 imapsync.gl2@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl2_gmail \
|
|
--folder INBOX --dry
|
|
}
|
|
|
|
|
|
gmail_gl_gl2_SUB() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com \
|
|
--ssl1 \
|
|
--user1 imapsync.gl@gmail.com \
|
|
--passfile1 ../../var/pass/secret.imapsync.gl_gmail \
|
|
--host2 imap.gmail.com \
|
|
--ssl2 \
|
|
--user2 imapsync.gl2@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl_gmail \
|
|
--justfolders --nofoldersizes --exclude Gmail --regextrans2 "s,(.*),SUB/\$1,"
|
|
}
|
|
|
|
gmail_gl2_gl2_selectable()
|
|
{
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com \
|
|
--user1 imapsync.gl2@gmail.com \
|
|
--passfile1 ../../var/pass/secret.imapsync.gl2_gmail \
|
|
--host2 imap.gmail.com \
|
|
--user2 imapsync.gl2@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl2_gmail \
|
|
--dry --justautomap
|
|
}
|
|
|
|
|
|
|
|
gmail_gl_gl2_create_folder_old() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com \
|
|
--ssl1 \
|
|
--user1 imapsync.gl@gmail.com \
|
|
--passfile1 ../../var/pass/secret.imapsync.gl_gmail \
|
|
--host2 imap.gmail.com \
|
|
--ssl2 \
|
|
--user2 imapsync.gl2@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl_gmail \
|
|
--justfolders --exclude Gmail --exclude "blanc\ $" \
|
|
--create_folder_old --dry --nofoldersizes
|
|
}
|
|
|
|
|
|
gmail_gmail_folderfirst() {
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--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 \
|
|
--exclude "blanc\ $" --exclude Gmail \
|
|
--justfolders --folderfirst INBOX --folderfirst zz --folderlast "[Gmail]/All Mail" --debug
|
|
}
|
|
|
|
|
|
gmail_gmail_INBOX() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com \
|
|
--user1 gilles.lamiral@gmail.com \
|
|
--passfile1 ../../var/pass/secret.gilles_gmail \
|
|
--host2 imap.gmail.com \
|
|
--user2 imapsync.gl@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl_gmail \
|
|
--folder INBOX
|
|
#--dry # --debug --debugimap # --authmech1 LOGIN
|
|
}
|
|
|
|
gmail_gmail_3_delete() {
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com \
|
|
--ssl1 \
|
|
--user1 imapsync.gl@gmail.com \
|
|
--passfile1 ../../var/pass/secret.imapsync.gl_gmail \
|
|
--host2 imap.gmail.com \
|
|
--ssl2 \
|
|
--user2 gilles.lamiral@gmail.com \
|
|
--passfile2 ../../var/pass/secret.gilles_gmail \
|
|
--folder '[Gmail]/All Mail' --delete1
|
|
# '[Gmail]/All Mail' is not expunge by default!
|
|
|
|
}
|
|
|
|
gmail_gmail_4_tls() {
|
|
! ping -c1 imap.gmail.com || ! $CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com \
|
|
--ssl1 \
|
|
--user1 gilles.lamiral@gmail.com \
|
|
--passfile1 ../../var/pass/secret.gilles_gmail \
|
|
--host2 imap.gmail.com \
|
|
--ssl2 --tls2 --port2 993 \
|
|
--user2 imapsync.gl@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl_gmail \
|
|
--folder INBOX
|
|
#--dry # --debug --debugimap # --authmech1 LOGIN
|
|
}
|
|
|
|
|
|
gmail_gmail_5_exclude_only_Gmail() {
|
|
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--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 \
|
|
--nofoldersizes --folderrec "[Gmail]" --exclude "\[Gmail\]$"
|
|
}
|
|
|
|
gmail_gmail_6_search() {
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--gmail1 \
|
|
--user1 gilles.lamiral@gmail.com \
|
|
--passfile1 ../../var/pass/secret.gilles_gmail \
|
|
--gmail2 \
|
|
--user2 imapsync.gl@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl_gmail \
|
|
--folder INBOX --search 'X-GM-RAW "has:attachment"'
|
|
}
|
|
|
|
gmail_gmail_7_search() {
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com \
|
|
--user1 gilles.lamiral@gmail.com \
|
|
--passfile1 ../../var/pass/secret.gilles_gmail \
|
|
--host2 imap.gmail.com \
|
|
--user2 imapsync.gl@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl_gmail \
|
|
--folder "[Gmail]/All Mail" --search 'X-GM-RAW "Analysez lalala performances"'
|
|
}
|
|
|
|
gmail_gmail_8_search() {
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--gmail1 \
|
|
--user1 gilles.lamiral@gmail.com \
|
|
--passfile1 ../../var/pass/secret.gilles_gmail \
|
|
--gmail2 \
|
|
--user2 imapsync.gl@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl_gmail \
|
|
--folder Test --nofoldersizes --debugimap \
|
|
--search 'X-GM-RAW "label:Important label:Test"'
|
|
|
|
}
|
|
|
|
gmail_gmail_9_search_X_GM_LABELS() {
|
|
! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
|
|
--gmail1 \
|
|
--user1 gilles.lamiral@gmail.com \
|
|
--passfile1 ../../var/pass/secret.gilles_gmail \
|
|
--gmail2 \
|
|
--user2 imapsync.gl@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl_gmail \
|
|
--folder Test --nofoldersizes --debugimap \
|
|
--search 'X-GM-LABELS "Important"'
|
|
}
|
|
|
|
|
|
|
|
|
|
gmail_gl_gl2_sslargs()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com \
|
|
--ssl1 \
|
|
--user1 imapsync.gl@gmail.com \
|
|
--passfile1 ../../var/pass/secret.imapsync.gl_gmail \
|
|
--host2 imap.gmail.com \
|
|
--ssl2 \
|
|
--user2 imapsync.gl2@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl_gmail \
|
|
--justlogin --sslargs1 SSL_version=SSLv3 --sslargs1 SSL_verify_mode=0
|
|
}
|
|
|
|
|
|
# imapsync.gl@gmail.com
|
|
# imapsync.gl0@gmail.com == Source only account for imapsync
|
|
# imapsync.gl1@gmail.com == Source account for imapsync.gl2@gmail.com with
|
|
# --subfolder2 "Archive/Bob"
|
|
# --subfolder2 "Archive/Zuz"
|
|
# Destination account from imapsync.gl3@gmail.com with
|
|
# --subfolder1 "Archive/Bob"
|
|
|
|
# imapsync.gl2@gmail.com == Destination account --subfolder2 "Archive/Bob" from imapsync.gl1@gmail.com
|
|
# --subfolder2 "Archive/Zuz" from imapsync.gl1@gmail.com
|
|
# imapsync.gl3@gmail.com ==
|
|
|
|
|
|
sendtestmessage_gl0()
|
|
{
|
|
sendtestmessage imapsync.gl0@gmail.com
|
|
}
|
|
|
|
|
|
sendtestmessage_gl1()
|
|
{
|
|
sendtestmessage imapsync.gl1@gmail.com
|
|
}
|
|
|
|
gmail_gl1_gl2_labels()
|
|
{
|
|
#sendtestmessage imapsync.gl1@gmail.com
|
|
$CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com \
|
|
--user1 imapsync.gl1@gmail.com \
|
|
--passfile1 ../../var/pass/secret.imapsync.gl1_gmail \
|
|
--host2 imap.gmail.com \
|
|
--user2 imapsync.gl2@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl2_gmail \
|
|
--exclude "\[Gmail\]" \
|
|
--synclabels --resynclabels --debuglabels --dry
|
|
}
|
|
|
|
gmail_gl1_gl2_labels_subfolder2()
|
|
{
|
|
#sendtestmessage imapsync.gl1@gmail.com
|
|
|
|
# The backup
|
|
$CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com \
|
|
--user1 imapsync.gl1@gmail.com \
|
|
--passfile1 ../../var/pass/secret.imapsync.gl1_gmail \
|
|
--host2 imap.gmail.com \
|
|
--user2 imapsync.gl2@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl2_gmail \
|
|
--synclabels --resynclabels --debuglabels --delete2\
|
|
--subfolder2 "Archive/Bob" --nofoldersizes --gmail1 --gmail2 --dry # --exclude "\[Gmail\]"
|
|
|
|
return
|
|
|
|
#sendtestmessage imapsync.gl1@gmail.com
|
|
$CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com \
|
|
--user1 imapsync.gl1@gmail.com \
|
|
--passfile1 ../../var/pass/secret.imapsync.gl1_gmail \
|
|
--host2 imap.gmail.com \
|
|
--user2 imapsync.gl2@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl2_gmail \
|
|
--gmail1 --gmail2 --synclabels --resynclabels --delete2 --folder INBOX --subfolder2 "Archive/Zuz"
|
|
}
|
|
|
|
gmail_gl2_gl3_labels_after_a_subfolder2_from_host1()
|
|
{
|
|
# A second backup, standard this one (no --subfolder2)
|
|
$CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com \
|
|
--user1 imapsync.gl2@gmail.com \
|
|
--passfile1 ../../var/pass/secret.imapsync.gl2_gmail \
|
|
--host2 imap.gmail.com \
|
|
--user2 imapsync.gl3@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl3_gmail \
|
|
--synclabels --resynclabels --folderrec "Archive/Bob" --gmail1 --gmail2 --dry
|
|
}
|
|
|
|
gmail_gl3_gl1_labels_subfolder1()
|
|
{
|
|
# The restoration process
|
|
$CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com \
|
|
--user1 imapsync.gl3@gmail.com \
|
|
--passfile1 ../../var/pass/secret.imapsync.gl3_gmail \
|
|
--host2 imap.gmail.com \
|
|
--user2 imapsync.gl1@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl1_gmail \
|
|
--subfolder1 "Archive/Bob" --debuglabels --resynclabels --nofoldersizes --justfolders #--dry
|
|
}
|
|
|
|
gmail_deuscustoms()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com --user1 "test1@deuscustoms.com" --passfile1 '../../var/pass/test1@deuscustoms.com' \
|
|
--host2 imap.gmail.com --user2 "test2@deuscustoms.com" --passfile2 '../../var/pass/test2@deuscustoms.com' \
|
|
--subfolder2 "Archived accounts/Test User 1" \
|
|
--exclude "\[Gmail\]" --folderlast INBOX \
|
|
--debuglabels --resynclabels --synclabels --nofoldersizes #--dry
|
|
}
|
|
|
|
gmail_gl1_gl2_appendlimit()
|
|
{
|
|
#sendtestmessage imapsync.gl1@gmail.com
|
|
$CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com \
|
|
--user1 imapsync.gl1@gmail.com \
|
|
--passfile1 ../../var/pass/secret.imapsync.gl1_gmail \
|
|
--host2 imap.gmail.com \
|
|
--user2 imapsync.gl2@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl2_gmail \
|
|
--gmail1 --gmail2 --nofoldersizes --justlogin
|
|
}
|
|
|
|
|
|
|
|
gmail_gl1_gl2_maxsize_over_appendlimit()
|
|
{
|
|
#sendtestmessage imapsync.gl1@gmail.com
|
|
$CMD_PERL ./imapsync \
|
|
--host1 imap.gmail.com \
|
|
--user1 imapsync.gl1@gmail.com \
|
|
--passfile1 ../../var/pass/secret.imapsync.gl1_gmail \
|
|
--host2 imap.gmail.com \
|
|
--user2 imapsync.gl2@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl2_gmail \
|
|
--gmail1 --gmail2 --nofoldersizes \
|
|
--justlogin --maxsize 999_999_999_999
|
|
}
|
|
|
|
gmail_gl2_gl2_move_All_Mail_Trash()
|
|
{
|
|
#sendtestmessage imapsync.gl1@gmail.com
|
|
$CMD_PERL ./imapsync \
|
|
--user1 imapsync.gl2@gmail.com \
|
|
--passfile1 ../../var/pass/secret.imapsync.gl2_gmail \
|
|
--user2 imapsync.gl2@gmail.com \
|
|
--passfile2 ../../var/pass/secret.imapsync.gl2_gmail \
|
|
--gmail1 --gmail2 \
|
|
--folder '[Gmail]/Tous les messages' \
|
|
--f1f2 '[Gmail]/Tous les messages=[Gmail]/Corbeille'
|
|
}
|
|
|
|
|
|
|
|
yahoo_xxxx_login()
|
|
{
|
|
! ping -c1 imap.mail.yahoo.com || $CMD_PERL ./imapsync \
|
|
--host1 imap.mail.yahoo.com \
|
|
--ssl1 \
|
|
--user1 glamiral \
|
|
--passfile1 ../../var/pass/secret.gilles_yahoo \
|
|
--host2 $HOST2 \
|
|
--user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justlogin
|
|
}
|
|
|
|
yahoo_xxxx_login_tls() {
|
|
# tls1 no longer works on Yahoo
|
|
! ping -c1 imap.mail.yahoo.com || $CMD_PERL ./imapsync \
|
|
--host1 imap.mail.yahoo.com \
|
|
--tls1 --timeout1 5 \
|
|
--user1 glamiral \
|
|
--passfile1 ../../var/pass/secret.gilles_yahoo \
|
|
--host2 $HOST2 \
|
|
--user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justlogin
|
|
}
|
|
|
|
|
|
|
|
yahoo_xxxx() {
|
|
# Yahoo works only with ssl (november 2011)
|
|
# Could do plain port 143 before
|
|
! ping -c1 imap.mail.yahoo.com || $CMD_PERL ./imapsync \
|
|
--host1 imap.mail.yahoo.com \
|
|
--user1 glamiral \
|
|
--passfile1 ../../var/pass/secret.gilles_yahoo \
|
|
--host2 $HOST2 \
|
|
--user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--addheader --exclude Archive
|
|
}
|
|
|
|
yahoo_fail_UNAVAILABLE() {
|
|
# Those are messages from yahoo:
|
|
# Err 1/11: - msg Archive/470002 {0} S[12903] F[$NotJunk] I[25-Oct-2016 00:19:28 +0000] could not be fetched: 29 NO [UNAVAILABLE] UID FETCH Server error while fetching messages
|
|
# Update 2018/5/5: it now works well on those messages
|
|
! ping -c1 imap.mail.yahoo.com || $CMD_PERL ./imapsync \
|
|
--host1 imap.mail.yahoo.com \
|
|
--user1 glamiral \
|
|
--passfile1 ../../var/pass/secret.gilles_yahoo \
|
|
--host2 $HOST2 \
|
|
--user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--addheader --folder Archive
|
|
}
|
|
|
|
yahoo_all() {
|
|
! yahoo_xxxx_login_tls || return 1
|
|
yahoo_xxxx_login || return 1
|
|
yahoo_xxxx || return 1
|
|
yahoo_fail_UNAVAILABLE || return 1
|
|
}
|
|
|
|
|
|
|
|
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/'
|
|
}
|
|
|
|
dkimap_1() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 Mail.fourfrontsales.com --user1 dktest \
|
|
--passfile1 ../../var/pass/secret.dktest \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX/dkimap --regextrans2 's/INBOX.INBOX./INBOX./' \
|
|
--foldersize --nouid1
|
|
}
|
|
|
|
ll_justlogin() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justlogin
|
|
}
|
|
|
|
ll_justlogin_notls() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--justlogin --notls1 --notls2
|
|
}
|
|
|
|
|
|
|
|
|
|
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 \
|
|
--justlogin
|
|
}
|
|
|
|
ll_justlogin_dollar_char() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 dollar \
|
|
--passfile2 ../../var/pass/secret.dollar \
|
|
--justlogin
|
|
}
|
|
|
|
ll_justlogin_equal_char() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 equal \
|
|
--passfile2 ../../var/pass/secret.equal \
|
|
--justlogin --debugimap2
|
|
}
|
|
|
|
|
|
|
|
|
|
ll_usecache() {
|
|
if can_send; then
|
|
sendtestmessage
|
|
fi
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--usecache --nofoldersizes \
|
|
--folder INBOX
|
|
}
|
|
|
|
ll_usecache_all() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--usecache --nofoldersizes
|
|
}
|
|
|
|
ll_usecache_bracket() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--usecache --nofoldersizes --debugcache --folder "INBOX.[bracket]"
|
|
}
|
|
|
|
|
|
# In mandatory_tests
|
|
ll_nousecache() {
|
|
if can_send; then
|
|
sendtestmessage
|
|
else
|
|
:
|
|
fi
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--nousecache --nofoldersizes \
|
|
--folder INBOX
|
|
}
|
|
|
|
|
|
ll_usecache_INBOX() {
|
|
if can_send; then
|
|
sendtestmessage
|
|
else
|
|
:
|
|
fi
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--usecache \
|
|
--folder INBOX
|
|
}
|
|
|
|
|
|
|
|
|
|
ll_usecache_noheader() {
|
|
if can_send; then
|
|
sendtestmessage
|
|
else
|
|
:
|
|
fi
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--usecache \
|
|
--folder INBOX --useheader ''
|
|
}
|
|
|
|
ll_usecache_debugcache() {
|
|
if can_send; then
|
|
sendtestmessage
|
|
else
|
|
:
|
|
fi
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--usecache --nofoldersizes \
|
|
--folder INBOX --useheader '' --debugcache
|
|
}
|
|
|
|
ll_usecache_debugcache_useuid() {
|
|
if can_send; then
|
|
sendtestmessage
|
|
else
|
|
:
|
|
fi
|
|
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--usecache --nofoldersizes \
|
|
--folder INBOX --useheader '' --debugcache --useuid
|
|
}
|
|
|
|
ll_useuid_INBOX()
|
|
{
|
|
if can_send; then
|
|
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 \
|
|
--delete2 \
|
|
--useuid
|
|
|
|
}
|
|
|
|
# In mandatory_tests
|
|
ll_useuid()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.useuid \
|
|
--delete2 \
|
|
--useuid
|
|
}
|
|
|
|
ll_useuid_all()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--delete2 --useuid --nofoldersizes
|
|
}
|
|
|
|
# In mandatory_tests
|
|
ll_useuid_nousecache()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.useuid \
|
|
--useuid --nousecache --debugcache
|
|
echo 'rm /home/vmail/titi/.yop.yap/cur/*'
|
|
}
|
|
|
|
ll_fastio()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX --fastio1 --fastio2
|
|
}
|
|
|
|
ll_nofastio()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX --nofastio1 --nofastio2
|
|
}
|
|
|
|
l_office365()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap-mail.outlook.com --ssl2 --user2 gilles.lamiral@outlook.com \
|
|
--passfile2 ../../var/pass/secret.outlook.com \
|
|
--folder INBOX --tmpdir /var/tmp --usecache --regextrans2 's/INBOX/tata/' --delete2
|
|
}
|
|
|
|
l_office365_deleted_flag()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap-mail.outlook.com --ssl2 --user2 gilles.lamiral@outlook.com \
|
|
--passfile2 ../../var/pass/secret.outlook.com \
|
|
--folder INBOX.flags --tmpdir /var/tmp --regextrans2 's/INBOX/tata/' --debugflags
|
|
}
|
|
|
|
l_office365_flagged_flag()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--office2 --user2 gilles.lamiral@outlook.com \
|
|
--passfile2 ../../var/pass/secret.outlook.com \
|
|
--folder INBOX.flags --tmpdir /var/tmp --regextrans2 's/INBOX/tata/' --debugflags
|
|
}
|
|
|
|
l_office365_noregexmess()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--office2 --user2 gilles.lamiral@outlook.com \
|
|
--passfile2 ../../var/pass/secret.outlook.com \
|
|
--justbanner --noregexmess
|
|
}
|
|
|
|
|
|
l_exchange2_flagged_flag()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 outlook.office365.com \
|
|
--exchange2 --user2 gilles.lamiral@outlook.com \
|
|
--passfile2 ../../var/pass/secret.outlook.com \
|
|
--regextrans2 's/INBOX/tata/' --nofoldersizes \
|
|
--folder INBOX.flags --debugflags
|
|
}
|
|
|
|
l_exchange2_flagged_noregexflag()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 outlook.office365.com \
|
|
--exchange2 --user2 gilles.lamiral@outlook.com \
|
|
--passfile2 ../../var/pass/secret.outlook.com \
|
|
--regextrans2 's/INBOX/tata/' --nofoldersizes \
|
|
--folder INBOX.flags --debugflags --noregexflag
|
|
}
|
|
|
|
l_exchange2_noregexmess_noregexflag()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 outlook.office365.com \
|
|
--exchange2 --user2 gilles.lamiral@outlook.com \
|
|
--passfile2 ../../var/pass/secret.outlook.com \
|
|
--justbanner --noregexmess --noregexflag
|
|
}
|
|
|
|
|
|
l_office365_SSL_verify_mode()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap-mail.outlook.com --ssl2 --user2 gilles.lamiral@outlook.com \
|
|
--passfile2 ../../var/pass/secret.outlook.com \
|
|
--justlogin --sslargs2 SSL_verify_mode=1
|
|
}
|
|
|
|
office1_office2()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--office1 \
|
|
--user1 gilles.lamiral@outlook.com \
|
|
--passfile1 ../../var/pass/secret.outlook.com \
|
|
--office2 \
|
|
--user2 gilles.lamiral@outlook.com \
|
|
--passfile2 ../../var/pass/secret.outlook.com \
|
|
--justfolders
|
|
}
|
|
|
|
office1_office2_noexclude()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--office1 \
|
|
--user1 gilles.lamiral@outlook.com \
|
|
--passfile1 ../../var/pass/secret.outlook.com \
|
|
--office2 \
|
|
--user2 gilles.lamiral@outlook.com \
|
|
--passfile2 ../../var/pass/secret.outlook.com \
|
|
--justfolders --noexclude
|
|
}
|
|
|
|
|
|
|
|
office365_justconnect_tls_SSL_verify_mode_1()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 imap-mail.outlook.com --ssl1 --user1 gilles.lamiral@outlook.com \
|
|
--passfile1 ../../var/pass/secret.outlook.com \
|
|
--host2 outlook.office365.com --tls2 --user2 gilles.lamiral@outlook.com \
|
|
--passfile2 ../../var/pass/secret.outlook.com \
|
|
--justconnect --sslargs2 SSL_verify_mode=1
|
|
}
|
|
|
|
|
|
office365_justlogin_ssl1_ssl2()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 imap-mail.outlook.com --ssl1 --user1 gilles.lamiral@outlook.com \
|
|
--passfile1 ../../var/pass/secret.outlook.com \
|
|
--host2 imap.outlook.com --ssl2 --user2 gilles.lamiral@outlook.com \
|
|
--passfile2 ../../var/pass/secret.outlook.com \
|
|
--justlogin
|
|
}
|
|
|
|
office365_justlogin_tls()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 imap-mail.outlook.com --ssl1 --user1 gilles.lamiral@outlook.com \
|
|
--passfile1 ../../var/pass/secret.outlook.com \
|
|
--host2 imap.outlook.com --tls2 --user2 gilles.lamiral@outlook.com \
|
|
--passfile2 ../../var/pass/secret.outlook.com \
|
|
--justlogin
|
|
}
|
|
|
|
|
|
office365_justlogin_tls2_office365()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 imap-mail.outlook.com --ssl1 --user1 gilles.lamiral@outlook.com \
|
|
--passfile1 ../../var/pass/secret.outlook.com \
|
|
--host2 outlook.office365.com --tls2 --user2 gilles.lamiral@outlook.com \
|
|
--passfile2 ../../var/pass/secret.outlook.com \
|
|
--justlogin --ssl2
|
|
}
|
|
|
|
office365_justlogin_ssl2_tls2_office365()
|
|
{
|
|
# Should produce "BAD Command received in Invalid state."
|
|
! $CMD_PERL ./imapsync \
|
|
--host1 imap-mail.outlook.com --ssl1 --user1 gilles.lamiral@outlook.com \
|
|
--passfile1 ../../var/pass/secret.outlook.com \
|
|
--host2 outlook.office365.com --tls2 --ssl2 --user2 gilles.lamiral@outlook.com \
|
|
--passfile2 ../../var/pass/secret.outlook.com \
|
|
--justlogin
|
|
}
|
|
|
|
office365_justlogin_nossl2_notls2_office365()
|
|
{
|
|
# Should also produce "BAD Command received in Invalid state."
|
|
! $CMD_PERL ./imapsync \
|
|
--host1 imap-mail.outlook.com --ssl1 --user1 gilles.lamiral@outlook.com \
|
|
--passfile1 ../../var/pass/secret.outlook.com \
|
|
--host2 outlook.office365.com --notls2 --nossl2 --user2 gilles.lamiral@outlook.com \
|
|
--passfile2 ../../var/pass/secret.outlook.com \
|
|
--justlogin
|
|
}
|
|
|
|
|
|
|
|
office365_justconnect_stunnel_ks() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 outlook.office365.com --ssl1 \
|
|
--host2 ks.lamiral.info --port2 144 \
|
|
--justconnect
|
|
}
|
|
|
|
office365_justconnect_stunnel_i005() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 outlook.office365.com --ssl1 \
|
|
--host2 i005.lamiral.info --port2 144 \
|
|
--justconnect
|
|
}
|
|
|
|
|
|
office365_justconnect_inet4_inet6()
|
|
{
|
|
echo force ipv4
|
|
$CMD_PERL ./imapsync \
|
|
--host1 imap-mail.outlook.com \
|
|
--host2 outlook.office365.com \
|
|
--justconnect --inet4
|
|
|
|
echo
|
|
echo force ipv6
|
|
$CMD_PERL ./imapsync \
|
|
--host1 imap-mail.outlook.com \
|
|
--host2 outlook.office365.com \
|
|
--justconnect --inet6
|
|
|
|
echo
|
|
# outlook.office365.com gives ipv6 2a01:111:f400:2fa2::2
|
|
echo this one should fail but is does not
|
|
$CMD_PERL ./imapsync \
|
|
--host1 imap-mail.outlook.com \
|
|
--host2 2603:1026:4:51::2 \
|
|
--justconnect --inet4
|
|
|
|
echo
|
|
# outlook.office365.com gives ipv4 40.101.42.82
|
|
echo this one should fail but is does not
|
|
$CMD_PERL ./imapsync \
|
|
--host1 imap-mail.outlook.com \
|
|
--host2 40.101.42.82 \
|
|
--justconnect --inet6
|
|
|
|
echo
|
|
# outlook.office365.com gives ipv6 2603:1026:4:50::2
|
|
echo this one should succeed
|
|
$CMD_PERL ./imapsync \
|
|
--host1 2603:1026:4:51::2 \
|
|
--host2 imap-mail.outlook.com \
|
|
--justconnect
|
|
}
|
|
|
|
inet4_inet6()
|
|
{
|
|
echo
|
|
# outlook.office365.com gives ipv6 2603:1026:4:50::2
|
|
# outlook.office365.com gives ipv4 52.97.129.66
|
|
|
|
echo this one should succeed
|
|
$CMD_PERL ./imapsync \
|
|
--host1 2603:1026:4:50::2 \
|
|
--host2 52.97.129.66 \
|
|
--justconnect
|
|
|
|
echo this one should do ipv6
|
|
$CMD_PERL ./imapsync \
|
|
--host1 outlook.office365.com \
|
|
--host2 outlook.office365.com \
|
|
--justconnect --inet6
|
|
|
|
echo this one should do ipv4
|
|
$CMD_PERL ./imapsync \
|
|
--host1 outlook.office365.com \
|
|
--host2 outlook.office365.com \
|
|
--justconnect --inet4
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
l_office365_bigfolders()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap-mail.outlook.com --ssl2 --user2 gilles.lamiral@outlook.com \
|
|
--passfile2 ../../var/pass/secret.outlook.com \
|
|
--tmpdir /var/tmp --useuid --include Junk.20
|
|
}
|
|
|
|
|
|
|
|
l_office365_maxline()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap-mail.outlook.com --ssl2 --user2 gilles.lamiral@outlook.com \
|
|
--passfile2 ../../var/pass/secret.outlook.com \
|
|
--tmpdir /var/tmp --usecache --include Junk.2013 --maxlinelength 16000 --debugmaxlinelength
|
|
}
|
|
|
|
l_office365_maxline_2()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap-mail.outlook.com --ssl2 --user2 gilles.lamiral@outlook.com \
|
|
--passfile2 ../../var/pass/secret.outlook.com \
|
|
--folder INBOX --regextrans2 's/INBOX/tata/' \
|
|
--minmaxlinelength 8000 --debugmaxlinelength
|
|
}
|
|
|
|
l_office365_maxline_3()
|
|
{
|
|
# It fails at 10240. So the fix is to cut at 10239
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 longlines \
|
|
--passfile1 ../../var/pass/secret.longlines \
|
|
--host2 imap-mail.outlook.com --user2 gilles.lamiral@outlook.com \
|
|
--passfile2 ../../var/pass/secret.outlook.com \
|
|
--tmpdir /var/tmp --usecache \
|
|
--folder INBOX --regextrans2 's/INBOX/longlines/' \
|
|
--debugmaxlinelength --errorsmax 1 --regexmess 's,(.{10239}),$1\r\n,g'
|
|
}
|
|
|
|
ll_empty_longlines()
|
|
{
|
|
./imapsync \
|
|
--host1 $HOST1 --user1 longlines --passfile1 ../../var/pass/secret.longlines \
|
|
--host2 $HOST1 --user2 longlines --passfile2 ../../var/pass/secret.longlines \
|
|
--delete1 --noexpungeaftereach --delete1emptyfolders
|
|
}
|
|
|
|
# Only available on ks2 (filtered by a firewall)
|
|
l_exchange_maxline()
|
|
{
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 correu.quopiam.com --ssl2 --user2 utest@quopiam.com \
|
|
--passfile2 ../../var/pass/secret.quopiam.com \
|
|
--tmpdir /var/tmp --usecache \
|
|
--folder INBOX --regextrans2 's/INBOX/longlines/' \
|
|
--minmaxlinelength 10000 --maxlinelength 11000 --debugmaxlinelength
|
|
}
|
|
|
|
# In mandatory_tests
|
|
fuzz_basic() {
|
|
zzuf -E '^' $CMD_PERL ./imapsync
|
|
}
|
|
|
|
# In mandatory_tests
|
|
fuzz_network() {
|
|
zzuf -E '^' -d -n $CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--timeout 5
|
|
}
|
|
|
|
# general tests end
|
|
|
|
##########################
|
|
# specific tests
|
|
##########################
|
|
|
|
|
|
free_ssl() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 imap.free.fr --user1 gilles.lamiral@free.fr --passfile1 ../../var/pass/secret.gilles_free \
|
|
--host2 imap.free.fr --user2 gilles.lamiral@free.fr --passfile2 ../../var/pass/secret.gilles_free \
|
|
--justlogin --ssl1 --ssl2
|
|
}
|
|
|
|
# xgenplus still ok on Wed Apr 3 15:36:09 CEST 2019
|
|
xgenplus() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 imap.dataone.in --user1 imapsynctest@dataone.in \
|
|
--passfile1 ../../var/pass/secret.xgenplus \
|
|
--host2 imap.dataone.in --user2 imapsynctest@dataone.in \
|
|
--passfile2 ../../var/pass/secret.xgenplus \
|
|
--sep1 / --sep2 / --prefix1 "" --prefix2 "" --dry
|
|
}
|
|
|
|
|
|
xgenplus_feed() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap.dataone.in --user2 imapsynctest@dataone.in \
|
|
--passfile2 ../../var/pass/secret.xgenplus \
|
|
--sep2 / --prefix2 "" \
|
|
--include "Junk.2013" --regextrans2 "s,Junk.2013,Junk," --dry
|
|
}
|
|
|
|
xgenplus_few() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 imap.dataone.in --user2 imapsynctest@dataone.in \
|
|
--passfile2 ../../var/pass/secret.xgenplus \
|
|
--sep2 / --prefix2 "" \
|
|
--include "few_emails" --dry
|
|
}
|
|
|
|
|
|
firstclass() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 mail.una.ab.ca \
|
|
--user1 glamiral --passfile1 ../../var/pass/secret.firstclass \
|
|
--host2 mail.una.ab.ca \
|
|
--user2 glamiral --passfile2 ../../var/pass/secret.firstclass \
|
|
--dry --useuid --debugcontent
|
|
}
|
|
|
|
firstclass_fullfill() {
|
|
$CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 mail.una.ab.ca \
|
|
--user2 glamiral --passfile2 ../../var/pass/secret.firstclass \
|
|
--debugcontent \
|
|
--folder INBOX.few_emails --f1f2 'INBOX.few_emails=INBOX'
|
|
}
|
|
|
|
|
|
|
|
# End of specific tests
|
|
|
|
huge_folder()
|
|
{
|
|
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 \
|
|
--include INBOX.Junk.2010 \
|
|
--usecache --tmpdir /var/tmp || \
|
|
true
|
|
}
|
|
date2=`date`
|
|
echo3 "[$date1] [$date2]"
|
|
}
|
|
|
|
huge_folder_headers_ALL()
|
|
{
|
|
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 \
|
|
--include INBOX.Junk.2010 \
|
|
--tmpdir /var/tmp --useheader ALL || \
|
|
true
|
|
}
|
|
date2=`date`
|
|
echo3 "[$date1] [$date2]"
|
|
}
|
|
|
|
huge_folder_2018()
|
|
{
|
|
date1=`date`
|
|
{ $CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 gilles@est.belle \
|
|
--passfile1 ../../var/pass/secret.gilles_mbox \
|
|
--host2 $HOST2 --user2 gilles@est.belle \
|
|
--passfile2 ../../var/pass/secret.gilles_mbox \
|
|
--folder INBOX.Junk \
|
|
--f1f2 INBOX.Junk=INBOX.Junk.2018 \
|
|
--search "SENTBEFORE 1-Jan-2019" \
|
|
--tmpdir /var/tmp --usecache --delete1
|
|
}
|
|
date2=`date`
|
|
echo3 "[$date1] [$date2]"
|
|
}
|
|
|
|
|
|
huge_message_ks()
|
|
{
|
|
date1=`date`
|
|
{ $CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 tete \
|
|
--passfile2 ../../var/pass/secret.tete \
|
|
--folder INBOX --minsize 100000000 \
|
|
--tmpdir /var/tmp --debugmemory --nofoldersizes
|
|
}
|
|
date2=`date`
|
|
echo3 "[$date1] [$date2]"
|
|
echo3 'rm -f /home/tete/Maildir/cur/*'
|
|
}
|
|
|
|
|
|
huge_folder_ks()
|
|
{
|
|
date1=`date`
|
|
{ $CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 tete \
|
|
--passfile2 ../../var/pass/secret.tete \
|
|
--include Junk.2010 \
|
|
--tmpdir /var/tmp
|
|
}
|
|
date2=`date`
|
|
echo3 "[$date1] [$date2]"
|
|
echo3 'rm -f /home/tete/Maildir/.Junk.2010/cur/*'
|
|
}
|
|
|
|
|
|
|
|
|
|
huge_folder_useuid()
|
|
{
|
|
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 \
|
|
--include INBOX.Junk.20 --foldersizes \
|
|
--useuid --tmpdir /var/tmp --delete2 || \
|
|
true
|
|
}
|
|
date2=`date`
|
|
echo3 "[$date1] [$date2]"
|
|
}
|
|
|
|
|
|
|
|
|
|
huge_folder_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 \
|
|
--justfoldersizes --folder INBOX.Junk.2010 || \
|
|
true
|
|
}
|
|
date2=`date`
|
|
echo3 "[$date1] [$date2]"
|
|
}
|
|
|
|
huge_folder_fast()
|
|
{
|
|
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 \
|
|
--folder INBOX.Junk.2010 \
|
|
--fast || \
|
|
true
|
|
}
|
|
date2=`date`
|
|
echo3 "[$date1] [$date2]"
|
|
}
|
|
|
|
huge_folder_fast2()
|
|
{
|
|
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 \
|
|
--folder INBOX.Junk \
|
|
--fast || \
|
|
true
|
|
}
|
|
date2=`date`
|
|
echo3 "[$date1] [$date2]"
|
|
echo3 'rm -f /home/vmail/tete/.Junk/cur/*'
|
|
}
|
|
|
|
|
|
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 \
|
|
--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 \
|
|
--nofoldersizes --folder INBOX.03_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
|
|
}
|
|
|
|
dprof_bigmail()
|
|
{
|
|
date1=`date`
|
|
{ $CMD_PERL -d:DProf ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.bigmail --dry --maxlinelength 8888
|
|
echo 'sudo sh -c "rm -v /home/vmail/titi/.bigmail/cur/*"' || \
|
|
true
|
|
}
|
|
date2=`date`
|
|
echo3 "[$date1] [$date2]"
|
|
mv tmon.out W/dprof_bigmail_tmon.out
|
|
dprofpp -O 30 W/dprof_bigmail_tmon.out
|
|
dprofpp -O 30 -I W/dprof_bigmail_tmon.out
|
|
}
|
|
|
|
nytprof_bigmail()
|
|
{
|
|
date1=`date`
|
|
{ $CMD_PERL -d:NYTProf ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.bigmail --dry --maxlinelength 8888
|
|
echo 'sudo sh -c "rm -v /home/vmail/titi/.bigmail/cur/*"' || \
|
|
true
|
|
}
|
|
date2=`date`
|
|
echo3 "[$date1] [$date2]"
|
|
}
|
|
|
|
ll_nytprof()
|
|
{
|
|
date1=`date`
|
|
# one time without NYTProf
|
|
{ $CMD_PERL ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi
|
|
}
|
|
date2=`date`
|
|
# then one time with NYTProf
|
|
{ $CMD_PERL -d:NYTProf ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi
|
|
}
|
|
date3=`date`
|
|
echo3 "begin: [$date1]"
|
|
echo3 "first: [$date2]"
|
|
echo3 "end: [$date3]"
|
|
}
|
|
|
|
|
|
|
|
dprof2_bigmail()
|
|
{
|
|
date1=`date`
|
|
{ $CMD_PERL -d:Profile ./imapsync \
|
|
--host1 $HOST1 --user1 tata \
|
|
--passfile1 ../../var/pass/secret.tata \
|
|
--host2 $HOST2 --user2 titi \
|
|
--passfile2 ../../var/pass/secret.titi \
|
|
--folder INBOX.bigmail --debugmemory --dry
|
|
echo 'sudo sh -c "rm -v /home/vmail/titi/.bigmail/cur/*"' || \
|
|
true
|
|
}
|
|
date2=`date`
|
|
echo3 "[$date1] [$date2]"
|
|
mv prof.out W/dprof2_bigmail_tmon.out
|
|
}
|
|
|
|
|
|
|
|
##########################
|
|
##########################
|
|
|
|
# Tests list
|
|
|
|
mandatory_tests='
|
|
no_args
|
|
option_version
|
|
option_tests
|
|
option_tests_in_var_tmp
|
|
option_tests_in_var_tmp_sub
|
|
option_testsdebug
|
|
option_releasecheck
|
|
option_noreleasecheck
|
|
option_bad_delete2
|
|
option_extra_arguments
|
|
passfile1_noexist
|
|
passfile2_noexist
|
|
passwords_masked
|
|
passwords_not_masked
|
|
ll_authentication_failure
|
|
first_sync_dry
|
|
first_sync
|
|
ll
|
|
pidfile_well_removed
|
|
pidfile_bad
|
|
ll_pidfilelocking
|
|
test_tail
|
|
justbanner
|
|
nomodules_version
|
|
xxxxx_gmail
|
|
gmail_xxxxx
|
|
gmail
|
|
gmail_gmail
|
|
gmail_gmail_INBOX
|
|
gmail_gmail_folderfirst
|
|
yahoo_all
|
|
free_ssl
|
|
office365_justconnect_inet4_inet6
|
|
office365_justconnect_tls_SSL_verify_mode_1
|
|
ll_unknow_option
|
|
ll_ask_password
|
|
ll_env_password
|
|
ll_bug_folder_name_with_blank
|
|
ll_timeout
|
|
ll_folder
|
|
ll_folder_noexist
|
|
ll_folder_mixfolders
|
|
ll_nocheckselectable
|
|
ll_checkselectable
|
|
ll_nocheckfoldersexist
|
|
ll_checkfoldersexist
|
|
ll_subfolder2
|
|
ll_subfolder1
|
|
ll_subfolder1_INBOX_SUB
|
|
ll_subfolder1_DOES_NOT_EXIST
|
|
ll_oneemail
|
|
ll_buffersize
|
|
ll_justfolders
|
|
ll_justfolders_delete1emptyfolders
|
|
ll_justfolders_skipemptyfolders
|
|
ll_prefix12
|
|
ll_nosyncinternaldates
|
|
ll_idatefromheader
|
|
ll_folder_rev
|
|
ll_subscribed
|
|
ll_nosubscribe
|
|
ll_justfoldersizes
|
|
ll_justfoldersizes_noexist
|
|
ll_authmd5
|
|
ll_authmd51
|
|
ll_authmd52
|
|
ll_noauthmd5
|
|
ll_maxage
|
|
ll_maxsize
|
|
ll_skipsize
|
|
ll_skipheader
|
|
ll_include
|
|
ll_exclude
|
|
ll_exclude_INBOX
|
|
ll_regextrans2
|
|
ll_sep2
|
|
ll_bad_login
|
|
ll_bad_host
|
|
ll_bad_host_ssl
|
|
ll_useheader
|
|
ll_useheader_noheader
|
|
ll_regexmess
|
|
ll_regexmess_bad_regex
|
|
ll_regexmess_add_header
|
|
ll_regexmess_add_header_path
|
|
ll_regexmess_scwchu
|
|
ll_skipmess
|
|
ll_skipmess_8bits
|
|
ll_skipmess_Content_Type_Message_partial
|
|
ll_pipemess_nocmd
|
|
ll_pipemess_false
|
|
ll_pipemess_true
|
|
ll_pipemess
|
|
ll_pipemess_catcat
|
|
ll_flags
|
|
ll_resyncflags
|
|
ll_noresyncflags
|
|
ll_syncflagsaftercopy
|
|
ll_regex_flag
|
|
ll_regex_flag_bad
|
|
ll_regex_flag_keep_only
|
|
ll_justconnect
|
|
ll_justconnect_ipv6
|
|
ll_justconnect_ipv6_nossl
|
|
ll_justhost1
|
|
ll_justhost2
|
|
ll_justlogin
|
|
ll_justconnect_devel
|
|
ll_ssl
|
|
ll_ssl_justconnect
|
|
ll_ssl_justlogin
|
|
ll_ssl_justconnect_sslargs
|
|
ll_tls_justconnect
|
|
ll_tls_justlogin
|
|
ll_tls
|
|
ll_authmech_PLAIN
|
|
ll_authmech_xoauth2_gmail
|
|
ll_authmech_xoauth2_json_gmail
|
|
ll_authmech_LOGIN
|
|
ll_authmech_CRAMMD5
|
|
ll_authmech_PREAUTH
|
|
ll_authuser
|
|
ll_delete1_delete2
|
|
ll_delete2
|
|
ll_delete1
|
|
ll_delete1_twoemails
|
|
ll_folderrec
|
|
ll_memory_consumption
|
|
ll_newmessage
|
|
ll_usecache
|
|
ll_usecache_noheader
|
|
ll_usecache_debugcache
|
|
ll_nousecache
|
|
ll_delete2foldersonly_NEW_3
|
|
ll_delete2foldersonly_dry
|
|
ll_delete2foldersonly_subfolder2
|
|
ll_delete2foldersbutnot
|
|
ll_folder_create
|
|
ll_folder_create_INBOX_Inbox
|
|
ll_delete2folders
|
|
ll_useuid
|
|
ll_useuid_nousecache
|
|
ll_noheader_force
|
|
ll_noheader
|
|
ll_domino1_domino2
|
|
ll_domino2
|
|
fuzz_basic
|
|
fuzz_network
|
|
testslive
|
|
ll_abort_pidfile_no_exist
|
|
ll_abort_noprocess
|
|
ll_abort
|
|
ll_abort_cgi_context_tail
|
|
ll_abort_no_pidfile_option
|
|
ll_sigreconnect_INT
|
|
ksks_reset_test1
|
|
memory_stress
|
|
'
|
|
|
|
# 2019_12 Removed
|
|
# ks_justconnect_ipv6_nossl testslive6
|
|
# ks_justconnect_ipv6
|
|
|
|
|
|
other_tests='
|
|
archiveopteryx_1
|
|
msw
|
|
msw2
|
|
ll_bigmail
|
|
ll_justlogin_backslash_char
|
|
'
|
|
|
|
l() {
|
|
echo "$mandatory_tests" "$other_tests"
|
|
}
|
|
|
|
# minimal and fatal tests
|
|
|
|
run_tests perl_syntax || exit 1
|
|
|
|
set_return_code_variables
|
|
|
|
if test $# -eq 0; then
|
|
# mandatory tests
|
|
if run_tests $mandatory_tests; then
|
|
./i3 --version >> .test_3xx
|
|
return 0
|
|
fi
|
|
else
|
|
# selective tests
|
|
run_tests "$@"
|
|
return $?
|
|
fi
|
|
|