<?php
/**
 * Pleasant PHP — a set of useful methods and variables.
 *
 * @package   pp
 * @version   2025.06.28
 * @see       https://app.w87.eu/codeInfo?app=pp.w87.eu&file=pp.w87.eu.php
 * @see       https://pp.w87.eu/
 * @author    Walerian Walawski <https://w87.eu/?contact>
 * @link      https://w87.eu/
 * @license   https://creativecommons.org/licenses/by-sa/4.0/ CC BY-SA 4.0
 * @copyright 20016-2025 SublimeStar.com Walerian Walawski © All Rights Reserved.
 */

class PP
{
    public const MB = 1048576;
    public const GB = 1073741824;
    public const PASSWORD_SALT = 'Łódź ęąćŹŻŁóśń LOL :-)';
    public const DAYS_IN_SEC = [1 => 86400, 2 => 172800, 3 => 259200, 4 => 345600, 5 => 432000, 6 => 518400, 7 => 604800, 8 => 691200, 9 => 777600, 10 => 864000, 11 => 940800, 12 => 1020800, 13 => 1106400, 14 => 1209600, 15 => 1296000, 30 => 2592000, 60 => 5184000, 90 => 7776000, 100 => 8640000];
    public const WHITE_CHARS = ["\n", "\r", "\t", ' ', ' '];
    public const BYTES_UNITS = ['B', 'KB', 'MB', 'GB', 'TB', 'PB', 'EB', 'ZB', 'YB'];

    public static $conf = [
            'app'    => 'test',
            'email'  => [
                'reName'  => 'SublimeStar.com',
                'reEmail' => 'help@sublimestar.com',
                'from'    => 'notify@sublimestar.com',
                'footer'  => '

-- 
Kind regards,
Walerian Walawski
https://sublimestar.com/

',
                'notify'  => 'SublimeStar <test.notification@sublimestar.com>',
            ],
        'date' => [
            'time' => 'H:i:s',
            'year' => 'Y',
            'date' => 'Y-m-d',
            'full' => 'Y-m-d H:i:s',
        ],
        'db' => [
            'connect' => 'mysql:unix_socket=/var/run/mysqld/mysqld.sock',
            'user'    => 'root',
            'pass'    => '',
            'name'    => 'pp',
            'charset' => 'utf8',
        ],
        'path' => [ // No tailing slashes
            'base'    => __DIR__,
            'logs'    => __DIR__.'/logs',
        ],
        'debug' => [
            'dbQuery' => false,
        ]
    ];

    public function __construct($conf=[]){
        self::$conf = array_merge(self::$conf, $conf);

        // Unix TimeStamp
        $this->ts      = $_SERVER['REQUEST_TIME'];       // time() equivalent
        $this->tsFloat = $_SERVER['REQUEST_TIME_FLOAT']; // microtime() equivalent
        
        // Other date & time
        $this->time = date(self::$conf['date']['time']);
        $this->date = date(self::$conf['date']['date']);
        $this->year = date(self::$conf['date']['year']);
        $this->dt   = "{$this->date} {$this->time}";

        // HTTP request
        $this->userIp  = $_SERVER['HTTP_CF_CONNECTING_IP'] ?? $_SERVER['REMOTE_ADDR'];
        $this->proto   = $_SERVER['HTTP_X_FORWARDED_PROTO'] ?? '' === '' ? $_SERVER['REQUEST_SCHEME'] : $_SERVER['HTTP_X_FORWARDED_PROTO'];
        $this->method  = $_SERVER['REQUEST_METHOD'];
        $this->uri     = $_SERVER['REQUEST_URI'];
        $this->ref     = $_SERVER['HTTP_REFERER'] ?? '';
        $this->uas     = $_SERVER['HTTP_USER_AGENT'];
        $this->host    = $_SERVER['HTTP_HOST'];
        $this->base    = "{$this->proto}://{$this->host}";
        $this->url     = "{$this->base}{$this->uri}";
        $this->request = "{$this->method} {$this->url} (port {$_SERVER['SERVER_PORT']})";

        // Base path, symlink resolved (no tailing slash)
        $this->path = realpath('.');

        return $this;
    }

    /**
     * Get the general config. var. (single arg.) or set it (two args.)
     *
     * @param  string $key — key in $config
     * @param  mixed $value — sets the key value if not null
     * @return mixed value for the $key (also if setting a new one)
     */

    public static function conf($key, $value = null){
        if($value === null){
            return self::$conf[$key] ?? null;
        }else{
            self::$conf[$key] = $value;
            return self::$conf[$key];
        }
    }

    /**
     * Memcached: new instance (persistent)
     * 
     * @param  string $instance — persistent instance ID
     */
    
    public static function mcNew($instance = null) {
        $instance = null === $instance ? self::$conf['app'] : $instance;

        $memCached = new Memcached($instance);
        $memCached->setOption(Memcached::OPT_LIBKETAMA_COMPATIBLE, true);

        if(count($memCached->getServerList()) == 0){
            $memCached->addServer('127.0.0.1', 11211);
        }

        return $memCached;
    }

    /**
     * Memcached: get value for a key
     *
     * @param  string $key — key name
     */
    
    public static function mcGet($key){
        global $memCached;
        return $memCached->get(self::$conf['app'].":$key");
    }
    
    /**
     * Memcached: set value for a key (seconds)
     *
     * @param  string  $key — key name
     * @param  mixed   $value
     * @param  integer $time
     */
    
    public static function mcSet($key, $value='', $time=30){
        global $memCached;
        return $memCached->set(self::$conf['app'].":$key", $value, $_SERVER['REQUEST_TIME'] + $time);
    }
    
    /**
     * Memcached: set value for a key - minutes
     *
     * @param  string  $key — key name
     * @param  mixed   $value
     * @param  integer $time
     */
    
    public static function mcSetM($key, $value='', $time=5){
        global $memCached;
        return $memCached->set(self::$conf['app'].":$key", $value, ( $_SERVER['REQUEST_TIME'] + ( $time * 60 ) ) );
    }
    
    /**
     * Memcached: set value for a key - hours
     * 
     * @param  string  $key — key name
     * @param  mixed   $value
     * @param  integer $time
     */
    
    public static function mcSetH($key, $value='', $time=4){
        global $memCached;
        return $memCached->set(self::$conf['app'].":$key", $value, ( $_SERVER['REQUEST_TIME'] + ( $time * 3600 ) ) );
    }
    
    /**
     * Memcached: set value for a key - days
     * 
     * @param  string  $key — key name
     * @param  mixed   $value
     * @param  integer $time
     */
    
    public static function mcSetD($key, $value='', $time=7){
        global $memCached;
        return $memCached->set(self::$conf['app'].":$key", $value, ( $_SERVER['REQUEST_TIME'] + ( $time * 86400 ) ) );
    }
    
    /**
     * Memcached: delete a key
     * 
     * @param  string  $key — key name
     */
    
    public static function mcDel($key){
        global $memCached;
        return $memCached->delete(self::$conf['app'].":$key");
    }
    
    /**
     * Send an e-mail
     *
     * @return bool
     */
    
    public static function email($name, $email, $subject, $content, $reName='', $reEmail='', $notify=''): bool{
        $conf = self::$conf['email'];

        $nameRe = ($reName === '') ? $conf['reName'] : $reName;
        $reply  = ($reEmail === '') ? $conf['reEmail'] : $reEmail;
        $notify = ($notify === '') ? $conf['notify'] : $notify;
        $notify = empty($notify) ? '' : "\nDisposition-Notification-To: $notify";
        
        $from  = '=?UTF-8?B?'.base64_encode($nameRe).'?= <'.$conf['from'].'>';
        $reply = '=?UTF-8?B?'.base64_encode($nameRe).'?= <'.$reply.'>';

        return mail('=?UTF-8?B?'.base64_encode($name).'?= <'.$email.'>','=?UTF-8?B?'.base64_encode($subject).'?=',$content.$conf['footer'],
'MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
From: '.$from.'
Reply-To: '.$reply.$notify.'
User-Agent: pp.w87.eu Email
X-Mailer: pp.w87.eu Email
X-MTK: https://api.sublimestar.com/mtk.out?in='.self::$conf['app'].'-ppW87euEmail-'.$_SERVER['REQUEST_TIME']);
    }

    public static function sleep($milisecondsMin = 1000, $milisecondsMax = null){
        return usleep($milisecondsMax === null ? $milisecondsMin : rand($milisecondsMin, $milisecondsMax));
    }

    /** ------------------------------------------------- https://w87.eu/?v=2023.08.20 ----
     * Texts
     * ------------------------------------------------------------------------------------ */

    public static function shortenStr($str, $limit, $start = 0, $sign = '...'): string {
        return mb_strlen($str) > $limit ? mb_substr($str, $start, ($limit - 1)) . $sign : ($start ? mb_substr($str, $start) : $str);
    }

    public static function generateRandomString(
        $length,
        $keyspace = '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'
    ): string {
        $string = '';
        $max    = mb_strlen($keyspace) - 1;

        for ($i = 0; $i < $length; ++$i) {
            $string .= $keyspace[random_int(0, $max)];
        }

        return $string;
    }

    /** ------------------------------------------------- https://w87.eu/?v=2023.08.20 ----
     * URLs
     * ------------------------------------------------------------------------------------ */

    public static function removeAccent($str): string {
        $a = ['À', 'Á', 'Â', 'Ã', 'Ä', 'Å', 'Æ', 'Ç', 'È', 'É', 'Ê', 'Ë', 'Ì', 'Í', 'Î', 'Ï', 'Ð', 'Ñ', 'Ò', 'Ó', 'Ô', 'Õ', 'Ö', 'Ø', 'Ù', 'Ú', 'Û', 'Ü', 'Ý', 'ß', 'à', 'á', 'â', 'ã', 'ä', 'å', 'æ', 'ç', 'è', 'é', 'ê', 'ë', 'ì', 'í', 'î', 'ï', 'ñ', 'ò', 'ó', 'ô', 'õ', 'ö', 'ø', 'ù', 'ú', 'û', 'ü', 'ý', 'ÿ', 'Ā', 'ā', 'Ă', 'ă', 'Ą', 'ą', 'Ć', 'ć', 'Ĉ', 'ĉ', 'Ċ', 'ċ', 'Č', 'č', 'Ď', 'ď', 'Đ', 'đ', 'Ē', 'ē', 'Ĕ', 'ĕ', 'Ė', 'ė', 'Ę', 'ę', 'Ě', 'ě', 'Ĝ', 'ĝ', 'Ğ', 'ğ', 'Ġ', 'ġ', 'Ģ', 'ģ', 'Ĥ', 'ĥ', 'Ħ', 'ħ', 'Ĩ', 'ĩ', 'Ī', 'ī', 'Ĭ', 'ĭ', 'Į', 'į', 'İ', 'ı', 'IJ', 'ij', 'Ĵ', 'ĵ', 'Ķ', 'ķ', 'Ĺ', 'ĺ', 'Ļ', 'ļ', 'Ľ', 'ľ', 'Ŀ', 'ŀ', 'Ł', 'ł', 'Ń', 'ń', 'Ņ', 'ņ', 'Ň', 'ň', 'ʼn', 'Ō', 'ō', 'Ŏ', 'ŏ', 'Ő', 'ő', 'Œ', 'œ', 'Ŕ', 'ŕ', 'Ŗ', 'ŗ', 'Ř', 'ř', 'Ś', 'ś', 'Ŝ', 'ŝ', 'Ş', 'ş', 'Š', 'š', 'Ţ', 'ţ', 'Ť', 'ť', 'Ŧ', 'ŧ', 'Ũ', 'ũ', 'Ū', 'ū', 'Ŭ', 'ŭ', 'Ů', 'ů', 'Ű', 'ű', 'Ų', 'ų', 'Ŵ', 'ŵ', 'Ŷ', 'ŷ', 'Ÿ', 'Ź', 'ź', 'Ż', 'ż', 'Ž', 'ž', 'ſ', 'ƒ', 'Ơ', 'ơ', 'Ư', 'ư', 'Ǎ', 'ǎ', 'Ǐ', 'ǐ', 'Ǒ', 'ǒ', 'Ǔ', 'ǔ', 'Ǖ', 'ǖ', 'Ǘ', 'ǘ', 'Ǚ', 'ǚ', 'Ǜ', 'ǜ', 'Ǻ', 'ǻ', 'Ǽ', 'ǽ', 'Ǿ', 'ǿ'];
        $b = ['A', 'A', 'A', 'A', 'A', 'A', 'AE', 'C', 'E', 'E', 'E', 'E', 'I', 'I', 'I', 'I', 'D', 'N', 'O', 'O', 'O', 'O', 'O', 'O', 'U', 'U', 'U', 'U', 'Y', 's', 'a', 'a', 'a', 'a', 'a', 'a', 'ae', 'c', 'e', 'e', 'e', 'e', 'i', 'i', 'i', 'i', 'n', 'o', 'o', 'o', 'o', 'o', 'o', 'u', 'u', 'u', 'u', 'y', 'y', 'A', 'a', 'A', 'a', 'A', 'a', 'C', 'c', 'C', 'c', 'C', 'c', 'C', 'c', 'D', 'd', 'D', 'd', 'E', 'e', 'E', 'e', 'E', 'e', 'E', 'e', 'E', 'e', 'G', 'g', 'G', 'g', 'G', 'g', 'G', 'g', 'H', 'h', 'H', 'h', 'I', 'i', 'I', 'i', 'I', 'i', 'I', 'i', 'I', 'i', 'IJ', 'ij', 'J', 'j', 'K', 'k', 'L', 'l', 'L', 'l', 'L', 'l', 'L', 'l', 'l', 'l', 'N', 'n', 'N', 'n', 'N', 'n', 'n', 'O', 'o', 'O', 'o', 'O', 'o', 'OE', 'oe', 'R', 'r', 'R', 'r', 'R', 'r', 'S', 's', 'S', 's', 'S', 's', 'S', 's', 'T', 't', 'T', 't', 'T', 't', 'U', 'u', 'U', 'u', 'U', 'u', 'U', 'u', 'U', 'u', 'U', 'u', 'W', 'w', 'Y', 'y', 'Y', 'Z', 'z', 'Z', 'z', 'Z', 'z', 's', 'f', 'O', 'o', 'U', 'u', 'A', 'a', 'I', 'i', 'O', 'o', 'U', 'u', 'U', 'u', 'U', 'u', 'U', 'u', 'U', 'u', 'A', 'a', 'AE', 'ae', 'O', 'o'];
        return str_replace($a, $b, $str);
    }

    public static function slug($str, $placeholder='default', $length = 256): string {
        $str = trim(preg_replace(['`[^a-z0-9]`', '`[-]+`'], '-', mb_strtolower(self::removeAccent($str))), '-');
        return self::shortenStr(($str == '') ? $placeholder : $str, $length, 0, '');
    }

    public static function redirect($url, $code = 307){
        header("Location: $url", true, $code);
        exit("Redirecting to <a href=\"$url\">$url</a>");
    }

    /** ------------------------------------------------- https://w87.eu/?v=2023.08.20 ----
     * Humanizing
     * ------------------------------------------------------------------------------------ */

    public static function humanDomain($domain): string {
        $domain = mb_strtolower($domain);
        return ucfirst((mb_substr($domain, 0, 4) === 'www.') ? mb_substr($domain, 4) : $domain);
    }

    /**
     * Convert bytes to human readable format filesize
     * 
     * @param  integer $filesize
     * @return string
     */

    public static function humanBytes($filesize, $dec = 2): string {
        for($i = 0; $filesize >= 1024; $i++){
            $filesize /= 1024;
        }
        return round($filesize, $dec).' '.self::BYTES_UNITS[$i];
    }

    public static function humanDate($timestamp = null): string {
        return date(self::$conf['date']['full'], $timestamp ?? $_SERVER['REQUEST_TIME']);
    }

    /**
     * Remove file/dir (recur., force)
     * 
     * @param  string $path
     * @param  string $safe — $path has to START WITH $safe, but can NOT BE only $safe, to run rm
     *
     * @return bool
     */

    public static function rm($path, $safe): bool {

        if(str_starts_with($path, $safe) && $path !== $safe){
            system('rm -rf -- '.escapeshellarg($path), $retval);
            return $retval == 0;
        }

        return false;
    }

    public static function loadAvg()
    {
        $avg  = file_get_contents('/proc/loadavg');
        $load = explode(' ', $avg);

        return [
            '1m'    => $load[0],
            '5m'    => $load[1],
            '15m'   => $load[2],
            'loads' => $load[0] . ' ' . $load[1] . ' ' . $load[2],
            'full'  => $avg,
        ];
    }

    /**
     * Compact version of function var_export (for logs etc.)
     * 
     * @param  mixed $var
     * @param  bool  $noNewLines — even more compact version (without newlines)
     * 
     * @return string
     */
    public static function var($var, $noNewLines = false): string {
        if($noNewLines){
            $from = ["\t", "\r", "\n", '   ', '  ', '  ', '  ', '  ', "\n ", ", )"];
            $to   = [' ',  '',   ' ',  ' ',   ' ',  ' ',  ' ',  ' ',  "\n",  ')'];
        }else{
            $from = ["\t", "\r", "=> \n", "array (\n", "\n)", '   ', '  ', '  ', '  ', '  ', '  ', "\n ", ",\n)", ',)'];
            $to   = [' ',  '',   '=> ',   'array (',   ') ',  ' ',   ' ',  ' ',  ' ',  ' ',  ' ',  "\n",  ')',    ')'];
        }
        return trim(str_replace($from, $to, var_export($var, true)), " \n\r\t\v\0,");
    }

    /**
     * Logging
     * 
     * @param  string $file   — use __FILE__.':'. __LINE__
     * @param  string $info   — description
     * @param  string $type   — e.g. info, warning, error, fatal etc.
     * @param  mixed  $export — data to be exported
     * 
     * @return int|false
     */

    public static function log($file, $type, $info, $export = []): int {
        $date = date(self::$conf['date']['full']);
        $dump = empty($export) ? '' : self::var($export)."\n";
        return file_put_contents(self::$conf['path']['logs']."/$type.log", "$date → $info\n$file\n$dump\n", FILE_APPEND);
    }

    /**
     * Convert human readable format filesize to bytes.
     * Based on https://stackoverflow.com/a/11807179/7057874
     *
     * @author John V., Walerian Walawski
     */
    
    public static function converStringSizeToInt($from) {
        $from   = str_replace([',', 'BYTES', 'BYTE'], ['.', 'B', 'B'], strtoupper($from));
        $from   = preg_replace('`[^\dBKMGTP.]`', '', $from);
        $number = substr($from, 0, -2);
        $suffix = substr($from, -2);

        // B or no suffix
        if(is_numeric(substr($suffix, 0, 1))){
            return preg_replace('/[^\d]/', '', $from);
        }

        $exponent = array_flip(self::BYTES_UNITS)[$suffix] ?? null;
        if($exponent === null){
            return null;
        }

        return round($number * (1024 ** $exponent));
    }
    
    /**
     * Global vars. validation / getting
     * 
     * @param  string  $array  — which global?
     * @param  string  $name   — key name
     * @param  mixed   $value  — if not null, global var. must have this value
     * @param  integer $length — if not null, global var. must have this string length
     * @param  string  $type   — if not null, global var. must pass validation for type numeric | email
     * 
     * @return string|null
     */

    public static function _(string $array, string $name='', $value=null, $length=null, $type=null){
        $globals = [
            'get' => $_GET,
            'post' => $_POST,
            'files' => $_FILES,
            'cookie' => $_COOKIE,
            'session' => $_SESSION ?? [], // Session may not be started
        ];

        if(!isset($globals[$array][$name])) return null;
        if($value && $globals[$array][$name] != $value) return null;
        if($length && mb_strlen(trim($globals[$array][$name])) < $length) return null;
        if($type && $type === 'numeric' && !is_numeric($globals[$array][$name])) return null;
        if($type && $type === 'domain' && !filter_var(gethostbyname($globals[$array][$name]), FILTER_VALIDATE_IP)) return null;
        if($type && $type === 'email' && (!filter_var($globals[$array][$name], FILTER_VALIDATE_EMAIL) || !checkdnsrr(explode('@', $globals[$array][$name])[1], 'MX')) ) return null;
        // TODO: more types
    
        return $globals[$array][$name];
    }

    // TODO: extend
    
    public static function db($sql, $args = null){
        global $ppDb;
        return $ppDb->run($sql, $args);
    }

}

/** ------------------------------------------------- https://w87.eu/?v=2023.08.22 ----
 * Database (PDO)
 * ------------------------------------------------------------------------------------ */

class PPdb extends PDO{
    public static $prefix = '';

    public function run($sql, $args = null){
        try{

            if($args === null){
                return $this->query($sql);
            }

            $stmt = $this->prepare($sql);
            $stmt->execute($args);
            return $stmt;

        }catch(Exception $e){
            if(PP::$conf['debug']['dbQuery'])
                PP::log(__FILE__.':'. __LINE__, 'db-error', "PPdb Exception
ERROR:   ".$e->getMessage()."
REQUEST: {$_SERVER['REQUEST_METHOD']} {$_SERVER['HTTP_HOST']}{$_SERVER['REQUEST_URI']}
QUERY:   $sql
ARGS:    ".PP::var($args, true));

            return false;
        }
    }
}

/** ------------------------------------------------- https://w87.eu/?v=2025.06.19 ----
 * Example of use:
 * ------------------------------------------------------------------------------------

// DB

try {
    $ppDb = new PPdb(PP::$conf['db']['connect'].';dbname='.PP::$conf['db']['name'].';charset='.PP::$conf['db']['charset'], PP::$conf['db']['user'], PP::$conf['db']['pass'], [
        PDO::ATTR_ERRMODE                  => PDO::ERRMODE_EXCEPTION,
        PDO::ATTR_DEFAULT_FETCH_MODE       => PDO::FETCH_ASSOC,
        PDO::ATTR_PERSISTENT               => true,
        PDO::ATTR_EMULATE_PREPARES         => false,
        PDO::MYSQL_ATTR_USE_BUFFERED_QUERY => true,
        PDO::MYSQL_ATTR_FOUND_ROWS         => true
    ]);
    $ppDb->exec('USE '.PP::$conf['db']['name']);
}catch(Exception $e){
    PP::log(__FILE__.':'. __LINE__, 'db-error', "PPdb Connection Exception: ".$e->getMessage());
}

// Some other examples:

$pp = new PP(['app' => 'my-test-app']);
echo $pp->request.'<br>';
echo PP::humanDate().' '.PP::_('get', 'test');

var_dump(PP::db('SELECT * FROM `announcements` LIMIT 3')->fetchAll());

*/