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

1.977

Browse source
This commit is contained in:
Nick Bebout 2020-04-10 18:15:57 -05:00
parent 93b917b12b
commit 1d08afaba6
139 changed files with 27179 additions and 6213 deletions
Download patch file Download diff file Expand all files Collapse all files

24
W/learn/imap_utf7_tests_Encode_IMAPUTF7 Executable file
View file

@ -0,0 +1,24 @@
#!/usr/bin/perl
use strict ;
use warnings ;
use Encode::IMAPUTF7 ;
sub imap_utf7_decode_new
{
use utf8 ;
my ( $s ) = shift ;
return( Encode::IMAPUTF7::decode("IMAP-UTF-7", $s ) ) ;
}
sub imap_utf7_encode_new
{
use utf8 ;
my ( $s ) = shift ;
return( Encode::IMAPUTF7::encode("IMAP-UTF-7", $s ) ) ;
}
use utf8 ;
#no utf8 ;
print( Encode::IMAPUTF7::encode('IMAP-UTF-7', 'Répertoire' ), "\n" );
print( Encode::IMAPUTF7::decode('IMAP-UTF-7', 'R&AOk-pertoire' ), "\n" );