added a function to change console font

1 files changed, 16 insertions, 0 deletions

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index b7bb11d4d..0638f2840 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -334,6 +334,22 @@ sub load_po($) {
 }
 
 
+sub load_console_font {
+    my ($lang) = @_;
+    my ($charset) = $languages{$lang}[1] ;
+    my $f = "-f lat0-sun16";
+
+    if (my $c = $charsets{$charset}) {
+	   if ($c->[0]) { $f = "-f " . $c->[0] ; } 
+	   if ($c->[1]) { $f = $f . " -u " . $c->[1] ; }
+	   if ($c->[2]) { $f = $f . " -m " . $c->[2] ; }
+    }
+
+    log::l("loading console font: consolechars $f");
+    system("consolechars $f"); 
+
+}
+
 #-sub load_font {
 #-    my ($charset) = @_;
 #-    my $fontFile = "lat0-sun16";