diff options
author | Tim Retout <tim@retout.co.uk> | 2012-08-14 08:33:22 +0100 |
---|---|---|
committer | Tim Retout <tim@retout.co.uk> | 2012-08-14 20:06:46 +0100 |
commit | e6ac2ad7ac9bbdae9ac226a2c8202f627dd0ba8a (patch) | |
tree | b4849b61c7a5f33348e54664beb1d820378890b4 | |
parent | 42801a0e690a63c3a94b1d8256b6c7cd64856bd2 (diff) |
installer::download: Remove unused unicode conversion functions.
Change-Id: Ie4a22b0e88c5509d291b47f4af67ab780d60e3a8
-rw-r--r-- | solenv/bin/modules/installer/download.pm | 58 |
1 files changed, 0 insertions, 58 deletions
diff --git a/solenv/bin/modules/installer/download.pm b/solenv/bin/modules/installer/download.pm index ac48fe59dd68..b21bbe3a2489 100644 --- a/solenv/bin/modules/installer/download.pm +++ b/solenv/bin/modules/installer/download.pm @@ -778,64 +778,6 @@ sub get_language_string_from_language_block return $newstring; } -################################################################## -# Converting utf 16 file to utf 8 -################################################################## - -sub convert_utf16_to_utf8 -{ - my ( $filename ) = @_; - - my @localfile = (); - - my $savfilename = $filename . "_before.utf16"; - installer::systemactions::copy_one_file($filename, $savfilename); - - open( IN, "<:encoding(UTF16-LE)", $filename ) || installer::exiter::exit_program("ERROR: Cannot open file $filename for reading", "convert_utf16_to_utf8"); - while ( $line = <IN> ) { - push @localfile, $line; - } - close( IN ); - - if ( open( OUT, ">:utf8", $filename ) ) - { - print OUT @localfile; - close(OUT); - } - - $savfilename = $filename . "_before.utf8"; - installer::systemactions::copy_one_file($filename, $savfilename); -} - -################################################################## -# Converting utf 8 file to utf 16 -################################################################## - -sub convert_utf8_to_utf16 -{ - my ( $filename ) = @_; - - my @localfile = (); - - my $savfilename = $filename . "_after.utf8"; - installer::systemactions::copy_one_file($filename, $savfilename); - - open( IN, "<:utf8", $filename ) || installer::exiter::exit_program("ERROR: Cannot open file $filename for reading", "convert_utf8_to_utf16"); - while ( $line = <IN> ) { - push @localfile, $line; - } - close( IN ); - - if ( open( OUT, ">:raw:encoding(UTF16-LE):crlf:utf8", $filename ) ) - { - print OUT @localfile; - close(OUT); - } - - $savfilename = $filename . "_after.utf16"; - installer::systemactions::copy_one_file($filename, $savfilename); -} - #################################################### # Creating link tree for upload #################################################### |