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 = '******';
$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='******' --host='.$host.' --password='******' '.$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();
}
}
function backup_config()
{
$f = 'params/' . ses('qb') . '_saveconfig.txt';
$goto = '/?admin=' . $_GET["admin"];
$ret .= lkc("popbt", $goto . '&backup_config==', "backup_config") . ' ';
if (is_file($f)) {
$ret .= lkc("popbt", $goto . '&restore_config==', "restore_config") . ' ';
}
$ret .= lkt("popbt", $f, "config") . ' ';
if ($_SESSION["auth"] >= 5) {
if ($_GET["backup_config"]) {
$ret .= lkc("txtred", $goto . '&reset_config==', "!! default_config") . ' ';
$tosave = implode("#", $_SESSION['prmb']);
write_file($f, $tosave);
}
if ($_GET["restore_config"]) {
$config = read_file($f);
$_SESSION['prmb'] = explode('#', $config);
update("qdu", "config", $config, "name", ses('qb'));
$ret .= lkc("popdel", $goto, "old_config_restored");
relod($goto);
}
if ($_GET["reset_config"]) {
$prmdef = ndprms_defaults();
$config = ses('qb') . $prmdef[1];
$_SESSION['prmb'] = explode('#', $config);
update("qdu", "config", $config, "name", ses('qb'));
relod($goto);
}
}
return $ret;
}
function facil_pos($defs, $k)
{
$u = '/?admin=css&';
//$ret.=lkc("txtnoir",$u.'edit_css='.$k.'&append_this==#'.$k,'append_this').' ';
$ret .= lkc('txtyl', $u . 'erase=' . $k . '#' . ($k - 1), 'delete') . ' ';
$ret .= lkc('txtbox', $u . 'newfrom=' . $k . '&edit_css=' . ($k + 1) . '#' . ($k + 1), nms(44)) . ' ';
foreach ($defs as $ka => $v) {
$rb[$ka] = name_classe($v);
}
//$t.=btn('txtx','position:').menuder_form_kv($rb,'pos',$k,"kv");
$t .= btn('txtx', 'position:') . select(atn('pos'), $rb, 'kv', $k);
$t .= input2('submit', 'save', "ok");
$ret .= form($u . '&atpos=' . $k, $t);
return $ret;
}
function plug_tagpatch($p, $o)
{
$rid = 'plg' . randid();
$bt = btn('popsav', 'Transfert datas to the new tables') . br();
ses('qdt', 'pub_meta');
ses('qdta', 'pub_meta_art');
ses('qdtag', 'pub_tag');
$n = 12;
//req('spe'); echo $n=ceil(lastid('qda')/10000);
for ($i = 0; $i < $n; $i++) {
$bt .= lj('txtbox', $rid . '_plug__3_tagpatch_tagpatch*j_' . $i * 10000, $i);
}
//jb
//patch user_tags
if (prmb(18)) {
$utags = explode(' ', prmb(18));
$ico = explode(' ', prmb(19));
foreach ($utags as $k => $v) {
$bt .= lj('txtbox', $rid . '_plug__2_tagpatch_tagpatch*u_' . ajx($v), $v) . ' ';
}
}
if ($p == 'finalize') {
erase_unused_datas();
} else {
$ret .= lkc('popsav', '/plug/tagpatch/finalize', 'Finalize (delete unused datas !)');
}
//req('meta'); $ret=admin_tags($p?($p):'tag');//utf8_encode
return $bt . divd($rid, $ret);
}
function calendar($date)
{
$gd = getdate($date);
$dcible = date("d", $_SESSION['daya']);
$dyam = $gd["mon"];
$ret .= '<table style="font:smaller Arial; text-align:center;">';
$ret .= '<tr><td>L</td><td>M</td><td>M</td><td>J</td><td>V</td><td>S</td><td>D</td></tr><tr>';
$first = date("w", mktime(1, 1, 1, $dyam, 1, $gd["year"]));
if ($first == 0) {
$first = 7;
}
$nbdy = date("t", mktime(1, 1, 1, $dyam, 1, $gd["year"]));
for ($a = 1; $a < $first; $a++) {
$ret .= '<td></td>';
}
for ($i = 1; $i <= $nbdy; $i++) {
$mk = mktime(0, 0, 0, $dyam, $i, $gd["year"]);
$dy = date("d", $mk);
if ($dy == $dcible) {
$cssb = 'style="background-color: #' . $_SESSION['clrs'][$_SESSION['prmd']][4] . ';';
} else {
$cssb = "";
}
if (is_arts("", $mk + 86400, $mk) === true) {
$lnk = lkc('linc"' . $cssb, '/?module=Home&nbj=1&timetravel=' . $dy . '-' . $dyam . '-' . $gd['year'], $dy) . "\n";
} else {
$lnk = btn('lina"' . $cssb, $dy) . "\n";
}
$ret .= '<td>' . $lnk . '</td>';
$a++;
if ($a == 8) {
$a = 1;
$ret .= '</tr><tr>';
}
}
$ret .= '</tr></table>';
return $ret;
}
function repair_mods($nod)
{
$r = read_vars('msql/users/', $nod . '_sav', '');
if ($r) {
$r = msq_copy('users', $nod . '_sav', 'users', $nod);
if (auth(2)) {
alert('backup mods restored');
}
}
if (!$r) {
$r = read_vars('msql/system/', 'default_mods', '');
if ($r) {
$r = msq_copy('system', 'default_mods', 'users', $nod);
}
if (auth(4)) {
alert('using minimal config ' . lkc('txtx', '/admin/hubs&reinit==', 'reinit?'));
}
}
return $r;
}
function rech_titles($rech, $dig, $opt, $cac, $cat, $tag, $tag2)
{
list($bol, $ord, $tit, $pho) = split("-", $opt);
$load = $_SESSION['load'];
$days = geta('dig', $dig);
$bol = substr($rech, -1) == '*' ? 1 : get('bool', $bol);
$_GET['bool'] = $bol;
//$_GET['pho']=$pho;
$ret .= btn('search', input(1, 'search', $rech . '" size="32" maxlength="150', '')) . ' ';
$ret .= ljb('popsav', 'Search2();', '', nms(24)) . ' ';
$ret .= hlpbt('search') . ' ';
if ($cac) {
$ret .= blj('popbt', 'srcac', 'plug___search_rech*reset_' . $cac, picto('del'));
}
if ($load) {
$ret .= btn("popw", nbof(count($load), 1));
}
//.', '.nbof(array_sum($load),19).' '
if (rstr(3)) {
$ret .= br() . dig_h($days);
} else {
$ret .= hidden('', 'srdig', 1000);
}
//days
if (!isset($_SESSION['rstr62'])) {
sesr('rstr62', rstr(62));
}
if (rstr(3)) {
$ret .= togses('rstr62', pictit('right', nms(134))) . ' ';
}
//dig
$urg = mkurl(array('bool', 'titles', 'cat', 'tag'));
if ($rech) {
$ret .= lkc('', htac('search') . $rech . '/' . $dig, picto('link')) . ' ';
}
//.$urg
$ret .= br() . checkact('srord', $ord, nms(18)) . ' ';
$ret .= checkact('srtit', $tit, nms(72)) . ' ';
//$ret.=checkact('srpho',get('pho'),'').' ';//nms(123)
$ret .= checkact('srbol', $bol, nms(70)) . '' . hlpbt('bool') . ' ';
$ret .= select_j('srcat', 'category', $cat ? $cat : nms(9), 1) . ' ';
//hidslct_j
$ret .= select_j('srtag', 'tag', $tag ? $tag : 'tag', '');
//$ret.=select_j('srtag2','thèmes',$tag3,'thèmes');
return divc('titles', $ret);
}
function save_art_batch()
{
$r = $_SESSION['vacuum'];
//array_reverse
if ($r) {
foreach ($r as $k => $v) {
$rb[] = saveart_url($k);
unset($_SESSION['vacuum'][$k]);
$_SESSION['vacsuj'][$k] = '';
$_SESSION['vaccat'][$k] = '';
$_SESSION['dayx'] == time();
}
}
if ($rb) {
req('pop,spe,art,tri,mod');
$n = count($rb);
$ret .= lkc('poph', '/module/recents/all/Batch/articles/' . $n, nbof($n, 1)) . ' ';
$t = pictxt('view', nms(45) . ' ' . nms(100));
$ret .= lj('poph', 'popup_modpop___all/Batch/articles/' . $n . ':recents', $t);
} else {
$ret = nms(11) . ' ' . nms(16);
}
//$ret.=build_mod_r('all/Batch/multi/'.$n.':recents');
return divs('width:140px;', $ret);
}
function str_detect($v, $d, $c)
{
$sz = strlen($d);
$nd = 0;
$n = substr_count(strtolower($v), strtolower($d));
for ($i = 0; $i < $n; $i++) {
if ($nd < strlen($v)) {
$pos = strpos(strtolower($v), strtolower($d), $nd);
if ($pos !== false) {
$part = substr($v, $pos, $sz);
if (!$c) {
$repl = '<a name="look' . $i . '"></a>' . btn('stabilo', $part) . '';
} else {
$repl = lkc('stabilo', '/?read=' . $c . '&look=' . $d . '#look' . $i, $part);
}
$v = substr($v, 0, $pos) . $repl . substr($v, $pos + $sz);
$nd += $pos + strlen($repl);
}
}
}
if ($n or !$c) {
return $v;
}
}
function plug_umbin($p, $o)
{
$r = bin_s();
foreach ($r as $k => $v) {
foreach ($v as $ka => $va) {
$rb[$ka][$k] = $va;
}
}
//pr($rb);
/*[0] => Array
(
[aa] => 0
[am] => 0
[ab] => 1
[ba] => 1
[bm] => 0
[bb] => ?
)*/
foreach ($rb as $k => $v) {
$rc[] = array('a' => array($v['aa'], $v['am'], $v['bm'], $v['ba']), 'b' => array($v['ab'], $v['am'], $v['bm'], $v['bb']));
}
//pr($rc);
/*[0] => Array
(
[a] => Array
(
[0] => 0
[1] => 0
[2] => 0
[3] => 1
)
[b] => Array
(
[0] => 1
[1] => 0
[2] => 0
[3] => ?
)
)*/
foreach ($rc as $k => $v) {
$rd[$k] = ub_algo($v, $p);
}
//pr($rd);
$r['bb'] = $rd;
for ($i = 0; $i <= 4; $i++) {
$ret .= lkc('txtx', '/plug/umbin/' . $i, $i);
}
//return make_table($r);
//$pub=popart(1275);
return $ret . br() . make_table_clr($r, ub_clr()) . $pub;
}
}
}
}
}
//$rtr.=tracks_read($id,$page,$share,"nl",$nb);
$_SESSION['rstr'][13] = rstr13;
$xml = '<' . '?xml version="1.0" encoding="iso-8859-1" ?' . '>' . "\n";
//
//$xml.=bald('channel',$xml_out);
$xml .= '<rss version="2.0">' . "\n";
$xml .= $xml_out;
$xml .= "</rss>";
//$xml.="</xml>";
if ($_GET["save_xml"]) {
write_file($fxml, $xml);
echo lkc("txtyl", $fxml, "xml");
}
if ($_GET["save_list"]) {
write_file($flist, 'list=' . $rtd);
}
//$ret=output($rqt,$page,$share,$media);
echo divc("titres", $_SESSION["qb"]) . ' ';
echo art_lenght($duree) . br() . br();
echo $rtb . br() . hr() . br();
echo $rtc . br() . hr() . br();
echo $rtr;
if ($_GET["plug"] == "") {
//eye_b($read);
//echo footer($startime);
}
echo '</div></center></body></html>';
