###############################################################################
# Favor.pl                                                                   #
###############################################################################
# YaBB: Yet another Bulletin Board                                            #
# Open-Source Community Software for Webmasters                               #
# Version:        YaBB 1 Gold - SP 1.2                                        #
# Released:       December 2001; Updated January 27, 2003                     #
# Distributed by: http://www.yabbforum.com                                    #
# =========================================================================== #
# Copyright (c) 2000-2003 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            #
###############################################################################

$favorplver = "1 Gold - SP 1.2";

sub Favor {
	if( $currentboard eq '' ) { &fatal_error($txt{'1'}); }
	if($username eq "Guest") { &fatal_error("$txt{'138'}"); }

	# Check, if User already has this as a Favorite
	fopen(FILE, "$datadir/$INFO{'thread'}.fav");
	@names = <FILE>;
	fclose(FILE);

	$isonlist = 0;
	foreach $curname (@names) {
		$curname =~ s/[\n\r]//g;
		if($username eq "$curname") { $isonlist = 1; }
	}

	if ($isonlist){
	$yymain .= qq~
<table border="0" width="100%" cellspacing="1" bgcolor="$color{'bordercolor'}" class="bordercolor">
  <tr>
    <td class="titlebg" bgcolor="$color{'titlebg'}"><font size=2 class="text1" color="$color{'titletext'}"><b>$fav{'9'}</b></font></td>
  </tr><tr>
    <td class="windowbg" bgcolor="$color{'windowbg'}"><font size=2>
    $fav{'2'}<br>
    <b><a href="$cgi;action=favor3;thread=$INFO{'thread'};start=$INFO{'start'}">$txt{'163'}</a> - <a href="$cgi;action=display;num=$INFO{'thread'};start=$INFO{'start'}">$txt{'164'}</a></b>
    </font></td>
  </tr>
</table>
~;
	} else
	{
	$yymain .= qq~
<table border="0" width="100%" cellspacing="1" bgcolor="$color{'bordercolor'}" class="bordercolor">
  <tr>
    <td class="titlebg" bgcolor="$color{'titlebg'}"><font size=2 class="text1" color="$color{'titletext'}"><b>$fav{'9'}</b></font></td>
  </tr><tr>
    <td class="windowbg" bgcolor="$color{'windowbg'}"><font size=2>
    $fav{'3'}<br>
    <b><a href="$cgi;action=favor2;thread=$INFO{'thread'};start=$INFO{'start'}">$txt{'163'}</a> - <a href="$cgi;action=display;num=$INFO{'thread'};start=$INFO{'start'}">$txt{'164'}</a></b>
    </font></td>
  </tr>
</table>
~;
	}
	$yytitle = "$fav{'1'}";
	&template;
	exit;
}

sub Favor2 {
	if( $currentboard eq '' ) { &fatal_error($txt{'1'}); }
	if($username eq 'Guest') { &fatal_error($txt{'138'}); }
	$board = $INFO{'board'};
	$thread = $INFO{'thread'};
	$start = $INFO{'start'} ne '' ? $INFO{'start'} : 9999999;
	fopen(FILE, "$datadir/$thread.fav");
	@names = <FILE>;
	fclose(FILE);

	# if there is only one entry and this is the address which is to remove, remove the file at all

	fopen(FILE, ">$datadir/$thread.fav", 1) || &fatal_error("$txt{'23'} $thread.fav");
	print FILE "$board\n";
	print FILE "$username\n";
	foreach $curname (@names) {
		$curname =~ s/[\n\r]//g;
		if(($username ne "$curname") && ($board ne "$curname")) { print FILE "$curname\n"; }
	}
	fclose(FILE);
	$yySetLocation = qq~$cgi;action=display;num=$thread;start=$start~;
	&redirectexit;
}

sub Favor3 {
	if( $currentboard eq '' ) { &fatal_error($txt{'1'}); }
	if($username eq "Guest") { &fatal_error("$txt{'138'}"); }
	$thread = $INFO{'thread'};
	$start = $INFO{'start'} ne '' ? $INFO{'start'} : 9999999;
	fopen(FILE, "$datadir/$thread.fav");
	@names = <FILE>;
	fclose(FILE);

	# if there is only one entry and this is the address which is to remove, remove the file at all

#	if( $#names eq 0) {
	if( @names == 2) {
		unlink("$datadir/$thread.fav");
	} else
	# make no change with the file
	{
	fopen(FILE, ">$datadir/$thread.fav", 1) || &fatal_error("$txt{'23'} $thread.fav");
	foreach $curname (@names) {
		$curname =~ s/[\n\r]//g;
		if($username ne $curname) { print FILE "$curname\n"; }
	}
	fclose(FILE);
	}
	$yySetLocation = qq~$cgi;action=display;num=$thread;start=$start~;
	&redirectexit;
}

sub Favor4 {
	if($username eq "Guest") { &fatal_error("$txt{'138'}"); }
	my( $variable, $dummy, $dummy2, $threadno, @names, $curname );

	foreach $variable (keys %FORM) {
	 	$dummy = $FORM{$variable};
		($dummy2,$threadno) = split(/-/,$variable);
		if ($dummy2 eq "thread") {

			fopen(FILE, "$datadir/$threadno.fav");
			@names = <FILE>;
			$boardname = $names[0];
			chomp $boardname;
			fclose(FILE);


			# if there is only one entry and this is the address which is to remove, remove the file at all
#			if( $#names eq 0) {
			if( @names <= 2) {
				unlink("$datadir/$threadno.fav");
			} else
			# make no change with the file
			{
			fopen(FILE, ">$datadir/$threadno.fav") || &fatal_error("$txt{'23'} $threadno.fav");
			print FILE "$boardname\n";
			foreach $curname (@names) {
				$curname =~ s/[\n\r]//g;
				if(($username ne $curname) && ($boardname ne $curname)) { print FILE "$curname\n"; }
			}
			fclose(FILE);
			}

		}

	}
	&ShowFavors;
}

sub ShowFavors {
	if($username eq "Guest") { &fatal_error("$txt{'138'}"); }

	my(@dirdata,@datdata,@threadlist,$filename,$entry,@entries,$boardname,$mnum2,$mnum,$dummy,$msub,$mname,$memail,$mdate,$musername,$micon,$mattach,$mip,$mmessage,@messages,@found_number,@found_subject,@found_date,@found_mreplies,@found_views,@found_new,@found_micon,@found_lpost,@found_board,@found_name);

	# Read all .fav-Files and search for username
	opendir (DIRECTORY,"$datadir");
	@dirdata = readdir(DIRECTORY);
	closedir (DIRECTORY);
	@datdata = grep(/fav/,@dirdata);

	# Load Censor List
	&LoadCensorList;
	
	foreach $filename (@datdata) {
		fopen(FILE, "$datadir/$filename");
		@entries = <FILE>;
		fclose(FILE);
		$boardname = $entries[0];
		chomp $boardname;
	        foreach $entry (@entries) {
	        	$entry =~ s/[\n\r]//g;
	        	if ($entry eq $username) {
				($mnum, $dummy) = split(/\./,$filename);

				fopen(FILE, "$boardsdir/$boardname.txt") || &fatal_error("300 $txt{'106'}: $txt{'23'} $currentboard.txt");
				@threadlist = <FILE>;
#				$threadcount = $#threadlist;
				fclose(FILE);
				foreach( @threadlist ) {
					my ($threaddate,$dlp,$new);
					($mnum2, $msub, $mname, $memail, $mdate, $mreplies, $musername, $micon, $mstate) = split( /\|/, $_ );
					if($mnum2 == $mnum) {
						# Set thread class depending on locked status and number of replies.
#						$threadclass = 'thread';
#						if( $mstate == 1 ) { $threadclass = 'locked'; }
#						elsif( $mreplies > 24 ) { $threadclass = 'veryhotthread'; }
#						elsif( $mreplies > 14 ) { $threadclass = 'hotthread'; }
#						elsif( $mstate == 0 ) { $threadclass = 'thread'; }
				
						# Decide if thread should have the "NEW" indicator next to it.
						# Do this by reading the user's log for last read time on thread,
						# and compare to the last post time on the thread.
						$dlp = &getlog($mnum2);
						$threaddate = stringtotime($mdate);
						if( $max_log_days_old && $dlp < $threaddate && $username ne 'Guest' && &getlog("$boardname--mark") < $threaddate ) {
							$new = qq~<img src="$imagesdir/new.gif" alt="$txt{'302'}">~;
						}
						else { $new = ''; }
				
						# Load the current nickname of the account name of the thread starter.
						if( $musername ne 'Guest' && -e "$memberdir/$musername.dat" ) {
							&LoadUser($musername);
							$mname = $userprofile{$musername}->[1] || $mname || $txt{'470'};
							$mname = qq~<a href="$scripturl?action=viewprofile;username=$useraccount{$musername}" alt="$txt{'27'}: $musername">$mname</a>~;
						}
						else {
							$mname ||= $txt{'470'};
						}

						#italicize the subject if notification is on for this user 				
						if(-e "$datadir/$mnum2.mail")  {
							fopen(FILE, "$datadir/$mnum2.mail");
								@starter = <FILE>;
							fclose(FILE);
							foreach $alx (@starter) {
								$alx =~ s/[\n\r]//g;
								if($settings[2] eq "$alx") {$msub = qq~<i>$msub</i>~;}
							}
						}

						# Censor the subject of the thread.
						foreach (@censored) {
							($tmpa,$tmpb) = @{$_};
							$msub =~ s~\Q$tmpa\E~$tmpb~gi;
						}
				
						# Decide how many pages the thread should have.
						$threadlength = $mreplies + 1;
						$pages = '';
						if( $threadlength > $maxmessagedisplay ) {
							$tmpa = 1;
							for( $tmpb = 0; $tmpb < $threadlength; $tmpb += $maxmessagedisplay ) {
								$pages .= qq~<a href="$scripturl?board=$boardname;action=display;num=$mnum2;start=$tmpb">$tmpa</a>\n~;
								++$tmpa;
							}
							$pages =~ s/\n\Z//;
							$pages = qq~<BR><font size="1">&#171; $txt{'139'} $pages &#187;</font>~;
						}
				
						if( fopen(FILE, "$datadir/$mnum2.data") ) {
							$tmpa = <FILE>;
							fclose(FILE);
						}
						elsif( -e "$datadir/$mnum2.data" ) {
							&fatal_error("301 $txt{'106'}: $txt{'23'} $mnum2.data");
						}
						else {
							$tmpa = '0';
						}
				
				
						($views, $lastposter) = split(/\|/, $tmpa);
						if( $lastposter =~ m~\AGuest-(.*)~ ) {
							$lastposter = $1;
						}
						else {
							unless( $lastposter eq $txt{'470'} ) {
								$lastposterid = $lastposter;
								&LoadUser($lastposterid);
								if($userprofile{$lastposter}->[1]) { $lastposter = qq~<a href="$scripturl?action=viewprofile;username=$lastposterid">$userprofile{$lastposter}->[1]</a>~; }
							}
							&LoadUser($lastposter);
						}
						$lastpostername = $lastposter || $txt{'470'};
						$views = $views ? $views - 1 : 0;
						$mydate = &timeformat($mdate);
						push(@found_lpost,$lastpostername);
						push(@found_board,$boardname);
						push(@found_number,$mnum2);
						push(@found_subject,$msub);
						push(@found_date,$mydate);
						push(@found_pages,$pages);
						push(@found_name,$mname);
						push(@found_mreplies,$mreplies);
						push(@found_views,$views);
						push(@found_new,$new);
						push(@found_micon,$micon);

					}
				}
			}
		}
	}

	# Display all Entries
	$yymain .= qq~
<table border="0" width="100%" cellspacing="1" cellpadding="6" bgcolor="$color{'bordercolor'}" class="bordercolor">
 <tr>
  <td bgcolor="$color{'titlebg'}" class="titlebg">
   <img src="$imagesdir/favorite.gif" border="0">&nbsp;<font size="2" color="$color{'titletext'}" class="text1"><b>$fav{'1'}</b></font>
  </td>
 </tr><tr>
  <td align="center" bgcolor="$color{'windowbg'}" class="windowbg">
   <font size=2>
    <br><font size=3><b>$fav{'5'}</b></font><br>
~;

	if (@found_number==0) {
		$yymain .= "$fav{'4'}<br><br>&nbsp;";
	} else {
		foreach (@censored) {
		($tmpa,$tmpb) = @{$_};
		$found_subject[$counter] =~ s~\Q$tmpa\E~$tmpb~gi;
		}
		$yymain .= qq~<form action="$cgi;action=favor4" method=post>
<table border=0 width="100%" cellspacing="0" cellpadding="0" bgcolor="$color{'bordercolor'}" class="bordercolor">
  <tr>
    <td>
    <table cellpadding="4" cellspacing="1" border="0" width="100%">
      <tr>
        <td class="titlebg" bgcolor="$color{'titlebg'}" width="10%" colspan="2"><font size=2>&nbsp;</font></td>
        <td class="titlebg" bgcolor="$color{'titlebg'}" width="48%"><font size=2 class="text1" color="$color{'titletext'}"><b>$txt{'70'}</b></font></td>
        <td class="titlebg" bgcolor="$color{'titlebg'}" width="14%" align="center"><font size=2 class="text1" color="$color{'titletext'}"><b>$txt{'109'}</b></font></td>
        <td class="titlebg" bgcolor="$color{'titlebg'}" width="4%" align="center"><font size=2 class="text1" color="$color{'titletext'}"><b>$txt{'110'}</b></font></td>
        <td class="titlebg" bgcolor="$color{'titlebg'}" width="4%" align="center"><font size=2 class="text1" color="$color{'titletext'}"><b>$txt{'301'}</b></font></td>
        <td class="titlebg" bgcolor="$color{'titlebg'}" width="27%"><font size=2 class="text1" color="$color{'titletext'}"><b>$txt{'111'}</b></font></td>
      </tr>
~;
		$counter=0;
		foreach $entry (@found_number) {
$yymain .= qq~
      <tr>
        <td class="windowbg2" valign="middle" align="center" width="6%" bgcolor="$color{'windowbg2'}"><input type=checkbox name="thread-$found_number[$counter]" value="1"></td>
        <td class="windowbg2" valign="middle" align="center" width="4%" bgcolor="$color{'windowbg2'}"><img src="$imagesdir/$found_micon[$counter].gif" alt="" border="0" align=middle></td>
        <td class="windowbg" valign="middle" width="48%" bgcolor="$color{'windowbg'}"><font size=2>$found_new[$counter]<a href="$scripturl?board=$found_board[$counter];action=display;num=$found_number[$counter]"><b>$found_subject[$counter]</b></a> $found_pages[$counter]</font></td>
        <td class="windowbg2" valign="middle" align="center" width="14%" bgcolor="$color{'windowbg2'}"><font size="1">$found_name[$counter]</font></td>
        <td class="windowbg" valign="middle" width="4%" align="center" bgcolor="$color{'windowbg'}"><font size=2>$found_mreplies[$counter]&nbsp;</font></td>
        <td class="windowbg" valign="middle" width="4%" align="center" bgcolor="$color{'windowbg'}"><font size=2>$found_views[$counter]&nbsp;</font></td>
        <td class="windowbg2" valign="middle" width="27%" bgcolor="$color{'windowbg2'}"><font size="1">$found_date[$counter]<br>$txt{'525'} $found_lpost[$counter]</font></td>
      </tr>~;
			$counter++;
		}
		$yymain .= qq~</table>~;
		$yymain .= qq~<table border="0" width="100%" cellspacing="0" cellpadding="6" bgcolor="$color{'bordercolor'}" class="bordercolor">~;
		$yymain .= qq~<tr><td class="windowbg" bgcolor="$color{'windowbg'}" colspan=7 align="center"><br><font size=2>$fav{'6'}</font><br>&nbsp;<br>~;
		$yymain .= qq~<input type=reset value="$txt{'278'}">&nbsp;&nbsp;&nbsp;<input type=submit value="$fav{'7'}"></td></tr>~;
		$yymain .= qq~</form></table>~;
	}

	$yymain .= qq~
    </table>
    </td>
  </tr>
</table>
~;
	$yytitle = "$fav{'7'}";
	&template;
	exit;
}
sub remove_favorites {
	my (@deaduser, @favdir, $filename, $content, $content_old) = (@_);

	opendir (DIRECTORY,"$datadir");
	@favdir = grep {/\.fav$/} readdir(DIRECTORY);
	closedir (DIRECTORY);

	foreach $filename (@favdir) {
		$content = '';

		fopen(MYFILE, "+<$datadir/$filename") || &fatal_error("$txt{'23'} $filename");
		while (<MYFILE>) { $content .= $_; }
		$content_old = $content;

		foreach (@deaduser) { $content =~ s/$_(?:\r\n|\r|\n)//ig; }

		if (length($content) > 1) {
			if ($content ne $content_old) {
				truncate(MYFILE,0);
				seek(MYFILE,0,0);
				print MYFILE $content;
				fclose(MYFILE);
				$done .= "$filename\n";
			}
			else {
				fclose(MYFILE);
			}
		}
		else {
			fclose(MYFILE);
			unlink("$datadir/$filename");
		}
	}
}


1;