#!/usr/bin/perl -T
sub lang_set{
  my $lang_opt=$_[0];
  if ( "$lang_opt" eq "" ){
    # Use the environment variable
    if ( "$ENV{'LANG'}" ne "" && -e "$DRBL_SCRIPT_PATH/lang/perl/$ENV{'LANG'}") {
      $language="$ENV{'LANG'}";
    } else { 
      $language="en_US";
    }
  } elsif ("$lang_opt" eq "1"){
      $language="zh_TW.BIG5";
  } elsif ("$lang_opt" eq "2"){
      $language="zh_TW.UTF-8";
  } elsif ( "$lang_opt" eq "ask" || "$lang_opt" eq "a" ){
    # l10n
    print "Language | y| 語言 ?\n".
          "[0]: English\n".
          "[1]: Chinese Traditional (Big5) - Taiwan |  (jX) - xW\n".
          "[2]: Chinese Traditional (UTF-8, Unicode) - Taiwan | 中文 (萬國標準碼) - 台灣\n".
          "[0] ";
    chomp($language=<STDIN>);
    if ($language eq "1"){
      $language="zh_TW.BIG5";
    } elsif ($language eq "2"){
      $language="zh_TW.UTF-8";
    } else {
      $language="en_US";
    }
  } else {
    # lang_opt is not nothing, nor 0/1/2/ask/a
    if (-e "$DRBL_SCRIPT_PATH/lang/perl/$lang_opt") {
      $language="$lang_opt";
    } else { 
      $language="en_US";
    }
  }
  return $language;
} # end of lang

return 1;
