skirogaining.krk-litvinov.cz/load.lib.php

<?php

if ($included !== true) {
    header('HTTP/1.0 403 Forbidden');
    header('Location: /en/error/403');
    exit;
}

function readPage(string $page): bool {
    //main function
    $aliases = [];
    global $lang,$realPageType,$menuUrl,$article,$title,$author,$date,$time,$menu,$mainMail,$langPanel,$notreleased, $eu;
    if (empty($page)) {//page specification
        $realPage = 'pages/' . $lang . '/main.pg';
    } else {
        if (file_exists('pages/' . $lang . '/' . $page . '.pg')) {
            $realPage = 'pages/' . $lang . '/' . $page . '.pg';
        } else {
            $realPage = 'pages/' . $lang . '/error/404.pg';
            $log404 = fopen('404.log', 'a+');
            if (!preg_match('(' . preg_quote($page) . '\n)', file_get_contents('404.log'))) {
                fwrite($log404, $page . "\n");
                mail($mainMail, "Stranka nenalezena http://skirogaining.tojnar.cz/$page", rplc('Prichozi z: %comefrom%'));
            }
            fclose($log404);
        }
    }
    //end of page specification
    $errPageStart = 'pages/' . $lang . '/error/';
    if (substr($realPage, 0, strlen($errPageStart)) == $errPageStart) {//page type setting
        $realPageType = 2;
    } elseif ($realPage == 'pages/' . $lang . '/main.pg') {
        $realPageType = 1;
    } else {
        $realPageType = 0;
    }
    //end of page type setting

    $fileContent = rplc(file_get_contents($realPage));
    //echo($fileContent);
    $fileContent = preg_replace('(<a([^>]*)hs="([1-9][0-9]?)"([^>]*)>)', '<a\\1onclick="return hs.expand(this,{slideshowGroup:\\2})"\\3>', $fileContent);
    $sbContent = rplc(sboard_generate($realPage));
    $fileContent = str_replace('<board>', $sbContent, $fileContent);

    if (preg_match('(<article>(.*)</article>)s', $fileContent, $article)) {
        //article body
        $article = trim($article[1]);
    } else {
        $article = '';
    }

    if (preg_match('(<title>(.*)</title>)s', $fileContent, $title)) {
        //article title
        $title = trim($title[1]);
    } else {
        $title = '';
    }

    if (preg_match('(<date>(.*)</date>)s', $fileContent, $date)) {
        //article release time
        $date = trim($date[1]);
    } else {
        $date = null;
    }

    if (preg_match('(<author>(.*)</author>)s', $fileContent, $author)) {
        //article author
        $author = trim($author[1]);
    } else {
        $author = null;
    }

    $languages = ['cs', 'en', 'de'];

    if (preg_match('(<alias([^>]*)cs="([^"]*)"([^>]*)>)', $fileContent, $cs)) {
        //article czech version link
        $aliases['cs'] = trim($cs[2]);
    }

    if (preg_match('(<alias([^>]*)en="([^"]*)"([^>]*)>)', $fileContent, $en)) {
        //article english version link
        $aliases['en'] = trim($en[2]);
    }

    if (preg_match('(<alias([^>]*)de="([^"]*)"([^>]*)>)', $fileContent, $de)) {
        //article german version link
        $aliases['de'] = trim($de[2]);
    }

    if (preg_match('(<menu url="([^"]*)">)', $fileContent, $menuUrl)) {
        //article menu url
        $menuUrl = trim($menuUrl[1]);
    } else {
        $menuUrl = null;
    }

    foreach ($languages as $language) {//language box generator
        if (isset($aliases[$language]) && file_exists('pages/' . $language . '/' . $aliases[$language] . '.pg')) {
            $langPanel .= rplc('<a href="%root%/' . $language . '/' . ($aliases[$language] == 'main' ? '' : $aliases[$language]) . '"><img src="%root%/gpx/' . $language . 'flag.png" alt="' . $language . '"></a>');
        }
    }
    //end of language box generator

    $author = $realPageType == 1 ? '' : rplc($author);
    /*if($realPageType==0){
    if(empty($date)){
    $date=date(rplc("%dateFormat%"),filemtime($realPage));
    }
    }
    */
    if ($menuUrl === null || !file_exists($menuUrl)) {
        $menuUrl = 'main';
    }
    $menu = rplc(file_get_contents('pages/' . $lang . '/' . $menuUrl . '.mn'));
    $article = rplc($article);
    if (preg_match('(<goto url="([^"]+)">)', $fileContent, $gotoUrl)) {
        if ($page == $gotoUrl[1]) {
            $logrecursive = fopen('syntax.log', 'a+');
            if (!preg_match('(' . preg_quote($realPage) . '\n)', file_get_contents('recursive.log'))) {
                fwrite($logrecursive, $realPage . "\n");
                mail($mainMail, "Presmerovaci smycka http://skirogaining.tojnar.cz/$realPage", 'Stranka se presmerovava sama na sebe');
            }
            fclose($logrecursive);
            readPage('error/recursive');
        } else {
            readPage($gotoUrl[1]);
        }
    }

    if (strpos($fileContent, '<eu>') != false) {
        $eu = true;
    } else {
        $eu = false;
    }

    if (empty($title) && empty($article)) {
        $logsyntax = fopen('syntax.log', 'a+');
        if (!preg_match('(' . preg_quote($realPage) . '\n)', file_get_contents('syntax.log'))) {
            fwrite($logsyntax, $realPage . "\n");
            mail($mainMail, "Chyba syntaxe http://skirogaining.tojnar.cz/$realPage", 'Nerozpoznan titulek a clanek');
        }
        fclose($logsyntax);
        return false;
        readPage('error/syntax');

        return false;
    } elseif (empty($title)) {
        $logsyntax = fopen('syntax.log', 'a+');
        if (!preg_match('(' . preg_quote($realPage) . '\n)', file_get_contents('syntax.log'))) {
            fwrite($logsyntax, $realPage . "\n");
            mail($mainMail, "Chyba syntaxe http://skirogaining.tojnar.cz/$realPage", 'Nerozpoznan titulek');
        }
        fclose($logsyntax);
        return false;
        readPage('error/syntax');

        return false;
    } elseif (empty($article)) {
        $logsyntax = fopen('syntax.log', 'a+');
        if (!preg_match('(' . preg_quote($realPage) . '\n)', file_get_contents('syntax.log'))) {
            fwrite($logsyntax, $realPage . "\n");
            mail($mainMail, "Chyba syntaxe http://skirogaining.tojnar.cz/$realPage", 'Nerozpoznan clanek');
        }
        fclose($logsyntax);
        return false;
        readPage('error/syntax');

        return false;
    } else {
        return true;
    }
}

function author(string $author): ?string {
    global $realPageType;
    if ($realPageType == 0) {
        if (empty($author)) {
            return rplc('%unknownAuthor%');
        } else {
            return $author;
        }
    } else {
        return null;
    }
}

function toDate(?string $dateStr): ?string {
    if (!empty($dateStr)) {
        $dateStr = explode(' ', $dateStr);
        $dateStr = $dateStr[0];
        $dateStr = explode('-', $dateStr);
        $year = $dateStr[0];
        $month = ltrim($dateStr[1], '0');
        $day = ltrim($dateStr[2], '0');

        return str_replace(['%y%', '%m%', '%d%'], [$year, $month, $day], rplc('%date%'));
    } else {
        return null;
    }
}

function isReleased(?string $datetimeStr): bool {
    if ($datetimeStr === null || $datetimeStr === '') {
        // Empty date = release immediately
        return true;
    }

    $datetime = explode(' ', $datetimeStr);
    if (!isset($datetime[1])) {
        $datetime[1] = '00:00';
    }

    [$year, $month, $day] = explode('-', $datetime[0]);
    $month = ltrim($month, '0');
    $day = ltrim($day, '0');
    [$hour, $minute] = explode(':', $datetime[1]);
    if (date('Y') >= $year) {
        if (date('m') >= $month) {
            if (date('d') >= $day) {
                if (date('H') >= $hour) {
                    if (date('i') >= $minute) {
                        return true;
                    } else {
                        return false;
                    }
                } else {
                    return false;
                }
            } else {
                return false;
            }
        } else {
            return false;
        }
    } else {
        return false;
    }
}

function toTime(?string $dateStr): ?string {
    if (!empty($dateStr)) {
        $time = explode(' ', $dateStr);
        return $time[1] ?? null;
    } else {
        return null;
    }
}