###############################################################################
# InstantMessage.pl                                                           #
###############################################################################
# YaBB: Yet another Bulletin Board                                            #
# Open-Source Project started by Zef Hemel (zef@zefnet.com)                   #
# Software Version: YaBB 1 Gold - Release                                     #
# =========================================================================== #
# Software Distributed by:    http://yabb.xnull.com                           #
# Support, News, Updates at:  http://yabb.xnull.com/community/                #
# =========================================================================== #
# Copyright (c) 2000-2001 X-Null - All Rights Reserved                        #
# Software by: The YaBB Development Team                                      #
###############################################################################

$instantmessageplver="1 Gold - SP1 - Advanced";

	if(-e("$memberdir/$username.off")) {
	fopen(FILE, "$memberdir/$username.off");
	@offsettings = <FILE>;
	fclose(FILE);
	}

	if(-e("$memberdir/$username.imconfig")) {
	fopen(FILE, "$memberdir/$username.imconfig");
	@userimcfg = <FILE>;
	fclose(FILE);
	}

	# Read Membergroups
	fopen(FILE, "$vardir/membergroups.txt");
	@membergroups = <FILE>;
	fclose(FILE);

sub Del_Some_IM {
	if($INFO{'caller'} == 1) { open(FILE, "$memberdir/$username.msg"); }
	elsif($INFO{'caller'} == 2) { open(FILE, "$memberdir/$username.outbox"); }
	elsif($INFO{'caller'} == 3) { open(FILE, "$memberdir/$username.imstore"); }

	@messages = <FILE>;
	close(FILE);

	if($INFO{'caller'} == 1) { fopen(FILE, ">$memberdir/$username.msg", 1); }
	elsif($INFO{'caller'} == 2) { fopen(FILE, ">$memberdir/$username.outbox", 1); }
	elsif($INFO{'caller'} == 3) { fopen(FILE, ">$memberdir/$username.imstore", 1); }


	for ($a = 0; $a < @messages; $a++) {
		chomp $messages[$a];
		($imusername, $imsub, $imdate, $mmessage, $imessageid, $mip, $imnew) = split(/\|/,$messages[$a]);
		if($FORM{"message$a"} != 1) { print FILE "$messages[$a]\n"; }
   	}

   	fclose(FILE);
	if($INFO{'caller'} == 1) { $yySetLocation = qq~$cgi;action=im~; }
	elsif($INFO{'caller'} == 2) { $yySetLocation = qq~$cgi;action=imoutbox~; }
	elsif($INFO{'caller'} == 3) { $yySetLocation = qq~$cgi;action=imablage~; }
	&redirectexit;
}

sub IMShow {
	my(@messages);
	$yytitle = $txt{'143'};
	
		if($INFO{'caller'} == 1) { $linktext = qq~<a href="$cgi;action=im" class="nav">$txt{'316'}</a>~; $callvar = "1"; fopen(FILE, "$memberdir/$username.msg"); }
		elsif($INFO{'caller'} == 2) { $linktext = qq~<a href="$cgi;action=imoutbox" class="nav">$txt{'320'}</a>~; $callvar = "2"; fopen(FILE, "$memberdir/$username.outbox"); }
		elsif($INFO{'caller'} == 3) { $linktext = qq~<a href="$cgi;action=imstore" class="nav">Storage</a>~; $callvar = "3"; fopen(FILE, "$memberdir/$username.imstore"); }
		@messages = <FILE>;
		fclose(FILE);

		$messcount=0;
		while($INFO{'id'} ne "$idcheck") {
		($musername, $msub, $mdate, $immessage, $messageid, $imip, $mnew) = split( /\|/, $messages[$messcount]);
		$idcheck = $messageid;
		$messcount++;
		}
		$counter=$messcount-1;

	if($INFO{'caller'} == 1) {
	fopen(FILE, ">$memberdir/$username.msg", 1);
	for ($a = 0; $a < @messages; $a++) {
		chomp $messages[$a];
		($imusername, $imsub, $imdate, $mmessage, $imessageid, $mip, $imnew) = split(/\|/,$messages[$a]);
		if($imessageid ne "$INFO{'id'}") { print FILE "$messages[$a]\n"; }
		else { print FILE "$imusername|$imsub|$imdate|$mmessage|$imessageid|$mip\n"; }
   	}
   	fclose(FILE);
	}
		fopen(FILE, "$memberdir/$musername.outbox");
		@muoutmessages = <FILE>;
		fclose(FILE);
	fopen(FILE, ">$memberdir/$musername.outbox", 1);
	for ($a = 0; $a < @muoutmessages; $a++) {
		chomp $muoutmessages[$a];
		($muoutusername, $muoutsub, $muoutdate, $muoutmessage, $muoutmessageid, $muoutip, $muoutnew) = split(/\|/,$muoutmessages[$a]);
		if($muoutmessageid ne "$INFO{'id'}") { print FILE "$muoutmessages[$a]\n"; }
		else { print FILE "$muoutusername|$muoutsub|$muoutdate|$muoutmessage|$muoutmessageid|$muoutip|1\n"; }
   	}
   	fclose(FILE);

	$yymain .= qq~
<table border=0 width=100% cellspacing=0 cellpadding="0">
  <tr>
    <td valign=bottom><font size=2 class="nav" font color=ffffff><B>
    <IMG SRC="$imagesdir/open.gif" BORDER=0>&nbsp;&nbsp;
    <A href="$scripturl" class="nav">$mbname</a><br>
    <IMG SRC="$imagesdir/tline.gif" BORDER=0><IMG SRC="$imagesdir/open.gif"  BORDER=0>&nbsp;&nbsp;
    <a href="$cgi;action=im" class="nav">$txt{'144'}</a><br>
    <IMG SRC="$imagesdir/tline2.gif" BORDER=0><IMG SRC="$imagesdir/open.gif" BORDER=0>&nbsp;&nbsp;
    $linktext<br>
   <IMG SRC="$imagesdir/tline3.gif" BORDER=0><IMG SRC="$imagesdir/open.gif" BORDER=0>&nbsp;&nbsp;
     $msub
    </td>
    <td align=right valign=bottom><font size=-1>
    <a href="$cgi;action=im">$img{'im_inbox'}</a>&nbsp;&nbsp;&nbsp;<a href="$cgi;action=imoutbox">$img{'im_outbox'}</a>&nbsp;$menusep<a href="$cgi;action=imsend">$img{'im_new'}</a>$menusep<a href="$cgi;action=im">$img{'im_reload'}</a>$menusep<a href="$cgi;action=imprefs">$img{'im_config'}</a>
    </font></td>
  </tr>
</table>

<table border=0 width="100%" cellspacing=1 cellpadding="4" bgcolor="$color{'bordercolor'}" class="bordercolor">
  <tr>
     <td class="titlebg" bgcolor="$color{'titlebg'}"><font size=2 class="text1" color="$color{'titletext'}">&nbsp;<b>$txt{'29'}</b></font></td>
     <td class="titlebg" bgcolor="$color{'titlebg'}"><font size=2 class="text1" color="$color{'titletext'}"><b>$txt{'118'}</b></font></td>
  </tr>
~;
		if( $msub eq '' ) { $msub = $txt{'24'}; }
		$mydate = &timeformat($mdate);
		if( $musername ne 'Guest' && ! $yyUDLoaded{$musername} && -e("$memberdir/$musername.dat") ) {
			# If user is not in memory, s/he must be loaded.
			&LoadUserDisplay($musername);
		}

		if( $yyUDLoaded{$musername} ) {
			@userprofile = @{$userprofile{$musername}};
			$star = $memberstar{$musername};
			$memberinfo = $memberinfo{$musername};
			$icqad = $icqad{$musername};
			$yimon = $yimon{$musername};
			$usernamelink = qq~<a href="$scripturl?board=$currentboard;action=viewprofile;username=$useraccount{$musername}"><font size="2"><b>$userprofile[1]</b></font></a>~;
			$profbutton = $profilebutton && $musername ne 'Guest' ? qq~$menusep<a href="$scripturl?action=viewprofile;username=$useraccount{$musername}">$img{'viewprofile'}</a>~ : '';
			$postinfo = qq~$txt{'26'}: $userprofile[6]<br>~;
			$memail = $userprofile[2];
						if ($disable_publicname != 1) { $usernamelink = qq~<a href="$scripturl?board=$currentboard;action=viewprofile;username=$useraccount{$musername}"><font size="2"><b>$userprofile[1]</b></font></a>~; }
			else { $usernamelink = qq~<a href="$scripturl?board=$currentboard;action=viewprofile;username=$useraccount{$musername}"><font size="2"><b>$musername</b></font></a>~; }
		}
		foreach (@censored) {
			($tmpa,$tmpb) = @{$_};
			$immessage =~ s~\Q$tmpa\E~$tmpb~gi;
			$msub =~ s~\Q$tmpa\E~$tmpb~gi;
		}
		$message = $immessage; # put the message back in the proper variable for doing ubbc
		if($enable_ubbc) { if(!$yyYaBBCloaded) { require "$sourcedir/YaBBC.pl"; } &DoUBBC; } 
		$message =~ s~(\S{80})(?=\S)~$1\n~g;

if ($offsettings[0] == 1) { $ava = "<BR>"; } else { $ava = $userprofile[13]; }
if ($offsettings[1] == 1) { $text = ""; } else { $text = $userprofile[12]; }
if ($offsettings[2] == 1) { $signature = ""; } else { $signature = $userprofile[5]; }
if (-e("$sourcedir/MemberGroups.pl")) { $usernamelink = $link{$musername}; }
else { $usernamelink = qq~$usernamelink<br>~; }
	$yymain .= qq~
  <tr>
    <td class="windowbg" bgcolor="$windowbg" width="160" valign="top" height="100%">
    $usernamelink
    <font size=1>$memberinfo<br>
    $star<br><br>
    $postinfo
    $userprofile[11]
    <center>$ava$text
    $userprofile[8] $icqad &nbsp; $userprofile[10] $yimon &nbsp; $userprofile[9]
    </center></font></td>
    <td class="windowbg" bgcolor="$windowbg" valign=top>
    <table border="0" cellspacing="0" cellpadding="3" width="100%" height="100%" align="center" bgcolor="$color{'bordercolor'}" class="bordercolor">
      <tr class="$windowcss" bgcolor="$windowbg" height="10" width="100%">
        <td class="windowbg" bgcolor="$windowbg"><a name="$messageid"><font size=1>&nbsp;<b>$msub</b></font></td>
        <td class="windowbg" bgcolor="$windowbg" align="right"><font size=1><b>$txt{'30'}:</b> $mydate</font></td>
      </tr><tr height="*">
        <td colspan="2" class="windowbg" bgcolor="$windowbg" height="100%">
        <HR size=1 width="100%" class="hr">
        <font size=2>$message</font>
        </td>
      </tr><TR height="10">
        <td colspan="2" class="windowbg" bgcolor="$windowbg" height="10">
        <font size=2>$signature</font>
        <HR size=1 width="100%" class="hr">
        </td>
      </tr><tr height="10" width="100%">
	<td class="windowbg" bgcolor="$windowbg" height="10">
        <font size=2>
~;
if ($userprofile[19] ne "checked" || $settings[7] eq "Administrator" || $allow_hide_email ne 1) {
	$yymain .= qq~$userprofile[4]<a href="mailto:$memail">$img{'email'}</a>$profbutton~;
} else {
	$yymain .= qq~$userprofile[4]$profbutton~;
}
	$yymain .= qq~
        </font></td>
        <td class="windowbg" bgcolor="$windowbg" height="10" align="right"><font size=2>
        <a href="$cgi;action=imsend;caller=$callvar;num=$counter;quote=1;to=$useraccount{$musername};id=$messageid">$img{'replyquote'}</a>$menusep<a href="$cgi;action=imsend;caller=$callvar;num=$counter;reply=1;to=$useraccount{$musername};id=$messageid">$img{'reply'}</a>$menusep<a href="$cgi;action=imremove;caller=$callvar;id=$messageid">$img{'im_remove'}</a>
        </font></td>
      </tr>
    </table>
    </td>
  </tr>
</table>
~;

	&template;
	exit;
}

sub IMIndex {
	if( $username eq 'Guest' ) { &fatal_error($txt{147}); }
	$imbox = $txt{'316'};
	$txt{'412'} =~ s~IMBOX~$imbox~g;
	$img{'im_delete'} =~ s~IMBOX~$imbox~g;

	# Load censor list.
	&LoadCensorList;

	# Fix moderator showing in info
	$sender = "im";
	$acount=0;

	$yytitle = $txt{'143'};

	$yymain .= qq~
<script language="JavaScript1.2" src="$ubbcjspath" type="text/javascript"></script>
<form action="$cgi;action=deletemultimessages;caller=1" method="POST">
<table border=0 width=100% cellspacing=0 cellpadding="0">
  <tr>
    <td valign=bottom><font size=2 class="nav" font color=ffffff><B>
    <IMG SRC="$imagesdir/open.gif" BORDER=0>&nbsp;&nbsp;
    <A href="$scripturl" class="nav">$mbname</a><br>
    <IMG SRC="$imagesdir/tline.gif" BORDER=0><IMG SRC="$imagesdir/open.gif"  BORDER=0>&nbsp;&nbsp;
    <a href="$cgi;action=im" class="nav">$txt{'144'}</a><br>
    <IMG SRC="$imagesdir/tline2.gif" BORDER=0><IMG SRC="$imagesdir/open.gif" BORDER=0>&nbsp;&nbsp;
    $txt{'316'}
    </td>
    <td align=right valign=bottom><font size=-1>~;
	if( !@immessages ) { unlink(FILE, "$memberdir/$username.msg"); }
	if( @immessages ) {
		$yymain .= qq~    <a href="javascript:DoConfirm('$txt{'412'}?','$cgi;action=imremoveall;caller=1')">$img{'im_delete'}</a>$menusep~;
	}
	$yymain .= qq~
    <a href="$cgi;action=imoutbox">$img{'im_outbox'}</a>$menusep<a href="$cgi;action=imablage">$img{'im_store'}</a>$menusep<a href="$cgi;action=imsend">$img{'im_new'}</a>$menusep<a href="$cgi;action=im">$img{'im_reload'}</a>$menusep<br><a href="$cgi;action=markims">$img{'mark_ims'}</a>$menusep<a href="$cgi;action=imprefs">$img{'im_config'}</a>
    </font></td>
  </tr>
</table>
<table border=0 width="100%" cellspacing=1 bgcolor="$color{'bordercolor'}" class="bordercolor">
  <tr>
    <td class="titlebg" bgcolor="$color{'titlebg'}" width="03%" align="center"><font size=2 class="text1" color="$color{'titletext'}">&nbsp;<b>#</b></font></td>
    <td class="titlebg" bgcolor="$color{'titlebg'}" width="25%"><font size=2 class="text1" color="$color{'titletext'}">&nbsp;<b>$txt{'317'}</b></font></td>
    <td class="titlebg" bgcolor="$color{'titlebg'}" width="15%"><font size=2 class="text1" color="$color{'titletext'}"><b>$txt{'318'}</b></font></td>
    <td class="titlebg" bgcolor="$color{'titlebg'}" width="35%"><font size=2 class="text1" color="$color{'titletext'}"><b>$txt{'319'}</b></font></td>
    <td class="titlebg" bgcolor="$color{'titlebg'}" width="07%" align="center"><font size=2 class="text1" color="$color{'titletext'}"><b>Status</b></font></td>
    <td class="titlebg" bgcolor="$color{'titlebg'}" width="05%"><font size=2 class="text1" color="$color{'titletext'}">&nbsp;</font></td>
    <td class="titlebg" bgcolor="$color{'titlebg'}" width="10%"><font size=2 class="text1" color="$color{'titletext'}">&nbsp;</font></td>
  </tr>
~;
	unless( @immessages ) {
	$yymain .= qq~
  <tr>
    <td class="windowbg" colspan=6 bgcolor="$color{'windowbg'}"><font size=2>$txt{'151'}</font></td>
  </tr>
~;
	}
	@bgcolors = ( $color{windowbg}, $color{windowbg2} );
	@bgstyles = qw~windowbg windowbg2~;
	$bgcolornum = scalar @bgcolors;
	$bgstylenum = scalar @bgstyles;

	for( $counter = 0; $counter < @immessages; $counter++ ) {
		$windowbg = $bgcolors[($counter % $bgcolornum)];
		$windowcss = $bgstyles[($counter % $bgstylenum)];
		chomp $immessages[$counter];
		($musername, $msub, $mdate, $immessage, $messageid, $mips, $imnew) = split( /\|/, $immessages[$counter] );

		if( $musername ne 'Guest' && -e("$memberdir/$musername.dat") ) {
			# If user is not in memory, s/he must be loaded.
			&LoadUserDisplay($musername);
		}
		if($yyUDLoaded{$musername}) { $musername = qq~<a href="$cgi;action=viewprofile;username=$musername">$userprofile{$musername}->[1]</a>~; }

		if( $messageid < 100 ) { $messageid = $counter; }
		if( $msub eq '' ) { $msub = $txt{'24'}; }
		foreach (@censored) {
			($tmpa,$tmpb) = @{$_};
			$msub =~ s~\Q$tmpa\E~$tmpb~gi;
		}
		$mydate = &timeformat($mdate);
		$innum = $mnum--;
	$yymain .= qq~
  <tr>
    <td class="$windowcss" bgcolor="$windowbg" align="center"><font size=2>$innum</font></td>
    <td class="$windowcss" bgcolor="$windowbg"><font size=2>$mydate</font></td>
    <td class="$windowcss" bgcolor="$windowbg"><font size=2>$musername</font></td>
    <td class="$windowcss" bgcolor="$windowbg"><font size=2><a href="$cgi;action=imshow;caller=1;id=$messageid">$msub</a></font></td>
    <td class="$windowcss" bgcolor="$windowbg" align="center"><font size=2>
~;
   if ($imnew == 1) { 	$yymain .= qq~<img src="$imagesdir/imclose.gif"  border="0" alt="$imtxt{'07'}">~; }
elsif ($imnew == 2) { 	$yymain .= qq~<img src="$imagesdir/answered.gif" border="0" alt="$imtxt{'08'}">~; }
else { 	                $yymain .= qq~<img src="$imagesdir/imopen.gif"   border="0" alt="$imtxt{'09'}">~; }
	$yymain .= qq~
     </td>
    <td class="$windowcss" bgcolor="$windowbg" align="center"><font size=2><input type="checkbox" name="message$acount" value="1"></font></td>
    <td class="$windowcss" bgcolor="$windowbg"><font size=2><a href="$cgi;action=imtostore;caller=1;id=$messageid">$img{'imtostore'}</a></td>
  </tr>
~;
$acount++;
	}
if($enable_imlimit == 1) { $intext = qq~$imtxt{'19'}~; } else { $intext = qq~&nbsp;~; }
if(@immessages != 0) { 	$yymain .= qq~<tr><td class="titlebg" bgcolor="$color{'titlebg'}" colspan="5" align="left"><font size="1"><b>&nbsp;$intext</b></font></td><td class="titlebg" bgcolor="$color{'titlebg'}" align="center"><input type=submit value="$imtxt{'10'}"></td><td class="titlebg" bgcolor="$color{'titlebg'}">&nbsp;</td></tr>~; }
	$yymain .= qq~
</table>
</form>
~;
	&template;
	exit;
}

sub IMOutbox {
	if ($username eq 'Guest') { &fatal_error($txt{'147'}); }
	$imbox = $txt{'320'};
	$txt{'412'} =~ s~IMBOX~$imbox~g;
	$img{'im_delete'} =~ s~IMBOX~$imbox~g;
	# Read all messages
	fopen(FILE, "$memberdir/$username.outbox");
	@ommessages = <FILE>;
	fclose(FILE);
	if(@ommessages == 0) { unlink(FILE, "$memberdir/$username.outbox"); }

	$outmnum=@ommessages;
	$acount=0;

	# Fix moderator showing in info
	$sender = "im";

	# Load censor list.
	&LoadCensorList;

	$yytitle = $txt{'143'};

	$yymain .= qq~
<script language="JavaScript1.2" src="$ubbcjspath" type="text/javascript"></script>
<form action="$cgi;action=deletemultimessages;caller=2" method="POST">
<table border=0 width=100% cellspacing=0>
  <tr>
    <td valign=bottom><font size=2 class="nav" font color=ffffff><B>
    <img src="$imagesdir/open.gif" border=0>&nbsp;&nbsp;
    <a href="$scripturl" class="nav">$mbname</a><br>
    <img src="$imagesdir/tline.gif" border=0><img src="$imagesdir/open.gif"  BORDER=0>&nbsp;&nbsp;
    <a href="$cgi;action=im" class="nav" font color=ffffff>$txt{'144'}</a><br>
    <img src="$imagesdir/tline2.gif" border=0><img src="$imagesdir/open.gif" BORDER=0>&nbsp;&nbsp;
    $txt{'320'}
    </td>
    <td align=right valign=bottom><font size=-1>
~;
	if( @ommessages ) {
		$yymain .= qq~    <a href="javascript:DoConfirm('$txt{'412'}?','$cgi;action=imremoveall;caller=2')">$img{'im_delete'}</a>$menusep~;
	}
	$yymain .= qq~
    <a href="$cgi;action=im">$img{'im_inbox'}</a>$menusep<a href="$cgi;action=imablage">$img{'im_store'}</a>$menusep<a href="$cgi;action=imsend">$img{'im_new'}</a>$menusep<a href="$cgi;action=im">$img{'im_reload'}</a>$menusep<a href="$cgi;action=imprefs">$img{'im_config'}</a>
    </font></td>
  </tr>
</table>
<table border=0 width=100% cellspacing=1 bgcolor="$color{'bordercolor'}" class="bordercolor">
  <tr>
    <td class="titlebg" bgcolor="$color{'titlebg'}" width="03%" align="center"><font size=2 class="text1" color="$color{'titletext'}">&nbsp;<b>#</b></font></td>
    <td class="titlebg" bgcolor="$color{'titlebg'}" width="25%"><font size=2 class="text1" color="$color{'titletext'}">&nbsp;<b>$txt{'317'}</b></font></td>
    <td class="titlebg" bgcolor="$color{'titlebg'}" width="10%"><font size=2 class="text1" color="$color{'titletext'}"><b>$txt{'324'}</b></font></td>
    <td class="titlebg" bgcolor="$color{'titlebg'}" width="35%"><font size=2 class="text1" color="$color{'titletext'}"><b>$txt{'319'}</b></font></td>
    <td class="titlebg" bgcolor="$color{'titlebg'}" width="07%" align="center"><font size=2 class="text1" color="$color{'titletext'}"><b>$imtxt{'23'}</b></font></td>

    <td class="titlebg" bgcolor="$color{'titlebg'}" width="05%"><font size=2 class="text1" color="$color{'titletext'}">&nbsp;</font></td>
    <td class="titlebg" bgcolor="$color{'titlebg'}" width="10%"><font size=2 class="text1" color="$color{'titletext'}">&nbsp;</font></td>
  </tr>
~;
	# Display Message if there are no Messages in Users Outbox
	unless( @ommessages ) {
	$yymain .= qq~
  <tr>
    <td class="windowbg" colspan=6 bgcolor="$color{'windowbg'}"><font size=2>$txt{'151'}</font></td>
  </tr>
~;
	}

	@bgcolors = ( $color{windowbg}, $color{windowbg2} );
	@bgstyles = qw~windowbg windowbg2~;
	$bgcolornum = scalar @bgcolors;
	$bgstylenum = scalar @bgstyles;

	for( $counter = 0; $counter < @ommessages; $counter++ ) {
		$windowbg = $bgcolors[($counter % $bgcolornum)];
		$windowcss = $bgstyles[($counter % $bgstylenum)];
		chomp $ommessages[$counter];
		($musername, $msub, $mdate, $immessage, $messageid, $mips, $imread) = split( /\|/, $ommessages[$counter] );

		if( $musername ne 'Guest' && ! $yyUDLoaded{$musername} && -e("$memberdir/$musername.dat") ) {
			# If user is not in memory, s/he must be loaded.
			&LoadUserDisplay($musername);
		}
		if($yyUDLoaded{$musername}) { $musername = qq~<a href="$cgi;action=viewprofile;username=$musername">$userprofile{$musername}->[1]</a>~; }

		if( $messageid < 100 ) { $messageid = $counter; }
		if( $msub eq '' ) { $msub = $txt{'24'}; }
		foreach (@censored) {
			($tmpa,$tmpb) = @{$_};
			$msub =~ s~\Q$tmpa\E~$tmpb~gi;
		}
		$mydate = &timeformat($mdate);
		$outnum = $outmnum--;
	$yymain .= qq~
  <tr>
    <td class="$windowcss" bgcolor="$windowbg" align="center"><font size=2>$outnum</font></td>
    <td class="$windowcss" bgcolor="$windowbg" width=300><font size=2>$mydate</font></td>
    <td class="$windowcss" bgcolor="$windowbg"><font size=2>$musername</font></td>
    <td class="$windowcss" bgcolor="$windowbg"><font size=2><a href="$cgi;action=imshow;caller=2;id=$messageid">$msub</a></font></td>
    <td class="$windowcss" bgcolor="$windowbg" align="center"><font size=2>
~;
if ($imread == 1) { 	$yymain .= qq~<img src="$imagesdir/imopen.gif" border="0" alt="$imtxt{'21'}">~; }
else { 	$yymain .= qq~<img src="$imagesdir/imclose.gif" border="0" alt="$imtxt{'22'}">~; }
	$yymain .= qq~
	</td>
    <td class="$windowcss" bgcolor="$windowbg" align="center"><font size=2><input type="checkbox" name="message$acount" value="1"></font></td>
    <td class="$windowcss" bgcolor="$windowbg"><font size=2><a href="$cgi;action=imtostore;caller=2;id=$messageid">$img{'imtostore'}</a></td>
  </tr>
~;
$acount++;
	}
if($enable_imlimit == 1) { $outtext = qq~$imtxt{'20'}~; } else { $outtext = qq~&nbsp;~; }
if(@ommessages != 0) { 	$yymain .= qq~<tr><td colspan="5" align="left" class="titlebg" bgcolor="$color{'titlebg'}"><font size="1"><b>&nbsp;$outtext</b></font></td><td class="titlebg" bgcolor="$color{'titlebg'}" align="center"><input type=submit value="Delete"></td><td class="titlebg" bgcolor="$color{'titlebg'}">&nbsp;</td></tr>~; }
$yymain .= qq~
</table>
</form>
~;
	&template;
	exit;
}

sub imablage {
	if ($username eq 'Guest') { &fatal_error($txt{'147'}); }
	$imbox = Storage;
	$txt{'412'} =~ s~IMBOX~$imbox~g;
	$img{'im_delete'} =~ s~IMBOX~$imbox~g;
	# Read all messages
	fopen(FILE, "$memberdir/$username.imstore");
	@storemessages = <FILE>;
	fclose(FILE);
	if(@storemessages == 0) { unlink(FILE, "$memberdir/$username.imstore"); }

	$outmnum=@storemessages;
	$acount=0;

	# Fix moderator showing in info
	$sender = "im";

	# Load censor list.
	&LoadCensorList;

	$yytitle = $txt{'143'};

	$yymain .= qq~
<script language="JavaScript1.2" src="$ubbcjspath" type="text/javascript"></script>
<form action="$cgi;action=deletemultimessages;caller=3" method="POST">
<table border=0 width=100% cellspacing=0>
  <tr>
    <td valign=bottom><font size=2 class="nav" font color=ffffff><B>
    <img src="$imagesdir/open.gif" border=0>&nbsp;&nbsp;
    <a href="$scripturl" class="nav">$mbname</a><br>
    <img src="$imagesdir/tline.gif" border=0><img src="$imagesdir/open.gif"  BORDER=0>&nbsp;&nbsp;
    <a href="$cgi;action=im" class="nav">$txt{'144'}</a><br>
    <img src="$imagesdir/tline2.gif" border=0><img src="$imagesdir/open.gif" BORDER=0>&nbsp;&nbsp;
    Storage
    </td>
    <td align=right valign=bottom><font size=-1>
~;
	if( @storemessages ) {
		$yymain .= qq~    <a href="javascript:DoConfirm('$txt{'412'}?','$cgi;action=imremoveall;caller=3')">$img{'im_delete'}</a>$menusep~;
	}
	$yymain .= qq~
    <a href="$cgi;action=im">$img{'im_inbox'}</a>$menusep<a href="$cgi;action=imoutbox">$img{'im_outbox'}</a>$menusep<a href="$cgi;action=imsend">$img{'im_new'}</a>$menusep<a href="$cgi;action=im">$img{'im_reload'}</a>$menusep<a href="$cgi;action=imprefs">$img{'im_config'}</a>
    </font></td>
  </tr>
</table>
<table border=0 width=100% cellspacing=1 bgcolor="$color{'bordercolor'}" class="bordercolor">
  <tr>
    <td class="titlebg" bgcolor="$color{'titlebg'}" width="05%" align="center"><font size=2 class="text1" color="$color{'titletext'}">&nbsp;<b>#</b></font></td>
    <td class="titlebg" bgcolor="$color{'titlebg'}" width="20%"><font size=2 class="text1" color="$color{'titletext'}">&nbsp;<b>$txt{'317'}</b></font></td>
    <td class="titlebg" bgcolor="$color{'titlebg'}" width="20%"><font size=2 class="text1" color="$color{'titletext'}"><b>To/From</b></font></td>
    <td class="titlebg" bgcolor="$color{'titlebg'}" width="42%"><font size=2 class="text1" color="$color{'titletext'}"><b>$txt{'319'}</b></font></td>
    <td class="titlebg" bgcolor="$color{'titlebg'}" width="06%"><font size=2 class="text1" color="$color{'titletext'}">&nbsp;</font></td>
    <td class="titlebg" bgcolor="$color{'titlebg'}" width="06%"><font size=2 class="text1" color="$color{'titletext'}">&nbsp;</font></td>
  </tr>
~;
	# Display Message if there are no Messages in Users Outbox
	unless( @storemessages ) {
	$yymain .= qq~
  <tr>
    <td class="windowbg" colspan=6 bgcolor="$color{'windowbg'}"><font size=2>$txt{'151'}</font></td>
  </tr>
~;
	}

	@bgcolors = ( $color{windowbg}, $color{windowbg2} );
	@bgstyles = qw~windowbg windowbg2~;
	$bgcolornum = scalar @bgcolors;
	$bgstylenum = scalar @bgstyles;

	for( $counter = 0; $counter < @storemessages; $counter++ ) {
		$windowbg = $bgcolors[($counter % $bgcolornum)];
		$windowcss = $bgstyles[($counter % $bgstylenum)];
		chomp @storemessages[$counter];
		($musername, $msub, $mdate, $immessage, $messageid, $mips, $msource, $imread) = split( /\|/, $storemessages[$counter] );

		if( $musername ne 'Guest' && ! $yyUDLoaded{$musername} && -e("$memberdir/$musername.dat") ) {
			# If user is not in memory, s/he must be loaded.
			&LoadUserDisplay($musername);
		}
		if($yyUDLoaded{$musername}) { $musername = qq~<a href="$cgi;action=viewprofile;username=$musername">$userprofile{$musername}->[1]</a>~; }

		if( $messageid < 100 ) { $messageid = $counter; }
		if( $msub eq '' ) { $msub = $txt{'24'}; }
		foreach (@censored) {
			($tmpa,$tmpb) = @{$_};
			$msub =~ s~\Q$tmpa\E~$tmpb~gi;
		}
		$mydate = &timeformat($mdate);
		if ($msource eq "inbox") { $tofrom = "From "; }
		else { $tofrom = "To "; }
		$outnum = $outmnum--;
	$yymain .= qq~
  <tr>
    <td class="$windowcss" bgcolor="$windowbg" align="center"><font size=2>$outnum</font></td>
    <td class="$windowcss" bgcolor="$windowbg" width=300><font size=2>$mydate</font></td>
    <td class="$windowcss" bgcolor="$windowbg"><font size=2>$tofrom $musername</font></td>
    <td class="$windowcss" bgcolor="$windowbg"><font size=2><a href="$cgi;action=imshow;caller=3;id=$messageid">$msub</a></font></td>
    <td class="$windowcss" bgcolor="$windowbg" align="center"><font size=2>
~;
	$yymain .= qq~
	</td>
    <td class="$windowcss" bgcolor="$windowbg" align="center"><font size=2><input type="checkbox" name="message$acount" value="1"></font></td>
  </tr>
~;
$acount++;
	}
if($numstore && $enable_imlimit == 1) { $storetext = qq~$imtxt{'20a'}~; } else { $storetext = qq~&nbsp;~; }
if(@storemessages != 0) { $yymain .= qq~<tr><td colspan="5" align="left" class="titlebg" bgcolor="$color{'titlebg'}"><font size="1"><b>&nbsp;$storetext</b></font></td><td class="titlebg" bgcolor="$color{'titlebg'}" align="center"><input type=submit value="$imtxt{'10'}"></td></tr>~; }
$yymain .= qq~
</table>
</form>
~;
	&template;
	exit;
}
sub IMPost {
	if($username eq 'Guest') { &fatal_error($txt{'147'}); }
	my( @messages, $mdate, $mip, $mmessage);
	if($INFO{'num'} ne "") {
		if($INFO{'caller'} == 1) { fopen(FILE, "$memberdir/$username.msg"); }
		elsif($INFO{'caller'} == 2) { fopen(FILE, "$memberdir/$username.outbox"); }
		elsif($INFO{'caller'} == 3) { fopen(FILE, "$memberdir/$username.imstore"); }
		@messages = <FILE>;
		fclose(FILE);

		($mfrom, $sub, $mdate, $mmessage, $mip) = split(/\|/,$messages[$INFO{'num'}]);
		$sub =~ s/Re: //g;

		if($INFO{'quote'} == 1) {
			$message = $mmessage;
			$message =~ s/<br>/\n/g;
			$message =~ s/\[quote\](\S+?)\[\/quote\]//isg;
			$message =~ s/\[(\S+?)\]//isg;
			$message = "\[quote\]$message\[/quote\]\n";
			if ($message =~ /\#nosmileys/isg) {$message =~ s/\#nosmileys//isg; $nscheck="checked";}
			$sub = "Re: $sub";
		}
		if($INFO{'reply'} == 1) { $sub = "Re: $sub";}
	}

	if ($sub eq "") { $sub = "$txt{'24'}"; }

	$yymain .= qq~
<table border=0 width="90%" cellpadding="3" align="center" cellspacing=0>
  <tr>
    <td valign=bottom><font size=2 class="nav"font color=ffffff><B>
    <IMG SRC="$imagesdir/open.gif" BORDER=0>&nbsp;&nbsp;
    <A href="$scripturl" class="nav">$mbname</A><br>
    <IMG SRC="$imagesdir/tline.gif" BORDER=0><IMG SRC="$imagesdir/open.gif"  BORDER=0>&nbsp;&nbsp;
    <a href="$cgi;action=im" class="nav">$txt{'144'}</A><br>
    <IMG SRC="$imagesdir/tline2.gif" BORDER=0><IMG SRC="$imagesdir/open.gif" BORDER=0>&nbsp;&nbsp;
    $txt{'321'}
    </td>
    <td align=right valign=bottom><font size=-1>
    <a href="$cgi;action=im">$img{'im_inbox'}</a>$menusep<a href="$cgi;action=imoutbox">$img{'im_outbox'}</a>$menusep<a href="$cgi;action=im">$img{'im_reload'}</a>$menusep<a href="$cgi;action=imprefs">$img{'im_config'}</a>
    </font></td>
  </tr>
</table>
~;
	$submittxt = "$txt{'148'}";
	$destination = "imsend2";
	$waction = "imsend";
	$post = "imsend";
	$preview = "previewim";
	$icon = "xx";
	require "$sourcedir/Post.pl";
	$yytitle = $txt{'148'};
	&Postpage;
	&doshowims;
	&template;
	exit;
}

sub doshowims {
	my $tempdate;
	if($INFO{'num'} ne "") {
		chomp $immessages[$INFO{'num'}];
		($musername, $msub, $mdate, $message, $messageid, $mips) = split( /\|/, $immessages[$INFO{'num'}]);
		# Load Censor List
		&LoadCensorList;
		$yymain .= qq~
	<BR><BR>
	<table cellspacing=1cellpadding=0 width="90%" align="center" bgcolor="$color{'bordercolor'}" class="bordercolor"><tr><td>
	<table class="windowbg" cellspacing=1 cellpadding=2 width=100% align=center bgcolor="$color{'windowbg'}">
	<tr><td class="titlebg" bgcolor="$color{'titlebg'}" colspan=2><font size=2 class="text1" color="$color{'titletext'}"><b>$txt{'319'}: $msub</b></td></tr>
	~;
		$tempdate = &timeformat($mdate);
		foreach (@censored) {
			($tmpa,$tmpb) = @{$_};
			$message =~ s~\Q$tmpa\E~$tmpb~gi;
		}
		&wrap;
		if($enable_ubbc) { if(!$yyYaBBCloaded) { require "$sourcedir/YaBBC.pl"; } &DoUBBC; }
		&wrap2;
		$yymain .= qq~
	<tr><td align=left class="catbg"><font size="1">$txt{'318'}: $musername</font></td><td class="catbg" align=right><font size="1">$txt{'30'}: $tempdate</font></td></tr>
	<tr><td class="windowbg2" colspan=2 bgcolor="$color{'windowbg2'}"><font size="1">$message</font></td></tr></table></td></tr></table>\n
	~;

	}
}

sub IMPost2 {

if($username eq 'Guest') { &fatal_error($txt{'147'}); }
my( @imconfig, @ignore, $igname, $messageid, $subject, $message, @recipient, $ignored );

$subject = $FORM{'subject'};
$subject =~ s/\A\s+//;
$subject =~ s/\s+\Z//;
$message = $FORM{'message'};
if ($enable_maxlen == 0 || $enable_maxlen eq "") {
if (length($message)>$MaxMessLen) { &fatal_error("$txt{'499'}"); }
}

&fatal_error("$txt{'77'}") unless($subject);
&fatal_error("$txt{'78'}") unless($message);
if( $message =~ m~\[poll\]~i ) {&fatal_error($txt{'895'}) }

$mmessage = $message;
$msubject = $subject;

$subject =~ s/\&/\&amp;/g;
$message =~ s/\&/\&amp;/g;
$subject =~ s/"/\&quot;/g;
$message =~ s/"/\&quot;/g;
$subject =~ s/  / \&nbsp;/g;
$message =~ s/  / \&nbsp;/g;

$subject =~ s/</&lt;/g;
$subject =~ s/>/&gt;/g;
$subject =~ s/\|/\&#124;/g;
$message =~ s/</&lt;/g;
$message =~ s/>/&gt;/g;
$message =~ s/\t/ \&nbsp; \&nbsp; \&nbsp;/g;
$message =~ s/\cM//g;
$message =~ s/\n/<br>/g;
$message =~ s/\|/\&#124;/g;

if( $FORM{'waction'} eq 'previewim' ) {
	require "$sourcedir/Post.pl";
	&Preview;
}

@multiple = split(/,/, $FORM{'to'});
foreach $db (@multiple) {
	chomp $db;
	$ignored = 0;

	$db =~ s/\A\s+//;
	$db =~ s/\s+\Z//;
	$db =~ s/[^0-9A-Za-z#%+,-\.@^_]//g;

	# Check Ignore-List
	if (-e("$memberdir/$db.imconfig")) {
		fopen(FILE, "$memberdir/$db.imconfig");
		@imconfig = <FILE>;
		fclose(FILE);

		# Build Ignore-List
		$imconfig[0] =~ s/[\n\r]//g;
		$imconfig[1] =~ s/[\n\r]//g;

		@ignore = split(/\|/,$imconfig[0]);

		# If User is on Recipient's Ignore-List, show Error Message
		foreach $igname (@ignore) {
			#adds ignored user's name to array which error list will be built from later
			if ($igname eq $username) {
				push(@nouser, $db);
				$ignored = 1;
			}
		}

	}

	if (!(-e("$memberdir/$db.dat"))) { 
		#adds invalid user's name to array which error list will be built from later
		push(@nouser, $db);
		$ignored = 1;
	}

	if(!$ignored) {
	# Create unique Message ID = Time & ProccessID
	$messageid = $^T.$$;

	# Add message to outbox
	open(FILE, "$memberdir/$username.outbox");
	@outmessages = <FILE>;
	close(FILE);

	fopen(FILE, ">$memberdir/$username.outbox", 1);
	print FILE "$db|$subject|$date|$message|$messageid|$ENV{'REMOTE_ADDR'}\n";
	print FILE @outmessages;
	fclose(FILE);

	# Send message to user
	open(FILE, "$memberdir/$db.msg");
	@inmessages = <FILE>;
	close(FILE);

	fopen(FILE, ">$memberdir/$db.msg", 1);
	print FILE "$username|$subject|$date|$message|$messageid|$ENV{'REMOTE_ADDR'}|1\n";
	print FILE @inmessages;
	fclose(FILE);

	open(FILE, "$memberdir/$username.msg");
	@messages = <FILE>;
	close(FILE);

	$id = "$INFO{'id'}";
	fopen(FILE, ">$memberdir/$username.msg", 1);
	for ($a = 0; $a < @messages; $a++) {
		chomp $messages[$a];
		($imboxusername, $imboxsub, $imboxdate, $imboxmessage, $imboxmessageid, $imboxmip, $imboximnew) = split(/\|/,$messages[$a]);
		if($imboxmessageid != $FORM{'info'}) { print FILE "$messages[$a]\n"; }
		else { print FILE "$imboxusername|$imboxsub|$imboxdate|$imboxmessage|$imboxmessageid|$imboxmip|2\n"; }
   	}
	fclose(FILE);

	# Send notification
	if ($imconfig[1]==1) {
		fopen(FILE, "$memberdir/$db.dat");
		@recipient = <FILE>;
		fclose(FILE);
		$mydate = &timeformat($date);
		$recipient[2] =~ s/[\n\r]//g; # get email address
		if ($recipient[2] ne "") {
			$fromname = $settings[1];
			$txt{'561'} =~ s~SUBJECT~$msubject~g;
			$txt{'561'} =~ s~SENDER~$fromname~g;
			$txt{'561'} =~ s~DATE~$mydate~g;
			$txt{'562'} =~ s~SUBJECT~$msubject~g;
			$txt{'562'} =~ s~MESSAGE~$mmessage~g;
			$txt{'562'} =~ s~SENDER~$fromname~g;
			$txt{'562'} =~ s~DATE~$mydate~g;
			&sendmail($recipient[2],$txt{'561'},$txt{'562'});
		}
	}
	}
}  #end foreach loop

#if there were invalid usernames in the recipient list, these names are listed after all valid users have been IMed
if (@nouser) { 
	$badusers = join(", ", @nouser);
	&fatal_error("$badusers $txt{'747'}");
}
    	
$yySetLocation = qq~$cgi;action=im~;
&redirectexit;
}

sub IMRemove
{
	if($username eq 'Guest') { &fatal_error($txt{'147'}); }

	my( @messages, $a, $musername, $msub, $mdate, $mmessage, $messageid, $mip );
	if ($INFO{'caller'} == 1) { fopen(FILE, "$memberdir/$username.msg"); }
	elsif ($INFO{'caller'} == 2) { fopen(FILE, "$memberdir/$username.outbox"); }
	elsif ($INFO{'caller'} == 3) { fopen(FILE, "$memberdir/$username.imstore"); }
	@messages = <FILE>;
	fclose(FILE);

	if ($INFO{'caller'} == 1) { fopen(FILE, ">$memberdir/$username.msg", 1); }
	elsif ($INFO{'caller'} == 2) { fopen(FILE, ">$memberdir/$username.outbox", 1); }
	elsif ($INFO{'caller'} == 3) { fopen(FILE, ">$memberdir/$username.imstore", 1); }

	for ($a = 0; $a < @messages; $a++) {
		chomp $messages[$a];
		# ONLY delete MSG with correct ID
		($musername, $msub, $mdate, $mmessage, $messageid, $mip, $imnew) = split(/\|/,$messages[$a]);

		# If Message-ID is < 100, user has used the old IM before
		if ($messageid < 100 ) {
			if($a ne $INFO{'id'}) { print FILE "$messages[$a]\n"; }
		} else {
	 		if($messageid ne "$INFO{'id'}") { print FILE "$messages[$a]\n"; }
      		}
   	}

   	fclose(FILE);
	if ($INFO{'caller'} == 1) { $redirect = "im"; }
	elsif ($INFO{'caller'} == 2) { $redirect = "imoutbox"; }
	elsif ($INFO{'caller'} == 3) { $redirect = "imablage"; }
	$yySetLocation = qq~$cgi;action=$redirect~;
	&redirectexit;

}


sub IMToStore
{
	if($username eq 'Guest') { &fatal_error($txt{'147'}); }
	my( @messages, $a, $musername, $msub, $mdate, $mmessage, $messageid, $mip );
	if ($INFO{'caller'} == 1) { fopen(FILE, "$memberdir/$username.msg"); }
	elsif ($INFO{'caller'} == 2) { fopen(FILE, "$memberdir/$username.outbox"); }
	@messages = <FILE>;
	fclose(FILE);

	if ($INFO{'caller'} == 1) { fopen(FILE, ">$memberdir/$username.msg", 1); }
	elsif ($INFO{'caller'} == 2) { fopen(FILE, ">$memberdir/$username.outbox", 1); }

	#get the line to be transferred from the source file
	$transferline = "";
	for ($a = 0; $a < @messages; $a++)
	{
		chomp $messages[$a];
		($musername, $msub, $mdate, $mmessage, $messageid, $mip) = split(/\|/,$messages[$a]);

		if ($messageid eq $INFO{'id'})
		{
			$transferline = $messages[$a];
			print FILE "";
		}
		else { print FILE "$messages[$a]\n"; }
	}
   	fclose(FILE);
	#we've got the line in $transferline
	#now open .imstore and append it

	#see where we're coming from so we can add the right source to the end
	$source = $INFO{'caller'} == 1 ? "\|inbox" : "\|outbox";

	fopen(FILE, ">>$memberdir/$username.imstore", 1);
	print FILE "$transferline" . "$source\n";
	fclose(FILE);

	my $redirect = $INFO{'caller'} == 1 ? 'im' : 'imoutbox';
	$yySetLocation = qq~$cgi;action=$redirect~;
	&redirectexit;
}


sub IMPreferences {
	if ($username eq 'Guest') { &fatal_error($txt{'147'}); }
	my( @imconfig, $sel0, $sel1 );
	if (-e("$memberdir/$username.imconfig")) {
		fopen(FILE, "$memberdir/$username.imconfig");
		@imconfig = <FILE>;
		fclose(FILE);
	}

	$imconfig[0] =~ s/[\n\r]//g;
	$imconfig[0] =~ s/\|/\n/g;
	$imconfig[1] =~ s/[\n\r]//g;

	if ($imconfig[1]) {
		$sel0='';
		$sel1=' selected';
	} else {
		$sel0=' selected';
		$sel1='';
	}
	$yymain .= qq~
<table border=0 width=100% cellspacing=0>
<tr>
	<td valign=bottom><font size=2 class="nav" font color=ffffff><B>
	<IMG SRC="$imagesdir/open.gif" BORDER=0>&nbsp;&nbsp;
	<A href="$scripturl" class="nav">$mbname</A>
	<br>
	<IMG SRC="$imagesdir/tline.gif" BORDER=0><IMG SRC="$imagesdir/open.gif"  BORDER=0>&nbsp;&nbsp;
	<a href="$cgi;action=im" class="nav">$txt{'144'}</A>
	<br>
	<IMG SRC="$imagesdir/tline2.gif" BORDER=0><IMG SRC="$imagesdir/open.gif" BORDER=0>&nbsp;&nbsp;
	$txt{'323'}
	</td>
<td align=right valign=bottom>
~;
	$yymain .= qq~
<a href="$cgi;action=im">$img{'im_inbox'}</a> <a href="$cgi;action=imoutbox">$img{'im_outbox'}</a> <a href="$cgi;action=imsend">$img{'im_new'}</a> <a href="$cgi;action=im">$img{'im_reload'}</a>
</td>
</table>
<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>$txt{'323'}</b></font></td>
 </tr>
 <tr>
  <td class="windowbg" bgcolor="$color{'windowbg'}">
   <form action="$cgi;action=imprefs2" method=post>
    <table border=0>
     <tr>
      <td valign=top>
       <font size=2 font color=ffffff><b>$txt{'325'}:</b></font><br><font size="1" font color=ffffff>$txt{'326'}</font>
      </td>
      <td>
       <font size=2 font color=ffffff><textarea name=ignore rows=10 cols=50 wrap=virtual>$imconfig[0]</textarea></font>
      </td>
     </tr>
     <tr>
      <td valign=top>
       <font size=2 font color=ffffff><b>$txt{'327'}:</b></font>
      </td>
      <td>
       <font size=2>
	<select name="notify">
	 <option value="0"$sel0>$txt{'164'}
	 <option value="1"$sel1>$txt{'163'}
	</select>
       </font>
      </td>
     </tr>
~;
	if($enable_mailsounds) {		
		# sounds hack
		$userimcfg[2] =~ s/\n//g;
		opendir(DIR, "$soundsdir") || fatal_error("$txt{'230'} ($soundsdir)!<BR>$imtxt{'27'}");
		@contents = readdir(DIR);
		closedir(DIR);
		$sounds = "";
		$sounds .= qq~<option value="blank.wav"$checked>$imtxt{'28'} \n~;
		foreach $line (sort @contents)
		{
			($name, $extension) = split (/\./, $line);
			$checked = "";
			if ($line eq $userimcfg[2]) { $checked = ' selected'; }
			if ($userimcfg[2] =~ m~\Ahttp://~ && $line eq 'blank.wav') { $checked = ' selected'; }
			if ($extension =~ /wav/i )
			{
				if ($line eq 'blank.wav') { 
					$name = $imtxt{'28'}; 
				}
				$sounds .= qq~<option value="$line"$checked>$name\n~;
			}
		}
	
		if ($userimcfg[2] =~ m~\Ahttp://~) {
			$snd = 'blank.wav';
			$checked = ' checked';
			$tmp = $userimcfg[2];
		}
		else {
			$snd = $userimcfg[2];
			$tmp = 'http://';
		}
	$yymain .= qq~
<bgsound id="sound">
<script language="JavaScript1.2" type="text/javascript">
<!--
function playSound() { document.all.sound.src = "$soundsurl/"+document.all.usersound.options[document.all.usersound.selectedIndex].value; }
//-->
</script>	
		<tr>
			<td width="320"><font size=2><b>$imtxt{'29'}:</b></font> </td>
			<td> <select name="usersound" size="4"onChange="playSound()">$sounds</select></td>
		</tr>
~;
	} else { $yymain .= qq~<input type=hidden name="usersound" value="$userimcfg[2]">~; }

	if($enable_mailpopup) {
	$userimcfg[3] =~ s/\n//g;
	if($userimcfg[3] eq "on") { $enable_userimpopup = 'checked'; }
	$yymain .= qq~
		<tr>
			<td width="320"><font size=2><b>$imtxt{'05'}:</b></font> </td>
			<td><input type=checkbox name="userpopup" $enable_userimpopup></td>
		</tr>
		~;
	} else { $yymain .= qq~<input type=hidden name="userpopup" value="$userimcfg[3]">~; }
$yymain .= qq~
     <tr>
      <td>
      	&nbsp;
      </td>
      <td>
       <input type=submit value="$txt{'328'}">
       <input type=reset value="$txt{'278'}">
      </td>
     </tr>
    </table>
   </form>
  </td>
 </tr>
</table>
~;
	$yytitle = "$txt{'323'}: $txt{'144'}";
	&template;
	exit;
}

sub IMPreferences2 {
	if($username eq 'Guest') { &fatal_error($txt{'147'}); }
	my( $ignorelist, $notify );
	$ignorelist = "$FORM{'ignore'}";
	$notify = "$FORM{'notify'}";
	$sound = "$FORM{'usersound'}";
	$popup = "$FORM{'userpopup'}";

	$ignorelist =~ s~\A\n\s*~~;
	$ignorelist =~ s~\s*\n\Z~~;
	$ignorelist =~ s~\n\s*\n~\n~g;
	$ignorelist =~ s~[\n\r]~\|~g;
	$ignorelist =~ s~\|\|~\|~g;
	$notify =~ s~[\n\r]~~g;
	$sound =~ s~[\n\r]~~g;
	$popup =~ s~[\n\r]~~g;

	fopen(FILE, "+>$memberdir/$username.imconfig");
	print FILE "$ignorelist\n$notify\n$sound\n$popup\n";
	fclose(FILE);
	$yySetLocation = qq~$cgi;action=im~;
	&redirectexit;
}

sub MarkAll {
	open(FILE, "$memberdir/$username.msg");
	@messages = <FILE>;
	close(FILE);
	fopen(FILE, ">$memberdir/$username.msg", 1);
	for ($a = 0; $a < @messages; $a++) {
		chomp $messages[$a];
		($imusername, $imsub, $imdate, $mmessage, $imessageid, $mip, $imnew) = split(/\|/,$messages[$a]);
		print FILE "$imusername|$imsub|$imdate|$mmessage|$imessageid|$mip\n";
   	}
   	fclose(FILE);
	$yySetLocation = qq~$cgi;action=im~;
	&redirectexit;
}

sub KillAll {
	if($username eq 'Guest') { &fatal_error($txt{'147'}); }
	if ($INFO{'caller'} == 1) {
		unlink("$memberdir/$username.msg");
		$redirect = 'im';
	} elsif ($INFO{'caller'} == 2) {
		unlink("$memberdir/$username.outbox");
		$redirect = 'imoutbox';
	} elsif ($INFO{'caller'} == 3) {
		unlink("$memberdir/$username.imstore");
		$redirect = 'imablage';
	}
	$yySetLocation = qq~$cgi;action=$redirect~;
	&redirectexit;
}

1;