<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/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, "&gt;tmp/index-$lang.htm") || die("can't open tmp/index-$lang.htm");
print INDEX_HTML "&lt;!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 TRANSITIONAL//EN\"\n                      \"http://www.w3.org/TR/html4/loose.dtd\"&gt;\n";
print INDEX_HTML "&lt;html lang=\"$html_lang\" dir=\"$dir\"&gt;\n";
print INDEX_HTML "&lt;head&gt;\n";
print INDEX_HTML "   &lt;meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\"&gt;\n";
print INDEX_HTML "   &lt;meta http-equiv=\"Content-Language\" content=\"text/html; language=$lang\"&gt;\n";
print INDEX_HTML "   &lt;title&gt;" . N("WELCOME - Mandriva Linux %s",$version) . "&lt;/title&gt;\n";
print INDEX_HTML &lt;&lt;'EOF'
   &lt;style type="text/css"&gt;&lt;!--
     a:link       { color:            #666699;     }
     a:active     { color:            #FF0000;     }
     a:visited    { color:            #980060;     }
     body         { background-color: #FFFFFF;     }
     ol.withroman { list-style-type:  lower-roman; }
     ol.withalpha { list-style-type:  lower-alpha; }
    --&gt;&lt;/style&gt;
&lt;/head&gt;
&lt;body bgcolor="#FFFFFF" link="#666699" alink="#FF0000" vlink="#980060"&gt;
&lt;a name="top"&gt;&lt;/a&gt;
EOF
;
#if ( $dir =~ /rtl/ ) { print INDEX_HTML "&lt;font dir=\"rtl\"&gt;\n\n" };
print INDEX_HTML "&lt;p align=\"center\"&gt;\n";
print INDEX_HTML "&lt;center&gt;&lt;h1&gt;&lt;img\n";
print INDEX_HTML "  src=\"../images/LMDK.jpg\" alt=\"Mandriva Linux\"\n";
print INDEX_HTML "  border=\"0\"&gt;&lt;/h1&gt;&lt;/center&gt;\n";
print INDEX_HTML "&lt;p align=\"$left\"&gt;\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.",
   "&lt;a href=\"../../../COPYING\"&gt;COPYING&lt;/a&gt;") . "\n";
print INDEX_HTML "&lt;p align=\"$left\"&gt;\n";
# the %s placeholders are for &lt;em&gt; and &lt;/em&gt; 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.","&lt;em&gt;","&lt;/em&gt;") . "&lt;br&gt;\n";
print INDEX_HTML "&lt;p&gt;\n  &lt;hr width=\"100%\"&gt;\n&lt;p align=\"center\"&gt;\n";
print INDEX_HTML "&lt;center&gt;&lt;table border=\"0\" cellpadding=\"20\"&gt;\n";
print INDEX_HTML "&lt;tr&gt;&lt;td&gt;\n";
print INDEX_HTML "&lt;ol&gt;\n";
print INDEX_HTML "  &lt;li&gt;&lt;a href=\"#dir\"&gt;" . N("Directory Organization") . "&lt;/a&gt;&lt;/li&gt;\n";
print INDEX_HTML "  &lt;li&gt;&lt;a href=\"#inst\"&gt;" . N("Installing") . "&lt;/a&gt;&lt;/li&gt;\n";
print INDEX_HTML "  &lt;li&gt;&lt;a href=\"#src\"&gt;" . N("Sources") . "&lt;/a&gt;&lt;/li&gt;\n";
print INDEX_HTML "  &lt;li&gt;&lt;a href=\"#support\"&gt;" . N("Support") . "&lt;/a&gt;&lt;/li&gt;\n";
print INDEX_HTML "  &lt;li&gt;&lt;a href=\"#contact\"&gt;" . N("Contact") . "&lt;/a&gt;&lt;/li&gt;\n";
print INDEX_HTML "&lt;/ol&gt;\n";
print INDEX_HTML "&lt;/td&gt;&lt;/tr&gt;\n";
print INDEX_HTML "&lt;/table&gt;&lt;/center&gt;\n";
print INDEX_HTML "\n";
print INDEX_HTML "&lt;p&gt;\n";
print INDEX_HTML "  &lt;a name=\"dir\"&gt;&lt;/a&gt;&lt;hr width=\"100%\"&gt;\n";
print INDEX_HTML "&lt;p align=\"$left\"&gt;\n";
print INDEX_HTML "  &lt;h2&gt;" . N("1. %s", N("Directory Organization")) . "&lt;/h2&gt;\n";
print INDEX_HTML "&lt;p align=\"$left\"&gt;\n";
print INDEX_HTML "  " . N("This directory is organized as follows:") . "\n";
print INDEX_HTML "&lt;p&gt;\n";
if ( $dir =~ /rtl/ ) { print INDEX_HTML "&lt;center&gt;\n" };
print INDEX_HTML "&lt;table border=\"0\" cellpadding=\"0\" cellspacing=\"2\" dir=\"$dir\"&gt;\n";
print INDEX_HTML "&lt;tr&gt;&lt;td dir=\"ltr\"&gt;\n";
print INDEX_HTML "&lt;tt&gt;|--&amp;gt;&lt;/tt&gt;\n";
print INDEX_HTML "  &lt;a href=\"../../../media/\"&gt;media/&lt;/a&gt;\n";
print INDEX_HTML "&lt;/td&gt;&lt;td&gt;\n";
print INDEX_HTML "  &amp;nbsp;\n";
print INDEX_HTML "&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td dir=\"ltr\"&gt;\n";
print INDEX_HTML "&lt;tt&gt;|&amp;nbsp;&amp;nbsp;&amp;nbsp;|--&amp;gt;&lt;/tt&gt;\n";
print INDEX_HTML "&lt;a href=\"../../../media/main/\"&gt;main/&lt;/a&gt;\n";
print INDEX_HTML "&lt;/td&gt;&lt;td dir=\"$dir\"&gt;\n";
print INDEX_HTML "  " . N("main binary packages") . "\n";
print INDEX_HTML "&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td dir=\"ltr\"&gt;\n";
print INDEX_HTML "&lt;tt&gt;|&amp;nbsp;&amp;nbsp;&amp;nbsp;|--&amp;gt;&lt;/tt&gt;\n";
print INDEX_HTML "&lt;a href=\"../../../media/contrib/\"&gt;contrib/&lt;/a&gt;\n";
print INDEX_HTML "&lt;/td&gt;&lt;td dir=\"$dir\"&gt;\n";
print INDEX_HTML "  " . N("contrib binary packages") . "\n";
print INDEX_HTML "&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td dir=\"ltr\"&gt;\n";
print INDEX_HTML "&lt;tt&gt;|&amp;nbsp;&amp;nbsp;&amp;nbsp;`--&amp;gt;&lt;/tt&gt;\n";
print INDEX_HTML "&lt;a href=\"../../../media/media_info/\"&gt;media_info/&lt;/a&gt;\n";
print INDEX_HTML "&lt;/td&gt;&lt;td dir=\"$dir\"&gt;\n";
print INDEX_HTML "  " . N("packages meta data") . "\n";
print INDEX_HTML "&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td dir=\"ltr\"&gt;\n";
print INDEX_HTML "&lt;tt&gt;|--&amp;gt;&lt;/tt&gt;\n";
print INDEX_HTML "  &lt;a href=\"../../../install/\"&gt;install/&lt;/a&gt;\n";
print INDEX_HTML "&lt;/td&gt;&lt;td&gt;\n";
print INDEX_HTML "  &amp;nbsp;\n";
print INDEX_HTML "&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td dir=\"ltr\"&gt;\n";
print INDEX_HTML "&lt;tt&gt;|&amp;nbsp;&amp;nbsp;&amp;nbsp;|--&amp;gt;&lt;/tt&gt;\n";
print INDEX_HTML "&lt;a href=\"../../../install/extra/\"&gt;extra/&lt;/a&gt;\n";
print INDEX_HTML "&lt;/td&gt;&lt;td dir=\"$dir\"&gt;\n";
print INDEX_HTML "  " . N("installation advertising images") . "\n";
print INDEX_HTML "&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td dir=\"ltr\"&gt;\n";
print INDEX_HTML "&lt;tt&gt;|&amp;nbsp;&amp;nbsp;&amp;nbsp;|--&amp;gt;&lt;/tt&gt;\n";
print INDEX_HTML "&lt;a href=\"../../../install/images/\"&gt;images/&lt;/a&gt;\n";
print INDEX_HTML "&lt;/td&gt;&lt;td dir=\"$dir\"&gt;\n";
print INDEX_HTML "  " . N("boot images") . "\n";
print INDEX_HTML "&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td dir=\"ltr\"&gt;\n";
print INDEX_HTML "&lt;tt&gt;|&amp;nbsp;&amp;nbsp;&amp;nbsp;|--&amp;gt;&lt;/tt&gt;\n";
print INDEX_HTML "&lt;a href=\"../../../install/stage2/\"&gt;stage2/&lt;/a&gt;\n";
print INDEX_HTML "&lt;/td&gt;&lt;td dir=\"$dir\"&gt;\n";
print INDEX_HTML "  " . N("ramdisk images of the installation") . "\n";
print INDEX_HTML "&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td dir=\"ltr\"&gt;\n";
print INDEX_HTML "&lt;tt&gt;|&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;`--&amp;gt;&lt;/tt&gt;\n";
print INDEX_HTML "&lt;a href=\"../../../install/stage2/live/\"&gt;live/&lt;/a&gt;\n";
print INDEX_HTML "&lt;/td&gt;&lt;td dir=\"$dir\"&gt;\n";
print INDEX_HTML "  " . N("installation program files") . "\n";
print INDEX_HTML "&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td dir=\"ltr\"&gt;\n";
print INDEX_HTML "&lt;tt&gt;|--&amp;gt;&lt;/tt&gt;\n";
print INDEX_HTML "&lt;a href=\"../../../isolinux/\"&gt;isolinux/&lt;/a&gt;\n";
print INDEX_HTML "&lt;/td&gt;&lt;td dir=\"$dir\"&gt;\n";
print INDEX_HTML "  " . N("isolinux boot images") . "\n";
print INDEX_HTML "&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td dir=\"ltr\"&gt;\n";
print INDEX_HTML "&lt;tt&gt;|--&amp;gt;&lt;/tt&gt;\n";
print INDEX_HTML "  &lt;a href=\"../../../doc/\"&gt;doc/&lt;/a&gt;\n";
print INDEX_HTML "&lt;/td&gt;&lt;td dir=\"$dir\"&gt;\n";
print INDEX_HTML "  " . N("installation help files in various languages") . "\n";
print INDEX_HTML "&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td dir=\"ltr\"&gt;\n";
print INDEX_HTML "&lt;tt&gt;|--&amp;gt;&lt;/tt&gt;\n";
print INDEX_HTML "  &lt;a href=\"../../../dosutils/\"&gt;dosutils/&lt;/a&gt;\n";
print INDEX_HTML "&lt;/td&gt;&lt;td dir=\"$dir\"&gt;\n";
print INDEX_HTML "  " . N("installation utilities for DOS") . "\n";
print INDEX_HTML "&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td dir=\"ltr\"&gt;\n";
print INDEX_HTML "&lt;tt&gt;|--&amp;gt;&lt;/tt&gt;\n";
print INDEX_HTML "  &lt;a href=\"../../../misc/\"&gt;misc/&lt;/a&gt;\n";
print INDEX_HTML "&lt;/td&gt;&lt;td dir=\"$dir\"&gt;\n";
print INDEX_HTML "  " . N("source files, install trees") . "\n";
print INDEX_HTML "&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td dir=\"ltr\"&gt;\n";
print INDEX_HTML "&lt;tt&gt;|--&amp;gt;&lt;/tt&gt;\n";
print INDEX_HTML "  &lt;a href=\"../../../VERSION\"&gt;VERSION&lt;/a&gt;\n";
print INDEX_HTML "&lt;/td&gt;&lt;td dir=\"$dir\"&gt;\n";
print INDEX_HTML "  " . N("current version number") . "\n";
print INDEX_HTML "&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td dir=\"ltr\"&gt;\n";
print INDEX_HTML "&lt;tt&gt;|--&amp;gt;&lt;/tt&gt;\n";
print INDEX_HTML "  &lt;a href=\"../../../COPYING\"&gt;COPYING&lt;/a&gt;\n";
print INDEX_HTML "&lt;/td&gt;&lt;td dir=\"$dir\"&gt;\n";
print INDEX_HTML "  " . N("copyright information") . "\n";
print INDEX_HTML "&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td dir=\"ltr\"&gt;\n";
print INDEX_HTML "&lt;tt&gt;|--&amp;gt;&lt;/tt&gt;\n";
print INDEX_HTML "  &lt;a href=\"INSTALL.txt\"&gt;INSTALL.txt&lt;/a&gt;\n";
print INDEX_HTML "&lt;/td&gt;&lt;td dir=\"$dir\"&gt;\n";
print INDEX_HTML "  " . N("installation instructions") . "\n";
print INDEX_HTML "&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td dir=\"ltr\"&gt;\n";
print INDEX_HTML "&lt;tt&gt;`--&amp;gt;&lt;/tt&gt;\n";
print INDEX_HTML "  &lt;a href=\"README.txt\"&gt;README.txt&lt;/a&gt;\n";
print INDEX_HTML "&lt;/td&gt;&lt;td dir=\"$dir\"&gt;\n";
print INDEX_HTML "  " . N("this file in text mode") . "\n";
print INDEX_HTML "&lt;/td&gt;&lt;/tr&gt;\n";
print INDEX_HTML "&lt;/table&gt;\n";
if ( $dir =~ /rtl/ ) { print INDEX_HTML "&lt;/center&gt;\n" };
print INDEX_HTML "\n";
print INDEX_HTML "&lt;p align=\"$left\"&gt;\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\".",
   "&lt;a href=\"../../../install/\" dir=\"ltr\"&gt;install/&lt;/a&gt;",
   "&lt;a href=\"../../../media/\" dir=\"ltr\"&gt;media/&lt;/a&gt;",
   "&lt;a href=\"../../../isolinux/\" dir=\"ltr\"&gt;isolinux/&lt;/a&gt;") . "\n";
print INDEX_HTML "&lt;p align=\"$right\"&gt;\n";
print INDEX_HTML "  &lt;a href=\"#top\"&gt;[" . N("top of this page") . "]&lt;/a&gt;\n";
print INDEX_HTML "  &lt;a name=\"inst\"&gt;&lt;/a&gt;&lt;hr width=\"100%\"&gt;\n";
print INDEX_HTML "&lt;p align=\"$left\"&gt;\n";
print INDEX_HTML "  &lt;h2&gt;" . N("2. %s", N("Installing")) . "&lt;/h2&gt;\n";
print INDEX_HTML "&lt;p align=\"$left\"&gt;\n";
print INDEX_HTML "  " . N("See the %s file.", "&lt;a href=\"install.htm\"&gt;install.htm&lt;/a&gt;") . "\n";
print INDEX_HTML "&lt;p align=\"$left\"&gt;\n";
print INDEX_HTML "  " . N("IMPORTANT COMPATIBILITY NOTE:") . "\n";
print INDEX_HTML "&lt;p align=\"$left\"&gt;\n";
print INDEX_HTML "   &lt;em&gt;" . 
N("Mandriva Linux is built with CPU speed optimizations for Pentium-class
   (Pentium(tm) and compatibles, AMD Athlon, Pentium 4...) so it &lt;b&gt;WILL
   NOT RUN&lt;/b&gt; on older i386 and i486 based computers.") . "&lt;/em&gt;\n";
print INDEX_HTML "&lt;p align=\"$right\"&gt;\n";
print INDEX_HTML "  &lt;a href=\"#top\"&gt;[" . N("top of this page") . "]&lt;/a&gt;\n";
print INDEX_HTML "&lt;p&gt;\n";
print INDEX_HTML "  &lt;a name=\"src\"&gt;&lt;/a&gt;&lt;hr width=\"100%\"&gt;\n";
print INDEX_HTML "&lt;p align=\"$left\"&gt;\n";
print INDEX_HTML "  &lt;h2&gt;" . N("3. %s", N("Sources")) . "&lt;/h2&gt;\n";
print INDEX_HTML "&lt;p align=\"$left\"&gt;\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 "&lt;p align=\"$left\"&gt;\n";
print INDEX_HTML "  " . N("You can download all the source packages from our FTP servers.") . "\n";
print INDEX_HTML "&lt;p align=\"$left\"&gt;\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 "&lt;p align=\"$right\"&gt;\n";
print INDEX_HTML "  &lt;a href=\"#top\"&gt;[" . N("top of this page") . "]&lt;/a&gt;\n";
print INDEX_HTML "&lt;p&gt;\n";
print INDEX_HTML "  &lt;a name=\"support\"&gt;&lt;/a&gt;&lt;hr width=\"100%\"&gt;\n";
print INDEX_HTML "&lt;p align=\"$left\"&gt;\n";
print INDEX_HTML "  &lt;h2&gt;" . N("4. %s", N("Support")) . "&lt;/h2&gt;\n";
print INDEX_HTML "&lt;p align=\"$left\"&gt;\n";
print INDEX_HTML "  " . N("For those with web access, check:") . "&lt;br&gt;\n";
print INDEX_HTML "&lt;ul&gt;\n";
print INDEX_HTML "  &lt;li&gt;&lt;a href=\"http://www.mandriva.com/support/?wslang=$html_lang\"&gt;http://www.mandriva.com/support/&lt;/a&gt;&lt;/li&gt;\n";
print INDEX_HTML "&lt;/ul&gt;\n";
print INDEX_HTML "&lt;p align=\"$left\"&gt;\n";
print INDEX_HTML "  " . N("In particular, access to our mailing lists can be found at:") . "&lt;br&gt;\n";
print INDEX_HTML "&lt;ul&gt;\n";
print INDEX_HTML "  &lt;li&gt;&lt;a href=\"http://www.mandrivalinux.com/$our_lang/flists.php3\"&gt;http://www.mandrivalinux.com/$our_lang/flists.php3&lt;/a&gt;&lt;/li&gt;\n";
print INDEX_HTML "&lt;/ul&gt;\n";
print INDEX_HTML "&lt;p align=\"$left\"&gt;\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.",
   "&lt;a href=\"mailto:sympa\@mandrivalinux.com?body=subscribe $newbie\"&gt;sympa\@mandrivalinux.com&lt;/a&gt;",
   "&lt;span dir=\"ltr\"&gt;&amp;nbsp;subscribe&amp;nbsp;$newbie&amp;nbsp;&lt;/span&gt;") . "\n";
print INDEX_HTML "&lt;p align=\"$right\"&gt;\n";
print INDEX_HTML "  &lt;a href=\"#top\"&gt;[" . N("top of this page") . "]&lt;/a&gt;\n";
print INDEX_HTML "&lt;p&gt;\n";
print INDEX_HTML "  &lt;hr width=\"100%\"&gt;\n";
print INDEX_HTML "&lt;p align=\"$left\"&gt;\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 &amp;amp; User Guide + installation support!) from our on-line
   store at:") . "&lt;br&gt;\n";
print INDEX_HTML "&lt;ul&gt;\n";
print INDEX_HTML "  &lt;li&gt;&lt;a href=\"http://www.mandrivastore.com/?language=$html_lang\"&gt;http://www.mandrivastore.com/&lt;/a&gt;&lt;/li&gt;\n";
print INDEX_HTML "&lt;/ul&gt;\n";
print INDEX_HTML "&lt;p align=\"$right\"&gt;\n";
print INDEX_HTML "  &lt;a href=\"#top\"&gt;[" . N("top of this page") . "]&lt;/a&gt;\n";
print INDEX_HTML "&lt;p&gt;\n";
print INDEX_HTML "  &lt;a name=\"contact\"&gt;&lt;/a&gt;&lt;hr width=\"100%\"&gt;\n";
print INDEX_HTML "&lt;p align=\"$left\"&gt;\n";
print INDEX_HTML "  &lt;h2&gt;" . N("5. %s", N("Contact")) . "&lt;/h2&gt;\n";
print INDEX_HTML "&lt;p align=\"$left\"&gt;\n";
print INDEX_HTML "  " . N("Mandriva can be reached at:") . "&lt;br&gt;\n";
print INDEX_HTML "&lt;ul&gt;\n";
print INDEX_HTML "  &lt;li&gt;&lt;a href=\"http://www.mandriva.com/company/contact?wslang=$html_lang\"&gt;http://www.mandriva.com/company/contact&lt;/a&gt;&lt;/li&gt;\n";
print INDEX_HTML "&lt;/ul&gt;\n";
print INDEX_HTML "&lt;p align=\"$right\"&gt;\n";
print INDEX_HTML "  &lt;a href=\"#top\"&gt;[" . N("top of this page") . "]&lt;/a&gt;\n";
print INDEX_HTML "&lt;p&gt;\n";
print INDEX_HTML "  &lt;hr width=\"100%\"&gt;\n";
print INDEX_HTML "&lt;p&gt;\n";
#if ( $dir =~ /rtl/ ) { print INDEX_HTML "&lt;/font&gt;\n" };
print INDEX_HTML "&lt;/body&gt;\n";
print INDEX_HTML "&lt;/html&gt;\n";


</pre></body></html>