Add new admin function 'dumprps' to hellp debug

Irpg/Admin.pm

@@ -215,8 +215,16 @@ sub clearq {
 	Irpg::Irc::privmsg("Outgoing message queue cleared.",$usernick,1);
 }
 
+sub dump_rps {
+	use Data::Dumper;
+	print Dumper($rps);
+}
+
 
 our $commands = {
+	dumprps => {ref => \&dump_rps,	adm => 1, prv => 1, pub => 0,
+				hlp => 'DUMPRPS : dump the current state of %rps'},
+
 	go 		=> {ref => \&join_chans, adm => 1, prv => 1, pub => 0,
 				hlp => 'GO <chan>[ <chan> ...] : join the given chan(s)'},