irssi_nick.pl

my %saved_pronouns;

sub save_pronouns {
	open PRONOUNS, ">$ENV{HOME}/.irssi/saved_pronouns";
	
	foreach my $nick (keys %saved_pronouns) {
		print COLORS "$nick:$saved_pronouns[$nick]\n";
	}
}

sub load_pronouns {
	open PRONOUNS, "$ENV{HOME}/.irssi/saved_pronouns";
	
	while <PRONOUNS> {
		my @lines = split '\n';
		foreach my $line (@lines) {
			my($nick,$pronoun) = split ":", $line;
			$saved_pronoun[$nick] = $pronoun;
		}
	}
}

sub sig_public {
	my ($server,$msg,$nick,$address,$target) = @_;
	
	my $pronoun = $pronouns[$nick];
	
	if (!$pronoun) {
		$pronoun = $session_pronouns{$nick};
	} 
	
	$server->command('/^format pubmsg [$pronoun] /* whatever format strings are, cant remember */
	}
}

sub cmd_pronoun {
	/* Add commands for adding & removing */
}

Irssi::command_bind('pronoun', 'cmd_pronoun');

Irssi::signal_add('message public', 'sig_public');