CGI-design さんという Perl の色々なスクリプトを公開されているサイトがあります。
http://merlion.cool.ne.jp/cgi/
ここの「複数掲示板」は、ひとつのＣＧＩスクリプトで、いくつもの掲示板を稼動させることができます。予め *** という名のディレクトリを作っておけば、アドレスの末尾に ?id=*** と入れてアクセスするだけで新しい掲示板が自動的に作られて利用できます。
しかし、欲を言えば掲示板を作りたい第三者が、メール送信ＣＧＩで id 名を送ると、その時点で自動的に掲示板スクリプトのあるディレクトリに、その id 名のディレクトリが作られれば、全くサーバの管理人が関わることなく掲示板作成ができることになります。ケントウェブさんの Perl 入門を見てみると、
http://www.kent-web.com/perl/chap9.html
下記のスクリプトで自動的にディレクトリが作られることが分かりました。
mkdir ("./lockdir", 0755) || die "ディレクトリ生成失敗 : $!";
しかし困ったことに、パーミッションを 0777 としても、出来たディレクトリのパーミッションは 0755 になってしまいます。何かいい方法はないものかな…、と悩んでいましたが、
chmod(0777,"./lockdir") or print "$!";
と書き足すことで解決しました。でも何となくスマートでありませんね。(^^;)
コメント