summaryrefslogtreecommitdiff
path: root/solenv/bin/modules/installer/download.pm
diff options
context:
space:
mode:
authorTim Retout <tim@retout.co.uk>2012-08-14 08:33:22 +0100
committerTim Retout <tim@retout.co.uk>2012-08-14 20:06:46 +0100
commite6ac2ad7ac9bbdae9ac226a2c8202f627dd0ba8a (patch)
treeb4849b61c7a5f33348e54664beb1d820378890b4 /solenv/bin/modules/installer/download.pm
parent42801a0e690a63c3a94b1d8256b6c7cd64856bd2 (diff)
installer::download: Remove unused unicode conversion functions.
Change-Id: Ie4a22b0e88c5509d291b47f4af67ab780d60e3a8
Diffstat (limited to 'solenv/bin/modules/installer/download.pm')
-rw-r--r--solenv/bin/modules/installer/download.pm58
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
####################################################