#!/usr/bin/perl use Locale::gettext; use POSIX; my $version = "2007"; 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"; }; open (INDEX_HTML, ">tmp/index-$lang.htm") || die("can't open tmp/index-$lang.htm"); print INDEX_HTML "\n"; print INDEX_HTML "\n"; print INDEX_HTML "\n"; print INDEX_HTML " \n"; print INDEX_HTML " \n"; print INDEX_HTML " " . N("WELCOME - Mandriva Linux %s",$version) . "\n"; print INDEX_HTML <<'EOF' EOF ; #if ( $dir =~ /rtl/ ) { print INDEX_HTML "\n\n" }; print INDEX_HTML "

\n"; print INDEX_HTML "

\n"; print INDEX_HTML "

\n"; print INDEX_HTML " " . # NOTE: the formatting (those "\\n" and the three spaces (or six spaces) # in some cases) leading extra lines are used for the text version. 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 INDEX_HTML "

\n"; # the %s placeholders are for and in html version, and # nothing in the text version; that way a same string is used for both print INDEX_HTML " " . N("%sMandriva Linux%s and its logo are trademarks of Mandriva S.A.","","") . "
\n"; print INDEX_HTML "

\n

\n

\n"; print INDEX_HTML "

\n"; print INDEX_HTML "\n"; print INDEX_HTML "
\n"; print INDEX_HTML "
    \n"; print INDEX_HTML "
  1. " . N("Directory Organization") . "
    2. \n"; print INDEX_HTML "
  2. " . N("Installing") . "
    3. \n"; print INDEX_HTML "
  3. " . N("Sources") . "
    4. \n"; print INDEX_HTML "
  4. " . N("Support") . "
    5. \n"; print INDEX_HTML "
  5. " . N("Contact") . "
    6. \n"; print INDEX_HTML "
\n"; print INDEX_HTML "
\n"; print INDEX_HTML "\n"; print INDEX_HTML "

\n"; print INDEX_HTML "

\n"; print INDEX_HTML "

\n"; print INDEX_HTML "

" . N("1. %s", N("Directory Organization")) . "

\n"; print INDEX_HTML "

\n"; print INDEX_HTML " " . N("This directory is organized as follows:") . "\n"; print INDEX_HTML "

\n"; if ( $dir =~ /rtl/ ) { print INDEX_HTML "

\n" }; print INDEX_HTML "\n"; print INDEX_HTML "\n"; print INDEX_HTML "
\n"; print INDEX_HTML "|-->\n"; print INDEX_HTML " media/\n"; print INDEX_HTML "\n"; print INDEX_HTML "  \n"; print INDEX_HTML "
\n"; print INDEX_HTML "|   |-->\n"; print INDEX_HTML "main/\n"; print INDEX_HTML "\n"; print INDEX_HTML " " . N("main binary packages") . "\n"; print INDEX_HTML "
\n"; print INDEX_HTML "|   |-->\n"; print INDEX_HTML "contrib/\n"; print INDEX_HTML "\n"; print INDEX_HTML " " . N("contrib binary packages") . "\n"; print INDEX_HTML "
\n"; print INDEX_HTML "|   `-->\n"; print INDEX_HTML "media_info/\n"; print INDEX_HTML "\n"; print INDEX_HTML " " . N("packages meta data") . "\n"; print INDEX_HTML "
\n"; print INDEX_HTML "|-->\n"; print INDEX_HTML " install/\n"; print INDEX_HTML "\n"; print INDEX_HTML "  \n"; print INDEX_HTML "
\n"; print INDEX_HTML "|   |-->\n"; print INDEX_HTML "extra/\n"; print INDEX_HTML "\n"; print INDEX_HTML " " . N("installation advertising images") . "\n"; print INDEX_HTML "
\n"; print INDEX_HTML "|   |-->\n"; print INDEX_HTML "images/\n"; print INDEX_HTML "\n"; print INDEX_HTML " " . N("boot images") . "\n"; print INDEX_HTML "
\n"; print INDEX_HTML "|   |-->\n"; print INDEX_HTML "stage2/\n"; print INDEX_HTML "\n"; print INDEX_HTML " " . N("ramdisk images of the installation") . "\n"; print INDEX_HTML "
\n"; print INDEX_HTML "|      `-->\n"; print INDEX_HTML "live/\n"; print INDEX_HTML "\n"; print INDEX_HTML " " . N("installation program files") . "\n"; print INDEX_HTML "
\n"; print INDEX_HTML "|-->\n"; print INDEX_HTML "isolinux/\n"; print INDEX_HTML "\n"; print INDEX_HTML " " . N("isolinux boot images") . "\n"; print INDEX_HTML "
\n"; print INDEX_HTML "|-->\n"; print INDEX_HTML " doc/\n"; print INDEX_HTML "\n"; print INDEX_HTML " " . N("installation help files in various languages") . "\n"; print INDEX_HTML "
\n"; print INDEX_HTML "|-->\n"; print INDEX_HTML " dosutils/\n"; print INDEX_HTML "\n"; print INDEX_HTML " " . N("installation utilities for DOS") . "\n"; print INDEX_HTML "
\n"; print INDEX_HTML "|-->\n"; print INDEX_HTML " misc/\n"; print INDEX_HTML "\n"; print INDEX_HTML " " . N("source files, install trees") . "\n"; print INDEX_HTML "
\n"; print INDEX_HTML "|-->\n"; print INDEX_HTML " VERSION\n"; print INDEX_HTML "\n"; print INDEX_HTML " " . N("current version number") . "\n"; print INDEX_HTML "
\n"; print INDEX_HTML "|-->\n"; print INDEX_HTML " COPYING\n"; print INDEX_HTML "\n"; print INDEX_HTML " " . N("copyright information") . "\n"; print INDEX_HTML "
\n"; print INDEX_HTML "|-->\n"; print INDEX_HTML " INSTALL.txt\n"; print INDEX_HTML "\n"; print INDEX_HTML " " . N("installation instructions") . "\n"; print INDEX_HTML "
\n"; print INDEX_HTML "`-->\n"; print INDEX_HTML " README.txt\n"; print INDEX_HTML "\n"; print INDEX_HTML " " . N("this file in text mode") . "\n"; print INDEX_HTML "
\n"; if ( $dir =~ /rtl/ ) { print INDEX_HTML "
\n" }; print INDEX_HTML "\n"; print INDEX_HTML "

\n"; print INDEX_HTML " " . 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 INDEX_HTML "

\n"; print INDEX_HTML " [" . N("top of this page") . "]\n"; print INDEX_HTML "

\n"; print INDEX_HTML "

\n"; print INDEX_HTML "

" . N("2. %s", N("Installing")) . "

\n"; print INDEX_HTML "

\n"; print INDEX_HTML " " . N("See the %s file.", "install.htm") . "\n"; print INDEX_HTML "

\n"; print INDEX_HTML " " . N("IMPORTANT COMPATIBILITY NOTE:") . "\n"; print INDEX_HTML "

\n"; print INDEX_HTML " " . N("Mandriva Linux is built with CPU speed optimizations for Pentium-class (Pentium(tm) and compatibles, AMD Athlon, Pentium 4...) so it WILL NOT RUN on older i386 and i486 based computers.") . "\n"; print INDEX_HTML "

\n"; print INDEX_HTML " [" . N("top of this page") . "]\n"; print INDEX_HTML "

\n"; print INDEX_HTML "

\n"; print INDEX_HTML "

\n"; print INDEX_HTML "

" . N("3. %s", N("Sources")) . "

\n"; print INDEX_HTML "

\n"; print INDEX_HTML " " . N("All the Mandriva Linux specific packages come with their sources in the source-CD (PowerPack Edition).") . "\n"; print INDEX_HTML "

\n"; print INDEX_HTML " " . N("You can download all the source packages from our FTP servers.") . "\n"; print INDEX_HTML "

\n"; print INDEX_HTML " " . N("If you don't have any convenient Internet access, Mandriva can send you a source archive for a small fee.") . "\n"; print INDEX_HTML "

\n"; print INDEX_HTML " [" . N("top of this page") . "]\n"; print INDEX_HTML "

\n"; print INDEX_HTML "

\n"; print INDEX_HTML "

\n"; print INDEX_HTML "

" . N("4. %s", N("Support")) . "

\n"; print INDEX_HTML "

\n"; print INDEX_HTML " " . N("For those with web access, check:") . "
\n"; print INDEX_HTML "

\n"; print INDEX_HTML "

\n"; print INDEX_HTML " " . N("In particular, access to our mailing lists can be found at:") . "
\n"; print INDEX_HTML "

\n"; print INDEX_HTML "

\n"; print INDEX_HTML " " . 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 INDEX_HTML "

\n"; print INDEX_HTML " [" . N("top of this page") . "]\n"; print INDEX_HTML "

\n"; print INDEX_HTML "

\n"; print INDEX_HTML "

\n"; print INDEX_HTML " " . N("If you did not receive documentation with this product, you can order the Mandriva Linux PowerPack Edition (several Mandriva Linux CDs + Installation & User Guide + installation support!) from our on-line store at:") . "
\n"; print INDEX_HTML "

\n"; print INDEX_HTML "

\n"; print INDEX_HTML " [" . N("top of this page") . "]\n"; print INDEX_HTML "

\n"; print INDEX_HTML "

\n"; print INDEX_HTML "

\n"; print INDEX_HTML "

" . N("5. %s", N("Contact")) . "

\n"; print INDEX_HTML "

\n"; print INDEX_HTML " " . N("Mandriva can be reached at:") . "
\n"; print INDEX_HTML "

\n"; print INDEX_HTML "

\n"; print INDEX_HTML " [" . N("top of this page") . "]\n"; print INDEX_HTML "

\n"; print INDEX_HTML "

\n"; print INDEX_HTML "

\n"; #if ( $dir =~ /rtl/ ) { print INDEX_HTML "\n" }; print INDEX_HTML "\n"; print INDEX_HTML "\n";