function plug_dev2prod($p, $o) { $r = explore('progb', 'files', 1); $old = '_old/' . date('ymd') . '/'; mkdir_r($old); $olb = '_old/' . date('ym') . '/'; mkdir_r($olb); foreach ($r as $k => $v) { if ($v != '_trash.php') { $fa = 'progb/' . $v; $da = filemtime($fa); $sa = filesize($fa); $fb = 'prog/' . $v; $db = filemtime($fb); $sb = filesize($fb); if (date('d') == '01') { copy($fb, $olb . $v); } if ($sa != $sb or $da > $db) { copy($fb, $old . $v); copy($fa, $fb); $ret .= strdeb($v, '.') . ' '; } } } return $ret; }
function mailist_save($a, $b, $res) { $r = ml_rb(); list($m, $n, $p) = ajxr($res); $voc = sesmk('mailvoc'); $n = strdeb($m, '@'); if (strpos($m, '@') !== false && strpos($m, '.') !== false && strpos($m, '?') === false) { $m = trim($m); if (!$r[$m]) { $p = 0; $msg = $voc['welcome_mail'] . br() . $voc['adios_mail']; $dt = time(); $sent = send_mail_html($m, 'newsletter', $msg, '', '?plug=mailist&p=confirm&o=' . $dt); if ($sent == 'not_sent') { return btn('txtyl', $m . ' :: ' . $voc['answer_success']); } else { $r[$m] = array($n, $p, $dt, $ip, $_SESSION['iq']); ml_rs($r); return btn('txtyl', $m . ' :: ' . $voc['answer_success']); } } else { return btn('txtyl', $voc['answer_exists']); } } else { return btn('txtyl', $voc['answer_error']); } }
function ftp_j($p, $o, $res = '') { list($p, $o) = ajxp($res, $p, $o); //$p='/'.$p; if ($p) { ses('pp', $p); } $r = explore($p, '', 1); //pr($r); if ($r) { foreach ($r as $k => $v) { //p,v,f,t $rb[$k] = array($p, $v, $p . '/' . $v, strdeb($v, '.')); } } return ftp_render($rb); }
require 'plug/suggest.php'; $t = preplink($id); $ret = suggest_import($id); break; case "convhtml": req('spe,tri'); $_GET['urlsrc'] = host() . '/'; $ret = convhtml_b($id); break; case "convconn": req('pop,tri'); //wwig $ret = format_txt_r(ajx($id, 1), 3, 'test'); break; case "iframe": $s = strdeb($res, '-'); $s = is_numeric($s) ? $s : 720; $s = $s > prma('content') ? prma('content') : $s; $ret = iframe($id, $s - 20); $t = $va; break; //case("inframe"):$ret=inframe($id,$va,$opt,$optb); break; //nav //case("inframe"):$ret=inframe($id,$va,$opt,$optb); break; //nav case "search": req('pop,spe,art,tri,mod'); require 'plug/search.php'; $ret = plug_search($id, $va, $opt, $res); $t = nms(24); $s = 640;
function miniconn_w($doc, $h) { list($pd, $c) = split_one(':', $doc, 1); if ($c && $pd != 'http') { $d = sconn_defs_r($pd, $c); if ($d != $doc) { return $d; } } if ($c) { $d = sconn_defs_app($pd, $c, $h); if ($d) { return $d; } } list($p, $o) = split_one('§', $doc, 1); if ($o) { if (is_numeric($p) && $o) { return pop_art('http://' . $h . '/' . $p . '§' . $o); } elseif ($p && $o) { return lkt('', $p, pictxt('get', $o)); } } $xt = strtolower(strrchr($doc, '.')); if ($xt == '.mp3') { $j = ajx(goodroot($doc, $h)); return lj('', 'popup_popmp3___' . $j, pictxt('music', strrchr_b($doc, '/'))); } if ($xt == '.pdf') { return pdfreader($doc); } if (is_image($doc)) { $im = goodroot($doc); if (@is_file($im)) { return popim($im, picto('img')); } elseif (strlen($doc) > 4) { return popim_w($im, $h); } } if (strpos($doc, "@") !== false && strpos($doc, '.') !== false) { return lka('mailto:' . $doc, strdeb($doc, '@')); } if (substr($doc, 0, 1) == '@') { return poptwit(substr($doc, 1)); } //if(substr($doc,0,1)=='@')return plugin_func('tracks','track_answer',substr($doc,1),''); //if(substr($doc,0,1)=='#')return call_plug('','popup','chatxml',substr($doc,1),pictxt('chat',substr($doc,1))); if ($pd == 'http') { return lkt('', $doc, pictxt('get', http_domain($doc))); } return $doc; }
function rssin_load($f) { $alx = alx(); //sesmk('alx'); $r = rssin_xml($f); if (!$r) { $r = rssin_old($f); } reqp('search'); if ($r) { foreach ($r as $k => $v) { list($suj, $lnk, $dat) = $v; if (strpos($lnk, 'feedproxy')) { $lnk = feedproxy($lnk); } if (strpos($lnk, 'spip.')) { $lnk = strdeb($lnk, 'spip.') . str_extract('/spip', $lnk, 1, 1); } $id = recognize_article($lnk, $suj, $alx); $ret[] = array($suj, $lnk, $dat, $id); } } return $ret; }
function bub_adm_admin($dir) { //case:admin $r = sesmk('adminauthes', '', 1); $rm = msql_read('lang', 'admin_authes', '', 1); $ret[] = array('backoffice', 'linkt', '', '/admin/console', '', '', 'Global', 'link'); if ($r) { foreach ($r as $k => $v) { if (strdeb($k, '/') == strdeb($dir, '/')) { if ($k == 'Microsql') { $ret = bub_msql_fast($ret, $k); } else { foreach ($v as $ka => $va) { if ($va <= $_SESSION['auth']) { $t = $rm[$ka] ? $rm[$ka] : $ka; $ico = mimes_types($ka); if ($ka == 'css') { //name,j,root,ico,lk $mlt = 'page_deskbkg;popup_admin__3_css;popup_site___desktop_ok__autosize'; $ret[] = array('edition', 'link', 'blank', '/admin/' . $ka, '', '', $k . '/' . $ka, 'link'); $ret[] = array('desktop', 'js', 'SaveJc', $mlt, '', '', $k . '/' . $ka, 'popup', '', ''); $ret[] = bub_adm('design', 'design', $k . '/' . $ka, $ico); $ret[] = bub_adm('colors', 'colors', $k . '/' . $ka, $ico); } elseif (strtolower($ka) == 'hubs' && auth(5)) { foreach ($_SESSION['mn'] as $kb => $vb) { $ret[] = bub_l($vb ? $vb : $kb, 'link', subdom($kb), $k . '/' . $ka, $ico); } } elseif ($ka == 'console') { $ret = bub_adm_console($ret, $k . '/' . $ka); } elseif ($ka == 'restrictions') { $ret = bub_adm_rstr($ret, $k, $ka, $t, $ico); } elseif ($ka == 'tickets') { $ret[] = array($t, 'plug', 'chatxml', 'tickets', '', '', $k, 'chat'); } elseif ($ka == 'update') { $ret[] = bub_adm($t, ajx($ka), $k, 'download'); } else { $ret[] = bub_adm($t, ajx($ka), $k, $ico); } } } } } } } return $ret; }
function savefunc_plug() { //save_all $r = explore('plug', 'full', 1); //pr($r); $ra = array('edit', 'dev', 'admin', 'ummo', 'photo'); //$ra=explore('plug','dirs',1); if ($ra) { foreach ($ra as $v) { $rb = explore('plug/' . $v, 'full'); //if($rb)foreach($rb as $vb)$r[]=$vb; } } foreach ($r as $v) { if ($v != 'userdl.tar.gz') { $p = strrchr_b($v, '/'); $p = strdeb($p, '.'); save_funcs($v, $p); } } }
function see_also_source($o = '') { $o = $o ? $o : 10; $id = ses('read'); $src = $_SESSION['rqt'][$id][9]; if (!$src) { $src = sql('mail', 'qda', 'v', 'id=' . ses('read')); } if ($src) { $src = preplink($src); $r = $_SESSION['rqt']; if ($r) { foreach ($r as $k => $v) { if (preplink($v[9]) == $src) { $ret[$k] += 1; } } } if (!$ret && $src) { $ret = sql('id', 'qda', 'k', 'mail LIKE "%' . $src . '%" limit ' . $o); } if ($ret) { unset($ret[$id]); return array($ret, lka(htac('source') . strdeb($src, '.'), $src . ' ' . $n)); } } }
function chatxread($p, $r) { $c = 'txtsmall'; $nm = ses('muse'); $use = ses('USE'); if ($r) { foreach ($r as $k => $v) { $erz = ''; $ml = ''; $msg = $v[2]; if ($use && ($v[1] == $nm or $p == $use)) { $erz = lj($c, 'chtx' . $p . '_plug___chatxml_chatxsav_' . $p . '_' . $k, picto('sclose')); } if (strchr_b($v[3], '/') == $use) { $ml = lj('popbt', 'popup_plug___chatxml_chatxinvitx_' . $p . '_' . ajx($v[3]), '@') . ''; } $bt = lkt('popbt', 'http://' . $v[3], $v[1]) . ' ' . btn($c . '2', mkday($v[0], 'ymd:hi')); $msg = correct_txt(html_entity_decode($msg), '', 'sconn'); $msg = miniconn($msg, strdeb($v[3], '/')); $ret .= divc('track', $ml . $bt . $erz . br() . nl2br(stripslashes($msg))); } } return $ret; }
function favicon_slct() { $dr = 'imgb/icons/system/philum/16'; $r = explore($dr, 'files', 1); $ret = btn('small', 'favicon') . ' '; if ($r) { foreach ($r as $k => $v) { $v = strdeb($v, '.'); $ico = icon($v . '§system/philum/16') . ' '; $ret .= lj('', 'favc_call__xd_admin_favicon*sav_' . $v, $ico); } } return $ret . divd('favc', ''); }
function batch_prep($v) { $http = strdeb($v, '/'); req('pop'); $rss = rssin_load(http($v)); $vac = $_SESSION['vacuum']; //pr($rss); foreach ($rss as $k => $v) { list($suj, $f, $dat, $id) = $v; $f = (string) $f; if ($id) { break; } elseif ($f && !isset($vac[$f])) { $f = nohttp($f); @($_SESSION['vacsuj'][$f] = $suj); @($_SESSION['vacdat'][$f] = $dat); @($_SESSION['vacuum'][$f] = ''); } } }
function detect_plugs() { $dr = 'plug/'; $r = msql_read('system', 'program_plugs', '', 1); //p($r); $rec = explore($dr, files, 1); //p($rec); foreach ($rec as $k => $v) { $f = $dr . $v; $vb = strdeb($v, '.'); $xt = xt($v); $rc = $r[$vb]; $bo = detect_plugable($f, $vb); $iface = $rc[4]; //?$rc[4]:detect_interface($f,$vb); $pb = substr($v, 0, 1) == '_' ? '1' : ''; if (is_file($f) && $v && $vb && $xt == '.php') { if (!$rc) { $na++; } $rb[$vb] = array($rc[0], $rc[1], $bo ? $bo : '0', $rc[3], $iface, $rc[5], $pb); } //$vr, if (is_file($f) && $v && $vb) { $rd[$vb] = array($rc[0]); } } //$rb=msq_reorder($rb);//p($rb); ksort($rb); //p($rf); $rh = array('usage', 'dir', 'loadable', 'callable', 'interface', 'state', 'private'); //'vars', msql_save('system', 'program_plugs', $rb, $rh); //,'input','output' ///?msql=lang/eng/program_plugs&update== update_table_lang($rd, 'program_plugs', 'fr', array('usage')); update_table_lang($rd, 'program_plugs', 'eng', array('usage')); return 'program_plugs: added:' . ($na ? $na : 0) . ', deleted:' . (count($r) - count($rb)) . br(); }
function utmsrc($f) { return strdeb($f, '?utm'); }
function plug_editor($reset = '') { secure_inputs(); if ($_SESSION["dev"] == "dev" or $_SESSION["dev"] == "lab") { $g = "b"; } req('pop,spe,art,tri'); Head::add('csscode', '.tabc{border:1px dotted grey;padding:10px;min-height:25px;width:550px;}'); Head::add('jscode', ' function SaveIcpb(){//convert var opt=document.getElementById("txtareb").innerHTML; document.getElementById("txt").value=opt; SaveJ("txtarea_convhtml_txtareb_4"); toggle_tab(\'tab-1\',2);} function editab(p){ var act=document.getElementById("edt").className; if(act=="txtx" || p==1){var arr=[true,"on","txtred",""];} else{var arr=[false,"off","txtx","none"];} document.getElementById("txtareb").contentEditable=arr[0]; document.getElementById("txtareb").designMode="arr[1]"; void 0; document.getElementById("txtareb").focus; document.getElementById("edt").className=arr[2]; document.getElementById("edtc").style.display=arr[3];} '); //Head::add('rel',array('shortcut icon',uicon('copy_16','edit2','/'))); $out["head"] .= div(atd('popup') . ats('position:fixed;'), ''); $out["head"] .= hidden('', 'socket', ''); if ($_GET['switch_defcon']) { $_SESSION['rstr'][18] = $_SESSION['rstr'][18] == 0 ? 1 : 0; } $basedefs = $_SESSION['rstr'][18] == 0 ? 'public' : $_SESSION['qb']; if ($reset == 'reset_cache') { $_SESSION['vacuum'] = ''; } #### if ($_GET["urlsrc"]) { $urlsrc = $_GET["urlsrc"]; $_GET["urlsrc"] = $urlsrc = strdeb($urlsrc, '?utm_source'); $urlsrc = str_replace("\$", "?", $urlsrc); foreach ($_GET as $k => $v) { if ($k == "rssurl") { $urlsrc = $v; } elseif ($k != 'urlsrc') { $urlsrc .= '&' . $k . '=' . $v; } } } if ($_POST["urlsrc"]) { $urlsrc = $_POST["urlsrc"]; // && $_POST["txt"]=="" $_POST["urlsrc"] = $urlsrc = strdeb($urlsrc, '?utm_source'); } if ($_POST["suj"]) { $title = $_POST["suj"]; } if (strpos($urlsrc, "http") === false && $urlsrc) { $urlsrc = 'http://' . $urlsrc; } if ($urlsrc && $_POST["txt"] == "") { list($title, $reb, $ret, $defid, $defs) = vacuum($urlsrc, ""); } //echo txarea('',$ret,20,4); #### //see h-number in html(mnu) $tabnam = 'tbmdtab-1'; if ($_POST["urlsrc"] or $_POST["txt"] or $_POST["txb"]) { $_SESSION[$tabnam] = '2'; $npb = $_SESSION['npnb']; } elseif ($_POST["urlsrc"] && !$_POST["txt"]) { $_SESSION[$tabnam] = '1'; } //else $_SESSION[$tabnam]='0';//current_tab if ($_POST["txt"]) { $ret = stripslashes($_POST['txt']); } //html if ($_POST["txb"]) { $reb = stripslashes($_POST['txb']); } //conn if ($_POST["title"]) { $title = stripslashes($_POST['title']); } if ($_POST["convent"]) { $ret = html_entity_decode($ret); } if ($_POST["convutf"]) { $ret = utf8_decode($ret); } if ($_POST["convurl"]) { $ret = urldecode($ret); } if ($_POST["urlencode"]) { $ret = urlencode($ret); } if ($_POST["table2array"]) { $reb = plugin_func('table2array', 'table2array_build', $reb); } if ($ret && !$reb) { //if(!strpos($ret,'<br />') && strpos($ret,"\r"))$ret=nl2br($ret); $reb = converthtml($ret); //htmlentities //htmlspecialchars $reb = html_entity_decode_b($reb); $reb = html_entity_decode($reb); $reb = convertmail($reb); $reb = embed_links($reb); } elseif (!$ret) { $ret = format_txt(stripslashes($reb), 0, ""); } //if(!$ret) $ree = clean_br($ret); #edit //transformers if ($_POST['repla']) { if ($_POST['rec_prg']) { $reb = ereg_replace(stripslashes($_POST['repla']), stripslashes($_POST['replb']), $reb); } else { $reb = str_replace(stripslashes($_POST['repla']), stripslashes($_POST['replb']), $reb); } } if ($_POST['del_tab']) { $reb = del_tables($reb); } //if($_POST['conn_to_del']){$reb=correct_txt($reb,$_POST['conn_to_del'],'correct'); // $reb=str_replace(array("¬","|"),"",$reb); $reb=clean_br($reb);} if ($_POST['del_n'] == "ok") { $reb = del_n($reb); } if ($_POST['clean_mail']) { $reb = convertmail($reb); } if ($_POST["clean_punct"]) { $reb = clean_punct($reb); } if ($_POST["add_punct"] == "ok") { $reb = add_lines($reb); } if ($_POST['clean_br'] or $urlsrc) { $reb = clean_br($reb); } /*----------------------*/ //import if ($_SESSION["dev"]) { $dv = ' ' . btn('txtsmall', $_SESSION["dev"]); } $out['head'] .= lkc("txtx", "/plug/editor", picto('editxt', 16) . $dv) . ' '; //'₪' //defcons if (!$defid) { $defid = str_replace(array('http://', 'www.'), '', $urlsrc); $defid = substr($defid, 0, strpos($defid, '/')); } $defcon .= msqlink('users', $basedefs . '_defcons'); if ($_SESSION['rstr'][18] == 1 && $_SESSION['auth'] > 4) { $defcon .= lkc("txtblc", '?switch_defcon==', "switch") . ' '; $defcon .= lkt("txtblc", '/msql/users/' . $basedefs . '_defcons&append=users/public_defcons', "herit_from_public") . ' '; $defcon .= lkt("txtblc", '/msql/users/public_defcons&append=users/' . $_SESSION["qb"] . '_defcons', "inform_public") . ' '; } else { $defcon .= btn('txtsmall', 'public_defcons') . ' '; } if ($defid) { $defcon .= lj("txtred", 'popup_editmsql___users/' . $basedefs . '*defcons_' . $defid, "edit"); } $otab['html'] .= '<form id="form1" name="coded" method="post" action="/plug/editor">'; $otab['html'] .= ljb('txtbox', 'document.coded.txt.select()', '', '::'); $otab['html'] .= submitj('txtbox', 'codeb', 'convert') . ' '; $otab['html'] .= input2("text", "urlsrc", $urlsrc, '" size="36') . ' '; if ($urlsrc) { $otab['html'] .= lkt('txtx', $urlsrc, 'go') . ' '; } $otab['html'] .= br(); $otab['html'] .= '<textarea name="txt" id="txt" class="console" rows="21" cols="61">' . $ret . '</textarea>' . br(); //htmlentities $otab['html'] .= $defcon . ' '; $otab['html'] .= checkbox("objects", "ok", "objects", 0) . ' '; //$otab['html'].=checkbox("jump","ok","not_convert",0).br(); $otab['html'] .= checkbox("nobr", "ok", "br", 0); $otab['html'] .= checkbox("convent", "ok", "entities", 0) . ' '; $otab['html'] .= checkbox("convutf", "ok", "utf8", 0) . ' '; $otab['html'] .= checkbox("convurl", "ok", "url", 0) . ' '; $otab['html'] .= checkbox("see", "ok", "show_work", 0) . br(); $otab['html'] .= lkt("txtblc", "/plug/converts", "conversions") . ' '; $otab['html'] .= lkt("txtblc", "/plug/pad", "notepad") . ' '; $otab['html'] .= lkt("txtblc", "/plug/ifram", "iframe") . ' '; $otab['html'] .= lkc('txtblc', '/plug/editor/reset_cache', 'reset_cache') . ' '; $otab['html'] .= '</form>'; //notepad if ($_SESSION['USE']) { $otab['connectors'] .= divs('position:absolute; right:0; top:0;', plugin('txt', $npb, 1)); } $otab['connectors'] .= btn('txtit', $title); $otab['connectors'] .= '<form name="converted" method="post" action="">'; $otab['connectors'] .= ljb('txtbox', 'document.converted.txb.select()', '', '::'); $otab['connectors'] .= submitj('txtbox', 'converted', 'modif') . ' '; $otab["connectors"] .= div('', conn_correct($reb)); //local_reparation $otab['connectors'] .= div(ats('width:630px;'), conn_edit("")); $otab['connectors'] .= input(0, 'title', $title, ''); $otab['connectors'] .= '<textarea name="txb" id="txtarea" class="tab" rows="16" cols="68" wrap="VIRTUAL" onselect="storeCaret(this);" onclick="storeCaret(this);" onkeyup="storeCaret(this);" ondblclick="storeCaret(this);" onChange="clip.setText(this.value)">' . $reb . '</textarea><br>'; $otab['connectors'] .= '<div class="txtsmall2">'; $otab['connectors'] .= $defcon . ' '; $otab['connectors'] .= checkbox("clean_mail", "ok", "clean_mail", 0) . ' '; $otab['connectors'] .= checkbox("clean_br", "ok", "clean_br", 0) . ' '; $otab['connectors'] .= checkbox("del_n", "ok", "del_nl", 0) . ' '; $otab['connectors'] .= checkbox("add_punct", "ok", "add_nl", 0) . ' '; $otab['connectors'] .= checkbox("clean_punct", "ok", "typo_rules", 0) . ' '; $otab['connectors'] .= checkbox("del_tab", "ok", "del_tables", 0) . ' '; $otab['connectors'] .= checkbox("table2array", "ok", "table2array", 0) . ' '; //$otab['connectors'].='<label>delete:</label>'.balise("select",array(2=>"conn_to_del",5=>"txtblc"),batch_defil_kv(connectors_reference_lite(),"","vv")).' '; $otab['connectors'] .= '</div>'; $otab['connectors'] .= divc('txtsmall2', 'replace by:') . '' . txarea("repla", $_POST['repla'], 15, 1) . ' ' . txarea("replb", $_POST['replb'], 15, 1) . ' ' . checkbox("rec_prg", "ok", "preg", 0); $otab['connectors'] .= '</form>'; $otab['connectors'] .= lkt("txtblc", "/plug/converts", "converts") . ' '; $otab['connectors'] .= lkt("txtblc", "/plug/pad", "notepad") . ' '; $otab['connectors'] .= lkt("txtblc", "/plug/buildtable", "buildtable") . ' '; //wysiwyg //if($title)$otab["render"].=btn("txtit",$title).br(); $otab['render'] .= btd('bts', ljb('txtbox', 'SaveIcpb()', '', 'convert')) . ' '; $otab['render'] .= ljb('txtx" id="edt', 'editab(0)', '', 'editable') . ' '; $otab['render'] .= txareacb($ree, 'tabc panel justy'); $otab['render'] .= btd('bts', ljb('txtbox', 'SaveIcpb()', '', 'convert')) . ' '; $otab['render'] .= ljb('txtx" id="edt', 'editab(0)', '', 'editable') . ' '; $otab['render'] .= divd('popup', '') . "\n"; $otab['render'] .= divd('popw', '') . "\n"; $otab['render'] .= hidden('', 'socket', ''); $out["end"] .= '</body>' . "\n" . '</html>'; return implode("", $out) . make_tabs($otab); }