function smsreader($r, $p, $o)
{
    $o = '+' . $o;
    foreach ($r as $k => $v) {
        $numbr = $v[0] ? $v[0] : $v[1];
        $numb = substr($numbr, 1);
        $day = $v[2] . $v[3] . $v[4] . $v[5] . $v[6] . $v[7];
        if ($v[7]) {
            $time = mktime($v[5], $v[6], $v[7], $v[3], $v[4], $v[2]);
        }
        if ($v[0] && $v[0] == $o or $v[1] && $v[1] == $o) {
            //szFromNumber
            //$day=$v['uYear'].$v['uMonth'].$v['uDay'].$v['uHour'].$v['uMinute'].$v['uSecond'];
            if ($time) {
                $realday = mkday($time, 'ymd.hi');
            }
            $ret .= $day . br() . $v[8] . br() . hr();
            $who = ($v[0] ? 'From' : 'To') . ':' . $numbr;
            $rb[$time] = divc('panel', $who . ', ' . $realday . br() . divc('justy', $v[8]));
        } else {
            $rb[$time] .= lkc('', '/plugin/smsreader/' . $p . '/' . $numb, $numb) . ' ';
        }
    }
    ksort($rb);
    //p($rb);
    $ret = implode(hr(), $rb);
    //echo $ret;
    return $ret;
}

function plug_backup($p, $o)
{
    $p = $p ? $p : '';
    $o = '1';
    //philumnet//philuminfo
    $user = 'root';
    $host = 'localhost';
    $pasw = base64_decode('bGdyM3Zkdng=');
    $base = $p;
    //exc('mkdir /home/w41k/backup');
    //$f='/var/backups/'.$p.date('ymd').'.sql';
    $f = '/_backup/' . $p . date('ymd') . '.sql';
    $fa = '/home/nfo' . $f;
    #dump
    $d = 'mysqldump -u' . $user . ' -h' . $host . ' -p' . $pasw . ' ' . $base . ' > ' . $fa;
    #tar dir
    //$f='/_backup/'.$p.date('ymd').'.tgz'; $d='tar -zcf /home/nfo'.$f.' /var/lib/mysql/'.$p; $o='';
    #dump
    //$d='mysqldump --user='.$user.' --host='.$host.' --password='.$pasw.' '.$base.' > '.$fa;
    #restore
    //$d='mysql -u root -p maBase < '.$fa;
    #copy dir
    //cp -r /répertoire_source /répertoire_destination
    if (!is_file($f) && $d) {
        exc($d);
        if ($o) {
            exc('gzip -r ' . $fa);
        }
    }
    //gzip
    $ret = lkc('', $f . '.gz', $p);
    //substr(,10)
    return $ret;
}

function plug_erase($del, $dir)
{
    //$del='';
    //$dir='';
    if ($_SESSION['auth'] < 6) {
        return 'no';
    }
    echo $del . '-' . $dir . '-';
    if ($del) {
        unlink($del);
    } elseif ($dir && strpos($dir, '/') != false) {
        rmdir_r($dir);
    }
    //$func='rmdir_r';
    //$r=explore($dir); explode_dir($r,$dir,$func?$func:"removef"); p($r);
    //walk_dir($dir,"removef");
    //rmdir($dir);
    //chmod($dir,0777);
    if ($del) {
        return $del;
    }
    if ($dir) {
        return $dir;
    }
    return lkc('', '/plug/erase.php?del=', 'del file');
}

function plug_sendmail()
{
    $ret .= lkc("", "sendmail.php", "index") . br();
    $ip = hostname();
    $arr = array("from" => "text", "dest" => "text", "suj" => "text", "msg" => "textarea", "ok" => "submit");
    if ($_POST["submit"] == "ok") {
        foreach ($arr as $k => $v) {
            ${$k} = $_POST[$k];
            $ret .= $k . ': ' . ${$k} . "\n";
        }
        if ($ip == $myip) {
            $ret .= nl2br($ret);
            mail($dest, $suj, $msg, 'From: ' . $from . "\n", "");
        } else {
            $ret .= "_specify_your_ip_in_source" . br();
        }
    }
    $f = "data/sendmail.txt";
    //$ret.=lkc("",$f,"txt").br();
    $t .= date("ymd.Hi", time()) . "\n" . $ip . "\n" . $ret . "---\n";
    $t .= read_file($f);
    write_file($f, $t . "\n");
    //write_file($f,$t,"a+");
    $ret .= make_form_b($arr, "");
    return $ret;
}

function tg_list($r, $go)
{
    if ($r) {
        foreach ($r as $k => $v) {
            $ret .= lkc('popbt', htac($go) . $k, $k . ' (' . $v . ')');
        }
    }
    return $ret;
}

function ascii_menu($s, $l)
{
    $s = $s ? $s : 128;
    $l = $l ? $l : 1000;
    $ret .= lj('', 'ascii_plug___ascii_ascii*j_' . ($s - $l) . '-' . $l, chr_b(9664));
    $ret .= lj('', 'ascii_plug___ascii_ascii*j_' . ($s + $l) . '-' . $l, chr_b(9658));
    $ret .= lkc('', '/plug/ascii/' . $s . '-' . $l, $s . '-' . ($s + $l)) . ' ';
    return $ret;
}

function plug_deploy($deploy)
{
    $qb = $_SESSION['qb'];
    $USE = $_SESSION['USE'];
    $raed = suj_of_id($deploy);
    $nl = $_GET['nl'] ? $_GET['nl'] : "nl";
    if ($deploy && $USE) {
        //prep
        list($qauth, $subj) = sql('name,suj', 'qda', 'r', 'id="' . $deploy . '"');
        $msg = sql('msg', 'qdm', 'v', 'id="' . $deploy . '"');
        if ($USE == $qauth or auth(5)) {
            $http = host();
            if (!$_POST['dpl']) {
                reqp('mail');
                $qmail = mail_list_tosend();
                $ret .= form("/?read={$deploy}&deploy={$deploy}&nl=nlb", txarea('dpl" maxlength="1000', $qmail, 40, 10) . br() . checkbox("dpf", "ok", "html", 1) . checkbox("multiple", "ok", "each_one", 1) . input2('submit', "send", nms(50), 'popbt'));
            } else {
                $htacc = urlread($deploy);
                $_SESSION['nl'] = $nl;
                //deploy
                if ($_POST['dpf'] == "ok") {
                    $mail_format = "html";
                    $txt = format_txt($msg, $nl, $deploy);
                    $txt = html_entity_decode($txt);
                    $txt = str_replace('href="/', 'href="' . $http . '/', $txt);
                    $msg = lkc("", $http . $htacc, bal("h2", $subj));
                    $msg .= divc("panel justy", $txt);
                } else {
                    $mail_format = "txt";
                    $msg = clean_internaltag($msg);
                    $msg = html_entity_decode($msg);
                }
                $_SESSION['nl'] = "";
                //send
                $sender = sql('mail', 'qdu', 'v', 'name="' . $USE . '"');
                $lstm = str_replace("\n", ",", $_POST['dpl']);
                $lstm = str_replace("\r", ",", $lstm);
                $listmail = explode(",", trim($lstm));
                if ($_POST['multiple'] == "ok" && is_array($listmail)) {
                    $sentto = send_mail_r($listmail, $mail_format, $qb . ' :: ' . $raed, $msg, $sender, $htacc);
                } else {
                    $sentto = $_POST['dpl'];
                    $vm = str_replace(array(",", ";", "\n", " "), ",", $sentto);
                    send_mail($mail_format, $vm, $qb . ' :: ' . $raed, $msg, $sender, $htacc);
                }
                $ret .= lkc("popbt", '/?read=' . $deploy, 'article ' . $deploy . ' sent to: ' . $sentto);
            }
        } else {
            $ret .= btn("popdel", "forbidden");
        }
    }
    //if($_POST['dpl'])return $ret;
    return $ret;
}

function loged_j($usr, $rg, $t, $tl)
{
    if ($t) {
        $ta = btn("txtsmall", $t);
    }
    if ($_SESSION['USE'] == '_' or !is_numeric($rg)) {
        $nam = nameofauthes($_SESSION["prmb"][11]);
        return '<form id="login" name="form2" method="post" action="/?log=on" onKeyPress="checkEnter(event,\'login\')">' . $ta . autoclic("user", $nam, $tl, "100", "txtx") . ' ' . autoclic("password", "pass", "pass", $tl, "50", "txtx") . ' ' . submitj('txtx" title="log:in / nouvel utilisateur', "login", "ok") . ' </form>';
    } else {
        return lkc("txtx", "/?log=out", "log_out") . br();
    }
}

function msqlxread()
{
    $page = $_GET['page'] ? $_GET['page'] : 1;
    $npg = 10;
    require 'plug/microxml.php';
    $min = ($page - 1) * $npg;
    $max = $page * $npg;
    $i = 0;
    $site = 'http://philum.net';
    //$site=philum();//father_server
    $r = clkt($site . '/msql/clients/philum_tickets');
    unset($r['_menus_']);
    if ($r) {
        foreach ($r as $k => $v) {
            //array('host','hub','msg','day','ip')
            if ($v[0] == $_SERVER['HTTP_HOST'] && $v[1] == ses('qb')) {
                $del = lj('txtyl', 'tickets_plug___tickets_tickets*j_' . $k . '_x', 'x');
            } else {
                $del = '';
            }
            $answ = ljb('popbt', 'jumpMenu_text', 'tckansw_' . ($v[5] ? $v[5] : $k), nms(91));
            $rb[$k] .= btn('txtsmall2', $v[3]) . ' ';
            $rb[$k] .= lkc('txtsmall', 'http://' . $v[0] . '/' . $v[1], $v[1]) . ' ';
            if (!$v[5]) {
                $rb[$k] .= $answ . ' ';
            }
            $rb[$k] .= $del . br();
            $msg = $v[2];
            if (!function_exists('correct_txt')) {
                req('tri,pop,spe');
            }
            //$msg=correct_txt($msg,'','sconn');
            if ($i >= $min && $i < $max) {
                $msg = miniconn($msg);
            }
            $i++;
            $rb[$k] .= divc('" style="width:400px;', nl2br(stripslashes($msg))) . br();
            if ($v[5]) {
                $rb[$v[5]] .= div(ats('margin-left:40px;'), $rb[$k]);
                unset($rb[$k]);
            }
        }
    }
    if ($rb) {
        rsort($rb);
    }
    return by_pages($rb, $page);
}

function ftp_render($r)
{
    $j = 'popup_plup___ftp_ftp*ops_';
    if ($r) {
        foreach ($r as $k => $v) {
            $f = $v[2];
            $t = $v[3];
            $rb[$k][] = lkc('txtbox', $f, $t);
            $rb[$k][] = lj('txtx', $j . 'rename_' . ajx($f), 'rename');
            $rb[$k][] = lj('txtx', $j . 'delete_' . ajx($f), 'del');
            $rb[$k][] = lj('txtx', $j . 'copy_' . ajx($f), 'copy to');
            $rb[$k][] = lj('txtx', $j . 'infos_' . ajx($f), 'infos');
        }
    }
    return make_divtable($rb);
}

function plug_slct()
{
    $r = msql_read('system', 'program_plugs', '', 1);
    //p($r);
    //ksort($r);
    foreach ($r as $k => $v) {
        if ($v[2] == '1' && !$v[3] && !$v[5] && $v[1]) {
            $rb = tri_tag(str_replace(' ', ',', $v[1]));
        }
        if ($rb) {
            foreach ($rb as $kb => $vb) {
                $ret[$vb][] = lkc('', '/plug/' . $k, $k);
            }
        }
    }
    return divc('', make_tabs($ret));
}

function vmailsend($id, $o, $res)
{
    req('pop,spe,tri,mod');
    $http = host();
    $htacc = urlread($id);
    list($from, $to, $txt, $suj) = ajxr($res);
    if (strpos($to, "@") !== false) {
        $suj = sql('suj', 'qda', 'v', 'id="' . $id . '"');
        $msg = divc("panel justy", $txt);
        $msg .= lkc("", $http . $htacc, bal("h2", $suj));
        $msg .= divc("panel justy", read_msg($id, "nlb"));
        send_mail("html", $to, $suj, $msg, $from ? $from : hostname(), $htacc);
        return btn("popbt", nms(34) . ' ' . nms(79) . ' ' . nms(36) . ': ' . $to);
    } else {
        return btn("popdel", 'error' . $to);
    }
}

function plug_retape($p, $o)
{
    $p = $p ? $p : 1000;
    $o = $o ? $o : 1;
    $n = $p * $o;
    $w = 'id>' . ($n - $p) . ' AND id<' . $n;
    $w = 'id=10';
    //
    req('pop');
    $rq = sql('id,msg', 'qdm', 'q', $w);
    if ($rq) {
        while ($r = mysql_fetch_row($rq)) {
            retape($r[1], $r[0]);
        }
    }
    //echo $r[1];//
    $ret = lkc('txtx', '/plug/retape/' . $p . '/' . ($o + 1), $o + 1);
    return $ret;
}

function addf_inject()
{
    calltar();
    $ra = msql_read('server', 'edition_typos', '');
    if ($ra) {
        $vra = array_keys_r($ra, 0, 'k');
    }
    $r = msql_read('', 'public_addfonts', '');
    if ($r) {
        $vr = array_shift($r);
    }
    $dir = 'fonts/';
    $diru = 'users/' . $_SESSION['qb'] . '/fonts/';
    if (!is_dir($diru)) {
        mkdir($diru);
    }
    if ($r) {
        foreach ($r as $k => $v) {
            $font = normalize($v[0]);
            if (!$vra[$font]) {
                $rb = array($font, '', '', '', '');
                for ($i = 1; $i < count($v); $i++) {
                    $f = $font . '.' . $vr[$i];
                    $rc[] = $dir . $f;
                    $ret .= addf_copy($v[$i], $dir . $f) . br();
                }
                //u
                //msql_modif('server','edition_typos',$rb,$dfb,'push','');
                //modif_vars('','public_addfonts',$k,'del');
                if ($rc) {
                    PclTarCreate($diru . $font . '.tar.gz', $rc, '', '', '');
                }
                $ret .= btn('txtblc', lka($diru . $font . '.tar.gz')) . ' ' . btn('txtx', 'saved') . br();
            } else {
                $ret .= $font . ' already_exists' . br();
            }
        }
    }
    //if($rb)msql_modif('server','edition_typos',$rb,$dfb,'add','');
    $ret .= lkc('txtbox', '/?admin=fonts&inject==', 'inject datas (admin/fonts)') . br();
    return $ret;
}

function plug_htaccess($d)
{
    $here = 'htaccess';
    $default = msql_read('system', 'default_htaccess', 1);
    $actual = read_file('.' . $here);
    if (!$actual or $d) {
        $actual = $default;
        $ret .= btn('txtyl', 'default_loaded') . br();
    }
    $ret .= picto('alert�24') . ' ' . btn('txtcadr', 'critical_operations') . ' ';
    $ret .= lj('txtbox', 'txt_plug__4_' . $here . '_' . $here . '*default', 'default') . ' ';
    $ret .= lj('txtbox', 'cbk_plug__xd_' . $here . '_' . $here . '*mkdefault___txt', 'backup') . ' ';
    $ret .= msqlink('system', 'default_htaccess') . ' ';
    $ret .= lkc('txtx', '.htaccess', 'link') . ' ';
    $ret .= hlpbt('htaccess') . ' ' . btd('cbk', '') . ' ';
    $ret .= btd('bts', lj('txtbox', 'cbk_plug__xd_' . $here . '_' . $here . '*j___txt', 'save')) . br() . br();
    $ret .= txarea('txt', $actual, 120, 26) . br();
    $ret .= lkt('txtblc', 'http://htaccess.madewithlove.be/', 'tests');
    return $ret;
}

function plug_menu($d, $p, $o, $dr)
{
    if ($dr) {
        $dr = '/' . $dr;
    }
    //$ret.=li(lien('txtsmall','/plug/index',picto('phi')));
    $ret .= popbub('plug', 'plugin', picto('phi2'), 'd', 1);
    //$ret.=llj('','popup_plup___plug_plug*slct',picto('list'));
    $ret .= li(lkc('txtsmall', host() . '/plug/' . $d . ($p ? '/' . $p : '' . ($o ? '/' . $o : '')), picto('reload')));
    $ret .= li(call_plug('txtsmall', 'popup', 'codeview', 'plug' . $dr . '_' . ajx($d), picto('conn')));
    //source
    if (auth(3)) {
        $ret .= msqlink('system', 'program_plugs') . ' ';
    }
    $ret .= plug_hlp($d);
    if (auth(4)) {
        $ret .= lj('', 'popup_editmsql___system/program*plugs_' . ajx($d) . '__1', picto('edit')) . ' ';
        $ret .= lj('', 'popup_editmsql___lang/fr/program*plugs_' . ajx($d) . '__1', picto('flag')) . ' ';
    }
    return mkbub($ret, 'inline', '', 'this.style.zIndex=popz+1;') . divc('admnu', '');
}

function plug_cart()
{
    if ($_GET["del"]) {
        unset($_SESSION['cart'][$_GET["del"]]);
    }
    $ar[] = array("", "réf", "titre", "prix", "qté", "sub_total", "x");
    //"ancien prix","remise",
    if ($_SESSION['cart']) {
        foreach ($_SESSION['cart'] as $k => $v) {
            $save .= $k . '=' . $v . ';' . "\r";
            list($day, $frm, $tit, $amg, $nod, $tag, $lu, $re, $host, $mail, $ib) = pecho_arts($k);
            list($prx, $ref, $stock) = prod_from_art($k);
            //,$reduc,$descript
            $tit = lkc("txtcadr", good_url($k, 'read'), $tit) . '' . br();
            $img = minimg($amg, 1) . br();
            //if($reduc){$oldprice=$prix;$prx=round($prix*($reduc/100));}
            //else{$oldprice="";$prx=$prix;}//prix
            $qte = qtes($k, $v);
            $erz = lkc('', '?plug=cart&del=' . $k, 'x');
            $ar[] = array($img, $ref, $tit, $prx, $qte, $prx * $qte, $erz);
            //$oldprice,$reduc,
            $total += $prx * $qte;
        }
        $_SESSION["prixtotal"] = $total;
        $ar[] = array("", "", "", "", "total", $total);
        //"","",
        $tb = make_table($ar, 'txtred', '');
        //$tb=str_replace("table",'table width="100%"',$tb);
        $tb = str_replace("td", 'td class="txtblc" align="center"', $tb);
        //$_SESSION["commande"]=$tb;
        $ret = $tb . br();
        $ret .= ljb('txtbox', 'jumpval', 'ref5_command::' . $save, $_SESSION['nms'][27]) . br() . br();
        $ret .= nl2br(make_form_fromstring('::Name=input::Adress=input::city=input::Email=input::Message=text', ''));
    } else {
        $ret = btn("txtred", "empty_cart");
    }
    return $ret;
}

function sugnote()
{
    $sg = $_SESSION['sugm'];
    $_SESSION['sugm'] = '';
    $r = msql_modif('users', ses('qb') . '_suggest', 'ok', 1, 'val', $sg);
    $mail = $r[$sg][3];
    list($m, $a) = split("@", $mail);
    $id = lastid('qda') + 1;
    $msg = lkc('', host() . urlread($id), helps('suggest_ok'));
    if ($mail) {
        send_mail_html($mail, nms(1) . ' ' . nms(89), $msg, $_SESSION['qbin']['adminmail'], $id);
    }
    if ($m) {
        return '[' . nms(56) . ' ' . nms(88) . ' ' . $m . ':q]' . "\n";
    }
}

function fi_plnk($p, $o)
{
    $o = mkprm($o, '', 5);
    if (strprm($o, 0) == '') {
        $o = mkprm($rb, 'disk', 0);
    }
    $o = str_replace('/', '|', $o);
    return lkc('grey', '/?module=' . str_replace('/', '|', $p) . '///' . $o . ':finder', picto('link'));
}

function loged($usr, $rg, $t)
{
    if ($t) {
        $ret = btn('popw', $t) . ' ';
    }
    if (!$_SESSION['USE'] or !is_numeric($rg)) {
        //nameofauthes(prmb(11))
        $nam = 'login';
        $sty = '" style="width:100px;';
        $ret .= autoclic('user" id="lgg" onkeyup="log_finger(\'lgg\');', $nam, 8, 100, 'search', 1) . ' ';
        $ret .= input2('password" size="8', 'pass', '', 'search') . ' ';
        if (rstr(59)) {
            $ret .= checkbox_j('cook', 1, '', 'permanent') . ' ';
        } else {
            $ret .= hidden('', 'cook', 1);
        }
        $ret .= submitj('poph" title="' . helps('login') . '', 'log', picto('logout'));
        return divd('valid', '<form id="log" name="log" action="javascript:login(\'log\')" onKeyPress="checkEnter(event,\'log\')">' . $ret . '</form>');
    } else {
        return lkc('popdel', htac('log') . 'out', picto('logout')) . br();
    }
}