#!/usr/bin/perl

use utf8;

## 部屋や装置を追加した場合に実行してください。


require "filereader.pl";

$data = '/var/www/cgi-bin/resv/data';


@rooms = ();

filereader::readRoomDirs(\@rooms);
$roomsCnt = @rooms;
$path = "$data/";
for($i = 0; $i < $roomsCnt; $i++){
    $dir = $path . $rooms[$i];
    if(! -d $dir){
	mkdir($dir, 0755);
    }
}

for($i = 0; $i < $roomsCnt; $i++){
    @equipDirs = ();
    filereader::readEquipDirs($i, \@equipDirs, NULL);
    $equipsCnt = @equipDirs;
    for($k = 0; $k < $equipsCnt; $k++){
	$path = "$data/$rooms[$i]/$equipDirs[$k]/";
	if(! -d $path){
	    mkdir($path, 0777);
	}
    }
}

system("chmod -R a+w $data/*; touch $data/cancellation.txt; chmod a+w $data/cancellation.txt");
