P2Pでサーバに依存しない掲示板を作るの巻

P2Pでサーバに依存しない掲示板を作るの巻at TECH

P2Pでサーバに依存しない掲示板を作るの巻 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

714:ちんぽ屋
 02/02/23 01:33
なんだか私も、中身の取ってこれるｽﾚとそうじゃないｽﾚがあるです。

715:608
 02/02/23 01:36
中身が取ってこれないのは、ポート6340が空いてない人の 
書き込みだと思われ・・・

716:デフォルトの名無しさん 
 02/02/23 01:37
じゃぁ、カキコしてすぐに切断して逃げたら誰も読めないってことになるなぁ。

717:デフォルトの名無しさん
 02/02/23 01:38
ポートが開いてない人がいると、リトライが発生して全体的に遅くなったりするのかな?

718:637
 02/02/23 01:38
中身取れないスレ書いてみねえ？

719:デフォルトの名無しさん
 02/02/23 01:40
んー、んじゃさっきニュー速に立てた奴が見えるかどうかで 
判断すれば誰が立てたのが見えないか分かってｲｲ！？

720:608
 02/02/23 01:41
でも、粘ると取れるスレもあるかも・・・ 
timeoutしてるのかな？　隊長は風呂か？

721:デフォルトの名無しさん
 02/02/23 01:41
CGI作ったよ 
誰かどっかに置いてくれ(笑 
 
 
#!/usr/bin/perl 
 
use CGI; 
use IO::Socket; 
 
my $cgi = new CGI; 
print $cgi->header(-type=>'text/html; CHARSET=Shift_JIS'); 
print "<html><head><title>Zigmo Checker</title></head><body><p>\n"; 
 
my $host = $cgi->remote_host(); 
my $port = 6340; 
 
my $socket = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $port, Proto => 'tcp'); 
 
if (defined($socket)) { 
　print "${host}:${port} は外部からアクセス可能\です。"; 
} else { 
　print "${host}:${port} は外部からアクセス不可能\です。"; 
　$socket->close(); 
} 
 
print "</p></body></html>\n"; 
 
exit(0);

次ページ