# status.pl

require 5.001;
$add_ons .= "+status.pl" unless $add_ons =~ /\Q+status.pl\E/;

# default table for your status bar
@status =
	(
	sub { " [sirc] "						},
	sub { "$nick "							},
	sub { "(+$umode) "		if $umode			},
	sub { "[query: $query] "	if $query			},
	sub { "(away) "			if $away			},
	sub { $haveops{$c} ? "operator for $c " : "on $c " if $c	},
	sub { "(+$mode{$c}) "		if $mode{$c}			},
	sub { "(key: $chankey{$c}) "	if $chankey{$c}			},
	sub { "(limit: $limit{$c}) "	if $limit{$c}			},
	);

# dostatus() updates your status bar and returns the text that was put on it
sub	dostatus
	{
	return unless $ssfe;
	my @s = ();
	($c = $talkchannel) =~ tr/[A-Z]/[a-z]/;
	for (@status) {push @s, &$_}
	print "`#ssfe#s", join('', @s), "\n";
	return wantarray ? @s : join('', @s);
	}

dostatus();