mirror of
https://github.com/imapsync/imapsync.git
synced 2024-11-17 00:02:29 +01:00
24 lines
468 B
Perl
Executable File
24 lines
468 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use Unicode::String ;
|
|
|
|
while (<>) {
|
|
chomp ;
|
|
push( @result, sprintf( "%s\n", imap_utf7_encode( $_ ) ) ) ;
|
|
}
|
|
|
|
print @result ;
|
|
|
|
# http://cpansearch.perl.org/src/FABPOT/Unicode-IMAPUtf7-2.01/lib/Unicode/IMAPUtf7.pm
|
|
|
|
sub imap_utf7_encode {
|
|
my ( $s ) = @_ ;
|
|
|
|
$s = Unicode::String::utf8( $s )->utf7 ;
|
|
|
|
$s =~ s/\+([^\/&\-]*)\/([^\/\-&]*)\-/\+$1,$2\-/g ;
|
|
$s =~ s/&/&\-/g ;
|
|
$s =~ s/\+([^+\-]+)?\-/&$1\-/g ;
|
|
return( $s ) ;
|
|
}
|