# FILE: src-board-subs-1 # Board Manager and topic management #------------------------------------------------------------------------------- # DISCUS VERSION 3.10 COPYRIGHT NOTICE # # Discus 3.10 is copyright (c) 2000 by DiscusWare, LLC, all rights reserved. # The use of Discus is governed by the Discus License Agreement which is # available from the Discus WWW site at: # http://www.discusware.com/discus/license # # Pursuant to the Discus License Agreement, this copyright notice may not be # removed or altered in any way. #------------------------------------------------------------------------------- #---SEPARATOR---# sub board_manager { my ($username); $username = $superuser; $append = "?username=$username&action=menu"; open (FILE, "$message_dir/$board_topics_file") || &error_message("File Error", "Could not open top file ($board_topics_file)."); @lines = ; close(FILE); undef @topic_number; undef @topic_name; undef @group; $count = 0; $topics = ""; foreach $line (@lines) { $_ = $line; if (//) { $count = $count + 1; $filename = "$message_dir/$1/$1.$ext"; $num = $1; push (@topic_number, $1); $ev{$num} = &extract ($filename, 1); push (@topics, "$num:$topic_name (\u$owner)"); push (@group, $owner); } } &header; print "Board Manager\n"; print "\n"; print '$fs\n"; print "
Board Manager
\n"; print "
\n"; print "\n"; print "

Title Message

\n"; print "
\n"; print "\n"; print "\n"; print "
"; print "$fs", "Enter the text for your "Title Message" in the area below. The "Title Message" appears above the list of topics, and contains the board logo by default.

\n"; print "

\n"; print "$fs Display horizontal rule (<HR>) below Title Message

\n"; print "\n"; print "

\n"; print "

\n"; print "

Topics

\n"; print "
\n"; print "\n"; print "\n"; $c = "ffffcc"; $jsstr = ""; $jsstr2 = ""; $jsstr3 = ""; print "\n"; $counter = 0; $ctr = 0; $ct = scalar(@topics); undef @tn; foreach $thing (@topics) { if ($thing =~ /^(\d+):(.*)/) { $num = $1; $descr = $2; push (@tn, $descr); } } undef %ps; @tn = sort(@tn); undef %ps; $ct = 0; foreach $line (@tn) { $ct += 1; $ps{$line} = $ct; } undef @txl; foreach $thing (@topics) { if ($thing =~ /^(\d+):(.*)/) { $num = $1; $descr = $2; print ""; $counter += 1; if ($c eq "ffffcc") { $c = "ffffff"; } else { $c = "ffffcc"; } print ""; $jsstr .= "document.sf.ORDER$num.value = (-1 * document.sf.ORDER$num.value); "; $jsstr2 .= "document.sf.ORDER$num.value = '$ps{$descr}'; "; $jsstr3 .= "document.sf.ORDER$num.value = '" . (scalar(keys(%ps))-$ps{$descr}+1) . "'; "; print "\n"; print ""; $name2 = &JavaScript_prepare($descr); print ""; print "" if $ev{$num}; print "" if !$ev{$num}; print "\n"; print "" if $ev{$num}; print "" if !$ev{$num}; print "\n"; print ""; print "\n"; push (@txl, ""; print "\n"; print ""; print "\n"; print ""; print ""; print ""; print "\n"; print ""; print "\n"; print ""; print "\n"; print "\n"; } print "
 Order MarkDelGrp Prop Topic (group) 
  "; print " "; print " "; $ctr += 1; print "      $fs"; print "$descr" if $ev{$num}; print "$descr" if !$ev{$num}; &get_page($num, $num); print " (Hidden)" if $DP{'hidden'} == 1; print " 
  (Marked)     
$fsReverse A-Z Z-A
\n"; print "\n"; print "\n"; print "
\n"; print "
\n"; print "

Add a Topic

\n"; open (GROUP, "$admin_dir/groups.txt"); @group_input = ; close (GROUP); @group_input = grep(/\S/, @group_input); undef @group_list; foreach $line (@group_input) { ($group) = split(/:/, $line); if (!grep(/^$group$/, @group_list)) { push (@group_list, $group); } } if (!scalar(@group_list)) { print "Sorry, you can't create topics at this time because you have not created\n"; print "any groups on your board. You can create groups by going to your\n"; print "Group Manager.\n"; print "

\n"; print "Establishing groups and creating topics are each covered in the\n"; print "superuser getting started "; print "tutorial. Click the link to open this document in a new browser window.\n"; print "

\n"; } else { print "

\n"; print "\n"; print "\n"; print "
"; print "\n"; print "\n"; print "\n"; print "\n"; print ""; print "
$fs", "Topic Name:
$fs", "Topic Group:
$fs", "Posting Privileges:  "; print "
$fs", "Initial Content:  "; print "
$fs", "Optional Description:  "; print "
\n"; print "

\n"; print "\n"; print "

\n"; } print "

\n"; print "\n"; print "

Main Message

\n"; print "
\n"; print "\n"; print "\n"; print "
"; print "$fs", "Enter the text for your "Main Message" in the area below. The "Main Message" appears below the list of topics.

\n"; print "

\n"; print "$fs Display horizontal rule (<HR>) above Main Message

\n"; print "\n"; print "

\n"; print "
\n"; print "

Board Appearance

\n"; print "
\n"; ($bgcolor,$text,$link,$vlink,$alink,$face,$size, $image) = &extract_colorsonly; print "
"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
$fs", "Background:
\n"; print "
THIS IS A SAMPLE OF YOUR COLORS

\n"; print "Text Color
\n"; print "Unvisited Link
\n"; print "Visited Link
\n"; print "Active Link
\n"; print "Smaller Text

$fs", "Text:
$fs", "Link:
$fs", "Visited Link:
$fs", "Active Link:
$fs", "Font Face:
$fs", "Font Size:
$fs", "Background Image:

\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print "
\n"; print "
\n"; print "\n"; print "

META Tags

\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
"; print "$fs", "You can specify META tags, used by search engines when indexing\n"; print "pages, for the topics page on this board using the text entry boxes below.\n"; print "Do not use HTML or Discus formatting codes in your META tags.\n"; print "To learn more about how to use META tags, consult your favorite search\n"; print "engine.

\n"; @metatags = grep(/^\n"; print "

$fs", "Description:|; print "VALUE=\"$1\""; } print ">
$fs", "Key Words:|; print "VALUE=\"$1\""; } print ">
$fs", "Robots:|; print "VALUE=\"$1\""; } print ">

\n"; print " Apply to all pages on board

\n"; print "\n"; print "

\n"; print "
\n"; print "

Templates and Structure

\n"; print "
\n"; print "
$fs"; print "The options in this section allow you to regenerate pages based on new\n"; print "templates that you design and to update the index files for your board.\n"; print "Be patient while waiting for these functions.\n"; print "The page may appear to reload several times and the process may take a while\n"; print "depending on the size of your board. This is normal.

\n"; print "

Topic Selection:

    \n"; print "Select topic for operation (unless you have a specific reason to do otherwise,\n"; print "choose "All Topics"):

    \n"; print "

\n"; print "

Index Board

    \n"; print "The board index keeps track of the topic structure for increased performance\n"; print "in many board functions. You should reindex your board only if you are\n"; print "upgrading to a new version or if your board index has become corrupted.

    \n"; print "\n"; print "\n"; print "

\n"; print "

Search Index

    \n"; print "Condensed versions of posts made are stored for use by the keyword search\n"; print "engine. These lists can be regenerated at any time, but this operation is\n"; print "potentially time consuming.

    \n"; print "\n"; print "

\n"; print "

Subtopic/Message Templates

    \n"; print "The lists of subtopics and messages on your board can be regenerated according to the\n"; print "subtopics.conf and messages.conf configuration files, respectively. This can be safely done at any time,\n"; print "but is potentially time consuming.

    \n"; print "\n"; print "

\n"; print "

Topic Template

    \n"; print "The topic list on the front page of your board can be regenerated according to the\n"; print "topics.conf configuration file. This can be safely done at any time.

    \n"; print "\n"; print "

\n"; print "

Page Templates

\n"; print "\n"; print "\n"; print "

\n"; print "
\n"; print "\n"; exit(0); } #---SEPARATOR---# #REQ:get_number #REQ:new_file #REQ:topic_format #REQ:webtags #REQ:change_about_message #REQ:change_board_colors sub add_topic { my ($new_topic, $new_topic_group, $privs, $templ, $topic_unformatted, $descr, $descr_format) = @_; my ($topic_number,$topic_name,$me_name,$num,$dt,$lm,@main,$group); my ($main_line,$str,$time,$posted, $num_local); $num_local = &get_number; &lock("add_topic", "$admin_dir/posting.txt"); open (FILE, ">>$admin_dir/posting.txt"); print FILE "$num_local:", ":$new_topic_group:$new_topic_group:\n" if $privs ne "public"; print FILE "$num_local:~:$new_topic_group:$new_topic_group:\n" if $privs eq "public"; close (FILE); &unlock("add_topic", "$admin_dir/posting.txt"); &lock("add_topic", "$admin_dir/security.txt"); open (FILE, ">>$admin_dir/security.txt"); print FILE "$num_local:~:::\n"; close (FILE); &unlock("add_topic", "$admin_dir/security.txt"); $group = $new_topic_group; mkdir ("$message_dir/$num_local",oct($perms0777)) || &error_message("Directory Creation Error", "Could not create new directory for this topic! (System returned the error: '$!'.) If you are running unix, check that permissions on the 'messages' subdirectory are 0777 (rwxrwxrwx). If you're on NT, the system administrator needs to make the 'messages' directory be writable to the WWW server."); chmod (oct($perms0777), "$message_dir/$num_local"); open (FILE, ">$admin_dir/msg_index/$num_local-tree.txt") || &log_error("src-board-subs-1", "add_topic", "Could not create tree subdirectory [$!]"); print FILE "0\t$num_local\t$num_local\t0\t", &escape($new_topic), "\tSublist\t$new_topic_group\t0\thidden=0;icons=1\t", time, "\t\t\n" if $templ ne "yes"; print FILE "0\t$num_local\t$num_local\t0\t", &escape($new_topic), "\tSublistCreateAbout\t$new_topic_group\t0\thidden=0;icons=1\t", time, "\t\t\n" if $templ eq "yes"; close (FILE); chmod (oct($perms0666), "$admin_dir/msg_index/$num_local-tree.txt"); &lock("add_topic", "$admin_dir/tree.txt"); open (FILE, ">>$admin_dir/tree.txt"); print FILE "0\t$num_local\t$num_local\t0\t", &escape($new_topic), "\tSublist\t$new_topic_group\t0\thidden=0;icons=1\t", time, "\t\t\n" if $templ ne "yes"; print FILE "0\t$num_local\t$num_local\t0\t", &escape($new_topic), "\tSublistCreateAbout\t$new_topic_group\t0\thidden=0;icons=1\t", time, "\t\t\n" if $templ eq "yes"; close (FILE); &unlock("add_topic", "$admin_dir/tree.txt"); open (LOG, ">$admin_dir/msg_index/$num_local-log.txt") || &error_message("Create Topic Error", "Could not create new log file in $admin_dir/msg_index."); close (LOG); open (SEARCH, ">$admin_dir/msg_index/$num_local-search.txt") || &error_message("Create Topic Error", "Could not create new search index file in $admin_dir/msg_index."); close (SEARCH); chmod (oct($perms0666), "$admin_dir/msg_index/$num_local-log.txt"); chmod (oct($perms0666), "$admin_dir/msg_index/$num_local-search.txt"); mkdir ("$admin_dir/msg_index/$num_local",oct($perms0777)) || &error_message("Directory Creation Error", "Could not create new directory for this topic! (System returned the error: '$!'.) If you are running unix, check that permissions on the 'msg_index' subdirectory are 0777 (rwxrwxrwx). If you're on NT, the system administrator needs to make the 'msg_index' directory writable to your WWW server."); $topic_number = $num_local; $topic_name = $new_topic; $me_name = $new_topic; $dt = time; &new_file($num_local,$num_local,0,$new_topic_group,$new_topic,"SublistCreateAbout","","icons=1;hidden=0") if $templ eq "yes"; &new_file($num_local,$num_local,0,$new_topic_group,$new_topic,"Sublist","","icons=1;hidden=0") if $templ ne "yes"; if ($templ) { $message_hold = $L{WELCOME_TO_TOPIC}; $message_hold =~ s/\%topicname/$topic_unformatted/g; $message = &webtags($message_hold); &change_about_message("$message_dir/$num_local/$num_local.$ext", $message_hold, $message); } open (BLANKINDEX, ">$message_dir/$num_local/index.html"); close (BLANKINDEX); chmod (oct($perms0666), "$message_dir/$num_local/index.html"); $url = "$message_url/$num_local/$num_local.$ext"; $url .= "?$dt" if !$noqm; &lock("add_topic", "$message_dir/$board_topics_file"); open(MAIN_1, "$message_dir/$board_topics_file") || &error_message("File Error", "Could not open main topics file ($board_topics_file)."); @main = ; close(MAIN_1); $posted = 0; $count = 0; open(MAIN_1, ">$message_dir/$board_topics_file") || &error_message("File Error", "Could not write main topics file ($board_topics_file)."); foreach $main_line (@main) { if ($main_line =~ // && $posted == 0) { $posted = 1; $str = &topic_format($num_local, $topic_name, $url, time, $new_topic_group, $descr_format, 0, $count-1); $main_line = join("", $str, $main_line); print MAIN_1 $main_line; } elsif ($main_line =~ m||) { $count += 1 if $main_line !~ m||; print MAIN_1 $main_line; } elsif ($main_line =~ m||) { next; } elsif ($main_line =~ m||) { print MAIN_1 "", &escape($descr), "\n"; print MAIN_1 $main_line; } else { print MAIN_1 $main_line; } } close(MAIN_1); &unlock("add_topic", "$message_dir/$board_topics_file"); &change_board_colors("*", "", "", "", "", "", "", "", "", 1); return $num_local; } #---SEPARATOR---# #REQ:change_board_colors sub remove_topic { my ($remove_number) = @_; my (@lines,$line,$filenumber,$topic_number,%eee,@r); @r = split(/,/, $remove_number); undef %eee; foreach $line (@r) { $eee{$line} = 1; } &lock("remove_topic", "$message_dir/$board_topics_file"); open(MAIN_1, "$message_dir/$board_topics_file") || &error_message("File Error", "Could not open main topics file ($board_topics_file)."); @lines = ; close(MAIN_1); open(MAIN_1, ">" . "$message_dir/$board_topics_file") || &error_message("File Error", "Could not write main topics file ($board_topics_file)."); foreach $line (@lines) { if ($line =~ //) { print MAIN_1 $line if (!$eee{$1}); } elsif ($line =~ //) { print MAIN_1 $line if (!$eee{$1}); } elsif ($line =~ //) { print MAIN_1 $line if (!$eee{$1}); } else { print MAIN_1 $line; } } close (MAIN_1); &unlock("remove_topic", "$message_dir/$board_topics_file"); &change_board_colors("*", "", "", "", "", "", "", "", "", 1); undef %nuked; foreach $key (keys(%eee)) { if (-e "$message_dir/$key") { $dir = "$message_dir/$key"; } else { $dir = "$secdir/$key"; } $remove_number = $key; if (opendir(DIR, $dir)) { while ($f = readdir(DIR)) { if ($f !~ m|^(\d+)\.$ext$|) { $nuked{$f} = 1; } unlink ("$dir/$f"); } closedir(DIR); rmdir("$dir/$f"); } $dir = "$admin_dir/msg_index/$remove_number"; opendir(DIR, "$dir"); while ($f = readdir(DIR)) { unlink ("$dir/$f"); } closedir(DIR); rmdir("$admin_dir/msg_index/$remove_number"); unlink("$admin_dir/msg_index/$remove_number-search.txt"); unlink("$admin_dir/msg_index/$remove_number-log.txt"); &lock("remove_topic", "$admin_dir/posting.txt"); open (POSTING, "$admin_dir/posting.txt"); @posting = ; close (POSTING); @posting = grep(!/^$remove_number:/, @posting); open (POSTING, ">$admin_dir/posting.txt"); print POSTING @posting; close (POSTING); &unlock("remove_topic", "$admin_dir/posting.txt"); &lock("remove_topic", "$admin_dir/postoptions.txt"); open (POSTING, "$admin_dir/postoptions.txt"); @posting = ; close (POSTING); @posting = grep(!/^$remove_number:/, @posting); open (POSTING, ">$admin_dir/postoptions.txt"); print POSTING @posting; close (POSTING); &unlock("remove_topic", "$admin_dir/postoptions.txt"); &lock("remove_topic", "$admin_dir/security.txt"); open (READING, "$admin_dir/security.txt"); @reading = ; close (READING); @reading = grep(!/^$remove_number:/, @reading); open (READING, ">$admin_dir/security.txt"); print READING @reading; close (READING); &unlock("remove_topic", "$admin_dir/security.txt"); undef %posts_nuked; unlink("$admin_dir/msg_index/$remove_number-tree.txt"); } &lock("remove_topic", "$admin_dir/tree.txt"); open (TREE, "$admin_dir/tree.txt"); @tree = ; close (TREE); foreach $line (@tree) { @c = split(/\t/, $line); $line = "" if $eee{$c[1]} == 1; } @tree = grep(/\S/, @tree); open (TREE, ">$admin_dir/tree.txt"); print TREE @tree; close (TREE); &unlock("remove_topic", "$admin_dir/tree.txt"); &lock("remove_topic", "$admin_dir/msg_index/attach-mgr.txt"); open (FILE, "$admin_dir/msg_index/attach-mgr.txt"); @file = ; close (FILE); foreach $line (@file) { ($num, $file) = split(/\s+/, $line); $line = "" if $nuked{$file} == 1; } @file = grep(/\S/, @file); open (FILE, ">$admin_dir/msg_index/attach-mgr.txt"); print FILE @file; close (FILE); &unlock("remove_topic", "$admin_dir/msg_index/attach-mgr.txt"); } #---SEPARATOR---# #REQ:topic_format #REQ:regenerate_board sub rename_topic { my ($topic_number_in, $newname) = @_; my ($line_top,$url,$str,@lines_top); &lock("rename_topic", "$admin_dir/msg_index/$topic_number_in-tree.txt"); open (FILE, "$admin_dir/msg_index/$topic_number_in-tree.txt"); @file = ; close (FILE); foreach $line (@file) { @c = split(/\t/, $line); if ($c[1] == $topic_number_in && $c[2] == $topic_number_in) { $c[4] = &escape($newname); $line = join("\t", @c); last; } } open (FILE, ">$admin_dir/msg_index/$topic_number_in-tree.txt"); print FILE @file; close (FILE); &unlock("rename_topic", "$admin_dir/msg_index/$topic_number_in-tree.txt"); &lock("rename_topic", "$admin_dir/tree.txt"); open (FILE, "$admin_dir/tree.txt"); @file = ; close (FILE); foreach $line (@file) { @c = split(/\t/, $line); if ($c[1] == $topic_number_in && $c[2] == $topic_number_in) { $c[4] = &escape($newname); $line = join("\t", @c); last; } } open (FILE, ">$admin_dir/tree.txt"); print FILE @file; close (FILE); &unlock("rename_topic", "$admin_dir/tree.txt"); $counter = 0; &lock("rename_topic", "$message_dir/$board_topics_file"); open(MAIN_1, "$message_dir/$board_topics_file") || &error_message("File Error", "Could not open main topics file ($board_topics_file)."); @lines_top = ; close(MAIN_1); $count = 0; foreach $line (@lines_top) { if ($line =~ m||) { $count += 1 if $line !~ m||; if ($1 == $topic_number_in) { if ($line =~ m|(.*)|) { $descr = $1; } else { $descr = ""; } $url = "$message_url/$topic_number_in/$topic_number_in.$ext" if -e "$message_dir/$topic_number_in"; $url .= "$script_url/board-auth.$cgi_extension?file=/$topic_number_in/$topic_number_in.$ext&lm=$lm" if !-e "$message_dir/$topic_number_in/$topic_number_in.$ext"; $url .= "?$c[8]" if (!$noqm && -e "$message_dir/$num/$num.$ext"); $line = &topic_format($topic_number_in, $newname, $url, $c[9], "\u$c[6]", $descr, $c[7], $count); } } } open(MAIN_1, ">$message_dir/$board_topics_file") || &error_message("File Error", "Could not write main topics file ($board_topics_file)."); print MAIN_1 @lines_top; close (MAIN_1); &unlock("rename_topic", "$message_dir/$board_topics_file"); &lock("rename_topic", "$message_dir/$topic_number_in/$topic_number_in.$ext"); my ($head, $color, $lm, $ann, $ann_src, $sublist, $about, $about_src, $message, $message_src, $description_src) = &get_page($topic_number_in, $topic_number_in); @hd = split(/\n/, $head); foreach $line (@hd) { if ($line =~ m|"; } elsif ($line =~ m|"; } } $head = join("\n", @hd); &set_page($topic_number_in, $topic_number_in, $head, $color, $lm, $ann, $ann_src, $sublist, $about, $about_src, $message, $message_src, $description_src); &unlock("rename_topic", "$message_dir/$topic_number_in/$topic_number_in.$ext"); ®enerate_board("Renaming Topic", "$cgiurl2?username=$superuser&action=rename_topic_action&topic=$topic_number_in", "$cgiurlm?username=$superuser&cmd=board_mgr", $topic_number_in, 1); } #---SEPARATOR---# #REQ:change_board_colors sub reorder_topics { my ($array) = @_; my ($topic_number,@ascending,$line,@lines,%newarray,$flag,$key,%printed); @ascending = split(/:/, $array); &lock("reorder_topics", "$message_dir/$board_topics_file"); open(MAIN_1, "$message_dir/$board_topics_file") || &error_message("File Error", "Could not open main topics file ($board_topics_file)."); @lines = ; close(MAIN_1); undef %printed; foreach $line (@lines) { if ($line =~ //) { $newarray{$1} = $line; $printed{$1} = 0; } elsif ($line =~ m||) { $descrarray{$1} = $line; } } open(MAIN_1, ">" . "$message_dir/$board_topics_file") || &error_message("File Error", "Could not write main topics file ($board_topics_file)."); $flag = 0; foreach $line (@lines) { if ($line =~ // && $flag == 0) { $flag = 1; foreach $key (@ascending) { print MAIN_1 $newarray{$key}; print MAIN_1 $descrarray{$key}; $printed{$key} = 1; } foreach $key (keys(%printed)) { print MAIN_1 $newarray{$key} if $printed{$key} == 0; print MAIN_1 $descrarray{$key} if $printed{$key} == 0; } } elsif ($line =~ //) { $flag = 0; print MAIN_1 $line; } elsif ($flag == 0) { print MAIN_1 $line; } } close (MAIN_1); &unlock("reorder_topics", "$message_dir/$board_topics_file"); &change_board_colors("*", "", "", "", "", "", "", "", "", 1); undef %T_Items; &lock("reorder_topics", "$admin_dir/tree.txt"); open (FILE, "$admin_dir/tree.txt"); @file = ; close (FILE); foreach $line (@file) { @c = split(/\t/, $line); $T_Items{$c[1]} .= $line; } open (FILE, ">$admin_dir/tree.txt"); foreach $key (@ascending) { print FILE $T_Items{$key}; } close (FILE); &unlock("reorder_topics", "$admin_dir/tree.txt"); } #---SEPARATOR---# sub change_main_message { my ($newmessage, $source, $hr) = @_; my ($line, @lines,$messageflag, $flag); &lock("change_main_message", "$message_dir/$board_topics_file"); open(MAIN_1, "$message_dir/$board_topics_file") || &error_message("File Error", "Could not open main topics file ($board_topics_file)."); @lines = ; close(MAIN_1); open(MAIN_1, ">$message_dir/$board_topics_file") || &error_message("File Error", "Could not write main topics file ($board_topics_file)."); $messageflag = 0; foreach $line (@lines) { if ($line =~ m||) { $flag = 1; print MAIN_1 $line; print MAIN_1 "
\n" if $hr; print MAIN_1 $newmessage . "\n"; } elsif ($line =~ m||) { print MAIN_1 $line; $flag = 0; } elsif ($flag == 1) { if ($line =~ /\n"; } } else { print MAIN_1 $line; } } close (MAIN_1); &unlock("change_main_message", "$message_dir/$board_topics_file"); } #---SEPARATOR---# #REQ:topic_format #REQ:regenerate_board #REQ:change_board_colors sub change_topic_group { my ($topic_number, $new_group, $smart) = @_; my ($line, @lines,$old_group); @x = split(/,/, $topic_number); undef %tn; undef %lin; foreach $x (@x) { $tn{$x} = 1; } &lock("change_topic_group", "$admin_dir/tree.txt"); open (FILE, "$admin_dir/tree.txt"); @file = ; close (FILE); foreach $line (@file) { @c = split(/\t/, $line); if ($tn{$c[1]} == 1) { $c[6] = $new_group; $line = join("\t", @c); $lin{$c[1]} = $line if ($c[1] == $c[2]); } } open (FILE, ">$admin_dir/tree.txt"); print FILE @file; close (FILE); &unlock("change_topic_group", "$admin_dir/tree.txt"); foreach $topic_number (@x) { &lock("change_topic_group", "$admin_dir/msg_index/$topic_number-tree.txt"); open (FILE, "$admin_dir/msg_index/$topic_number-tree.txt"); @file = ; close (FILE); foreach $line (@file) { @c = split(/\t/, $line); if ($tn{$c[1]} == 1) { if ($c[5] !~ m|^LINK:|) { $c[6] = $new_group; $line = join("\t", @c); } } } open (FILE, ">$admin_dir/msg_index/$topic_number-tree.txt"); print FILE @file; close (FILE); &unlock("change_topic_group", "$admin_dir/msg_index/$topic_number-tree.txt"); } &change_board_colors("*", "", "", "", "", "", "", "", "", 1); if ($smart) { foreach $topic_number (keys(%tn)) { &extract("//$topic_number/$topic_number.$ext"); $oldgroup = $owner; @files = ('posting'); push (@files, 'security') if $pro; foreach $f (@files) { &lock("change_topic_group", "$admin_dir/$f.txt"); open (FILE, "$admin_dir/$f.txt"); @file = ; close (FILE); foreach $line (@file) { if ($line =~ m|^$topic_number:([^:]*):([^:]*):([^:]*):|) { ($public, $users, $moderators, $after) = ($1, $2, $3, $'); @u = split(/,/, $users); if (scalar(@u) > 1 && grep(/^$oldgroup$/, @u)) { $users .= ",$new_group" if !grep(/^$new_group$/, @u); } elsif ($users eq "$oldgroup") { $users = "$new_group"; } @u = split(/,/, $moderators); if (scalar(@u) > 1 && grep(/^$oldgroup$/, @u)) { $moderators .= ",$new_group" if !grep(/^$new_group$/, @u); } elsif ($moderators eq "$oldgroup") { $moderators = "$new_group"; } $line = join(":", $topic_number, $public, $users, $moderators, $after); } } open (FILE, ">$admin_dir/$f.txt"); print FILE @file; close (FILE); &unlock("change_topic_group", "$admin_dir/$f.txt"); } } } ®enerate_board("Changing Topic Group", "$cgiurl2?username=$superuser&action=change_topic_group_action&topic=" . join(",", keys(%tn)), "$cgiurlm?username=$superuser&cmd=board_mgr", join(",", keys(%tn)), 2, $new_group); } #---SEPARATOR---# sub save_top_meta_tags { my ($descr, $keywords, $robots) = @_; &lock("save_top_meta_tags", "$message_dir/$board_topics_file"); open (MAIN, "$message_dir/$board_topics_file"); @main =
; close (MAIN); $descr =~ s/"//g; $keywords =~ s/"//g; $robots =~ s/"//g; foreach $line (@main) { if ($line =~ m|^\n"; } elsif ($line =~ m|^\n"; } elsif ($line =~ m|^\n"; } } open (MAIN, ">$message_dir/$board_topics_file"); print MAIN @main; close (MAIN); &unlock("save_top_meta_tags", "$message_dir/$board_topics_file"); } #---SEPARATOR---# #REQ:regenerate_board sub save_topic_meta_tags { my ($topic, $descr, $keywords, $robots, $flag) = @_; $descr =~ s/"//g; $keywords =~ s/"//g; $robots =~ s/"//g; if ($flag == 1) { my ($head, $color, $lm, $ann, $ann_src, $sublist, $about, $about_src, $message, $message_src, $description_src) = &get_page($topic, $topic); $meta_description = $descr; $meta_keywords = $keywords; $meta_robots = $robots; &set_page($topic, $topic, $head, $color, $lm, $ann, $ann_src, $sublist, $about, $about_src, $message, $message_src, $description_src, $template, $addfile); ®enerate_board("Saving META Tags", "$cgiurl2?action=save_specific_meta_tags&username=$superuser&topic=$topic", "$cgiurlm?cmd=board_mgr&username=$superuser", $topic, 3, join("\t", $meta_description, $meta_keywords, $meta_robots)); } else { ®enerate_board("Saving META Tags", "$cgiurl2?action=save_topic_meta&username=$superuser&topic=$topic", "$cgiurlm?cmd=board_mgr&username=$superuser", $topic, 3, join("\t", $descr, $keywords, $robots)) if $flag == 0; ®enerate_board("Saving META Tags", "$cgiurl2?action=save_specific_meta_tags&username=$superuser&topic=$topic", "$cgiurlm?cmd=board_mgr&username=$superuser", $topic, 3, join("\t", $descr, $keywords, $robots)) if $flag == 2; } } #---SEPARATOR---# #REQ:change_board_colors sub modify_topic_display { my ($topic, $hidden, $icons) = @_; my ($topic_name, @tree, $line, $props); $topic =~ s/\D//g; &error_message("Invalid Topic", "Topic number [$topic] does not appear to exist") if ((!-e "$secdir/$topic" && !-e "$message_dir/$topic") || $topic == 0); &lock("modify_topic_display", "//$topic/$topic.$ext"); my ($head, $color, $lm, $announce, $announce_src, $sublist, $about, $about_src, $message, $message_src, $description_source) = &get_page($topic, $topic); $head =~ m||; $topic_name_hold = $2; $hidden =~ s/\D//g; $icons =~ s/\D//g; $DP{'hidden'} = $hidden; $DP{'icons'} = $icons; &set_page($topic, $topic, $head, $color, $lm, $announce, $announce_src, $sublist, $about, $about_src, $message, $message_src, $description_source); &unlock("modify_topic_display", "//$topic/$topic.$ext"); &lock("modify_topic_display", "$admin_dir/msg_index/$topic-tree.txt"); open (TREE, "$admin_dir/msg_index/$topic-tree.txt"); @tree = ; close (TREE); @c = split(/\t/, $tree[0]); undef @props; foreach $key (keys(%DP)) { push (@props, "$key=$DP{$key}"); } $props = join(";", @props); $c[8] = $props; $tree[0] = join("\t", @c); open (TREE, ">$admin_dir/msg_index/$topic-tree.txt"); print TREE @tree; close (TREE); &unlock("modify_topic_display", "$admin_dir/msg_index/$topic-tree.txt"); &lock("modify_topic_display", "$admin_dir/tree.txt"); open (TREE, "$admin_dir/tree.txt"); @tree = ; close (TREE); foreach $line (@tree) { @c = split(/\t/, $line); if ($c[1] == $topic) { $c[8] = $props; $line = join("\t", @c); last; } } open (TREE, ">$admin_dir/tree.txt"); print TREE @tree; close (TREE); &unlock("modify_topic_display", "$admin_dir/tree.txt"); &change_board_colors("*", "", "", "", "", "", "", "", "", 1); return $topic_name_hold; } #---SEPARATOR---# sub change_title_message { my ($newmessage, $source, $hr) = @_; my ($line, @lines,$messageflag, $flag); &lock("change_title_message", "$message_dir/$board_topics_file"); open(MAIN_1, "$message_dir/$board_topics_file") || &error_message("File Error", "Could not open main topics file ($board_topics_file)."); @lines = ; close(MAIN_1); open(MAIN_1, ">" . "$message_dir/$board_topics_file") || &error_message("File Error", "Could not write main topics file ($board_topics_file)."); $messageflag = 0; foreach $line (@lines) { if ($line =~ m||) { $flag = 1; print MAIN_1 $line; print MAIN_1 $newmessage . "\n"; } elsif ($line =~ m||) { print MAIN_1 "
\n" if $hr; print MAIN_1 $line; $flag = 0; } elsif ($flag == 1) { if ($line =~ /\n"; } } else { print MAIN_1 $line; } } close (MAIN_1); &unlock("change_title_message", "$message_dir/$board_topics_file"); } #---SEPARATOR---# #REQ:topic_format #REQ:change_board_colors sub save_description { my ($topic_number, $formatted, $escaped_source) = @_; &lock("save_description", "$message_dir/$board_topics_file"); open (TOP, "$message_dir/$board_topics_file"); @top = ; close (TOP); $flag1 = 0; $flag2 = 0; $count = 0; foreach $line (@top) { if ($line =~ m||) { $line = ""; } elsif ($line =~ m||) { $line = "$escaped_source\n"; $flag2 = 1; } elsif ($line =~ m||) { $count += 1; if ($1 == $topic_number) { undef $found; open (FILE, "$admin_dir/tree.txt"); @file = ; close (FILE); foreach $line_tree (@file) { @c = split(/\t/, $line_tree); if ($c[1] == $topic_number && $c[2] == $topic_number) { $found = 1; last; } } if ($found == 0) { &extract("//$topic_number/$topic_number.$ext"); $c[4] = &escape($topic_name); $c[6] = $owner; $c[7] = ""; } $url = "$message_url/$topic_number/$topic_number.$ext" if -e "$message_dir/$topic_number"; $url .= "$script_url/board-auth.$cgi_extension?file=/$topic_number/$topic_number.$ext&lm=$lm" if !-e "$message_dir/$topic_number/$topic_number.$ext"; $url .= "?$lm" if (!$noqm && -e "$message_dir/$num/$num.$ext"); $line = &topic_format($topic_number, &unescape($c[4]), $url, $c[9], $c[6], $formatted, $c[7], $count); } } } if ($flag2 == 0) { foreach $line (@top) { if ($line =~ m|