■掲示板に戻る■
全部
1-
101-
201-
301-
401-
501-
601-
701-
801-
901-
最新50
[PR]
ぜろちゃんねるプラス
[PR]
レス数が1000を超えています。残念ながら全部は表示しません。
管理人が物凄い勢いで配布するスレ
599 ：
名無しさん＠０ちゃんねる
：2002/11/23 15:38 ID:GZrJ0cEc
激しく適当だけどとりあえず使いたい人向けのhead.txt編集CGI
#!/usr/local/bin/perl
#head.txt書き換えcgi
$cgi = ″infoconf.cgi″;
if($ENV{'REQUEST_METHOD'} eq ″POST″){ &decode; }
if ($bbsname eq ″″){
600 ：
名無しさん＠０ちゃんねる
：2002/11/23 15:39 ID:GZrJ0cEc
print ″Content-type: text/html\n\n″;
print ″<html><head><title>head.txt書き換えCGI</title>
</head><body bgcolor=#efefef>\n″;
print ″<form method=POST action=\″$cgi\″>\n″;
print ″板のディレクトリ名を入れてちょ：<input type=text name=bbs size=10>″;
print ″<input type=submit value=OK>\n″;
print ″</form>\n″;
print ″</body></html>\n″;
}elsif($bbsname ne ″″ && $mode eq ″″){
print ″Content-type: text/html\n\n″;
print ″<html><head><title>head.txt書き換えCGI</title>
</head><body bgcolor=#efefef>\n″;
print ″<form method=POST action=\″$cgi\″>\n″;
print ″<input type=hidden name=bbs value=$bbsname>\n″;
print ″<input type=hidden name=mode value=write>\n″;
print ″<textarea name=info cols=60 rows=20>″;
601 ：
名無しさん＠０ちゃんねる
：2002/11/23 15:40 ID:GZrJ0cEc
open(ST,″<../$bbsname/head.txt″);
@readSet = <ST>;
close(ST);
foreach (@readSet){
print $_;
}
print ″</textarea>\n″;
print ″<br><input type=submit value=OK>\n″;
print ″</form>\n″;
print ″</body></html>\n″;
}elsif($mode eq ″write″){
&write_info;
print ″Content-type: text/html\n\n″;
print ″<html><head><title>head.tet書き換えCGI</title>
</head><body bgcolor=#efefef>\n″;
print ″書き換えますた<br>\n″;
print ″<a href=\″./remakeLite.cgi?bbs=$bbsname\″>Remake!!</a>\n″;
print ″</body></html>\n″;
}
exit;
602 ：
名無しさん＠０ちゃんねる
：2002/11/23 15:41 ID:GZrJ0cEc
sub decode{
local($pair,$buffer);
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
local(@pairs) = split(/&/,$buffer);
foreach $pair (@pairs) {
local($name,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/\0//g;
$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack(″C″, hex($1))/eg;
$FORM{$name} = $value;
}
$bbsname = $FORM{'bbs'};
$mode = $FORM{'mode'};
$info = $FORM{'info'};
}
sub write_info{
open(INFO,″>../$bbsname/head.txt″);
print INFO $info;
close(INFO);
}
235KB
掲示板に戻る
全部
前100
次100
最新50
READ.CGI - 0ch+ BBS 0.7.5 20220323
ぜろちゃんねるプラス