From e6ac2ad7ac9bbdae9ac226a2c8202f627dd0ba8a Mon Sep 17 00:00:00 2001
From: Tim Retout <tim@retout.co.uk>
Date: Tue, 14 Aug 2012 08:33:22 +0100
Subject: installer::download: Remove unused unicode conversion functions.

Change-Id: Ie4a22b0e88c5509d291b47f4af67ab780d60e3a8
---
 solenv/bin/modules/installer/download.pm | 58 --------------------------------
 1 file changed, 58 deletions(-)

(limited to 'solenv/bin')

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
 ####################################################
-- 
cgit