
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<?php
if ($_REQUEST['email'] && $_REQUEST['text2'] && $_REQUEST['myemail']) {
    $source_text = "";
    $dest_text = $_REQUEST['text2'];
    $email = $_REQUEST['email'];
    $myemail = $_REQUEST['myemail'];
    $mail_sent = mail($email, "laiskas", wordwrap($dest_text, 70), "From: $myemail");
    }
else {
    if ($_REQUEST['text']) $source_text = $_REQUEST['text'];

    else $source_text = "DĖL VERSTINIŲ LEIDINIŲ AUTORIŲ VARDŲ IR PAVARDŽIŲ ADAPTUOTŲ FORMŲ TEIKIMO

2006 m. rugsėjo 28 d. Nr. R-2 (r-3)
Vilnius

Atsižvelgdama į kitų kalbų asmenvardžių rašybos ir tarimo ypatumus, Valstybinė lietuvių kalbos komisija rekomenduoja:

Verstinių leidinių autorių vardų ir pavardžių sulietuvintas formas – adaptuotas pagal apytikslį tarimą, užrašytas lietuvių kalbos rašmenimis su lietuviškomis linksnių galūnėmis – teikti:

1. greta originalių formų leidinių anotacijose po leidybinio katalogavimo bibliografinio įrašo, ketvirtame viršelio puslapyje, viršelio aplanke ar kitoje vietoje, kur nurodomi duomenys apie autorių ir (ar) kūrinį;

2. bibliotekų, leidyklų kataloguose – susietas su originaliomis autorių vardų ir pavardžių formomis.

KOMISIJOS PIRMININKĖ                     IRENA SMETONIENĖ";



    $dest_text = $source_text;

    $pattern     = array(",", "ks", "kS", "Ks", "KS", "„",  "“",  "”",
                         "ą", "č", "ę", "ė", "į", "y", "š", "ų", "ū", "ž", 
                         "Ą", "Č", "Ę", "Ė", "Į", "Y", "Š", "Ų", "Ū", "Ž", 
                         "ss", "ia", " ie", "ie", "iu", "io", "uo", "ts", "gt", "(.)g ", "(.)g\.", "(.)g$", 
                         "sS", "iA", " iE", "iE", "iU", "iO", "uO", "tS", "gT",
                         "Ss", "Ia", " Ie", "Ie", "Iu", "Io", "Uo", "Ts", "Gt", "(.)G ", "(.)G\.", "(.)G$",
                         "SS", "IA", " IE", "IE", "IU", "IO", "UO", "TS", "GT");
    $replacement = array("",  "x",  "x",  "X",  "X",  "\"", "\"", "\"",
                         "a", "c", "e", "e", "i", "i", "s", "u", "u", "z", 
                         "A", "C", "E", "E", "I", "I", "S", "U", "U", "Z", 
                         "s",  "e",  " je", "e",  "u",  "o",  "o",  "c",  "kt", "\\1k ", "\\1k.",  "\\1k",
                         "s",  "e",  " jE", "e",  "u",  "o",  "o",  "c",  "kt",
                         "S",  "E",  " Je", "E",  "U",  "O",  "O",  "C",  "KT", "\\1K ", "\\1K.",  "\\1K",
                         "S",  "E",  " JE", "E",  "U",  "O",  "O",  "C",  "KT");

    for ($i=0; $i<sizeof($pattern); $i++) {
        $dest_text = mb_ereg_replace($pattern[$i], $replacement[$i], $dest_text);
        }
    }
?>
<html>
    <head>
        <title>Letuvu kalbos rasibos taisituvas</title>
        <meta http-equiv="content-type" content="text/html; charset=utf-8" />
    </head>
    <body>
        <h1>Letuvu kalbos rasibos taisituvas</h1>
        <p>Sis irankis padeda pataisiti senoviskai parasita letuviska texta i solaikine letuvu kalba.</p>
        <form method="post" action="<?php echo $_SERVER['PHP_SELF']; ?>">
            <dl>
                <dt>Senoviskas textas:</dt> <dd><textarea cols="120" rows="15" name="text" id="text"><?php echo(htmlspecialchars($source_text)); ?></textarea></dd>
                <dt>Spaudzem!</dt> <dd><input type="submit" name="submit" id="submit" value="Taisiti!" /></dd>
            </dl>
        </form>

        <form method="post" action="<?php echo $_SERVER['PHP_SELF']; ?>">
            <dl><dt>Apitixlis<sup><a href="#note">(*)</a></sup> solaikiskas textas:</dt> <dd><textarea cols="120" rows="15" name="text2" id="text2" readonly="readonly"><?php echo (htmlspecialchars($dest_text)); ?></textarea></dd></dl>
            <dl><dt>Tu gali si texta isusti draugui!</dt> <dd><input type="text" id="email" name="email" value="draugo el. pastas" /> <input type="text" id="myemail" name="myemail" value="tavo el. pastas" /> <input type="submit" name="submit" id="submit" value="Isusti!" /> <?php if($mail_sent) { echo "Laiskas sekmingai isustas draugui $email!"; } ?></dd></dl>
        </form>
        <p><sup id="note">(*)</sup> Sis taisituvas netaiso merginu ir moteru pavardzu.</p>
            
    <hr />
    <p><small>Copyleft &copy; 2007 Rimas 'RQ' Kudelis. Iseites textas <a href="<?php echo $_SERVER['PHP_SELF']; ?>s">ce</a>. <a href="http://validator.w3.org/check?uri=referer">XHTML 1.1</a></small></p>
    </body>
</html>