###############################################################################
# RemoveTopic.pl                                                             #
###############################################################################
# YaBB: Yet another Bulletin Board                                            #
# Open-Source Community Software for Webmasters                               #
# Version:        YaBB 2 RC 3                                                 #
# Released:       June 20, 2005                                               #
# Distributed by: http://www.yabbforum.com                                    #
# =========================================================================== #
# Copyright (c) 2000-2005 YaBB (www.yabbforum.com) - All Rights Reserved.     #
# Software by: The YaBB Development Team                                      #
#              with assistance from the YaBB community.                       #
# Sponsored by: Xnull Internet Media, Inc. - http://www.ximinc.com            #
#               Your source for web hosting, web design, and domains.         #
###############################################################################

$removethreadplver = 'YaBB 2 RC 3 $Revision: 1.23 $';
if($action eq 'detailedversion') { return 1; }


#require "$sourcedir/SetStatus.pl";
#require "$sourcedir/MoveTopic.pl";


sub RemoveThread {
	my( $threadline, $threadmessagecount, $a, $dummy, $amfn, @messages, @message );
	$thread = $INFO{'thread'};
	if ($thread =~ m~/~){ &fatal_error($maintxt{'399'}); }
	if ($thread =~ m~\\~){ &fatal_error($maintxt{'400'}); }
	if(!$iammod && !$iamadmin && !$iamgmod && !$iamposter) {
		&fatal_error("$maintxt{'73'}");
	}
	if (!$currentboard){
		&MessageTotals("load",$thread);
		$currentboard = ${$thread}{'board'};
	}
	$threadline='';
	fopen(BOARDFILE, "+<$boardsdir/$currentboard.txt", 1) || &fatal_error("7543 $maintxt{'23'} $currentboard.txt", 1);
		seek BOARDFILE, 0, 0;
		my @buffer = <BOARDFILE>;
		truncate BOARDFILE, 0;
		for ($a = 0; $a < @buffer; $a++) {
			if ( $buffer[$a] =~ m~\A$thread\|~ ) {
				$threadline=$buffer[$a];
				$buffer[$a] = "";
				last;
			}
		}
		seek BOARDFILE, 0, 0;
		print BOARDFILE @buffer;
	fclose(BOARDFILE);

	if ($threadline) {
		$threadmessagecount = $mreplies+1;

		fopen(FILE, "$datadir/$thread.txt") || &fatal_error("$maintxt{'23'} $thread.txt", 1);
		@messages = <FILE>;
		fclose(FILE);
		chomp @messages;

		$threadmessagecount=@messages;

		&BoardTotals("load",$currentboard);
		${$uid.$currentboard}{'threadcount'}--;
		${$uid.$currentboard}{'messagecount'} -= $threadmessagecount;
		&BoardTotals("update",$currentboard);
		&BoardSetLastInfo($currentboard);
		&RemoveThreadFiles($thread);

		for ($a = 0; $a <@messages; $a++) {
			@message = split(/\|/, $messages[$a]);
			if ($message[12] ne "") { $mfn = $message[12]; last; }
		}
		undef @messages;

		if ($mfn) {
			# remove attachments on old topics if present
			fopen(AMP, "+<$vardir/attachments.txt",1 ) || &fatal_error("$txt{'23'} $vardir/attachments.txt", 1);
			seek AMP, 0, 0;
			my @buffer = <AMP>;
			truncate AMP, 0;
			for ($a = 0; $a < @buffer; $a++) {
				if ( $buffer[$a] =~ m~\A$thread\|~ ) {
					chomp $buffer[$a];
					($dummy, $dummy, $dummy, $dummy, $dummy, $dummy, $dummy, $amfn) = split(/\|/,$buffer[$a]);
					unlink("$uploaddir/$amfn");
					$buffer[$a] = "";
				}
			}
			seek AMP, 0, 0;
			print AMP @buffer;
			fclose(AMP);
		}
	}
	
	&dumplog($currentboard);

	if($INFO{'moveit'} != 1) { 
		$yySetLocation = qq~$scripturl?board=$currentboard~;
		&redirectexit;
	}
}


sub DeleteThread {
	require "$sourcedir/MoveTopic.pl";
	$delete = $FORM{'thread'};

	if (!$currentboard){
		&MessageTotals("load",$delete);
		$currentboard = ${$delete}{'board'};
	}
	if ($FORM{'ref'} eq "favorites"){
		$INFO{'ref'} = "delete";  	
		require "$sourcedir/Favorites.pl";
		&RemFav($delete);
	}
	if ((!$iamadmin || !$adminbin) && $binboard ne "" && $currentboard ne $binboard) {  
		$deleteboard = $binboard; 
		$INFO{'moveit'} = 1; 
		$INFO{'thread'} = $delete;  
		&MoveThread2;  
	} 
	if (($iamadmin && ($adminbin || $currentboard eq $binboard)) || $binboard eq ""){
		$INFO{'moveit'} = 1;
		$INFO{'thread'} = $delete;  
		&RemoveThread;
	}
	$yySetLocation = qq~$scripturl?board=$currentboard~;
	&redirectexit;
}


sub Multi {
	require "$sourcedir/SetStatus.pl";
	require "$sourcedir/MoveTopic.pl";

	if ($FORM{'allpost'} =~ m/all/i) {
		&BoardTotals("load",$currentboard);
		$mess_loop = ${$uid.$currentboard}{'threadcount'};
	} else {
		$mess_loop = $maxdisplay;
	}

	while ($mess_loop >= $count) {
		my($lock, $stick, $move, $delete, $ref) = "";

		if ( $FORM{'action'} eq ''){
			$lock   = $FORM{"lockadmin$count"};
			$stick  = $FORM{"stickadmin$count"};
			$move   = $FORM{"moveadmin$count"};
			$delete = $FORM{"deleteadmin$count"};
		}
		elsif ( $FORM{'action'} eq 'lock' )   { $lock   = $FORM{"admin$count"}; }
		elsif ( $FORM{'action'} eq 'stick' )  { $stick  = $FORM{"admin$count"}; }
		elsif ( $FORM{'action'} eq 'move' )   { $move   = $FORM{"admin$count"}; }
		elsif ( $FORM{'action'} eq 'delete' ) { $delete = $FORM{"admin$count"}; }

		if ( $FORM{'ref'} eq "favorites" ) { 
			$ref = qq~$scripturl?action=favorites~; 
		} else {
			$ref = qq~$scripturl?board=$currentboard~;
		}

		if ($lock ne ""){
			$INFO{'moveit'} = 1; 
			$INFO{'thread'} = $lock;  	
			$INFO{'action'} = "lock";  	
			$INFO{'ref'} = $ref;  	
			&SetStatus;
		}
		if ($stick ne ""){
			$INFO{'moveit'} = 1; 
			$INFO{'thread'} = $stick; 
			$INFO{'action'} = "sticky";  	
			$INFO{'ref'} = $ref;  	
			&SetStatus;
		}
		if ($move ne "") {  
			$INFO{'moveit'} = 1; 
			$INFO{'thread'} = $move;  
			&MoveThread2;  
		} 

		if ($delete ne "") {  
			if (!$currentboard){
				&MessageTotals("load",$delete);
				$currentboard = ${$delete}{'board'};
			}
			if ($FORM{'ref'} eq "favorites"){
				$INFO{'ref'} = "delete";  	
				require "$sourcedir/Favorites.pl";
				&RemFav($delete);
			}
		}
		if ($delete ne "" && (!$iamadmin || !$adminbin) && $binboard ne "" && $currentboard ne $binboard) {  
			$deleteboard = $binboard; 
			$INFO{'moveit'} = 1; 
			$INFO{'thread'} = $delete;  
			&MoveThread2;  
		} 
		if (($delete ne "" && $iamadmin && ($adminbin || $currentboard eq $binboard)) || $binboard eq ""){
			$INFO{'moveit'} = 1;
			$INFO{'thread'} = $delete;  
			&RemoveThread;
		}
		$count++;
	}
	$yySetLocation = qq~$scripturl?board=$currentboard~;
	&redirectexit;
}

1;
