*99の指定したCGIを*00が作るスレ
おいおまいら、WebProg板でもこのスレをやってみましょう、おながいします。
ただし、*99があまりにも難しすぎるお題だったり、荒らし、明らかに厨発言だった場合、
*98さんに繰り下げするとかでおながいします。
というわけでまずは>>99-100おながいします。 他のメンバー「だまるくらいうまい、と」とかフォローしてるし 10%オレンジジュースみたい。まずいでしょ、100%に比べると さて、別に俺は荒らしでもなんでもなく、>>100が創ってくれるのを待ってるんだが、同時進行でスレ活性。うっほい。あ、このスレだけ「作る」を「創る」にしない? ドクターペッパーの由来は、ペッパー医師の娘に惚れていたが父親に認められなくて結婚を断念した青年が創った飲料で
それにドクターペッパーって名前つけたら医師も許してくれたんだって なんのこっちゃだね。このスレ住人は怒るかな?青年。違う、俺のことを >>127-195
そのペースで199,200も踏んで、201辺りでUPしてくれるとうれしいぞ! エクスプローラに激似の、アップローダ兼ファイル管理CGI >>1を見ると「繰り下げ」っていうことは
>>197か?
オーダー!
「エクスプローラに激似の、アップローダ兼ファイル管理CGI 」ぃ〜♪
>>200
ヨロ 擦れたいから想像するに後方参照して(それに100足して)いるわけじゃないし
199が指定したものを200が作る必要ないのでは?とひねくれてみる >>100はつくれないから>>127-195のような書き込みをしたスレ #!/usr/bin/perl
print "Content-type: text/plain\n\n";
print "199"; >>197
「エクスプローラに激似の、アップローダ兼ファイル管理CGI 」
つーか、スキンなんかどーでもいーだろ。
お前ホントにWebプログラマかと。 > 「エクスプローラに激似の、アップローダ兼ファイル管理CGI 」
CGI版 WebDAV(or FTP) Client ? 次の\d99まで暇だから、
\d00が指定されたCGIの製作過程を残す、というのはどう?
言語選択 - PHP #
板一覧の所得 ...
スレッド一覧の所得 ...
乱数の生成 ... int rand(min, max)
と、もうちょっと生産的な方向に流れを変えて見よう まだ書いてる途中だったのに送信してしまった・・・
まぁ、いぃや。 216-217 の書きこみの間でbbs.cgi変わった?
書き込み前に確認画面出るようになったよ。 >>212
スキンじゃなくて、この場合は、
ユーザー・インターフェースとかアクセスビリティだろ?
drag-dropでファイル、アップロードしたり
アイコンを右クリックでcontext menu開いて、削除を選択
で、サーバー上のファイルを削除したりとか、
そういうのを作りたいんじゃないかな?>>197 >>218
どっかのバカが荒らしまくったので、
ひろゆきが全板のクッキー設定を変えたらしい。 >>225
まず、60x16ピクセルのgif画像を解析して5桁の数字を抜き出さないとだめみたいね。
ノイズも入ってないから出来るかも。 100ではないが99のはこんなんで良いのか?
URL取得部分が激甘なのでmailtoとか他のサイトの部分まで拾って痛いが(藁
#!/usr/local/bin/perl -w
use Socket;
$boardList = "board_list.dat";
if(!(-e $boardList)) {
$method = "GET";
$host = "www.ff.iij4u.or.jp";
$path = "~ch2/bbsmenu.html";
$port = getservbyname('http', 'tcp');
$iaddr = inet_aton($host) || die "$connect_hostは存在しないホストです。\n";
$sock_addr = pack_sockaddr_in($port, $iaddr);
socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "ソケットを生成できません。\n";
connect(SOCKET, $sock_addr) || die "$connect_host の ポート$portに接続できません。\n";
select(SOCKET); $|=1; select(STDOUT);
print SOCKET "$method /$path HTTP/1.0\r\n";
print SOCKET "User-Agent: 2ch roulette/0.0 \r\n";
print SOCKET "\r\n";
続き
while (<SOCKET>){
m/^\r\n$/ && last;
}
open(LIST, "> $boardList");
while (<SOCKET>){
if($_ =~ /HREF=([^> ]+)/) {
print LIST "$1\n";
}
}
close(LIST);
}
open(LIST, $boardList);
@board = <LIST>;
close(LIST);
srand(time^$$);
$num = rand($#board);
print "Location:$board[$num]\n\n";
Perl らしくない。
もうちょっと呪文を混ぜようょ Perl らしくない。
もうちょっと電波を混ぜようょ いいかげんそろそろ書かないとな、>>100 よォ! if($a == 1){
#--VBじゃねえんだぞ----
# $a = $a + 1;
$a++;
} >>246
$aが初期値の0だと仮定するとそのループの中は一回も実行されない。
お前も似たようなレベルだ。 <?
//programmed by moguno This script is copyleft.
//2ちゃんねるメニューからURLリストを取得
function getURLList($local)
{
//ファイル名を決定
if($local)
$filename = "./2chmenu.html";
else
$filename = "http://www6.ocn.ne.jp/~mirv/2chmenu.html";
//ファイルを読み込む
$dat = file($filename);
$res = array();
foreach($dat as $d)
{
//リンク先一覧を取得
preg_match("/<A HREF=([^\\>]+)>/",$d,$matches);
if($matches[1] == NULL)
continue;
$match = $matches[1];
//2ch以外のドメインと2chトップページへのリンクを除外
if(preg_match("/2ch\\.net\\/.+$/",$match) == 0)
continue;
//2ちゃんねる総合案内を除外
if(preg_match("/\\/guide/",$match) == 1)
continue;
//配列に追加
array_push($res,$matches[1]);
}
return $res;
}
//***初期化***
srand(time());
//外部へのHTTP通信を許可しているサーバならfalse。
//許可していない場合はhttp://www6.ocn.ne.jp/~mirv/2chmenu.htmlをダウンロードし
//こいつと同じディレクトリに2chmenu.htmlとして保存した後trueに書き換え。
$list = getURLlist(false);
?>
<html>
<head>
<META HTTP-EQUIV="refresh" CONTENT="0;URL=<?print($list[rand(0,count($list))]);?>">
</head>
</html> <META HTTP-EQUIV="refresh" CONTENT="0;URL=<?print($list[rand(0,count($list) - 1)]);?>">
に訂正。 >>299
Age2chを越える荒らしツール依頼よろ *99を利用してなんか無理矢理作ってみるってのはどうだ?