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);
}
