#!/usr/bin/perl

###################################################################
# Whoson.pl
#
# Version: 1.3 Blind Wolf Edition
###################################################################

### Version Info ###
$YaBBversion = '1 Gold - SP 1.3.1';
$whosonplver = '1 Gold - SP 1.3.1';
######

#################################################
##               SETTINGS                      ##
#################################################
$adv_imbox = 1;				#Set to 1 if you have The Advanced IM Box installed
#################################################


&WhoHeader;
&WhoIM;

sub WhoHeader {
### This section is taken from YaBB.pl ###
if( $ENV{'SERVER_SOFTWARE'} =~ /IIS/ ) {
	$yyIIS = 1;
	$0 =~ m~(.*)(\\|/)~;
	$yypath = $1;
	$yypath =~ s~\\~/~g;
	chdir($yypath);
	push(@INC,$yypath);
}

use CGI::Carp qw(fatalsToBrowser);
require "Settings.pl";
require "$language";
require "$sourcedir/Subs.pl";
require "$sourcedir/Load.pl";
require "$vardir/WhosonSettings.txt";
use CGI qw/:standard/;
### Load the user's cookie (or set to guest) ###
&LoadCookie;


	if( fopen(FILE, "$memberdir/$username.dat") ) {;
			@settings=<FILE>;
			fclose(FILE);
			for( $_ = 0; $_ < @settings; $_++ ) {
				$settings[$_] =~ s~[\n\r]~~g;
			}
			$realname = $settings[1];
	}

### Prints HTTP headers - based on header in Sub.pl ###
if( $yyForceIIS ) { $headers = "HTTP/1.0 200 OK\n"; }
$headers .= "Content-type: text/html;CHARSET=$yycharset\n\n";
print $headers;

&WriteLog;

}

sub WhoIM {

print qq~<table width="25%" algin="left">~;

	if($username ne "Guest" && $username ne '' && $action ne "logout") {
		fopen(IM, "$memberdir/$username.msg");
		@immessages = <IM>;
		fclose(IM);
		fopen(OM, "$memberdir/$username.outbox");
		@outmessages = <OM>;
		fclose(OM);
		$moutnum=@outmessages;
		foreach $curline (@immessages) {
		($imusername, $imsub, $imdate, $mmessage, $imessageid, $mip, $imnew) = split(/\|/,$curline);
		if($imnew == 1) { $imnewcount++; }
		}
		if($imnewcount eq "") { $imnewcount=0; }
		if($imnewcount == 1) { $imnewtext = qq~$imtxt{'16'}.~; } else { $imnewtext = qq~$imtxt{'17'}.~; }
		if($enable_mailsounds == 1) {
		if($imnewcount > 0 && $action eq "" && $INFO{'board'} eq "" || $imnewcount > 0 && $action eq "login2") { 
		if(fopen (FILE, "$memberdir/$username.imconfig") ) {
		open(FILE, "$memberdir/$username.imconfig");
		@userimcfg = <FILE>;
		close(FILE);
		$userimcfg[2] =~ s/\n//g;
		if($userimcfg[2] ne "blank.wav" && $userimcfg[2] ne "") {
		$imsound = qq~<BGSOUND SRC="$soundsurl/$userimcfg[2]" controls="none" loop="0" autostart="true">~; } } }		
		}
		$mnum = @immessages;
		$minnum = @immessages;
	}

if ($username ne 'Guest') {
if ($adv_imbox eq '1') {
print qq~
 <tr>
    <td CLASS="titlebg" bgcolor="$color{'titlebg'}" height=15><FONT SIZE="$headerfontsize">&#187; <b>$whotxt{'15'}</b></font></td>
  </tr><tr>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}" valign=top height=15><font size=$textfontsize>
$txt{'247'}&nbsp;$realname,<BR>$txt{'152'}&nbsp;<a href="$cgi\&action=im">$minnum
~;
		if($minnum == 1) { print $whotxt{'13'}; }
		else { print $whotxt{'05'}; }
		print qq~
    </A>
$imnewcount $imnewtext
</FONT>
	</td>
  </tr>
~;
	}

if ($adv_imbox eq '0') {
print qq~
 <tr>
    <td CLASS="titlebg" bgcolor="$color{'titlebg'}" height=15><FONT SIZE="$headerfontsize">&#187; <b>$whotxt{'15'}</b></font></td>
  </tr><tr>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}" valign=top height=15><font size=$textfontsize>
$txt{'247'}&nbsp;$realname,<BR>$txt{'152'}&nbsp;<a href="$cgi\&action=im">$messnum
~;
		if($messnum == 1) { print $txt{'153a'}; }
		else { print $whotxt{'05'}; }
		print qq~
    </A></FONT>
	</td>
  </tr>
~;
}
}
else {
### Quick Login Box by Michael ###
print qq~

  <tr>
    <td class="titlebg" bgcolor="$color{'titlebg'}" height=15><font size="$headerfontsize">&#187; <b>$whotxt{'09'}</b></font>
    </td>
  </tr>
  <tr>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}" valign=top height=15>
      <table>
        <tr>
          <td width="100%">
            <font size="$textfontsize">$txt{'35'}:</font>
          </td>
          <td>
            <form action="$scripturl?action=login2" method="POST">
            <input type="hidden" name="cookielength" value="$Cookie_Length">
            <input type=text name="username" size="10">
          </td>
        </tr>
        <tr>
          <td width="100%">
            <font size="$textfontsize">$txt{'36'}:</font>
          </td>
          <td>
            <input type=password name="passwrd" size="10">
          </td>
        <tr>
          <td colspan="2" align="center">
            <font size="$textfontsize">$whotxt{'10'} <input type="checkbox" name="cookieneverexp" checked style="background-color: transparent"></font>
            <br><input type="submit" value="$txt{'34'}">
            </form>
          </td>
        </tr>
      </table>
    </td>
  </tr>
~;
}
###/Quick Login Box ###
print qq~</table>~;
}
exit;