##################################################
# HiddenPrivate.txt Version 1.1beta for          #
                    Ubb 6.1.0.3                  # 
# Show's the private-forum only the user which   #
# has permission for the forum.                  #
##################################################
# made by e@sy                                   #
# Date : 12-07-01                                #
##################################################
# Files which are used :                         #
# cgi-bin :   ubb_forum_summary.cgi              #
#             cp_forums.cgi                      #
#             cp_user.cgi                        #
#             ultimatebb.cgi                     #
#             ubb_forum.cgi                      #
#             ubb_new_reply.cgi                  #
#             ubb_new_topic.cgi                  #
#             ubb_get_topic.cgi                  #	
#             ubb_friend.cgi                     #
#             ubb_lib.cgi                        #
#             ubb_lib_2.cgi                      #
#             ubb_search.cgi                     #
#             ubb_topic_maint.cgi                #
#             ubb_lib_posting.cgi                #
#             ubb_edit_post.cgi                  #
# templates : cp_edit_forum.pl                   #
#             cp_forum_add.pl                    #
#             public_move_topic.pl               #
#                                                #
##################################################
######################
#ultimatebb.cgi open #
######################
#########
#find : #
#########

		# take viewer back to topic
		&set_page_elements;
		&Transition("$in{refer}", "$vars_wordlets{thanks_for_login}", "$in{refer}");
		exit(0);
	} else {
		$ubb = '';


###################
#BELOW that ADD:: #
###################

		&Transition("$vars_config{CGIURL}/ultimatebb.cgi", "$vars_wordlets{thanks_for_login}", "$vars_config{CGIURL}/ultimatebb.cgi");	
		exit;

#######################
# ubb_friend.cgi open #
#######################
#########
#find : #
#########
	if ($this_forum[6] eq "private") {

################
# replace with #
################
	if (($this_forum[6] eq "private")||($this_forum[6] eq "hidden")) {
####################
# ubb_lib.cgi open #
####################
#########
#find : #
#########
	if ($forumfacts[6] eq 'private') {
################
# replace with #
################
	if (($forumfacts[6] eq 'private')||($forumfacts[6] eq 'hidden')) {
########
# find #
########
	# make sure only open forums are listed
	foreach $j (@all_forums) {
		chomp($j);
		@checkit = split (/\|\^\|/, $j);
		if ($checkit[3] eq 'On') {
################
# replace with #
################
	# make sure only open forums are listed
	foreach $j (@all_forums) {
		chomp($j);
		@checkit = split (/\|\^\|/, $j);
		if (($checkit[3] eq 'On')&& ($checkit[6] ne 'hidden')) {
#########
#find : #
#########
}  ## end hop_to_list
##################
# add this lines #
##################
sub hop_to_list_hidden {
local(%forum_order_list, %forum_name_list, %cat_list, @all_forums, @sorted_forums, @sortrow, $j, @checkit, $ok, $uno, $key, $cat_type, $ThisCatNam, $ThisCatNumb, @catgroup, $cat_name, $select_list);

@all_forums = &OpenForumsFile;

undef(%forum_order_list); undef(%forum_name_list);
undef(%cat_list); undef(@sortcat); undef(@cats);

# make sure only open forums are listed
foreach $j(@all_forums) {
	chomp($j); @checkit = split(/\|\^\|/, $j);
	if ($checkit[3] eq 'On') {
		$forum_order_list{$checkit[8]} = "$checkit[14]";
		$forum_name_list{$checkit[8]} = "$checkit[1]";

		# create cat list:
		if ($checkit[0] > 0) { $cat_list{$checkit[8]} = "$checkit[0]"; }
		}
	}

	# sort forum list:
	@sorted_forums = sort { $forum_order_list{$a} <=> $forum_order_list{$b} } keys %forum_order_list;

	$select_list = qq~
	<OPTION value=''>$vars_wordlets{select_a_forum}
	<OPTION value=''>
	~;

	if ($vars_display{CategoryView} ne 'yes') {

		foreach (@sorted_forums) {
			if ($in{f} eq "$_") {

				$select_list .= qq~<OPTION value="$_" SELECTED>$forum_name_list{$_}
				~;

			}  else {

				$select_list .= qq~<OPTION value="$_">$forum_name_list{$_}
				~;

			}
		}

	}  else {

		my @cats = &OpenFileAsArray("$vars_config{NonCGIPath}/categories.file");
		my @sortcat = sort(@cats);

		CATLOOP: foreach $cat_type(@sortcat) {

		$ok = '';
		($j, $ThisCatNam, $ThisCatNumb) = split(/\|\^\|/, $cat_type);
		chomp($ThisCatNumb);

		# grab cat name:
		$cat_name = &GetCatName($ThisCatNumb);

		# make sure there are forums in this category:
		foreach $key(keys %cat_list) {
			if ($cat_list{$key} eq "$ThisCatNumb") { $ok = 'y'; }
			}
			unless ($ok eq 'y') { next CATLOOP; }

			# print cat name in select list:
			$select_list .= qq~
			<OPTION value="">
			<OPTION value="CAT:$ThisCatNumb">$vars_wordlets{category_header_hopto} $cat_name
			<OPTION VALUE="">--------------------
			~;

			# get all forums in category, sorted:
			foreach $key(@sorted_forums) {

				if (exists($cat_list{$key})) {
					if ($cat_list{$key} eq "$ThisCatNumb") {

						if ($in{f} eq "$key") {
							$select_list .= qq~<OPTION value="$key" SELECTED>$forum_name_list{$key}
							~;

						}  else {
							$select_list .= qq~<OPTION value="$key">$forum_name_list{$key}
							~;
						} # end if/else f = key

					} # if cat list key exists
				} # end if cat list check

			} # end foreach forum order list
		} # end foreach sortcat

	} # end if/else cat view

	return($select_list);
}  ## end hop_to_list hidden

######################
# ubb_lib_2.cgi open #
######################
#########
#find : #
#########
		if ($forline[6] eq 'private') {

#############
# above add #
#############
		if ($forline[6] eq 'hidden') {
			$NewPermLine = 'hidden';
			$forline[13] = 'yes';
			#generate private directory
			$DIRPW = &GeneratePassword;
			$DescLength = length($forline[1]);
			$DIRPW .= "$DescLength";

			mkdir("$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW", 0777);
			chmod (0777, "$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW");

			open (INDEX, ">$vars_config{NonCGIPath}/Forum$thisforum[8]/index.html"); 
				print INDEX '';
			close (INDEX);

			open (INDEX, ">$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW/index.html"); 
				print INDEX "";
			close (INDEX);

		}
######################
# ubb_search.cgi open #
######################
#########
#find : #
#########
		if ($forum_info[6] eq 'private') {
################
# replace with #
################
		if (($forum_info[6] eq 'private')||($forum_info[6] eq 'hidden')) {
#########
#find : #
#########
			if ($get_path[6] eq 'private') {
################
# replace with #
################
			if (($get_path[6] eq 'private')||($get_path[6] eq 'hidden')) {
############################
# ubb_topic_maint.cgi open #
############################
#########
#find : #
#########
		if ($new_forum[6] eq 'private') {
################
# replace with #
################
		if (($new_forum[6] eq 'private')||($new_forum[6] eq 'hidden')) {
#########
#find : #
#########
	if ($in{ubb} eq 'transfer') {
		$hop_to_options = &hop_to_list("nosel");
################
# replace with #
################
	if ($in{ubb} eq 'transfer') {
		$hop_to_options_hidden = &hop_to_list_hidden("nosel"); 
############################
# ubb_lib_posting.cgi open #
############################
#########
#find : #
#########
	if (($total_posts > 26) || ($post_permiss eq "private")) {
################
# replace with #
################
	if (($total_posts > 26)  || ($post_permiss eq "private")||($post_permiss eq "hidden")) {
#########
#find : #
#########
# set topic title
#############
# above add #
#############
	if ($this_forum[6] eq 'hidden') {
		$ubb_friend_on = '';
	}
#########
#find : #
#########
		if ($this_forum[6] eq 'private') {
################
# replace with #
################
		if (($this_forum[6] eq 'private')||($this_forum[6] eq 'hidden')) {
#########
#find : #
#########
	unless ($_[2] eq 'private') {
################
# replace with #
################
	unless (($_[2] eq 'private')||($_[2] eq 'hidden')) {
##########################
# ubb_edit_post.cgi open #
##########################
#########
#find : #
#########
	# if forum is private, make sure user has access
	if ($this_forum[6] eq 'private') { &check_private_access($in{f}, $this_forum[12]); }
################
# replace with #
################
	# if forum is private, make sure user has access
	if (($this_forum[6] eq 'private')||($this_forum[6] eq 'hidden')) { &check_private_access($in{f}, $this_forum[12]); }
##########################
# ubb_get_topic.cgi open #
##########################
#########
#find : #
#########
	if ($permission eq 'private') {
################
# replace with #
################
	if (($permission eq 'private')||($permission eq 'hidden')) {
##########################
# ubb_new_reply.cgi open #
##########################
#########
#find : #
#########
	# check forum posting rules
	if ($post_permiss eq 'private') {
		$reply_restrict = 'restrict';

################
#replace with  #
################
	# check forum posting rules
	if (($post_permiss eq 'private')||($post_permiss eq 'hidden')) {
		$reply_restrict = 'restrict';
#########
#find : #
#########
	# check to make sure user has access/permission to post!
	if (($post_permiss eq 'private') || ($reply_restrict eq 'restrict')) {
################
# replace with #
################
	# check to make sure user has access/permission to post!
	if (($post_permiss eq 'private') || ($reply_restrict eq 'restrict')||($post_permiss eq 'hidden')) {
#########
#find : #
#########
	#set proper path if forum is private
	if ($permission eq 'private') {
###################
# replace with    #
###################
	#set proper path if forum is private
	if (($permission eq 'private')||($permission eq 'hidden')) {
#########
#find : #
#########
	# check to make sure user has access/permission to post!
	if (($permission eq 'private') || ($reply_restrict eq 'restrict')) {
################
# replace with #
################
	# check to make sure user has access/permission to post!
	if (($permission eq 'private') || ($reply_restrict eq 'restrict')||($permission eq 'hidden')) {
#########
#find : #
#########
		# update user_posts file
		if ($permission ne 'private') {
################
# replace with #
################
		# update user_posts file
		if (($permission ne 'private')&&($permission ne 'hidden')) {
#########
#find : #
#########
	# don't display if this forum status is off and forum is private
	if (($post_permiss eq 'private') && ($this_forum[3] ne 'On')) {
################
# replace with #
################
	# don't display if this forum status is off and forum is private
	if ((($post_permiss eq 'private')||($post_permiss eq 'hidden')) && ($this_forum[3] ne 'On')) {
##########################
# ubb_new_topic.cgi open #
##########################
#########
#find : #
#########
	if ($post_permiss eq 'private') {
#################
# replace with  #
#################
	if (($post_permiss eq 'private')||($post_permiss eq 'hidden')) {
#########
#find : #
#########
	if ((($post_permiss eq 'private') || ($topic_restrict eq 'restrict')) && ($vars_display{RequireLoginPosts} eq "YES")) {
################
# replace with #
################
	if ((($post_permiss eq 'private') || ($topic_restrict eq 'restrict')||($post_permiss eq 'hidden'))&& ($vars_display{RequireLoginPosts} eq "YES")) {
#########
#find : #
#########
	# don't display if this forum status is off and forum is private
	if (($post_permiss eq 'private') && ($this_forum[3] ne 'On')) {
################
# replace with #
################
	# don't display if this forum status is off and forum is private
	if ((($post_permiss eq 'private')||($post_permiss eq 'hidden')) && ($this_forum[3] ne 'On')) {
#########
#find : #
#########
	#set proper path if forum is private
	@this_forum = &GetForumRecord($in{f});
	unless(@this_forum) {
		&StandardHTML("$vars_wordlets_err{no_such_forum}");
	}
	$permission = $this_forum[6];

	if ($permission eq 'private') {
################
# replace with #
################
	#set proper path if forum is private
	@this_forum = &GetForumRecord($in{f});
	unless(@this_forum) {
		&StandardHTML("$vars_wordlets_err{no_such_forum}");
	}
	$permission = $this_forum[6];

	if (($permission eq 'private')||($permission eq 'hidden')) {
#########
#find : #
#########
	# check to make sure user has access/permission to post!
	if (($permission eq 'private') || ($topic_restrict eq 'restrict')) {
################
# replace with #
################
	# check to make sure user has access/permission to post!
	if (($permission eq 'private') || ($topic_restrict eq 'restrict')||($permission eq 'hidden')) {
#########
#find : #
#########
	# update user_posts file
	if (($reg_status eq 'reg') && ($permission ne 'private')) {
		&AppendFileAsString("$vars_config{MembersPath}/user_posts/$user_number.cgi", "$GotTime{YMDRunonDate}|$in{f}|$new_topic_number|000000\n");
	}    # if user is registered & forum is not private
################
# replace with #
################
	# update user_posts file
	if (($reg_status eq 'reg') && ($permission ne 'private')) {
		if ($permission ne 'hidden'){
			# update user_posts file
			&AppendFileAsString("$vars_config{MembersPath}/user_posts/$user_number.cgi", "$GotTime{YMDRunonDate}|$in{f}|$new_topic_number|000000\n");
		}    # if user is registered & forum is not private
	}
######################
# ubb_forum.cgi open #
######################
#########
#find : #
#########

	local ($last_julian, $GetMonth, $GetDate, $GetYear, @this_forum, $category, $permission, $cat_name, $mod, @mods, %topic_legend, %reply_legend, $topic_restrict, $reply_restrict, $forum_name, %topic_view, $DPJulian, @thefinalarray, %forum_topics, $topic, $one, @this_topic, $closed, $total_replies, $subject, $user_name, $msg_icon, $last_hyphen_date, $last_time, @rev_file, @last_post, $TheDate, $Breaker, $DateSize, $hot_icon, $new_topic_button, $key, $value, $Sections, $count, $j, $start_point, $array_stop, $total_good, $more_topics_wording, $Block, $starting, @topics, $Section, $topic_start_name, $cat_line1, $extra_pages, $topic_view_line, $topic_start_un, @user_profile);

	if ($in{f} eq '') { &StandardHTML("$vars_wordlets_err{no_forum_selected}"); }

	# get forum record
	@this_forum = &GetForumRecord($in{f});
	chomp($this_forum[15]);    # <- sort option (new)
	chomp($this_forum[16]) if $this_forum[16];    # <- new forum intro/announcement

	$this_forum[16] = "" unless $this_forum[16];

	if ($this_forum[1] eq '') {
		&StandardHTML("$vars_wordlets_err{no_such_forum}");
	}
###################
#BELOW that ADD:: #
###################
	if ($this_forum[3] eq "off") {
		&StandardHTML("$vars_wordlets_err{no_such_forum}"); 
	}
	if ($this_forum[6] eq "hidden") {
		if (-s "$vars_config{MembersPath}/$user_number.cgi") {
			@search_file = &OpenProfile($user_number);
		}
		chomp($search_file[4]);
		($g, $perms) = split(/&/, $search_file[4]);
		@explicit = split(/,/, $perms);
		$good='no';
		chomp($this_forum[8]);
		$x = "$this_forum[8]";
		$count='0';
		foreach (@explicit) {
			if ($explicit[$count] eq $x){
				$good='yes';
			}
			$count=$count+1;
		}
	}
	if ($g =~ "Admin"){
		$good='yes';
	}
	if (($good ne 'yes')&&($this_forum[6] eq "hidden")){
		&StandardHTML("$vars_wordlets_err{no_such_forum}"); 
	}
#########
#find : #
#########

	if ($permission eq 'private') {

		$exact_path .= "/private-$this_forum[7]";

###############
#replace with #
###############
	if (($permission eq 'private')||($permission eq 'hidden')) {

		$exact_path .= "/private-$this_forum[7]";

#########
#find : #
#########
	if ($permission eq 'private') {
		$reply_restrict = 'restrict';
		$topic_restrict = 'restrict';
	} else {
		($topic_restrict, $reply_restrict) = split ("&", $permission);
	}
###############
#replace with #
###############
	if (($permission eq 'private')||($permission eq 'hidden')) {
		$reply_restrict = 'restrict';
		$topic_restrict = 'restrict';
	} else {
		($topic_restrict, $reply_restrict) = split ("&", $permission);
	}
#########
#find : #
#########
			if ($permission eq 'private') {
				unless (-d "$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files/forum_page/Forum$in{f}") {
					mkdir("$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files/forum_page/Forum$in{f}", 0777);
					chmod(0777, "$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files/forum_page/Forum$in{f}");
				}
			}
################
# replace with #
################
			if (($permission eq 'private')||($permission eq 'hidden')) {
				unless (-d "$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files/forum_page/Forum$in{f}") {
					mkdir("$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files/forum_page/Forum$in{f}", 0777);
					chmod(0777, "$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files/forum_page/Forum$in{f}");
				}
			}
#########################
# cp_edit_forum.pl open #
#########################
########
# find #
########
<P>
<INPUT TYPE="CHECKBOX" NAME="Private" VALUE="private" $private_checked>
Restrict Viewing and Writing of Posts To Administrators, the forum Moderator, and other authorized<FONT color="#800000" FACE="Verdana, Arial">*</FONT> users
<P>
#############
# below add #
#############
<P>
<INPUT TYPE="CHECKBOX" NAME="Hidden" VALUE="hidden" $hidden_checked>
Hidden this forum ?
<P>
########################
# cp_forum_add.pl open #
########################
########
# find #
########
<P>
<INPUT TYPE="CHECKBOX" NAME="Private" VALUE="private">
Restrict Viewing and Writing of Posts To Administrators, the forum Moderator, and other authorized<FONT color="#800000" FACE="Verdana, Arial">*</FONT> users
<P>
#############
# below add #
#############
<P>
<INPUT TYPE="CHECKBOX" NAME="Hidden" VALUE="hidden">
Hidden this forum ?
<P>
######################
# cp_forums.cgi open #
######################
########
# find #
########
	#is this a private forum?
	if ($in{Private} eq 'private') {

		#create HTML directory alternate to keep contents hidden
		$DIRPW = &GeneratePassword;
		if ($Description ne '') {
			$DescLength = length($Description);
		} else {
			$DescLength = 6;
		}
		$DIRPW .= "$DescLength";
	} else {
		$DIRPW = '';
	}

	if ($in{Private} eq 'private') {
		$ForumPermission = 'private';
	} else {
		$ForumPermission = "$in{TopicRestrict}&$in{ReplyRestrict}";
	}

################
# replace with #
################
	#is this a private forum?
	if (($in{Private} eq 'private') || ($in{Hidden} eq 'hidden')) {
		#create HTML directory alternate to keep contents hidden
		$DIRPW = &GeneratePassword;
		if ($Description ne '') {
			$DescLength = length($Description);
		}  else {
			$DescLength = 6;
		}
		$DIRPW .= "$DescLength";
	}  else {
		$DIRPW = '';
	}
	if (($in{Private} eq 'private')&&($in{Hidden} eq 'hidden')) {
		$ForumPermission = 'hidden';
	} elsif (($in{Private} eq 'private')&&($in{Hidden} ne 'hidden')) {
		$ForumPermission = 'private';
	} else {
		$ForumPermission = "$in{TopicRestrict}&$in{ReplyRestrict}";
	}
########
# find #
########
	if (($thisforum[6] =~ /\&/) && ($thisforum[6] ne 'private')) {
		($TopicRestrict, $ReplyRestrict) = split (/\&/, $thisforum[6]);

		if ($TopicRestrict eq 'restrict') {
			$topic_restrict_select = 'SELECTED';
		} elsif ($TopicRestrict eq 'allreg') {
			$topic_allreg_select = 'SELECTED';
		} elsif ($TopicRestrict eq 'none') {
			$topic_none_select = 'SELECTED';
		} else {
			$topic_all_select = 'SELECTED';
		}

		if ($ReplyRestrict eq 'restrict') {
			$reply_restrict_select = 'SELECTED';
		} elsif ($ReplyRestrict eq 'allreg') {
			$reply_allreg_select = 'SELECTED';
		} elsif ($ReplyRestrict eq 'all') {
			$reply_all_select = 'SELECTED';
		} else {
			$reply_none_select = "SELECTED";
		}

	} else {
		$private_checked       = 'CHECKED';
		$reply_restrict_select = 'SELECTED';
		$topic_restrict_select = 'SELECTED';
	}

################
# replace with #
################
	if (($thisforum[6] =~ /\&/) && ($thisforum[6] ne 'private')){
		($TopicRestrict, $ReplyRestrict) = split(/\&/, $thisforum[6]);

		if ($TopicRestrict eq 'restrict') {
			$topic_restrict_select = 'SELECTED';  
		} elsif ($TopicRestrict eq 'allreg') {
			$topic_allreg_select = 'SELECTED'; 
		} elsif ($TopicRestrict eq 'none') {
			$topic_none_select = 'SELECTED';
		} else  {$topic_all_select = 'SELECTED';	
		}
		if ($ReplyRestrict eq 'restrict') {
			$reply_restrict_select = 'SELECTED'; 
		} elsif ($ReplyRestrict eq 'allreg') {
			$reply_allreg_select = 'SELECTED'; 
		} elsif ($ReplyRestrict eq 'all') {
			$reply_all_select = 'SELECTED';
		} else {$reply_none_select = "SELECTED";
		}
	}  else {
		if ($thisforum[6] eq 'hidden'){
			$private_checked = 'CHECKED';
			$hidden_checked = 'CHECKED';
			$reply_restrict_select = 'SELECTED';
			$topic_restrict_select = 'SELECTED';
		} else {
			$private_checked = 'CHECKED';
			$reply_restrict_select = 'SELECTED';
			$topic_restrict_select = 'SELECTED';
		}
	}
########
# find #
########
	#is this a private forum?
	if (($in{Private} eq 'private') && ($thisforum[7] eq '')) {

		#create HTML directory alternate to keep contents hidden
		$DIRPW = &GeneratePassword;
		if ($Description ne '') {
			my $DescLength = length($Description);
		} else {
			my $DescLength = 6;
		}
		$DIRPW .= "$DescLength";


		mkdir("$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW", 0777);
		chmod(0777, "$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW");

		&WriteFileAsString("$vars_config{NonCGIPath}/Forum$thisforum[8]/index.html", "");
		&WriteFileAsString("$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW/index.html", "");

		my $thisdir = "$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW";
		my %blank = ();
		&WriteHashToFile("$thisdir/forum_$next_number.threads", "forum_topics", \%blank);
		&WriteHashToFile("$thisdir/forum_thread_data_0000.cgi", "forum_thread_data", \%blank);
		&AppendFileAsString("$thisdir/upgrade.txt", "$version|^|$version_number\n");
		if(!-e "$thisdir/index.html") {
			&WriteFileAsString("$thisdir/index.html", "&nbsp;");
		}


		#mkdir("$vars_config{NonCGIPath}/cache-$vars_config{cache_pw}/backups/Forum$next_number", 0777);


	}

	elsif (($in{Private} eq 'private') && ($thisforum[7] ne '')) {

		$DIRPW = "$thisforum[7]";

		unless (-e "$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW") {

			mkdir("$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW", 0777);
			chmod(0777, "$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW");

			&WriteFileAsString("$vars_config{NonCGIPath}/Forum$thisforum[8]/index.html", "");
			&WriteFileAsString("$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW/index.html", "");

			my $thisdir = "$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW";
			my %blank = ();
			&WriteHashToFile("$thisdir/forum_$next_number.threads", "forum_topics", \%blank);
			&WriteHashToFile("$thisdir/forum_thread_data_0000.cgi", "forum_thread_data", \%blank);
			&AppendFileAsString("$thisdir/upgrade.txt", "$version|^|$version_number\n");
			if(!-e "$thisdir/index.html") {
				&WriteFileAsString("$thisdir/index.html", "&nbsp;");
			}
			#mkdir("$vars_config{NonCGIPath}/cache-$vars_config{cache_pw}/backups/Forum$next_number", 0777);

		}    # check if exists


	} else {
		$DIRPW = "$thisforum[7]";
	}

	if ($in{Private} eq 'private') {
		$ForumPermission = 'private';
	} else {
		$ForumPermission = "$in{TopicRestrict}&$in{ReplyRestrict}";
	}



################
# replace with #
################
	#is this a private forum?
	if (($in{Private} eq 'private') && ($thisforum[7] eq '')) {

		#create HTML directory alternate to keep contents hidden
		$DIRPW = &GeneratePassword;
		if ($Description ne '') {
			my $DescLength = length($Description);
		} else {
			my $DescLength = 6;
		}
		$DIRPW .= "$DescLength";


		mkdir("$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW", 0777);
		chmod(0777, "$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW");

		&WriteFileAsString("$vars_config{NonCGIPath}/Forum$thisforum[8]/index.html", "");
		&WriteFileAsString("$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW/index.html", "");

		my $thisdir = "$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW";
		my %blank = ();
		&WriteHashToFile("$thisdir/forum_$next_number.threads", "forum_topics", \%blank);
		&WriteHashToFile("$thisdir/forum_thread_data_0000.cgi", "forum_thread_data", \%blank);
		&AppendFileAsString("$thisdir/upgrade.txt", "$version|^|$version_number\n");
		if(!-e "$thisdir/index.html") {
			&WriteFileAsString("$thisdir/index.html", "&nbsp;");
		}


		#mkdir("$vars_config{NonCGIPath}/cache-$vars_config{cache_pw}/backups/Forum$next_number", 0777);


	}
	if (($in{Hidden} eq 'hidden') && ($thisforum[7] eq '')){

		#create HTML directory alternate to keep contents hidden
		$DIRPW = &GeneratePassword;
		if ($Description ne '') {
			my $DescLength = length($Description);
		} else {
			my $DescLength = 6;
		}
		$DIRPW .= "$DescLength";


		mkdir("$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW", 0777);
		chmod(0777, "$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW");

		&WriteFileAsString("$vars_config{NonCGIPath}/Forum$thisforum[8]/index.html", "");
		&WriteFileAsString("$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW/index.html", "");

		my $thisdir = "$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW";
		my %blank = ();
		&WriteHashToFile("$thisdir/forum_$next_number.threads", "forum_topics", \%blank);
		&WriteHashToFile("$thisdir/forum_thread_data_0000.cgi", "forum_thread_data", \%blank);
		&AppendFileAsString("$thisdir/upgrade.txt", "$version|^|$version_number\n");
		if(!-e "$thisdir/index.html") {
			&WriteFileAsString("$thisdir/index.html", "&nbsp;");
		}


		#mkdir("$vars_config{NonCGIPath}/cache-$vars_config{cache_pw}/backups/Forum$next_number", 0777);


	}

	if (($in{Private} eq 'private') && ($thisforum[7] ne '')) {

		$DIRPW = "$thisforum[7]";

		unless (-e "$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW") {

			mkdir("$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW", 0777);
			chmod(0777, "$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW");

			&WriteFileAsString("$vars_config{NonCGIPath}/Forum$thisforum[8]/index.html", "");
			&WriteFileAsString("$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW/index.html", "");

			my $thisdir = "$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW";
			my %blank = ();
			&WriteHashToFile("$thisdir/forum_$next_number.threads", "forum_topics", \%blank);
			&WriteHashToFile("$thisdir/forum_thread_data_0000.cgi", "forum_thread_data", \%blank);
			&AppendFileAsString("$thisdir/upgrade.txt", "$version|^|$version_number\n");
			if(!-e "$thisdir/index.html") {
				&WriteFileAsString("$thisdir/index.html", "&nbsp;");
			}
			#mkdir("$vars_config{NonCGIPath}/cache-$vars_config{cache_pw}/backups/Forum$next_number", 0777);
		}

	}    # check if exists

	if (($in{Hidden} eq 'hidden') && ($thisforum[7] ne '')) {
		$DIRPW = "$thisforum[7]";

		unless (-e "$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW") {

			mkdir("$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW", 0777);
			chmod(0777, "$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW");

			&WriteFileAsString("$vars_config{NonCGIPath}/Forum$thisforum[8]/index.html", "");
			&WriteFileAsString("$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW/index.html", "");

			my $thisdir = "$vars_config{NonCGIPath}/Forum$thisforum[8]/private-$DIRPW";
			my %blank = ();
			&WriteHashToFile("$thisdir/forum_$next_number.threads", "forum_topics", \%blank);
			&WriteHashToFile("$thisdir/forum_thread_data_0000.cgi", "forum_thread_data", \%blank);
			&AppendFileAsString("$thisdir/upgrade.txt", "$version|^|$version_number\n");
			if(!-e "$thisdir/index.html") {
				&WriteFileAsString("$thisdir/index.html", "&nbsp;");
			}
			#mkdir("$vars_config{NonCGIPath}/cache-$vars_config{cache_pw}/backups/Forum$next_number", 0777);

		}    # check if exists

#	} else {
#		$DIRPW = "$thisforum[7]";
#	}

		if (($in{Private} eq 'private')&&($in{Hidden} eq 'hidden')) {
			$ForumPermission = 'hidden';}
		elsif ($in{Private} eq 'private') {
			$ForumPermission = 'private';}
		else {
			$ForumPermission = "$in{TopicRestrict}&$in{ReplyRestrict}";}
	}

########
# find #
########
		# determine proper path
		if ($in{Private} eq 'private') {
################
# replace with #
################
		# determine proper path
		if (($in{Private} eq 'private')||($in{Private} eq 'hidden')) {
########
# find #
########
	if ($permission eq 'private') { $exact_path .= "/private-$this_forum[7]"; }
################
# replace with #
################
	if (($permission eq 'private')||($permission eq 'private')) { 	$exact_path .= "/private-$this_forum[7]"; }  
##############################
# ubb_forum_summary.cgi open #
##############################
########
# find #
########
	local (*MEM);
#############
# below add #
#############
	if (-e "$vars_config{MembersPath}/$user_number.cgi") {
        	@search_file = &OpenFileAsArray("$vars_config{MembersPath}/$user_number.cgi");}
	chomp($search_file[4]);
	($g, $perms) = split(/&/, $search_file[4]);
	@explicit = split(/,/, $perms);
	if (($explicit[0] ne '')||($g =~ "Admin")){$discache='yes'}else{$discache='no'}
########
# find #
########
	if (!$in{category}) {
		&ServeFromCache("ubb_files/summary/summary.html");
################
# replace with #
################
	if ((!$in{category}) && ($discache eq 'no')) {
		&ServeFromCache("ubb_files/summary/summary.html");


########
# find #
########
		if ($vars_display{CategoriesOnly} ne 'false') {

			# if this is a category-only view & specific category is selected
			&ServeFromCache("ubb_files/summary/summary-$in{category}.html");

################
# replace with #
################
		if (($vars_display{CategoriesOnly} ne 'false')&& ($discache eq 'no')) {

			# if this is a category-only view & specific category is selected
			&ServeFromCache("ubb_files/summary/summary-$in{category}.html");


########
# find #
########
		if ($thisforuminfo[6] eq 'private') { $exact_path .= "/private-$thisforuminfo[7]"; }

#############
# below add #
#############
		if ($thisforuminfo[6] eq 'hidden') {   $exact_path .= "/private-$thisforuminfo[7]"; }
########
# find #
########
	# print to file
	unless(-d "$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files/summary") {
		mkdir("$vars_config{NonCGIPath}/cache-$cache_cookie", 0777);
		mkdir("$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files", 0777);
		mkdir("$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files/summary", 0777);
		chmod(0777, "$vars_config{NonCGIPath}/cache-$cache_cookie");
		chmod(0777, "$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files");
		chmod(0777, "$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files/summary");
	}
	&WriteFileAsString("$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files/summary/$file_name.html", $ThisHTML);
################
# replace with #
################
	# print to file
	if ($discache eq 'no'){
		unless(-d "$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files/summary") {
			mkdir("$vars_config{NonCGIPath}/cache-$cache_cookie", 0777);
			mkdir("$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files", 0777);
			mkdir("$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files/summary", 0777);
			chmod(0777, "$vars_config{NonCGIPath}/cache-$cache_cookie");
			chmod(0777, "$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files");
			chmod(0777, "$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files/summary");
		}
		&WriteFileAsString("$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files/summary/$file_name.html", $ThisHTML);
	}
########
# find #
########
	# make sure only open forums are listed
	foreach $j (@allforums) {
		chomp($j);
		@checkit = split (/\|\^\|/, $j);
		if ($checkit[3] eq 'On') {
			$forum_order_list{$checkit[8]} = "$checkit[14]";
			$forum_name_list{$checkit[8]}  = "$checkit[1]";
			$forum_line_list{$checkit[8]}  = "$j";

			# create cat list:
			if (($checkit[0]) && ($checkit[0] > 0)) { $cat_list{$checkit[8]} = "$checkit[0]"; }

		}    # end if forum is ON
	}    # end foreach allforums
################
# replace with #
################
	# make sure only open forums are listed
	if (-e "$vars_config{MembersPath}/$user_number.cgi") {
        	@search_file = &OpenFileAsArray("$vars_config{MembersPath}/$user_number.cgi");}
	chomp($search_file[4]);
	($g, $perms) = split(/&/, $search_file[4]);
	@explicit = split(/,/, $perms);
	foreach $j (@allforums) {
		chomp($j);
		@checkit = split (/\|\^\|/, $j);
		chomp($checkit[8]);
		$x = "$checkit[8]";
		if (($checkit[3] eq 'On') && ($checkit[6] ne 'hidden')){
			$forum_order_list{$checkit[8]} = "$checkit[14]";
			$forum_name_list{$checkit[8]}  = "$checkit[1]";
			$forum_line_list{$checkit[8]}  = "$j";

			# create cat list:
			if (($checkit[0]) && ($checkit[0] > 0)) { $cat_list{$checkit[8]} = "$checkit[0]"; 
			}
		}    # end if forum is ON
		if (($checkit[3] eq 'On') && ($checkit[6] eq 'hidden')){
			$count='0';
			foreach (@explicit) {
				if ($explicit[$count] eq $x){
					$forum_order_list{$checkit[8]} = "$checkit[14]";
					$forum_name_list{$checkit[8]} = "$checkit[1]";
					$forum_line_list{$checkit[8]} = "$j";
					# create cat list:
					if ($checkit[0] > 0) { $cat_list{$checkit[8]} = "$checkit[0]"; 
					}
				}
				$count=$count+1;
			}
			if ($g =~ "Admin"){
				$forum_order_list{$checkit[8]} = "$checkit[14]";
				$forum_name_list{$checkit[8]} = "$checkit[1]";
				$forum_line_list{$checkit[8]} = "$j";
				# create cat list:
				if ($checkit[0] > 0) { $cat_list{$checkit[8]} = "$checkit[0]"; 
				}
			}

		}  # end if forum is ON/hidden

	}    # end foreach allforums

####################
# cp_user.cgi open #
####################
########
# find #
########
		if ($this_one[6] eq 'private') {
			$private_forum_options .= qq!<option value="$this_one[8]">$this_one[1]</option>!;
################
# replace with #
################
		if (($this_one[6] eq 'private')|| ($this_one[6] eq 'hidden')) {
			$private_forum_options .= qq!<option value="$this_one[8]">$this_one[1]</option>!;


########
# find #
########
		for (@sortforums) {
			@forum_line = split (/\|\^\|/, $_);
			if ($forum_line[6] eq "private") {
				$forum_names{$forum_line[8]}  = $forum_line[1];
				$forum_status{$forum_line[8]} = "Private";
#############
# below add #
#############
			} elsif ($forum_line[6] eq "hidden") {
				$forum_names{$forum_line[8]} = $forum_line[1];
				$forum_status{$forum_line[8]} = "Hidden";
#############################
# public_move_topic.pl open #
#############################
########
# find #
########
$hop_to_options
################
# replace with #
################
$hop_to_options_hidden
####################################
transfer the files and clear the cache
that's all