PHP hr函数代码示例

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 uds_btn($r)
{
    if ($r[5]) {
        //$lk=lka('/read/'.$r[5],picto(url)).' ';
        $lk = lj('', 'popup_site___read_' . $r[5], picto(url));
    }
    return hr() . bal('b', $r[4]) . ' (' . $r[1] . ') ' . $lk . br() . divc('justy', $r[6]);
}

/**
 * @param string $label Optinal label.
 * @param string $hr    The character sequence to use as an Horizontal Ruler for visually highlighting the profiler's
 *                      messages.
 */
function startProfiling($label = '', $hr = '')
{
    global $profStart, $profStep, $_PHR;
    $_PHR = $hr ? hr($hr) : "\n";
    ob_start();
    echo hsprintf("<code><p><b>%s %s</b></p>", "{$_PHR}%s %s{$_PHR}", 'Start profiling', $label);
    $profStart = $profStep = microtime(true);
}

function embed_li_dsnav($d, $v, $isr)
{
    $_SESSION["nbsd"]++;
    $ds = $_SESSION["ds"];
    $qb = $_SESSION['qb'];
    $xt = substr($v, -4);
    if ($v) {
        $f = $d . '/' . $v;
    } else {
        $f = $d;
    }
    if ($xt == ".jpg" or $xt == ".png" or $xt == ".gif") {
        $img = make_thumb_c($f);
        if (is_file($f)) {
            list($w, $h) = getimagesize($f);
        }
        $ww = '_' . $w . '_' . $h;
    }
    $f = str_replace(array('users/', 'imgb/icons/'), '', $f);
    $fb = ajx($f, 0);
    if (is_numeric($ds)) {
        //bkg
        if ($isr) {
            $ret = lj("popbt", 'bkg' . $ds . '_dsnav___' . $fb . '_bkg', $v);
        } else {
            list($w, $h) = getimagesize($f);
            $tx = $v . ' (' . $w . ' * ' . $h . ')';
            //if(is_file($f))
            $ret = lj('', 'css' . $ds . '_stylsav___' . $fb . '_' . $ds . '_2', $img . $tx) . hr();
        }
    }
    if ($ds == "gl") {
        if ($isr) {
            $ret = lj("popbt", 'popup_gallery__3x_' . $fb, $v);
        }
    }
    //photo
    if ($ds == "dl") {
        $dlm = $_SESSION['qb'] . '/' . $_SESSION['dlmod'];
        //dwnl
        if ($isr) {
            $ret = lj("popbt", 'dsnavds_dsnav___' . $fb . '_users/' . $dlm, $v);
        } elseif ($img) {
            $ret = ljb("popw", 'SaveBf', 'photo_users/' . $fb . $ww, $img . $v);
        } else {
            $ret = lkt("popw", $d . '/' . $v, $img . $v);
        }
    }
    if ($ds == "ic" && !$isr) {
        return $ret;
    } elseif ($ret) {
        return '├' . $ret . br();
    }
}

function uds_btn($r)
{
    $rb = array('vocable', 'name', 'planet', 'unit', 'math');
    $ret = $rb[$r[2]] ? ' (' . $rb[$r[2]] . ') ' : ' ';
    $ret .= lj('', 'popup_search___' . ajx($r[0]), picto('search', 16)) . ' ';
    if ($r[3]) {
        $ret .= ' [' . $r[3] . '] ';
    }
    $ret .= ud_glyphe($r[0]) . br();
    return hr() . bal('b', $r[0]) . $ret . divc('justy', nl2br(stripslashes($r[1])));
}

function plug_links()
{
    foreach (ses('rqt') as $k => $v) {
        $rb[preplink($v[9])] += 1;
    }
    arsort($rb);
    //p($rb);
    foreach ($rb as $k => $v) {
        if ($k) {
            $ret .= $k . ' (' . $v . ')' . br();
        }
    }
    $ret .= hr() . links_all();
    return $ret;
}

    function html_displaymesg($mesg, $colspan)
    {
        if ($mesg) {
            ?>
	
<tr>
<td align="center" colspan="<?php 
            echo $colspan;
            ?>
" class="mesg"><?php 
            echo $mesg;
            ?>
</td>
</tr>

<?php 
            hr($colspan);
        }
    }

function query($q)
{
    $r = lx_query($q);
    if (lx_error($r) != "") {
        echo "Error: " . lx_error($r) . "\n";
        hr();
        return;
    }
    $f = lx_fetch($r);
    var_dump($f);
    //if (is_array($f) && is_resource($f[0])) $f = $f[0];
    if (is_resource($f)) {
        //echo "RES! Q: $q //\n";
        var_dump(lx_refid($f));
        var_dump(lx_deref($f));
    }
    lx_dispose($r);
    hr();
}

function display_xml_error($er, $xml)
{
    $ret = $xml[$er->line - 1] . "\n";
    $ret .= str_repeat('-', $er->column) . "^\n";
    switch ($er->level) {
        case LIBXML_ERR_WARNING:
            $ret .= "Warning {$er->code}: ";
            break;
        case LIBXML_ERR_ERROR:
            $ret .= "Error {$er->code}: ";
            break;
        case LIBXML_ERR_FATAL:
            $ret .= "Fatal Error {$er->code}: ";
            break;
    }
    $ret .= trim($er->message) . "\nLine: {$er->line}" . "\nColumn: {$er->column}";
    if ($er->file) {
        $ret .= "\nFile: {$er->file}";
    }
    return $ret . hr();
}

function comptxt_j($p, $o, $res = '')
{
    $r = ajxr($res);
    $txt1 = html_entity_decode($r[0]);
    $txt2 = html_entity_decode($r[1]);
    if ($p == 'sentences') {
        $s = '.';
    } elseif ($p == 'lines') {
        $s = '\\n';
    } else {
        $s = ' ';
    }
    $r1 = explode($s, $txt1);
    $r2 = explode($s, $txt2);
    $arr = array_diff($r1, $r2);
    $ret = divc('txtalert', 'résultat: ' . count($arr) . ' différences') . br();
    if ($arr) {
        foreach ($arr as $k => $v) {
            $ret .= $v . ':' . $r2[$k] . hr();
        }
    }
    return $ret;
}

function ib_arts($id, $prw)
{
    //child
    if ($_GET['order']) {
        $ordr = 'DESC';
        $ret = lkc('txtbox', '/?read=' . $id . '#pages', nms(41));
    } else {
        $ordr = 'ASC';
        if (rstr(43)) {
            $ret = lkc('txtbox', '/?read=' . $id . '&order=1#pages', nms(40));
        }
    }
    if (rstr(43)) {
        $ret = hr() . btn('txtcadr', nms(39)) . ' ' . $ret . br() . br();
    }
    if (!auth(1)) {
        $cnd = 'and re>="1" and substring(frm,1,1)!="_"';
    }
    $load = sql('id', 'qda', 'k', 'ib="' . $id . '" ' . $cnd . ' ORDER BY id ' . $ordr);
    //$rt=define_modc_b('content');
    if ($load) {
        return $ret . output_pages($load, 'flow', '');
    }
}

function checked($needle, $haystack)
{
    if (hr($needle, $haystack) === true) {
        return 'checked="checked"';
    }
}

function codeline($v, $p, $c)
{
    //v§p:c //v:c
    switch ($c) {
        //elements
        case 'br':
            return br();
            break;
        case 'hr':
            return hr();
            break;
        case 'balise':
            if ($p) {
                @(list($bal, $id, $css, $sty) = explode('|', $p));
                if ($v) {
                    return balise($bal, array(5 => $css, 3 => $id, 16 => $sty), $v);
                }
            }
            break;
        case 'html':
            if ($p && $v) {
                return bal($p, $v);
            }
            break;
        case 'span':
            if (trim($v)) {
                return span($p, $v);
            }
            break;
        case 'div':
            if (trim($v)) {
                return div($p, $v);
            }
            break;
        case 'css':
            if (trim($v)) {
                return btn($p, $v);
            }
            break;
        case 'clear':
            return divc($c, $v);
            break;
            //attributs
        //attributs
        case 'id':
            return atd($c, $v);
            break;
        case 'class':
            return atb($c, $v);
            break;
        case 'style':
            return atb($c, $v);
            break;
        case 'name':
            return atb($c, $v);
            break;
        case 'font-size':
            return atb($c, $v);
            break;
        case 'font-family':
            return atb($c, $v);
            break;
            //apps
        //apps
        case 'text':
            return $v ? $v : $p;
            break;
        case 'url':
            return lka($v, $p ? $p : preplink($v));
            break;
        case 'jurl':
            return lj('', $v, $p);
            break;
        case 'link':
            return special_link($v . '§' . $p);
            break;
        case 'ajx':
            return lj('', 'popup', '_' . $p, $v);
            break;
        case 'anchor':
            return '<a name="' . $v . '"></a>';
            break;
        case 'date':
            return mkday(is_numeric($p) ? $p : '', $v);
            break;
        case 'title':
            return suj_of_id($v);
            break;
        case 'read':
            return read_msg($p, 3);
            break;
        case 'image':
            return image($v);
            break;
        case 'thumb':
            return make_thumb_d($v, $p);
            break;
        case 'picto':
            return picto($v, $p);
            break;
//.........这里部分代码省略.........

 function vd()
 {
     array_map(function ($str) {
         echo '<pre style="background: #ffffdd; padding: 5px; color: #aa4400; font-family: Ubuntu; font-weight: bold; font-size: 22px; border: solid 2px #444400">';
         print_r($str);
         echo '</pre>';
         hr();
     }, func_get_args());
 }

//.........这里部分代码省略.........
            if (auth(6)) {
                $ret['utl'] .= lkc('txtx', $lkb . 'create_mysql==', 'create mysql') . ' ';
            }
            $ret['utl'] .= lj('txtx', 'popup_msql___lang_helps_msql', '?');
        }
        #-fieldset
        if ($ret['fls'] . $ret['utl']) {
            $ret['utils'] = divc('menu', $ret['fls'] . $ret['utl']);
        }
        $ret['fls'] = $ret['utl'] = '';
        //if($ret['nfo'])$ret['nfo'].=br();
    }
    //called
    #-infos
    if ($table && $is_file) {
        $ret['nfo'] = lkc('popsav', $lk, $murl) . ' ';
        $wurl = $_SERVER['HTTP_HOST'] . '/msql/' . $murl;
        $ret['nfo'] .= lj('popbt', 'popup_text___' . ajx($wurl) . '_weburl_console', pictit('link', 'web url'));
        $wcon = '[' . $murl . $kdef . ($def ? ':' . $def : '') . ':microsql]';
        $ret['nfo'] .= lj('popbt', 'popup_text___' . ajx($wcon) . '_connector_console', pictit('conn', 'connector'));
        $ret['nfo'] .= lkt('popbt', '/plug/microxml.php?table=' . $murl, pictit('rss', 'xml')) . ' - ';
        $ret['nfo'] .= btn('txtsmall2', count($defs) . ' ' . plurial(count($defs), 116)) . ' - ';
        if ($is_file) {
            $ret['nfo'] .= btn('txtsmall2', fsize($basename . '.php')) . ' - ';
        }
        $ret['nfo'] .= btn('txtsmall2', ftime($basename . '.php')) . ' ';
        $ret['nfo'] .= msq_search($murl);
    }
    if ($ret['nfo']) {
        $ret['nfo'] = divc('menu', $ret['nfo']);
    }
    //entries
    //if($defs)$ret['edt'].=slctmenuder($defs,$def?$def:'_menus_');
    //add
    if ($is_file && $authorized && !$_GET['called'] && $defs && !$_GET['def']) {
        $ret['edt'] .= divc('menu', f_inp_add($defs, $defsb, $def)) . br();
    }
    //edit
    //echo verbose($ra,'');
    if ($def && $defs[$def]) {
        $ret['edt'] .= f_inp_m($defs, $defsb['_menus_'], $def);
    }
    //edit_conn
    if ($_GET['edit_conn'] == '=') {
        if ($defs) {
            foreach ($defs as $k => $v) {
                $v = str_replace(array('|', '¬'), array(':BAR:', ':LINE:'), $v);
                $edittable .= implode('|', $v) . '¬' . "\n";
            }
        }
        //(!is_numeric($k)?$k.'|':'')
        $ret[] = divc('', 'paste a table as created by transductor from html table :: use "|" for cells and "¬" for lines of cells') . form($lkb . 'def=' . $def, txarea('import_conn', $edittable, 60, 14) . br() . checkbox('aid', 'ok', 'auto_increment', '1') . input2('submit', 'save', 'import', 'txtbox')) . hr() . br();
    }
    //array
    if ($_GET['inject_defs'] == '=') {
        $datas = str_replace(array('<' . '?php', '?' . '>'), '', read_file($basename . '.php'));
        $ret[] = divc('', 'paste $r[1]=array(1,2,3)') . form($lkb, txarea('inject_defs', $datas, 60, 14) . br() . input2('submit', 'replace', 'replace', 'txtbox') . input2('submit', 'inject', 'inject', 'txtbox') . checkbox('mono', '1', 'key=>value', '') . checkbox('sql', '1', 'mysql', '')) . hr() . br();
    }
    //export_mysql
    if ($_GET['create_mysql'] == '=' && auth(6)) {
        $ok = plugin_func('mysql', 'import_msql', $defs, $node);
        $ret[] = divc('txtalert', 'create table ' . $node . ': ' . $ok);
    }
    if ($_GET['export_mysql'] == '=' && auth(6)) {
        $ret[] = txarea('', mysqlrb($defs), 60, 40);
    }
    //csv
    if ($_GET['edit_csv'] == '=') {
        foreach ($defs as $k => $v) {
            if ($v) {
                $edittable .= $k . ':' . (is_array($v) ? implode(',', $v) : htmlentities($v)) . "\n";
            }
        }
        $ret[] = divc('', 'paste csv using "," for cells and lines for rows') . form($lkb . 'def=' . $def, txarea('edit_csv', $edittable, 60, 14) . br() . checkbox('aid', 'ok', 'auto_increment', '1') . input2('submit', 'save', 'import', 'txtbox')) . hr() . br();
    }
    //csv
    if ($_GET['json'] == '=') {
        foreach ($defs as $k => $v) {
            if ($v) {
                $edittable .= '"' . $k . '":' . (is_array($v) ? '["' . implode('","', $v) . '"]' : '"' . htmlentities($v[0])) . '",';
            }
        }
        $ret[] = txarea('edit_csv', '{' . $edittable, 60, 14) . '}' . br();
    }
    //see_table
    if ($defs && !$_GET['def']) {
        // && (!$def or $_POST['save'])//called
        $out = divd('editmsql', draw_table($defs, $murl, ''));
        $ret[] = $out . br();
    } else {
        $ret[] = divd('editmsql', '');
    }
    if ($auth > 6) {
        $ret[] = lkc('txtx', $lkb . 'backup_msql==', 'backup') . ' ';
    }
    if ($_GET['backup_msql']) {
        $ret[] = backup_msql();
    }
    return divd('content', implode('', $ret));
}