###
##	Original package IRCCS version 1, Copyright (c) 1995
##	Daniel J. Wightman.  Rewritten from Nov to Dec 2000.
##	Packaged Dec 19 and published as IRCCS (fruitbrick) version 2.
##
##	FruitBrick (IRCCS) - Internet Relay Chat Control System version 2
##	Copyright (C) 1995, 2000  Daniel J. Wightman <dent@abonica.net>
##
##	See the copyright or COPYRIGHT in the main program directory for
##	details.  See the LICENSE in the main program directory as well.
###
# 
# --------------------------------------------------------------------------
# GET RANKS - get's the rank number/name associations for irc operators
# --------------------------------------------------------------------------
{
# any oper can get a ranks list, no special access needed

my($rank, $i, $subtext, $rank);

# did they type a nick? or just want listing?
(@parms) = split(/ /, $parms);
# enough parms?
if(($#parms+1) < 1)
	{
	&send(":$servnick NOTICE $nick :Here's a list of ranks, use the\n");
	&send(":$servnick NOTICE $nick :NUMBER only...\n");
	&send(":$servnick NOTICE $nick :=================================\n");
	&send(":$servnick NOTICE $nick :IRCop Ranks\n");
	&send(":$servnick NOTICE $nick :=================================\n");
	foreach $i (keys %ranks)
		{
		&send(":$servnick NOTICE $nick : $i - $ranks{$i}\n");	
		}
	&send(":$servnick NOTICE $nick :=================================\n");
	&send(":$servnick NOTICE $nick :End Ranks\n");
	&send(":$servnick NOTICE $nick :=================================\n");
	return;
	}
# got parameters
($tempnick) = split/\s+/, $parms;
$tempnick = &dcase($tempnick);

# is it registered or even on line?
if( (!$rnicks{$tempnick}) && (!$nicks{$tempnick}) )
	{
	&send(":$servnick NOTICE $nick :Not on line and not registered so no rank.\n");
	return;
	}
# must be one, issue seperate notice for each one.. ranks could
# be different, at the very least we'll catch bugs.

# if registered, say so
if($rnicks{$tempnick})
	{
	&send(":$servnick NOTICE $nick :Registered: $rnicks{$tempnick}{nick}\n");
	&send(":$servnick NOTICE $nick :      Rank: $rnicks{$tempnick}{rank}\n");
	}
# if online, say so
if($nicks{$tempnick})
	{
	&send(":$servnick NOTICE $nick :   On line: $nicks{$tempnick}{nick}\n");
	if($opers{$tempnick})
		{
		&send(":$servnick NOTICE $nick :      Oper: $opers{$tempnick}{rank}\n");
		}
	}
}





