iBloggers in Japan ML

こんばんは。sdoraです。

もう解決されているかも知れませんが、
一応
http://web.archive.org/web/20060118135917/http://piroblog2.pirosy.com/archiv
es/200501/302259.php

まだキャッシュでかろうじてダウンロードできるみたいです。
これなのかどうかも不明で、
もう問題が解決されているかも知れませんが……

OKAMURA です。

わあ、ML への投稿久しぶりです。

sdora wrote:
> http://web.archive.org/web/20060118135917/http://piroblog2.pirosy.com/archiv
> es/200501/302259.php
>
> まだキャッシュでかろうじてダウンロードできるみたいです。
> これなのかどうかも不明で、

なるほど web アーカイブという手がありましたね。確かにそのエントリが配布
エントリです。コメントの内容からみてそれが最新版と思って間違いないようです。

--
OKAMURA Yuji

OKAMURA です。

sdora さんが教えてくださった web アーカイブからダウンロードしてみたので
すが zip を解凍できませんでした。完全にアーカイブはされていなかったよう
です。残念。

一応 V3Beta2 と思われる php ファイルは mojo さんから入手できていて、
t0mori さんが

に貼付けています。

V3Beta1 との差はその web アーカイブにエントリの pirosy さんの記述からす
ると、見つかったファイルが V3Beta1 のだとしても簡単に直せそうなので、大
丈夫そうです。

--
OKAMURA Yuji

OKAMURAさん、こんにちは。sdoraです。

>sdora さんが教えてくださった web アーカイブからダウンロードしてみたので
> すが zip を解凍できませんでした。完全にアーカイブはされていなかったよう
> です。残念。
あら？　うちでは「HaloScan2p-com.php」というファイルが解凍できたんですけど、
これではないのかな……。

とりあえず、はっつけといますね。内容

$files = implode('', file('export.php'));
$files = html_entity_decode($files, ENT_QUOTES);
$files = explode("?n", $files);
$line = 0;
$line_end = count($files);
$data = '';

$encode_type = ($argc > 1) ? $argv[1] : 'ASCII,JIS,UTF-8,EUC-JP,SJIS';

while ($line < $line_end) {
$s = trim($files[$line]);
$line++;
if (preg_match("/ thread($s);
}
}

foreach($data as $thread_id => $data2) {
$fp = fopen("{$thread_id}.dat", "w");
for ($i = count($data2) - 1; $i >= 0; $i--) {
fwrite($fp, mb_convert_encoding("{$thread_id}_" . ($i + 1) .
"<>$data2[$i]?n", 'sjis', 'utf-8'));
}
fclose($fp);
}

function thread($l)
{
global $files, $line, $line_end, $data, $encode_type;

preg_match("//", $l, $matches);
$thread_id = $matches[1];

$s = trim($files[$line]);
$line++;
while ($s != '') {
$s = trim($files[$line]);
$line++;

preg_match("|(?d{4})-(?d{2})-(?d{2})T(?d{2}):(?d{2}):(?d{2})|",
$s, $matches);
$datetime = mktime($matches[4] + 10, $matches[5], $matches[6],
$matches[2], $matches[3], $matches[1]);

$s = mb_convert_encoding(trim($files[$line]), 'utf-8',
$encode_type);
$line++;
preg_match("|(.*?)|", $s, $matches);
$name = htmlspecialchars($matches[1], ENT_NOQUOTES, 'utf-8');

$s = mb_convert_encoding(trim($files[$line]), 'utf-8',
$encode_type);
$line++;
preg_match("|(.*?)|", $s, $matches);
$email = htmlspecialchars($matches[1], ENT_NOQUOTES, 'utf-8');

$s = mb_convert_encoding(trim($files[$line]), 'utf-8',
$encode_type);
$line++;
preg_match("|(.*?)|", $s, $matches);
$url = $matches[1];
$url = htmlspecialchars($matches[1], ENT_NOQUOTES, 'utf-8');

$s = mb_convert_encoding(trim($files[$line]), 'utf-8',
$encode_type);
$line++;
preg_match("|(.*?)|", $s, $matches);
$ip = $matches[1];

$text = '';
$s = mb_convert_encoding(trim($files[$line]), 'utf-8',
$encode_type);
$line++;
preg_match("| $s = $matches[1];
while (!preg_match("|(.*?)?]?]>|", $s, $matches)) {
$s = htmlspecialchars($s, ENT_NOQUOTES, 'utf-8');
// $s =
preg_replace('{(https?|ftp)(://[?w??;/?:@&=+$,?-.!?*?'()%]+)}i', ' href="$1$2" target="_blank">繝ェ繝ウ繧ッ', $s);
$text .= "$s
";
$s = mb_convert_encoding(trim($files[$line]), 'utf-8',
$encode_type);
$line++;
}
$text .= htmlspecialchars($matches[1], ENT_NOQUOTES, 'utf-8');

$s = trim($files[$line]);
$line++;

$s = trim($files[$line]);
$line++;

$data[$thread_id][] = "$name<>$email<>$url<>$text<>$datetime<>$ip";
}
}
?>

どうも OKAMURA です。

sdora wrote:
> あら？　うちでは「HaloScan2p-com.php」というファイルが解凍できたんですけど、
> これではないのかな……。
>
> とりあえず、はっつけといますね。内容
内容貼付けて頂いて助かりました。
mojo さん提供のものと一行だけ相違がありますね。そこは prirosy さんが言及
していた内容から想像できる相違です。貼付けてくださった内容の方が最新と思
われます。

後で iBJ に貼付けておきます。

sdora さん、どうもありがとうございました。

--
OKAMURA Yuji