### This file adds Whoson functions to the SSI_Center as <yabb tags> not SSI Content
### since Whoson already provides SSI statements.  Most of this file written by LooneyPandora
### table formatting stripped to provide better compatibility

$SSI_Center_ver = '1.0b5 special test';

### Prints the time (obvious, no?) ###
sub SSI_WhatTime {
	$whosontime = &timeformat($date, 1);
	$yywhosontime = qq~
<table>
 <tr>
  <td class="ssicwhoson01">$whosontime</td>
 </tr>
</table>
~;
}

### Displays the poll, it requires the beta version of showcase polls to be installed ###
### Still need CSS stuff for this part.
sub SSI_WhoPoll {

	$who_poll = 1;

########showcase poll start
# Look for a showcase.poll file.
	if (-e "$datadir/showcase.poll") {
		my ($board, $viewnum);
		fopen (FILE, "$datadir/showcase.poll");
		@showdata = <FILE>;
		fclose (FILE);
		$showcasepoll = $showdata[0];
		$showcasepoll =~ s~\n~~g;
		($scboard, $viewnum) = split(/\|/, $showcasepoll);

	# Look for a valid poll file.
		if (-e "$datadir/$viewnum.poll") {
			$pollthread = 1;
			unless( &BoardAccessGet($scboard) ) { $pollthread = 0; }
		}
		if ($pollthread) { 
			$yymain .= qq~<script language="JavaScript1.2" src="$ubbcjspath" type="text/javascript"></script>~;
			require "$sourcedir/Poll.pl"; &display_poll($viewnum, 1, $scboard);
		 }
	}
#########showcase poll end
	if (-e "$datadir/showcase.poll") {
		$yywhosonpoll = qq~$yymain~;
	}
}


### Displays the latest member, with link to memberlist (doesn't support YaMS default sorting) ###
sub SSI_WhoMembers {

	my( $memcount, $latestmember ) = &MembershipGet;
	&LoadUser($latestmember);
	$thelatestmember = qq~<a href="$scripturl?action=viewprofile&username=$useraccount{$latestmember}"><b>$userprofile{$latestmember}->[1]</b></a>~;

$yywhosonlatestmember = qq~
<table><tr>
<td class="ssicwhoson02">$txt{'331'}</td>
</tr><tr>
<td class="ssicwhoson03">
$txt{'201'}:<br>
-- $thelatestmember<br>
   <br>    
   $ssicwhotxt{'12'}:<br>
    -- <a href="$scripturl?action=mlall" title="$ssicwhotxt{'02'} $ssicwhotxt{'03'} $ssicwhotxt{'04'} $ssicwhotxt{'06'}">$txt{'303'}</a><br>
	-- <a href="$scripturl?action=mlletter" title="$ssicwhotxt{'02'} $ssicwhotxt{'03'} $ssicwhotxt{'04'} $ssicwhotxt{'07'}">$txt{'304'}</a><br>
    -- <a href="$scripturl?action=mltop" title="$ssicwhotxt{'02'} $ssicwhotxt{'03'} $ssicwhotxt{'04'} $ssicwhotxt{'08'}">$txt{'305'} $txt{'411'} $TopAmmount $txt{'306'}</a><br>
</td>
</tr></table>
~;

}

### Displays who is online currently ###
sub SSI_WhoUsers {

	$guests = 0;
	$counter = 0;
	$modcounter = 0;
	$admincounter = 0;
	$users = '';
	$moderators = '';
	$admins = '';

		fopen(FILE, "$vardir/log.txt");
@entries = <FILE>;
	fclose(FILE);

	foreach $curentry (@entries) {
		chomp $curentry;
		($name, $value) = split(/\|/, $curentry);
		if( $name ) {
			&LoadUser($name);
			if( exists $userprofile{$name} ) {
                 		if ($userprofile{$name}->[7] eq "Administrator") {
					$admins .= qq~ <a href="$scripturl?action=viewprofile&username=$useraccount{$name}"><b>$userprofile{$name}->[1]</b></a>, \n~;
					$admincounter++;
				} elsif ($userprofile{$name}->[7] eq "Global Moderator") {
					$moderators .= qq~ <a href="$scripturl?action=viewprofile&username=$useraccount{$name}">$userprofile{$name}->[1]</a>, \n~;
					$modcounter++;
				} else {
					$users .= qq~ <a href="$scripturl?action=viewprofile&username=$useraccount{$name}">$userprofile{$name}->[1]</a>, \n~;
					$counter++;
				}
                 } else { ++$guests; }
		}
	}
	$users =~ s~, \n\Z~~;
	$moderators =~ s~, \n\Z~~;
	$admins =~ s~, \n\Z~~;
	$countonl = $counter + $admincounter + $modcounter + $guests;

	chomp $users;
	if($users eq '') {
		$users = "<I>$ssicwhotxt{'01'}</I>";
	}

	chomp $admins;
	if($admins eq '') {
		$admins = "<I>$ssicwhotxt{'01'}</I>";
	}

	chomp $moderators;
	if($moderators eq '') {
		$moderators = "<I>$ssicwhotxt{'01'}</I>";
	}

	if($countonl eq '') {
		$countonl = "<I>$ssicwhotxt{'01'}</I>";
	}

$yywhosonusers = qq~
<table>
 <tr>
    <td class="ssicwhoson04">$txt{'158'}</td>
  </tr><tr>
    <td class="ssicwhoson05">$txt{'94'}: $countonl <br>
<br>$txt{'684'}: <br>&nbsp;&nbsp; $admins
<br>$ssicwhotxt{'14'}: <br>&nbsp;&nbsp; $moderators
<br>$txt{'142'}: <br>&nbsp;&nbsp; $users
<br>$txt{'141'}: $guests
    </td>
  </tr>
</table>
~;
}

### Shows the IM info ###
sub SSI_WhoIM {

if ($username ne 'Guest') { 

require "$sourcedir/Load.pl";
&LoadIMs;

### Sees if adv IM box is installed via setting in WhosonSettings.pl prints the 'have x new' bit ###
if ($adv_imbox eq '1') {
$yywhosonIM = qq~
<table> 
 <tr>
  <td class="ssicwhoson06">$ssicwhotxt{'15'}</td>
 </tr><tr>
  <td class="ssicwhoson07">
$txt{'247'}&nbsp;$realname,<br>$txt{'152'}&nbsp;<a href="$cgi;action=im">$minnum
~;
		if($minnum == 1) { $yywhosonIM .= $ssicwhotxt{'13'}; }
		else { $yywhosonIM .= $ssicwhotxt{'05'}; }
		$yywhosonIM .= qq~
    </a>
$imnewcount $imnewtext
	</td>
  </tr>
</table>
~;
	}

else {
$yywhosonIM = qq~
<table> 
 <tr>
  <td class="ssicwhoson06">$ssicwhotxt{'15'}</td>
 </tr><tr>
  <td class="ssicwhoson07">
$txt{'247'}&nbsp;$realname,<br>$txt{'152'}&nbsp;<a href="$cgi;action=im">$mnum
~;
		if($messnum == 1) { $yywhosonIM .= $txt{'153a'}; }
		else { $yywhosonIM .= $ssicwhotxt{'05'}; }
		$yywhosonIM .= qq~
    </a>
  </td>
 </tr>
</table>
~;
	}
}

else {
### Quick Login Box by Michael ###
$yywhosonIM = qq~
<table>
  <tr>
    <td class="ssicwhoson06">$ssicwhotxt{'09'}
    </td>
  </tr>
  <tr>
    <td class="ssicwhoson07">
      <table>
        <tr>
          <td class="ssicwhoson07a" width="100%">
            $txt{'35'}:
          </td>
          <td class="ssicwhoson08" ALIGN="left">
            <form action="$scripturl?action=login2" method="POST">
            <input type="hidden" name="cookielength" value="$Cookie_Length">
            <input type=text name="username" size="10">
			<input type="hidden" name="page" size="1" maxlength="1" readonly value="1">
          </td>
        </tr>
        <tr>
          <td class="ssicwhoson09" width="100%">
            $txt{'36'}:
          </td>
          <td class="ssicwhoson10" ALIGN="left">
            <input type=password name="passwrd" size="10">
          </td>
        <tr>
          <td class="ssicwhoson11" COLSPAN="2" ALIGN="center">
            $ssicwhotxt{'10'} <input type="checkbox" name="cookieneverexp" checked style="background-color: transparent">
            <br><INPUT TYPE="submit" VALUE="$txt{'34'}">
            </FORM>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
~;
}
###/Quick Login Box ###
}

### Shows the stats that are shown in the info centre ###
sub SSI_WhoStats {

fopen(FILE, "$vardir/cat.txt");
	@categories = <FILE>;
	fclose(FILE);

  	my( $memcount, $latestmember ) = &MembershipGet;

      $yywhosonstats = qq~
<table>
    <tr>
    <td class="ssicwhoson12">$txt{'200'}</td>
  </tr><tr>  
~;

	$totalm = 0;
	$totalt = 0;

	for( $catnum = 0; $catnum < @categories; $catnum++ ) {
		chomp $categories[$catnum];
		$curcat = $categories[$catnum];
		fopen(FILE, "$boardsdir/$curcat.cat");
		$catname{$curcat} = <FILE>;
		chomp $catname{$curcat};
		$cataccess{$curcat} = <FILE>;
		chomp $cataccess{$curcat};
		@{$catboards{$curcat}} = <FILE>;
		fclose(FILE);
		@membergroups = split( /,/, $cataccess{$curcat} );
		$openmemgr{$curcat} = 0;
		foreach $tmpa (@membergroups) {
			if( $tmpa eq $settings[7]) { $openmemgr{$curcat} = 1; last; }
		}
		if( ! $cataccess{$curcat} || $settings[7] eq 'Administrator' || $settings[7] eq 'Global Moderator' ) {
			$openmemgr{$curcat} = 1;
		}
		unless( $openmemgr{$curcat} ) { next; }
		foreach $curboard (@{$catboards{$curcat}}) {
			chomp $curboard;
			( $threadcount, $messagecount, $lastposttime, $lastposter ) = &BoardCountGet($curboard);
			$lastposttime{$curboard} = $lastposttime eq 'N/A' || ! $lastposttime ? $txt{'470'} : &timeformat($lastposttime);
			$lastpostrealtime{$curboard} = $lastposttime eq 'N/A' || ! $lastposttime ? '' : $lastposttime;
			if( $lastposter =~ m~\AGuest-(.*)~ ) {
				$lastposter = $1;
				$lastposterguest{$curboard} = 1;
			}
			$lastposter{$curboard} = $lastposter eq 'N/A' || ! $lastposter ? $txt{'470'} : $lastposter;
			$messagecount{$curboard} = $messagecount || 0;
			$threadcount{$curboard} = $threadcount || 0;
			$totalm += $messagecount;
			$totalt += $threadcount;
		}
	}



$yywhosonstats .= qq~
    <td class="ssicwhoson13">
 			$txt{'488'}&nbsp; $memcount <br> 
  			$txt{'489'}&nbsp; $totalm <br> 
  			$txt{'490'}&nbsp; $totalt 
    </td>
</tr>
</table>
~;
}

########## Insert Newcalendar Stuff ##########
sub SSI_CalStuff {
	if(-e("$sourcedir/Newcalendar.pl"))	{
		$yywhosonnewcal = qq~
<table>
 <tr>
    <td class="ssicwhoson14">$ssicwhotxt{'16'}</td>
  </tr>
  <tr>
    <td class="ssicwhoson15" VALIGN="top">
~;
		require "$sourcedir/NewcalIndex.pl";
		$messageholdercal = $message;
		&WhosCal;
		$message = $messageholdercal;
		$yywhosonnewcal .= qq~$SSI_whoscal~;
		$yywhosonnewcal .= qq~
	<br>
    </td>
  </tr>
</table>
~;
	}
1;
}
######### End Newcalendar Stuff #############

### Next few suds ripped straight out of the print headlines.mod not sure what it all does, but it works ###

sub SSI_WhoRecent {
	$recentdisplay = 5;
	@categories = ();
	fopen(FILE, "$vardir/cat.txt");
	@categories = <FILE>;
	fclose(FILE);

	$oldestfound = stringtotime("01/10/37 at 00:00:00");

	foreach $curcat (@categories) {
		chomp $curcat;

		fopen(FILE, "$boardsdir/$curcat.cat");
		$catname{$curcat} = <FILE>;
		chomp $catname{$curcat};
		$cataccess{$curcat} = <FILE>;
		chomp $cataccess{$curcat};
		@{$catboards{$curcat}} = <FILE>;
		fclose(FILE);

		$openmemgr{$curcat} = 0;
		@membergroups = split( /,/, $cataccess{$curcat} );
		if( ! $cataccess{$curcat} ) { $openmemgr{$curcat} = 1;	}
		unless( $openmemgr{$curcat} ) { next; }
		foreach $curboard (@{$catboards{$curcat}}) {
			chomp $curboard;

			fopen(FILE, "$boardsdir/$curboard.txt");
			@threads = <FILE>;
			fclose(FILE);
			fopen(FILE, "$boardsdir/$curboard.dat");
			@boardinfo = <FILE>;
			fclose(FILE);
			foreach (@boardinfo) {
				chomp;
			}
			@{$boardinfo{$curboard}} = @boardinfo;
			$cat{$curboard} = $curcat;

			for ($i = 0; $i < @threads; $i++) {
				chomp $threads[$i];

				($tnum, $tsub, $tname, $temail, $tdate, $treplies, $tusername, $ticon, $tstate) = split( /\|/, $threads[$i] );
				fopen(FILE, "$datadir/$tnum.txt") || next;
				while( <FILE> ) { $recentmessage = $_; }
				# get only the last post for this thread.
				fclose(FILE);

				chomp $recentmessage;
				if( $recentmessage ) {
					($msub, $mname, $memail, $mdate, $musername, $micon, $mattach, $mip, $recentmessage, $mns) = split(/\|/,$recentmessage);
					$mtime = stringtotime($mdate);
					if( $numfound >= $recentdisplay && $mtime <= $oldestfound ) {
						next;
					}
					else {
						# 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($tnum);
						$threaddate = stringtotime($tdate);
						if( $max_log_days_old && $dlp < $threaddate && $username ne 'Guest' && &getlog("$currentboard--mark") < $threaddate ) {
							$tmpx = &getlog("$curboard--mark");
							$new = qq~ NEW~;
						}
						else { $new = ''; }

						$data{$mtime} = [$curboard, $tnum, $treplies, $tusername, $tname, $tsub, $mname, $memail, $mdate, $musername, $micon, $mattach, $mip, $recentmessage, $mns, $new];
						if( $mtime < $oldestfound ) { $oldestfound = $mtime; }
						++$numfound;
					}
				}
			}
		}
	}

	@messages = sort {$b <=> $a } keys %data;
	if( @messages ) {
		if( @messages > $recentdisplay ) { $#messages = $recentdisplay - 1; }
		$counter = 1;
		fopen(FILE,"$vardir/censor.txt");
		while( chomp( $buffer = <FILE> ) ) {
			($tmpa,$tmpb) = split(/=/,$buffer);
			push(@censored,[$tmpa,$tmpb]);
		}
		fclose(FILE);
	}
	else {
		$yywhosonrecent = qq~<hr><b>$ssicwhotxt{'48'}</b><hr>~;
	}
	
$yywhosonrecent .= qq~
<table>
<tr><td class="ssicwhoson16">$ssicwhotxt{'17'}</td>
</tr>
<tr><td class="ssicwhoson17">
~;

	for( $i = 0; $i < @messages; $i++ ) {
		($board, $tnum, $c, $tusername, $tname, $msub, $mname, $memail, $mdate, $musername, $micon, $mattach, $mip, $recentmessage, $mns, $new) = @{ $data{$messages[$i]} };
		foreach (@censored) {
			($tmpa,$tmpb) = @{$_};
			$recentmessage =~ s~\Q$tmpa\E~$tmpb~gi;
			$msub =~ s~\Q$tmpa\E~$tmpb~gi;
		}
		if ($snip_headlines) {
			if (length($msub) > $snip_headlines) { $msub = substr($msub,0,$snip_headlines); $msub .= "...";}
		}
$yywhosonrecent .= qq~

<nobr>$counter. </nobr>&nbsp;
<a href="$scripturl?board=$board;action=display;num=$tnum" target="_parent">$msub</a>$new<br>

~;

		++$counter;
	}
	
$yywhosonrecent .= qq~
</td></tr>
</table>
~;
}

### Shows the chat info, completely untested, as I don't have chat mod installed. I think it works ###
sub SSI_WhoChat {
 
	if ( -e("$sourcedir/Chat.pl") ) {
	$cguests = 0;
	$cusers = '';
	fopen(OF,"$vardir/online.txt") or dienice ("Can't open file: $!");
	@ary = <OF>;
	fclose(OF);
	foreach $line (@ary) {
		chomp($line);
        ($of,$name,$ip,$displayname,$level,$time,$non7,$non8,$non9,$non10,$non11) = split(/°¸/,$line);
        	if( $name ) {
			&LoadUser($name);
			if( exists $userprofile{$name} ) {
				$cusers .= qq~ <a href="$scripturl?action=viewprofile&username=$name">$displayname</a><font size=1>,</font> \n~;
			} else { $cguests++; }
		}
	}
	$cusers =~ s~<font size=1>,</font> \n\Z~~;

	if($cusers eq '') {
		$cusers = "<i>$ssicwhotxt{'01'}</i>";
	}

		if ($password eq ""){
			$yywhochat =qq~$chadmtxt{'8'}~;
		} else {
			$yywhochat =qq~<a href=javascript\:OpenAdsDetail(\'$cgi;action=chatnow\&job=login\',\"$windowname\")>$chadmtxt{'10'}</a>~;
		}

	$yywhosonchat = qq~
<table>
 <tr>
  <td class="ssicwhoson18">$chadmtxt{'7'}</td>
 </tr><tr>
  <td class="ssicwhoson19">&nbsp;&nbsp; $cusers &nbsp;<br><br>
   $yywhochat
  </td>
 </tr>
</table>
~;
	}
}
sub SSI_WhoBirthday {

###############################################
#Birthday mod plugin for YaBB 1Gold           #
#	By Max : staff@my.netvigator.com      #
###############################################

	&timeformat($date);
	($tocheckm, $tocheckd, $trash) = split(/\//, $date);
	$whobd = "";
	$countbd = 0;

	open(FILE, "$memberdir/memberlist.txt") || die "cannot open list file";
	@members = <FILE>;
	close(FILE);
	foreach $usernames (@members) {
		chomp $usernames;
		open(FILE, "$memberdir/$usernames.dat") || die "cannot open user file";
		@userbd = <FILE>;
		close(FILE);
		chomp $userbd[16];
		($matchm, $matchd, $trash) = split(/\//, $userbd[16]);
		if(($tocheckm == $matchm) && ($tocheckd == $matchd)) {
			$userbd[6] =~ s/ //g;
			chomp $userbd[6];
			$whobg .=qq~<b><a href=$cgi;action=viewprofile&username=$usernames>$userbd[1]</a></b><br> ~;
			$countbd++;
		}#end if
	}#end foreach
	chomp $whobg;
	if($whobg eq '') {
		$whobg = qq~<i>$ssicwhotxt{'01'}</i>~;
	}
	$yywhosonbirth = qq~
<table>
<tr><td class="ssicwhoson20">$ssicwhotxt{'11'}</td>
</tr><tr>
<td class="ssicwhoson21">&nbsp;&nbsp; $whobg &nbsp;</td>
</tr>
</table>
~;
}
# exit;
1;