#!/usr/bin/perl
#
# safe.cgi - chmod files for safety
#
# Version: 0.01 (beta test version)
# Date: Sun Apr 11 07:40:27 JST 1999
#
# BBS.cgi をそのままインストールして使っていた後に、100行目付近を
# 
# my $Perm_Config_Dir = 0700;
# my $Perm_Board_Dir  = 0755;
# my $Perm_Syslog     = 0600;
# my $Perm_Admin      = 0600;
# my $Perm_Config     = 0600;
# my $Perm_Board      = 0644;
# my $Perm_Boardlog   = 0600;
# my $Perm_Searchlog  = 0600;
# my $Perm_Errorlog   = 0600;
# 
# と書き変えた場合は、このスクリプトを BBS.cgi と同じディレクトリーに置き、
# ブラウザー経由でアクセスして、このスクリプトを実行すると、掲示板関係のフ
# ァイルのパーミッションを変更後の BBS.cgi に合わせて変えてくれる。

print "Content-Type: text/plain\n\n";

chmod 0711, $ENV{'SCRIPT_FILENAME'};
print "chmod 0711 $ENV{'SCRIPT_FILENAME'}\n";

print "BBS.cgi not found\n", exit unless -f "BBS.cgi";

chmod 0755, ".";
print "chmod 0755 .\n";

chmod 0644, "index.html" if -f "index.html";
print "chmod 0644 index.html\n";

chmod 0711, "BBS.cgi";
print "chmod 0711 BBS.cgi\n";

opendir DIR, ".";
@all = readdir DIR;
@boardfile = grep /^[a-z]+[0-9]+\.html$/, @all;
@boardlog  = grep /^[a-z]+[0-9]+-log\.cgi$/, @all;
closedir DIR;

foreach (@boardfile) {
  chmod 0644, $_;
  print "chmod 0644 $_\n";
}
foreach (@boardlog) {
  chmod 0600, $_;
  print "chmod 0600 $_\n";
}

print "Config/ not found\n", exit unless -d "Config";

opendir DIR, "Config";
@config = grep /\.cgi$/, readdir DIR;
closedir DIR;

chmod 0700, "Config";
print "chmod 0700 Config\n";

chmod 0644, "Config/index.html" if -f "Config/index.html";
print "chmod 0644 Config/index.html\n";

foreach (@config) {
  chmod 0600, "Config/$_";
  print "chmod 0600 Config/$_\n";
}