namazuでサーバーを立てたい

namazuでサーバーを立てたい (481ﾚｽ)
上下前次 1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞

71: 名無しさん＠お腹いっぱい。 [] 2001/05/09(水) 10:52

サーバが違うと区切り文字が違うので、それに対応
パラメタが区切り文字列、区切り文字列の置換文字列、datファイル名となります
Linux板なら /〜/dat2html.pl "," "\xa1\xf7\xa1\xae" foo.dat
モナー、ラウンジなら /〜/dat2html.pl '<>' "" bar.datと指定してください
$sep=shift;
$rep=shift;
print '<HTML><HEAD>'."\r\n";
print '<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=EUC-JP">'."\r\n";
$fff=shift;
open(TH,"/usr/local/bin/nkf -e $fff |") || die "open error\n";
$_=<TH>;
chop $_;
@dat=split($sep,$_);
$dat[0]=~s/$rep/,/g if("${rep}");
$dat[1]=~s/$rep/,/g if("${rep}");
$dat[3]=~s/$rep/,/g if("${rep}");
$dat[4]=~s/$rep/,/g if("${rep}");
print "<TITLE>".$dat[4]."</TITLE>\r\n";
print '</HEAD>'."\n";
print '<BODY TEXT="#000000" BGCOLOR="#FFFFFF" link="#0000FF" alink="#FF0000" vlink="#660099">'."\r\n"
;
print "1:".$dat[0]."(";
print $dat[1].") ";
print "date:".$dat[2]." \r\n";
print $dat[3]." \r\n";
$cnt=2;
while(<TH>){
chop $_;
@dat=split($sep,$_);
$dat[0]=~s/${rep}/,/g if("${rep}");
$dat[1]=~s/${rep}/,/g if("${rep}");
$dat[3]=~s/${rep}/,/g if("${rep}");
print $cnt.":".$dat[0]."(";
print $dat[1].") ";
print "date:".$dat[2]." \r\n";
print $dat[3]." \r\n";
$cnt++;
}
print '</BODY></HTML>'."\r\n";
exit;

http://mao.5ch.io/test/read.cgi/linux/989179375/71

81: 名無しさん＠お腹いっぱい。 [] 2001/05/10(木) 15:53

>>1
もう少しだ頑張れ

つーことで最新版をまとめてみました（ちょい長）

>>48からの2ch.shのソースに>>71のdat2html.plI/F変更を加えたもの

#!/bin/sh

export dat2html=/usr/bin/dat2html.pl
export workdir=/home/2ch
export wgetdir=$workdir/wget
export datdir=$wgetdir/cocoa.2ch.net/linux/dat
export namazudir=$workdir/namazu

mkdir -p $wgetdir/cocoa.2ch.net/test

cd $wgetdir
wget -m -I linux/dat http://cocoa.2ch.net/linux/dat/
for i in `ls $datdir`
do
j=`echo $i | sed -e 's/\.dat//'`
$dat2html "," "\xa1\xf7\xa1\xae" $datdir/$i > $wgetdir/'cocoa.2ch.net/test/read.cgi?bbs=linux&key='$j
done
rm -rf $wgetdir/linux/dat

wget -m -I linux/kako http://cocoa.2ch.net/linux/kako/

mkdir -p $namazudir
cd $namazudir
mknmz -eU $wgetdir/

>>71からのdat2html.plに>>75発見のバグ修正を入れたもの

#!/usr/bin/perl
$sep=shift;
$rep=shift;
print '<HTML><HEAD>'."\r\n";
print '<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=EUC-JP">'."\r\n";
$fff=shift;
open(TH,"/usr/local/bin/nkf -e $fff |") || die "open error\n";
$_=<TH>;
chop $_;
@dat=split($sep,$_);
$dat[0]=~s/${rep}/${sep}/g if("${rep}");
$dat[1]=~s/${rep}/${sep}/g if("${rep}");
$dat[3]=~s/${rep}/${sep}/g if("${rep}");
$dat[4]=~s/${rep}/${sep}/g if("${rep}");
print "<TITLE>".$dat[4]."</TITLE>\r\n";
print '</HEAD>'."\n";
print '<BODY TEXT="#000000" BGCOLOR="#FFFFFF" link="#0000FF" alink="#FF0000" vlink="#660099">'."\r\n"
;
print "1:".$dat[0]."(";
print $dat[1].") ";
print "date:".$dat[2]." \r\n";
print $dat[3]." \r\n";
$cnt=2;
while(<TH>){
chop $_;
@dat=split($sep,$_);
$dat[0]=~s/${rep}/${sep}/g if("${rep}");
$dat[1]=~s/${rep}/${sep}/g if("${rep}");
$dat[3]=~s/${rep}/${sep}/g if("${rep}");
print $cnt.":".$dat[0]."(";
print $dat[1].") ";
print "date:".$dat[2]." \r\n";
print $dat[3]." \r\n";
$cnt++;
}
print '</BODY></HTML>'."\r\n";
exit;

http://mao.5ch.io/test/read.cgi/linux/989179375/81

161: 名無しさん＠ディストリいっぱい [] 2001/05/17(木) 13:02

ダメだ・・やっぱり過去ログ分が文字化けを起こしちゃうや・・
たまに大丈夫でたまに化けるってなんでだろ？悩むなあ・・
過去ログをEUCに変換するのは大変そうだからdat2htmlのほうを調整して
x-sjisで書き出したほうがいいのかな。
nkf -e のところを nkt -s にして CHARSET=EUC-JP を CHARSET=x-sjis に
しただけでいいのかなあ。こんな感じですか？
家に帰ったら一回試してみよっ。

#!/usr/bin/perl
$sep=shift;
$rep=shift;
print '<HTML><HEAD>'."\r\n";
print '<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=x-sjis">'."\r\n";
$fff=shift;
open(TH,"/usr/bin/nkf -s $fff |") || die "open error\n";
$_=<TH>;
chop $_;
@dat=split($sep,$_);
$dat[0]=~s/${rep}/${sep}/g if("${rep}");
$dat[1]=~s/${rep}/${sep}/g if("${rep}");
$dat[3]=~s/${rep}/${sep}/g if("${rep}");
$dat[4]=~s/${rep}/${sep}/g if("${rep}");
print "<TITLE>".$dat[4]."</TITLE>\r\n";
print '</HEAD>'."\n";
print '<BODY TEXT="#000000" BGCOLOR="#FFFFFF" link="#0000FF" alink="#FF0000" vlink="#660099">'."\r\n"
;
print "1:".$dat[0]."(";
print $dat[1].") ";
print "date:".$dat[2]." \r\n";
print $dat[3]." \r\n";
$cnt=2;
while(<TH>){
chop $_;
@dat=split($sep,$_);
$dat[0]=~s/${rep}/${sep}/g if("${rep}");
$dat[1]=~s/${rep}/${sep}/g if("${rep}");
$dat[3]=~s/${rep}/${sep}/g if("${rep}");
print $cnt.":".$dat[0]."(";
print $dat[1].") ";
print "date:".$dat[2]." \r\n";
print $dat[3]." \r\n";
$cnt++;
}
print '</BODY></HTML>'."\r\n";
exit;

http://mao.5ch.io/test/read.cgi/linux/989179375/161

上下前次 1-新書関写板覧索設栞歴

あと 314 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.474s*