PHP FileCtl::filePutRename方法代碼示例

/**
 * チェックした書き込み記事を削除する
 *
 * @access  public
 * @return  boolean
 */
function deleMsg($checked_hists)
{
    global $_conf;
    if (!($reslines = file($_conf['p2_res_hist_dat']))) {
        p2die(sprintf('%s を開けませんでした', $_conf['p2_res_hist_dat']));
        return false;
    }
    $reslines = array_map('rtrim', $reslines);
    // ファイルの下に記録されているものが新しいので逆順にする
    $reslines = array_reverse($reslines);
    $neolines = array();
    // チェックして整えて
    if ($reslines) {
        $rmnums = _getRmNums($checked_hists, $reslines);
        $neolines = _rmLine($rmnums, $reslines);
        P2Util::pushInfoHtml("<p>p2 info: " . count($rmnums) . "件のレス記事を削除しました</p>");
    }
    if (is_array($neolines)) {
        // 行順を戻す
        $neolines = array_reverse($neolines);
        $cont = "";
        if ($neolines) {
            $cont = implode("\n", $neolines) . "\n";
        }
        // 書き込み処理
        if (false === FileCtl::filePutRename($_conf['p2_res_hist_dat'], $cont)) {
            $errmsg = sprintf('p2 error: %s(), FileCtl::filePutRename() failed.', __FUNCTION__);
            trigger_error($errmsg, E_USER_WARNING);
            return false;
        }
    }
    return true;
}

/**
 * スレを殿堂入りにセットする関數
 *
 * $set は、0(解除), 1(追加), top, up, down, bottom
 *
 * @access  public
 * @return  boolean
 */
function setPalace($host, $bbs, $key, $set)
{
    global $_conf;
    $idxfile = P2Util::getKeyIdxFilePath($host, $bbs, $key);
    // 既に key.idx データがあるなら読み込む
    if (file_exists($idxfile) and $lines = file($idxfile)) {
        $l = rtrim($lines[0]);
        $data = explode('<>', $l);
    }
    if (false === FileCtl::make_datafile($_conf['palace_file'], $_conf['palace_perm'])) {
        return false;
    }
    if (false === ($pallines = file($_conf['palace_file']))) {
        return false;
    }
    $newlines = array();
    $before_line_num = 0;
    // {{{ 最初に重複要素を削除しておく
    if (!empty($pallines)) {
        $i = -1;
        foreach ($pallines as $l) {
            $i++;
            $l = rtrim($l);
            $lar = explode('<>', $l);
            // 重複回避
            if ($lar[1] == $key && $lar[11] == $bbs) {
                $before_line_num = $i;
                // 移動前の行番號をセット
                continue;
                // keyのないものは不正データなのでスキップ
            } elseif (!$lar[1]) {
                continue;
            } else {
                $newlines[] = $l;
            }
        }
    }
    // }}}
    if (!empty($GLOBALS['brazil'])) {
        //$newlines = _removeLargePallistData($newlines);
    }
    // 新規データ設定
    if ($set) {
        $newdata = implode('<>', array(geti($data[0]), $key, geti($data[2]), geti($data[3]), geti($data[4]), geti($data[5]), geti($data[6]), geti($data[7]), geti($data[8]), geti($data[9]), $host, $bbs));
        require_once P2_LIB_DIR . '/getSetPosLines.func.php';
        $rec_lines = getSetPosLines($newlines, $newdata, $before_line_num, $set);
    } else {
        $rec_lines = $newlines;
    }
    if (false === FileCtl::filePutRename($_conf['palace_file'], $rec_lines ? implode("\n", $rec_lines) . "\n" : '')) {
        trigger_error(sprintf('p2 error: %s(), FileCtl::filePutRename() failed.', __FUNCTION__), E_USER_WARNING);
        return false;
    }
    return true;
}

/**
 * 指定したキーの書き込み履歴を削除する
 *
 * @access  public
 * @return  integer|false  削除したなら1, 削除対象がなければ2。失敗はfalse
 */
function offResHist($host, $bbs, $key)
{
    global $_conf;
    if (!file_exists($_conf['res_hist_idx'])) {
        return 2;
    }
    $lines = file($_conf['res_hist_idx']);
    if ($lines === false) {
        return false;
    }
    $neolines = array();
    // {{{ あれば削除
    if (is_array($lines)) {
        foreach ($lines as $l) {
            $l = rtrim($l);
            $lar = explode('<>', $l);
            // 削除（スキップ）
            if ($lar[1] == $key && $lar[10] == $host && $lar[11] == $bbs) {
                $done = true;
                continue;
            }
            $neolines[] = $l;
        }
    }
    // }}}
    // {{{ 書き込む
    if (is_array($neolines)) {
        $cont = '';
        foreach ($neolines as $l) {
            $cont .= $l . "\n";
        }
        if (false === FileCtl::filePutRename($_conf['res_hist_idx'], $cont)) {
            $errmsg = sprintf('p2 error: %s(), FileCtl::filePutRename() failed.', __FUNCTION__);
            trigger_error($errmsg, E_USER_WARNING);
            return false;
        }
    }
    // }}}
    if (!empty($done)) {
        return 1;
    } else {
        return 2;
    }
}

 /**
  * brdファイルを生成する
  *
  * @access  public
  * @return  string|false  成功したら生成したbrdファイルのパスを返す
  */
 function makeBrdFile($cachefile)
 {
     global $_conf;
     $cont = '';
     $data = file($cachefile);
     $this->setBrdMatch($cachefile);
     // パターンマッチ形式を登録
     $this->setBrdList($data);
     // カテゴリーと板をセット
     if ($this->categories) {
         foreach ($this->categories as $cate) {
             if ($cate->num > 0) {
                 $cont .= $cate->name . "\t0\n";
                 foreach ($cate->menuitas as $mita) {
                     $cont .= "\t{$mita->host}\t{$mita->bbs}\t{$mita->itaj}\n";
                 }
             }
         }
     }
     if (!$cont) {
         // 2008/07/14 なぜここでこんな條件が必要だったのか不明。コメントアウトしてみる。
         //if (strlen($GLOBALS['word']) > 0) {
         P2Util::pushInfoHtml(sprintf("<p>p2 error: %s から板メニューを生成することはできませんでした。</p>\n", hs($cachefile)));
         //}
         unlink($cachefile);
         return false;
     }
     $p2brdfile = BrdCtl::getP2BrdFile($cachefile);
     if (false === FileCtl::make_datafile($p2brdfile, $_conf['p2_perm'])) {
         return false;
     }
     if (false === FileCtl::filePutRename($p2brdfile, $cont)) {
         die(sprintf('p2 error: %s を更新できませんでした', hs($p2brdfile)));
         return false;
     }
     return $p2brdfile;
 }

 /**
  * @access  private
  * @return  boolean
  */
 function saveSettingSrd($setting_array)
 {
     if (false === FileCtl::filePutRename($this->setting_srd, serialize($setting_array))) {
         return false;
     }
     return true;
 }

/**
 * 最近読んだスレに記録する
 *
 * @param   array  $data_ar
 * @return  boolean
 */
function _recRecent($data_ar)
{
    global $_conf;
    $data_line = implode('<>', $data_ar);
    $host = $data_ar[10];
    $key = $data_ar[1];
    // 速報headlineは最近読んだスレに記録しないようにしてみる
    if ($host == 'headline.2ch.net') {
        return true;
    }
    if (false === FileCtl::make_datafile($_conf['recent_file'], $_conf['rct_perm'])) {
        return false;
    }
    $lines = file($_conf['recent_file']);
    $newlines = array();
    // 最初に重複要素を削除しておく
    if (is_array($lines)) {
        foreach ($lines as $line) {
            $line = rtrim($line);
            $lar = explode('<>', $line);
            if ($lar[1] == $key) {
                continue;
            }
            // keyで重複回避
            if (!$lar[1]) {
                continue;
            }
            // keyのないものは不正データ
            $newlines[] = $line;
        }
    }
    // 新規データ追加
    array_unshift($newlines, $data_line);
    while (sizeof($newlines) > $_conf['rct_rec_num']) {
        array_pop($newlines);
    }
    // 書き込む
    if ($newlines) {
        $cont = '';
        foreach ($newlines as $l) {
            $cont .= $l . "\n";
        }
        if (false === FileCtl::filePutRename($_conf['recent_file'], $cont)) {
            $errmsg = sprintf('p2 error: %s(), FileCtl::filePutRename() failed.', __FUNCTION__);
            trigger_error($errmsg, E_USER_WARNING);
            return false;
        }
    }
    return true;
}

 /**
  * 更新後のデータを書き込む
  *
  * @param   string  $path   書き込むファイルのパス
  * @param   array   $neolines   書き込むデータの配列
  * @return  void
  * @access  private
  * @static
  */
 function _writeData($path, $neolines)
 {
     if (is_array($neolines) && count($neolines) > 0) {
         $cont = implode('', $neolines);
         /*} elseif (is_scalar($neolines)) {
           $cont = strval($neolines);*/
     } else {
         $cont = '';
     }
     if (false === FileCtl::filePutRename($path, $cont)) {
         $errmsg = sprintf('Error: cannot write file. (%s)', htmlspecialchars($path, ENT_QUOTES));
         die($errmsg);
     }
 }

/**
 * 書き込み履歴を記録する
 *
 * @return  void
 */
function _recResHist($host, $bbs, $key, $tagCsv, $ttitle)
{
    global $_conf;
    if (!($host && $bbs && $key)) {
        return;
    }
    FileCtl::make_datafile($_conf['res_hist_idx'], $_conf['res_write_perm']);
    $lines = file($_conf['res_hist_idx']);
    $neolines = array();
    // 最初に重複要素を削除しておく
    if (is_array($lines)) {
        foreach ($lines as $line) {
            $line = rtrim($line);
            $lar = explode('<>', $line);
            if ($lar[1] == $key) {
                continue;
            }
            // 重複回避
            if (!$lar[1]) {
                continue;
            }
            // keyのないものは不正データ
            $neolines[] = $line;
        }
    }
    // 新規データ追加
    $newdata = "{$ttitle}<>{$key}<><><><><><>" . $tagCsv['FROM'] . '<>' . $tagCsv['mail'] . "<><>{$host}<>{$bbs}";
    array_unshift($neolines, $newdata);
    while (sizeof($neolines) > $_conf['res_hist_rec_num']) {
        array_pop($neolines);
    }
    // 書き込む
    if ($neolines) {
        $cont = '';
        foreach ($neolines as $l) {
            $cont .= $l . "\n";
        }
        if (false === FileCtl::filePutRename($_conf['res_hist_idx'], $cont)) {
            $errmsg = sprintf('p2 error: %s(), FileCtl::filePutRename() failed.', __FUNCTION__);
            trigger_error($errmsg, E_USER_WARNING);
            //return false;
        }
    }
}

 /**
  * hostとbbsから板名を取得する
  *
  * @access  public
  * @return  string|null
  */
 function getItaName($host, $bbs)
 {
     global $_conf, $ita_names;
     $id = $host . '/' . $bbs;
     if (isset($ita_names[$id])) {
         return $ita_names[$id];
     }
     $p2_setting_txt = P2Util::idxDirOfHostBbs($host, $bbs) . 'p2_setting.txt';
     if (file_exists($p2_setting_txt)) {
         $p2_setting_cont = file_get_contents($p2_setting_txt);
         if ($p2_setting_cont) {
             $p2_setting = unserialize($p2_setting_cont);
             if (isset($p2_setting['itaj'])) {
                 $ita_names[$id] = $p2_setting['itaj'];
                 return $ita_names[$id];
             }
         }
     }
     // 板名Longの取得
     if (!isset($p2_setting['itaj'])) {
         require_once P2_LIB_DIR . '/BbsMap.php';
         $itaj = BbsMap::getBbsName($host, $bbs);
         if ($itaj != $bbs) {
             $ita_names[$id] = $p2_setting['itaj'] = $itaj;
             FileCtl::make_datafile($p2_setting_txt, $_conf['p2_perm']);
             $p2_setting_cont = serialize($p2_setting);
             if (false === FileCtl::filePutRename($p2_setting_txt, $p2_setting_cont)) {
                 die("Error: {$p2_setting_txt} を更新できませんでした");
             }
             return $ita_names[$id];
         }
     }
     return null;
 }

 /**
  * cachedGetHostByAddr/cachedGetHostByName のキャッシュエンジン
  *
  * @return  string
  * @access  private
  * @static
  */
 function _cachedGetHost($remote, $function, $cache_file)
 {
     static $caches_ = array();
     if (array_key_exists("{$function}/{$remote}", $caches_)) {
         return $caches_["{$function}/{$remote}"];
     }
     $ttl = $GLOBALS['_HOSTCHKCONF']['gethostby_expires'];
     // クライアントホストの名前解決はできるだけ避けるようにする
     if ($function == 'gethostbyaddr' and HostCheck::isAddrLocal() || HostCheck::isAddrPrivate()) {
         $caches_["{$function}/{$remote}"] = '';
         return $caches_["{$function}/{$remote}"];
     }
     // ファイルキャッシュしない設定のとき
     if ($ttl <= 0) {
         $caches_["{$function}/{$remote}"] = $function($remote);
         return $caches_["{$function}/{$remote}"];
     }
     // ファイルキャッシュ有効のとき
     $now = time();
     $list = array();
     // キャッシュファイルが無ければ作成する
     if (!file_exists($cache_file)) {
         FileCtl::make_datafile($cache_file);
     }
     // キャッシュを読み込む
     $lines = file($cache_file);
     if (is_array($lines)) {
         foreach ($lines as $line) {
             list($query, $result, $expires) = explode("\t", rtrim($line, "\n"));
             if ($expires > $now) {
                 $list[$query] = array($result, $expires);
             }
         }
     }
     // キャッシュされているとき
     if (isset($list[$remote])) {
         $caches_["{$function}/{$remote}"] = $list[$remote][0];
         return $caches_["{$function}/{$remote}"];
     }
     // キャッシュされていないとき
     $result = $function($remote);
     $list[$remote] = array($result, $ttl + $now);
     // キャッシュを保存する
     $content = '';
     foreach ($list as $query => $item) {
         $content .= $query . "\t" . $item[0] . "\t" . $item[1] . "\n";
     }
     FileCtl::filePutRename($cache_file, $content);
     $caches_["{$function}/{$remote}"] = $result;
     return $caches_["{$function}/{$remote}"];
 }

            $neolines[] = $line;
        }
    }
    // 新規データ追加
    $newdata = "{$ttitle}<>{$key}<><><><><><>" . $tagCsv['FROM'] . '<>' . $tagCsv['mail'] . "<><>{$host}<>{$bbs}";
    array_unshift($neolines, $newdata);
    while (sizeof($neolines) > $_conf['res_hist_rec_num']) {
        array_pop($neolines);
    }
    // 書き込む
    if ($neolines) {
        $cont = '';
        foreach ($neolines as $l) {
            $cont .= $l . "\n";
        }
        if (FileCtl::filePutRename($rh_idx, $cont) === false) {
            $errmsg = sprintf('p2 error: %s(), FileCtl::filePutRename() failed.', __FUNCTION__);
            trigger_error($errmsg, E_USER_WARNING);
            //return false;
        }
    }
}
// }}}
// 書き込みログ記録
$tagCsv['message'] = formatMessageTagCvs($MESSAGE);
if ($_conf['res_write_rec']) {
    recResLog($tagCsv['FROM'], $tagCsv['mail'], $tagCsv['message'], $ttitle, $host, $bbs, $key, $rescount);
}
recResLogSecu($tagCsv['FROM'], $tagCsv['mail'], $tagCsv['message'], $ttitle, $host, $bbs, $key, $rescount);
exit;
//=======================================================================

//.........這裏部分代碼省略.........
                     return null;
                     // 並列ダウンロード済の場合も抜ける
                 } elseif (!empty($GLOBALS['expack.subject.multi-threaded-download.done'])) {
                     return null;
                     // 新規スレ立て時以外で、キャッシュが新鮮な場合も抜ける
                 } elseif (empty($_POST['newthread']) and $this->isSubjectTxtFresh()) {
                     return null;
                 }
             }
             $modified = gmdate("D, d M Y H:i:s", filemtime($this->subject_file)) . " GMT";
         }
     }
     $dlStartTime = $this->microtimeFloat();
     // DL
     require_once 'HTTP/Request.php';
     $params = array();
     $params['timeout'] = $_conf['fsockopen_time_limit'];
     if ($_conf['proxy_use']) {
         $params['proxy_host'] = $_conf['proxy_host'];
         $params['proxy_port'] = $_conf['proxy_port'];
     }
     $req = new HTTP_Request($this->subject_url, $params);
     $modified && $req->addHeader('If-Modified-Since', $modified);
     $req->addHeader('User-Agent', sprintf('Monazilla/1.00 (%s/%s)', $_conf['p2uaname'], $_conf['p2version']));
     $response = $req->sendRequest();
     $error_msg = null;
     if (PEAR::isError($response)) {
         $error_msg = $response->getMessage();
     } else {
         $code = $req->getResponseCode();
         if ($code == 302) {
             // ホストの移転を追跡
             require_once P2_LIB_DIR . '/BbsMap.php';
             $new_host = BbsMap::getCurrentHost($this->host, $this->bbs);
             if ($new_host != $this->host) {
                 $aNewSubjectTxt = new SubjectTxt($new_host, $this->bbs);
                 return $aNewSubjectTxt->downloadSubject();
             }
         }
         if (!($code == 200 || $code == 206 || $code == 304)) {
             //var_dump($req->getResponseHeader());
             $error_msg = $code;
         }
     }
     if (!is_null($error_msg) && strlen($error_msg) > 0) {
         $attrs = array();
         if ($_conf['ext_win_target']) {
             $attrs['target'] = $_conf['ext_win_target'];
         }
         $atag = P2View::tagA(P2Util::throughIme($this->subject_url), hs($this->subject_url), $attrs);
         $msg_ht = sprintf('<div>Error: %s<br>p2 info - %s に接続できませんでした。</div>', hs($error_msg), $atag);
         P2Util::pushInfoHtml($msg_ht);
         $body = '';
     } else {
         $body = $req->getResponseBody();
     }
     $dlEndTime = $this->microtimeFloat();
     $dlTime = $dlEndTime - $dlStartTime;
     $spentDlTime_ += $dlTime;
     // DL成功して かつ 更新されていたら
     if ($body && $code != '304') {
         // したらば or be.2ch.net ならEUCをSJISに変換
         if (P2Util::isHostJbbsShitaraba($this->host) || P2Util::isHostBe2chNet($this->host)) {
             $body = mb_convert_encoding($body, 'SJIS-win', 'eucJP-win');
         }
         // eaccelerator or apcに保存する場合
         if ($this->storage == 'eaccelerator' || $this->storage == 'apc') {
             $cache_key = "{$this->host}/{$this->bbs}";
             $cont = rtrim($body);
             $lines = explode("\n", $cont);
             if ($this->storage == 'eaccelerator') {
                 eaccelerator_lock($cache_key);
                 eaccelerator_put($cache_key, $lines, $_conf['sb_dl_interval']);
                 eaccelerator_unlock($cache_key);
             } else {
                 apc_store($cache_key, $lines, $_conf['sb_dl_interval']);
             }
             return $lines;
             // ファイルに保存する場合
         } else {
             if (false === FileCtl::filePutRename($this->subject_file, $body)) {
                 // 保存に失敗はしても、既存のキャッシュが読み込めるならよしとしておく
                 if (is_readable($this->subject_file)) {
                     return null;
                 } else {
                     die("Error: cannot write file");
                     return false;
                 }
             }
             chmod($this->subject_file, $perm);
         }
     } else {
         // touchすることで更新インターバルが効くので、しばらく再チェックされなくなる
         // （変更がないのに修正時間を更新するのは、少し気が進まないが、ここでは特に問題ないだろう）
         if ($this->storage == 'file') {
             touch($this->subject_file);
         }
     }
     return null;
 }