<?
# Lifter002: TODO
# Lifter007: TODO
# Lifter003: TODO
# Lifter010: TODO
/**
* calendar_functions.inc.php
*
* basic calendar functions
*
* @author       Peter Thienel <pthienel@web.de>
*   @access     public
* @package      studip_core
* @modulegroup      library
* @module       calendar_functions
*/

// +---------------------------------------------------------------------------+
// This file is part of Stud.IP
// calendar_functions.inc.php
//
// Copyright (C) 2001 Peter Thienel <pthienel@web.de>
// +---------------------------------------------------------------------------+
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation; either version 2
// of the License, or any later version.
// +---------------------------------------------------------------------------+
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
// +---------------------------------------------------------------------------+


/**
 * Hier jezt die ultimative Feiertags-"Berechnung"
 * Zurueckgegeben wird ein Array mit Namen des Feiertages ("name") und
 * Faerbungsgrad ("col", 1 bis 3; 3 bedeutet Termin fällt aus).
 *
 * @param $tmstamp
 * @return array{name: string, col: int}|false
 * @see Holidays::isHoliday()
 */
function holiday ($tmstamp) {
    return Holidays::isHoliday($tmstamp);
}

// ueberprueft eine Datumsangabe, die in einen Timestamp gewandelt werden soll
// gibt bei Erfolg den timestamp zurück mit DST
function check_date ($month, $day, $year, $hour = 0, $min = 0) {
    if (!preg_match("/^\d{1,2}$/", $day) || !preg_match("/^\d{1,2}$/", $month)
            || !preg_match("/^\d{1,2}$/", $hour) || !preg_match("/^\d{1,2}$/", $min)
            || !preg_match("/^\d{4}$/", $year)) {
        return FALSE;
    }
    if ($year < 1970 || $year > 2036)
        return FALSE;
    if (!checkdate($month, $day, $year))
        return FALSE;
    if ($hour > 23 || $hour < 0 || $min > 59 || $min < 0)
        return FALSE;

    return mktime($hour, $min, 0, $month, $day, $year);
}


/**
 * checks values that shall become a single date with start- and endtime
 *
 * @param string $day
 * @param string $month
 * @param string $year
 * @param string $start_hour
 * @param string $start_minute
 * @param string $end_hour
 * @param string $end_minute
 *
 * @return bool true if date is valid, false otherwise
 */
function check_singledate( $day, $month, $year, $start_hour, $start_minute, $end_hour, $end_minute ) {

    // check start-date
    $start = check_date($month, $day, $year, $start_hour, $start_minute);
    if (!$start) return false;

    // check end-date
    $end = check_date($month, $day, $year, $end_hour, $end_minute);
    if (!$end) return false;

    // check, that end-date is not before start_date
    return ($end > $start);
}
<?
# Lifter002: DONE - not applicable
# Lifter007: TODO
# Lifter003: TEST
# Lifter010: DONE - not applicable
/**
* language functions
*
* helper functions for handling I18N system
*
*
* @author       Stefan Suchi <suchi@data-quest.de>
* @access       public
* @modulegroup  library
* @module       language.inc
* @package      studip_core
*/

// +---------------------------------------------------------------------------+
// This file is part of Stud.IP
// language.inc.php
// helper functions for handling I18N system
// Copyright (c) 2003 Stefan Suchi <suchi@data-quest.de>
// +---------------------------------------------------------------------------+
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation; either version 2
// of the License, or any later version.
// +---------------------------------------------------------------------------+
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
// +---------------------------------------------------------------------------+
use Negotiation\AcceptHeader;

/**
* This function tries to find the preferred language
*
* This function tries to find the preferred language.
* It returns the first accepted language from browser settings, which is installed.
*
* @access   public
* @return       string  preferred user language, given in "en_GB"-style
*
*/
function get_accepted_languages(Psr\Http\Message\RequestInterface $request = null) {
    $accepted_languages = null;
    if ($request === null) {
        $accepted_languages = $_SERVER['HTTP_ACCEPT_LANGUAGE'] ?? null;
    } elseif ($request->hasHeader('Accept-Language')) {
        $accepted_languages = $request->getHeaderLine('Accept-Language');
    }

    // No languages found from http header, set default
    if (!$accepted_languages) {
        return Config::get()->DEFAULT_LANGUAGE;
    }

    // Use negotiator to identify best match
    $negotiator = new Negotiation\LanguageNegotiator();
    $best_language = $negotiator->getBest(
        $accepted_languages,
        array_map(
            function ($language) {
                return str_replace('_', '-', $language);
            },
            array_keys($GLOBALS['INSTALLED_LANGUAGES'])
        )
    );

    // No best match, set default
    if (!$best_language) {
        return Config::get()->DEFAULT_LANGUAGE;
    }

    // Normalize language definition for stud.ip
    return $best_language->getBasePart() . '_' . strtoupper($best_language->getSubPart());
}


/**
* This function starts output via i18n system in the given language
*
* This function starts output via i18n system in the given language.
* It returns the path to the choosen language.
*
* @access   public
* @param        string  the language to use for output, given in "en_GB"-style
* @return       string  the path to the language file, given in "en"-style
*
*/
function init_i18n($_language) {
    global $_language_domain, $INSTALLED_LANGUAGES;
    $_language_path = null;
    if (isset($_language_domain) && isset($_language)) {
        $_SESSION['_language'] = $_language;
        $_language_path = $INSTALLED_LANGUAGES[$_language]["path"];
        setLocaleEnv($_language, $_language_domain);
    }
    return $_language_path;
}


/**
 * retrieves preferred language of user from database, falls back to default
 * language
 *
 * @access   public
 * @param    string  the user_id of the user in question
 * @return   string  the preferred language of the user or the default language
 */
function getUserLanguage($uid)
{
    // try to get preferred language from user, fallback to default
    $query = "SELECT preferred_language FROM user_info WHERE user_id = ?";
    $statement = DBManager::get()->prepare($query);
    $statement->execute([$uid]);
    return $statement->fetchColumn() ?: Config::get()->DEFAULT_LANGUAGE;
}

/**
 * Retrieves the path for the preferred language of a user which is specified
 * by his/her ID.
 *
 * This method can be used for sending language specific mails to other users.
 *
 * @param string  the user_id of the recipient (function will try to get
 *                preferred language from database)
 * @return string the path to the language files, given in "en"-style
 */
function getUserLanguagePath($uid)
{
    // First we get the language code in the format language_Country, e.g. de_DE
    $lang_code = getUserLanguage($uid);

    // Now we test if a directory with that language code exists in the locale
    // directory
    if (is_dir("{$GLOBALS['STUDIP_BASE_PATH']}/locale/{$lang_code}")) {
        return $lang_code;
    }

    // There is no directory containing country specific translations for the
    // language. Now we have to check if a general translation exists for the
    // language
    $lang = explode('_', $lang_code)[0];
    if (is_dir("{$GLOBALS['STUDIP_BASE_PATH']}/locale/{$lang}")) {
        //A general translation exists:
        return $lang;
    }

    // No directory exists that has a translation for the language.
    // Our last resort is to use the path index in $INSTALLED_LANUGAGES:
    return $GLOBALS['INSTALLED_LANGUAGES'][$lang_code]['path'];
}

/**
* switch i18n to different language
*
* This function switches i18n system to a different language.
* Should be called before writing strings to other users into database.
* Use restoreLanguage() to switch back.
*
* @access   public
* @param        string  the user_id of the recipient (function will try to get preferred language from database)
* @param        string  explicit temporary language (set $uid to FALSE to switch to this language)
*/
function setTempLanguage ($uid = FALSE, $temp_language = "") {
    global $_language_domain;

    if ($uid) {
        $temp_language = getUserLanguage($uid);
    }

    if ($temp_language == "") {
        // we got no arguments, best we can do is to set system default
        $temp_language = Config::get()->DEFAULT_LANGUAGE;
    }

    setLocaleEnv($temp_language, $_language_domain);
}


/**
* switch i18n back to original language
*
* This function switches i18n system back to the original language.
* Should be called after writing strings to other users via setTempLanguage().
*
* @access   public
*/
function restoreLanguage() {
    global $_language_domain;
    setLocaleEnv($_SESSION['_language'] ?? Config::get()->DEFAULT_LANGUAGE, $_language_domain);
}

/**
* set locale to a given language and select translation domain
*
* This function tries to set the appropriate environment variables and
* locale settings for the given language and also (optionally) sets the
* translation domain.
*
* @access   public
*/
function setLocaleEnv($language, $language_domain = ''){
    putenv('LANGUAGE'); //unset language preference
    putenv('LC_ALL=' . $language . '.UTF-8'); //needed in MacOS since gettext doesnt read setlocale()
    $ret = setlocale(LC_ALL, $language . '.UTF-8');
    if ($language_domain) {
        bindtextdomain($language_domain, $GLOBALS['STUDIP_BASE_PATH'] . "/locale");
        textdomain($language_domain);
        bind_textdomain_codeset($language_domain, 'utf-8');
    }
    return $ret;
}
<?
# Lifter002: TODO
# Lifter010: TODO
/**
* Adapter for using php5 ext:soap with Ilias3Soap
*
*
* @author   Andre Noack <noack@data-quest.de>
* @access   public
* @package  ELearning-Interface
*/
class StudipSoapClient
{
    public $soap_client;
    public $error;
    public $faultstring;

    function __construct($path, $options = ['trace' => 0])
    {
        try {
            $this->soap_client = new SoapClient($path, $options);
        } catch (SoapFault $fault) {
            $this->error = "Soap Constructor Error " . $fault->faultcode . ": ".$fault->faultstring;
        }
    }

    function _call($method, $params)
    {
        $result = false;
        if ($this->soap_client instanceOf SoapClient) {
            $this->faultstring = "";
            try {
                $result = $this->soap_client->__soapCall($method, $params);
            } catch (SoapFault $fault) {
                $this->faultstring = $fault->faultstring;
                if (!in_array(mb_strtolower($this->faultstring), ["session not valid","session invalid", "session idled"])) {
                    unset($params['password']);
                    $this->error .= sprintf(_("SOAP-Fehler, Funktion \"%s\":"), $method) . " " . $fault->faultstring . " (" .  $fault->faultcode . ")".print_r($params,1);
                    error_log($this->error);
                }
                $this->soap_client->fault = true;
                return false;
            }
            if (is_object($result)) $result = (array)$result;
            if (is_array($result)){
                foreach($result as $index => $one){
                    if (is_object($one)) $result[$index] = (array)$one;
                }
            }
            $this->soap_client->fault = false;
        }
        return $result;
    }

    function getError()
    {
         $error = $this->error;
         $this->error = "";
         if ($error != "")
             return $error;
        else
            return false;
    }
}