#!/usr/bin/perl

use Locale::gettext;
use POSIX;

setlocale(LC_MESSAGES, "");
bindtextdomain("CD_README","./tmp/");
textdomain("CD_README");

sub N {
	my $s = shift @_; my $t = gettext($s);
	sprintf $t, @_;
}

my $lang=$ENV{LANGUAGE};
my $html_lang="$lang";
my $dir="ltr";
my $left="left";
my $right="right";

if ( $lang =~ /ar|fa|he|ug|ur|yi/) { $dir="rtl"; $left="right"; $right="left" };
if ( $lang =~ /zh_CN/ ) { $html_lang = "zh-CN"; };
if ( $lang =~ /zh_TW/ ) { $html_lang = "zh-TW"; };
if ( $lang =~ /pt_BR/ ) { $html_lang = "pt-BR"; };
if ( $lang =~ /sr\@Latn/ ) { $html_lang = "sr"; };
if ( $lang =~ /uz\@Latn/ ) { $html_lang = "uz"; };
if ( $lang eq "C" )     { $lang = "en" ; $html_lang = "en"; };

# langs for which we have pages
my $our_lang="en";
my $newbie="newbie";
if ( $lang =~ /de/ ) { $our_lang = "de"; $newbie="newbie-de"; };
if ( $lang =~ /es|ca|eu/ ) { $our_lang = "es"; $newbie="newbie-es"; };
if ( $lang =~ /fi/ ) { $our_lang = "fi"; $newbie="newbie-fi"; };
if ( $lang =~ /fr|br|oc|wa/ ) { $our_lang = "fr"; $newbie="debutant"; };
if ( $lang =~ /he/ ) { $our_lang = "he"; $newbie="newbie-he"; };
if ( $lang =~ /hi/ ) { $our_lang = "hi"; $newbie="newbie-hi"; };
if ( $lang =~ /it|fur|sc/ ) { $our_lang = "it"; $newbie="newbie-it"; };
if ( $lang =~ /ja/ ) { $our_lang = "ja"; $newbie="newbie-ja"; };
if ( $lang =~ /nl|fy/ ) { $our_lang = "nl"; $newbie="newbie-nl"; };
if ( $lang =~ /pl/ ) { $our_lang = "pl"; $newbie="newbie-pl"; };
if ( $lang =~ /pt/ ) { $our_lang = "pt"; $newbie="newbie-pt"; };
if ( $lang =~ /pt_BR/ ) { $our_lang = "pt-BR"; $newbie="newbie-ptbr"; };
if ( $lang =~ /ru/ ) { $our_lang = "ru"; $newbie="newbie-ru"; };
#if ( $lang =~ /sv/ ) { $our_lang = "sv"; $newbie="newbie-sv "; }; seems only homepage exists
if ( $lang =~ /sv/ ) { $newbie="newbie-sv"; }; #seems only homepage exists
if ( $lang =~ /zh_CN/ ) { $our_lang = "zh"; $newbie="newbie-zhcn"; };

# recode used to convert html entities (eg: "&") to plain text. the double
# recoding is needed because recode stupidely things html is in latin1 only;
# so the first recode converts anything non-ascii into html entities, and
# the second converts back all entities into utf-8 the ones created by the
# previous step, and the few ones that were there previously and the reason for the call to recode.
open (README_TXT, "| sed 's/<.--//g' | sed 's/\\([^|`]\\)-->/\\1/g' | sed 's:&:&_:g' | sed 's:<[^>]*>::g' | recode utf8..h4 | sed 's:&amp;_:\\&:g' | recode h4..utf8 > tmp/README-$lang.txt") || die("can't open tmp/README-$lang.txt");
print README_TXT "";
print README_TXT "\n";
print README_TXT "                               Mandriva Linux\n";
print README_TXT "                               =============\n";
print README_TXT "\n";
print README_TXT "============================================================================\n";
print README_TXT "\n";
print README_TXT "   " .
N("The contents of this CD-ROM are Copyright (C) 2003-2005 Mandriva
   S.A. and others. Please see the individual copyright notices in each
   source package for distribution terms. The distribution terms of
   the tools copyrighted by Mandriva are noted in the file %s.",
   "COPYING") . "\n";
print README_TXT "\n";
# the %s placeholders are for <em> and </em> in html version, and
# nothing in the text version; that way a same string is used for both
print README_TXT "   " . N("%sMandriva Linux%s and its logo are trademarks of Mandriva S.A.","","") . "\n";
print README_TXT "\n";
print README_TXT "============================================================================\n";
print README_TXT "\n";
print README_TXT N("1. %s", N("Directory Organization")) . "\n";
print README_TXT "\n";
print README_TXT "   " . N("This directory is organized as follows:") . "\n";
print README_TXT "\n";
#if ( $dir =~ /rtl/ ) { print README_TXT "\n" };
#if ( $dir =~ /ltr/ ) {
  print README_TXT "   |--> media/           \n";
  print README_TXT "   |   |--> main/        " . N("main binary packages") . "\n";
  print README_TXT "   |   |--> contrib/     " . N("contrib binary packages") . "\n";
  print README_TXT "   |   `--> media_info/  " . N("packages meta data") . "\n";
  print README_TXT "   |--> install/         \n";
  print README_TXT "   |   |--> extra/       " . N("installation advertising images") . "\n";
  print README_TXT "   |   |--> images/      " . N("boot images") . "\n";
  print README_TXT "   |   `--> stage2/      " . N("ramdisk images of the installation") . "\n";
  print README_TXT "   |       `--> live/    " . N("installation program files") . "\n";
  print README_TXT "   |--> isolinux/        " . N("isolinux boot images") . "\n";
  print README_TXT "   |--> doc/             " . N("installation help files in various languages") . "\n";
  print README_TXT "   |--> dosutils/        " . N("installation utilities for DOS") . "\n";
  print README_TXT "   |--> misc/            " . N("source files, install trees") . "\n";
  print README_TXT "   |--> VERSION          " . N("current version number") . "\n";
  print README_TXT "   |--> COPYING          " . N("copyright information") . "\n";
  print README_TXT "   |--> INSTALL.txt      " . N("installation instructions") . "\n";
  print README_TXT "   `--> README.txt       " . N("this file in text mode") . "\n";
#};
print README_TXT "\n";
print README_TXT "   " .
N("If you are mirroring to a partition or an NFS volume, you'll need to
   get everything under \"%s\" for installation related
   files, and everything under \"%s\" for packages, as
   well as the isolinux images from \"%s\".",
  "install/",
  "media/",
  "isolinux/") . "\n";
print README_TXT "\n";
print README_TXT "============================================================================\n";
print README_TXT "\n";
print README_TXT N("2. %s", N("Installing")) . "\n";
print README_TXT "\n";
print README_TXT "   " . N("See the %s file.", "INSTALL.txt") . "\n";
print README_TXT "\n";
print README_TXT "   " . N("IMPORTANT COMPATIBILITY NOTE:") . "\n";
print README_TXT "\n";
print README_TXT "   " . 
N("Mandriva Linux is built with CPU speed optimizations for Pentium-class
   (Pentium(tm) and compatibles, AMD Athlon, Pentium 4...) so it <b>WILL
   NOT RUN</b> on older i386 and i486 based computers.") . "\n";
print README_TXT "\n";
print README_TXT "============================================================================\n";
print README_TXT "\n";
print README_TXT N("3. %s", N("Sources")) . "\n";
print README_TXT "\n";
print README_TXT "   " . 
N("All the Mandriva Linux specific packages come with their sources
   in the source-CD (PowerPack Edition).") . "\n";
print README_TXT "\n";
print README_TXT "   " . N("You can download all the source packages from our FTP servers.") . "\n";
print README_TXT "\n";
print README_TXT "   " . 
N("If you don't have any convenient Internet access, Mandriva can
   send you a source archive for a small fee.") . "\n";
print README_TXT "\n";
print README_TXT "============================================================================\n";
print README_TXT "\n";
print README_TXT N("4. %s", N("Support")) . "\n";
print README_TXT "\n";
print README_TXT "   " . N("For those with web access, check:") . "\n";
print README_TXT "     * http://www.mandriva.com/support\n";
print README_TXT "\n";
print README_TXT "   " . N("In particular, access to our mailing lists can be found at:") . "\n";
print README_TXT "     * http://www.mandrivalinux.com/$our_lang/flists.php3\n";
print README_TXT "\n";
print README_TXT "   " .
N("If you don't have any web access you can still subscribe to the main
   mailing list.  To subscribe, send mail to %s
   with \"%s\" in the body of the message.",
  "sympa\@mandrivalinux.com",
  "subscribe $newbie") . "\n";
print README_TXT "\n";
print README_TXT "============================================================================\n";
print README_TXT "\n";
print README_TXT "   " .
N("If you did not receive documentation with this product, you can order
   the Mandriva Linux PowerPack Edition (several Mandriva Linux CDs + 
   Installation &amp; User Guide + installation support!) from our on-line
   store at:") . "\n";
print README_TXT "\n";
print README_TXT "     * http://www.mandrivastore.com/\n";
print README_TXT "\n";
print README_TXT "============================================================================\n";
print README_TXT "\n";
print README_TXT N("5. %s", N("Contact")) . "\n";
print README_TXT "\n";
print README_TXT "   " . N("Mandriva can be reached at:") . "\n";
print README_TXT "\n";
print README_TXT "     * http://www.mandriva.com/company/contact\n";
print README_TXT "\n";