zydronium/imapsync
1
0
Fork 0
mirror of https://github.com/imapsync/imapsync.git synced 2025-06-07 13:15:22 +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

27
W/learn/imap_Encode_IMAPUTF7_decode Executable file
View file

@ -0,0 +1,27 @@
#!/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 ;
while ( <> )
{
chomp ;
#print( Encode::IMAPUTF7::encode('IMAP-UTF-7', $_ ), "\n" ) ;
print( Encode::IMAPUTF7::decode('IMAP-UTF-7', $_ ), "\n" ) ;
}