zydronium/imapsync
1
0
Fork 0
mirror of https://github.com/imapsync/imapsync.git synced 2025-08-02 07:11:48 +02:00
Code Issues Projects Releases Packages Wiki Activity

1.945

Browse source
This commit is contained in:
Nick Bebout 2019-07-02 18:25:47 -05:00
parent 0797e48248
commit 275436c5a0
126 changed files with 25270 additions and 4380 deletions
Download patch file Download diff file Expand all files Collapse all files

14
W/learn/longline_10000_11000
View file

@ -1,12 +1,18 @@
#!/bin/sh
# $Id: longline_10000_11000,v 1.2 2014/01/15 02:21:38 gilles Exp gilles $
# $Id: longline_10000_11000,v 1.5 2019/06/17 12:21:28 gilles Exp gilles $
# Test Exchange limit for maxlinelenght
# Generate messages with line lenght of 10000 10100 ... up to 10990 characters
for M in `count 10 99`; do
for M in `count 00 99`; do
echo $M
{ echo Hello Guys; echo ; perl -e "print 'L' x 10${M}0" ; echo; echo END; } \
| mail.mailutils -s "line of 10${M}0 characters" tata@localhost.
{
echo Hello Guys
echo
echo Take a line of 10${M}0 characters:
perl -e "print 'L' x 10${M}0" ;
echo
echo "END of 10${M}0 characters line message" ; } \
| mail.mailutils -s "Can you take a line of 10${M}0 characters?" longlines@localhost.
done

18
W/learn/longline_10230_10240 Executable file
View file

@ -0,0 +1,18 @@
#!/bin/sh
# $Id: longline_10000_11000,v 1.5 2019/06/17 12:21:28 gilles Exp gilles $
# Test Exchange limit for maxlinelenght
# Generate messages with line lenght of 10000 10100 ... up to 10990 characters
for M in `count 30 40`; do
echo $M
{
echo Hello Guys
echo
echo Take a line of 102${M} characters:
perl -e "print 'L' x 102${M}" ;
echo
echo "END of 102${M} characters line message" ; } \
| mail.mailutils -s "Can you take a line of 102${M} characters?" longlines@localhost.
done

4
W/learn/utf7_to_utf7imap
View file

@ -6,12 +6,12 @@ use strict ;
use warnings ;
foreach my $str_utf7 ( @ARGV ) {
my $str_utf7imap = utf7_to_uft7imap( $str_utf7 ) ;
my $str_utf7imap = utf7_to_utf7imap( $str_utf7 ) ;
print qq{mv '$str_utf7' '$str_utf7imap'\n} ;
}
# http://cpansearch.perl.org/src/FABPOT/Unicode-IMAPUtf7-2.01/lib/Unicode/IMAPUtf7.pm
sub utf7_to_uft7imap {
sub utf7_to_utf7imap {
my ( $s ) = @_ ;
$s =~ s/\+([^\/&\-]*)\/([^\/\-&]*)\-/\+$1,$2\-/g ;