function logopen ( $secs='', $d=true )
        {
#-k     print   debug
#-d     2/5/21  - added session header to log
#-      $logfile['file']        - filename
#-              ['f']           - file no/handle
#-              ['s']           - secs at open
#-              ['t']           - microsecs at open

        global $logfcb;
        if (isset($logfcb['log']['file']))      { return; }             # trying to open a second time
        else            { $logfcb['log']['file'] = '/home/jihswbiz/public_html/log/AAAlog-' . date('Y-m-d') . '.txt'; }

        $logfcb['log']['t'] = substr((string)microtime(), 1, 5);                # .2361290
        if ($secs == 'e.') $secs = '0.';

#               create & open file
        $logfcb['log']['f'] = fopen ( $logfcb['log']['file'], "a" );
        $logfcb['log']['s'] = $secs . date ( 's' );

#               identify the program opening the logfile
        $t = $logfcb['log']['t'] . ' ';
        $p = strpos ( $_SERVER['SCRIPT_FILENAME'], $_SERVER['SERVER_NAME'] );

        $logmsg = date('Y-m-d H:i:s') . $t . "====================== " . substr($_SERVER['SCRIPT_FILENAME'],$p) . " ============\n";
        $x = strlen($logmsg);
        $cnt = fwrite ( $logfcb['log']['f'], $logmsg );
        if (!$cnt)
                {
                echo str_replace ( "\n", '<br>', 'LOGFILE ERROR FALLBACK<pre>'.$logmsg.'</pre>' );      # log i/o failed; dump to screen
                fclose ( $logfcb['log']['f'] );
                unset ( $logfcb['log'] );
                }

        if (isset($title)  &&  strlen($title))
                {
                $logmsg = date('Y-m-d H:i:s') . $t . $title . "]\n";
                $cnt = fwrite ( $logfcb['log']['f'], $logmsg );
                }

        foreach($_GET as $k => $v)
                {
                $logmsg = date('Y-m-d H:i:s') . $t . ' $_GET['."'" . $k . "'] => [" . $v . "]\n";
                $cnt = fwrite ( $logfcb['log']['f'], $logmsg );
                }

        if (!friendlyRunner($_SERVER['REMOTE_ADDR']))
                {
                $logmsg = "    me: [" . $myIP . "]\n";
                $cnt = fwrite ( $logfcb['log']['f'], $logmsg );
                $logmsg = "Not me: [" . $_SERVER['REMOTE_ADDR'] . "]\n";
                $cnt = fwrite ( $logfcb['log']['f'], $logmsg );

                if (strlen($_SERVER['REMOTE_USER']))
                        {
                        $logmsg = ".     : [" . $_SERVER['REMOTE_USER'] . "]\n";
                        $cnt = fwrite ( $logfcb['log']['f'], $logmsg );
                        }

                $logmsg = ".     : [" . gethostbyaddr($_SERVER['REMOTE_ADDR']) . "]\n";
                $cnt = fwrite ( $logfcb['log']['f'], $logmsg );

                $logmsg = str_repeat ( "-", $x-1 ) . "\n";
                $cnt = fwrite ( $logfcb['log']['f'], $logmsg );
                if ($d) die;
                }
        }

?>