diff --git a/Irpg/Admin.pm b/Irpg/Admin.pm
index cd95fae79e0cede7bd4b3fe5a47142448a6a4fb5..149b521e752462a3beb387227b68aadb42e19de8 100644
--- a/Irpg/Admin.pm
+++ b/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)'},