?
3 :
名無しさん@お腹いっぱい。:2001/06/13(水) 13:15 ID:/teM3W8Y
,カンマってどうなんだ?
bbs.cgiはindex2.html吐き出し時にこれらの文字列をリンクします。
新スクリプトって書いたけど旧スクリプトでもリンクされる文字の種類
は同じでした。
test
7 :
test:2001/06/16(土) 18:13 ID:???
<
>
&
"e;
8 :
test:2001/06/16(土) 18:16 ID:???
< => <
> => >
& => &
" => "
&lt; => <
&gt; => >
&amp; => &
&quot; => "
9 :
read.cgi:2001/07/02(月) 03:26 ID:KqknPrB.
>>2 は全部 URL の一部とみなして良いんですか?
>>9 RFC2396とか見ると、URLに含めてよいとされるのは
-_:!#$%=&@~'();+*,.?/0-9A-Za-z
であって、
>>2の中の
`^\|[{]}
は問題おきやすいから使わんほうがいいって書いてあります。
でも実際はどうなんでしょうねー。`^\|[{]}を含むURLなんて結構ありそう。
>>10 とりあえずbbs.cgiに合わせることを考えてたのでRFC等との整合性は
二の次です。
おーリンクされるようになってるー♪
i
14 :
read.cgi:2001/07/02(月) 13:40 ID:KqknPrB.
ちなみに このバージョンの read.cgi はまだ corn だけです。
test
なるほど、なるほど、
corn で変更しました。どうでしょうか?
read.cgi ver4.14 (2001/7/13)
監視所のほうに書きましたがラウンジが大騒ぎになってます。
ありがとー
21 :
ェ?:2001/07/18(水) 17:25 ID:???
" style="color: red"
22 :
ェ? 63.165.15.130:2001/07/18(水) 17:28 ID:cUJMFnC.
test
テスト
2chに書き込もうとするとZornAlarmが警告出すのはなぜ。
Proxy防止?
The firewall has blocked Internet access to your computer
[TCP Port 3128] from corn.2ch.net
[216.218.132.98][TCP Port 4069][TCP Flags: S]
25 :
電動ナナシ:2001/07/18(水) 19:23 ID:???
TCP/3128 ってことは Squid のデフォルトのポートか?
Proxy のチェックを行っているみたいだね。
Port Scan かけてくるよりマシか・・・?。
あ
28 :
:01/11/17 13:54 ID:???
use strict;
use LWP::Simple;
use vars qw($HOME_DIR $IMAGE_DIR $INDEX_FILE $URL);
#毒天コンテンツを作成するディレクトリを指定
*HOME_DIR=\ ".";
#$HOME_DIR からの相対パスでイメージディレクトリを指定
*IMAGE_DIR=\ "image";
#インデックスファイル名
*INDEX_FILE=\ "index.htm";
*URL=\ "
http://www.wonderfarm.co.jp/shippo/";
unless(-e "$HOME_DIR/$INDEX_FILE"){
print "初起動ですか?\n";
first_run();
}
print "今日の毒天を取得開始ヽ(´ー`)ノ\n";
my $date=get_date();
29 :
:01/11/17 13:54 ID:???
foreach my $i (0..4){
my $image_file="$date-$i.gif";
my $html_file="$date-$i.htm";
my $lines=get("${URL}comic/$html_file");
if($lines eq ""){
print "今日の分はまだかも(;´Д`)\n";
exit();
}
print "$html_file を取得しました(・∀・)\n";
my $rc=mirror("${URL}image/comic/$image_file","$HOME_DIR/$IMAGE_DIR/$image_file");
print "$image_file を取得しました(・∀・)\n" if(is_success($rc));
open(OUT,">$HOME_DIR/$html_file") or die("(゚Д゚)ハァ? $html_file");
$lines =~ s|<IMG src="\.\./image/.*?/(.*?)" |<IMG src="$IMAGE_DIR/$1" |ig;
if($i == 4){
$lines =~ s|<IMG src="$IMAGE_DIR/last.gif"(.*?)>|<a href="$INDEX_FILE"><IMG src="$IMAGE_DIR/last.gif"$1></a>|i;
}
print OUT $lines;
close(OUT);
}
open(OUT,">>$HOME_DIR/$INDEX_FILE") or die("(゚Д゚)ハァ? 追加書き込みできませんよ?\n");
print OUT qq|\t<li><a href="$date-0.htm">$date</a></li>\n|;
close(OUT);
print "完了\n";
30 :
:01/11/17 13:54 ID:???
sub first_run{
unless(-d "$HOME_DIR/$IMAGE_DIR"){
mkdir("$HOME_DIR/$IMAGE_DIR",0755) or die("(゚Д゚)ハァ? ディレクトリが作成できませんよ?\n");
print "$HOME_DIR/$IMAGE_DIRを作成しました(´∀`)\n";
}
open(OUT,">$HOME_DIR/$INDEX_FILE") or die("(゚Д゚)ハァ? ファイルが作成できませんよ?\n");
print OUT <<_EOD_;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html lang="ja">
<head>
<meta http-equiv="content-type" content="text/html; charset=Shift_JIS">
<!--フッタがないけど多めに見ろよなコンチキショウ-->
<title>毒天</title>
</head>
<body>
<h1>毒天</h1>
<ul>
_EOD_
print "$INDEX_FILEを作成しました(・∀・)\n";
my @images=qw(
blank.gif
doku-logo.gif
mizutani.gif
next.gif
last.gif
4-1.gif
4-2.gif
4-3.gif
4-4.gif
);
foreach my $image (@images){
my $rc=mirror("${URL}image/kyouyuu/$image","$HOME_DIR/$IMAGE_DIR/$image");
print "$image を取得しました(・∀・)\n" if(is_success($rc));
}
}
31 :
:01/11/17 13:54 ID:???
sub get_date{
my ($day,$mon,$year)=(localtime(time()))[3..5];
$year += 1900;
++$mon;
my $date=sprintf("%d%02d%02d",$year,$mon,$day);
return $date;
}
__END__
32 :
:01/11/17 14:02 ID:???
すまん、適当な糞スレがなかったのでちょっと借りた。
↑のはまぁ…あれだ、萌え系アニメのWebコンテンツ(ほぼ毎日更新)
を自動取得しようってスクリプd。
一応言っておくと、コピペだとヒアドキュメントがうまくいかないので
_EOD_の後の空白を削除する事。
33 :
:01/11/18 17:19 ID:wcK+Fglm
スクリプト発見age
良スレ保守!
35 :
山崎渉:03/01/15 13:51 ID:???
(^^)
36 :
山崎渉:03/03/13 17:28 ID:???
(^^)