Re: locale errors

[Chris Hiestand <chiestand@salk.edu>]

I wrote this quick perl script to fix this problem across multiple  
systems (it sets the locale to en_US.UTF-8, so you may need to modify  
this if you need to):


#!/usr/bin/perl -w
#set-debian-locales-utf8.pl

sub exec_ok($$);

use strict;
use warnings;

if (! ( `debconf-show locales` =~ m/locales\/ 
default_environment_locale: en_US.UTF-8/ ) ) {

	system("echo \"locales locales/locales_to_be_generated multiselect  
en_US.UTF-8 UTF-8, en_US ISO-8859-1\" | debconf-set-selections");
	exec_ok($?, 'debconf-set-selections');
	system("echo \"locales locales/default_environment_locale select  
en_US.UTF-8\" | debconf-set-selections");
	exec_ok($?, 'debconf-set-selections');
	
	if (-e '/etc/locale.gen')	{
		unlink('/etc/locale.gen');
	}
	
	system("dpkg-reconfigure -f noninteractive locales");
	exec_ok($?, 'dpkg-reconfigure');
}

sub exec_ok($$) {
	my $exitCode = shift;
	my $program = shift;
  if ( $exitCode != 0 ) {
      die("$program exited with error code: $exitCode\n");
  }
}

Attachment: smime.p7s
Description: S/MIME cryptographic signature