--- deliantra/server/ext/commands.ext	2007/03/02 11:07:59	1.24
+++ deliantra/server/ext/commands.ext	2007/03/02 11:13:50	1.25
@@ -89,6 +89,15 @@
    1
 };
 
+cf::register_command whereami => sub {
+   my ($ob) = @_;
+
+   my $reg = $ob->region;
+   $ob->reply (undef, (sprintf "You are %s.\n%s", $reg->longname, $reg->msg));
+
+   1
+};
+
 cf::register_command applymode => sub {
    my ($ob, $arg) = @_;
    my @types = ("nochoice", "never", "always");