#!/usr/bin/perl
require "weblib.lib";
$dir="$ENV{DOCUMENT_ROOT}$ENV{PATH_INFO}";
$cookie=getcookie('Edit');
if($cookie eq "1"){
	if(-d $dir){
		@stat=stat($dir);
		if($stat[2]==040777){chmod(0755,$dir);}
		else{chmod(0777,$dir);}
	}
	if($ENV{HTTP_REFERER}){print "Location: $ENV{HTTP_REFERER}\n\n";}
	else{print qq{Status: 200 OK\n\n};}
}
else{print qq{Status: 403 Forbidden\n\n};}