--- deliantra/server/ext/login.ext	2007/09/02 12:45:44	1.71
+++ deliantra/server/ext/login.ext	2007/09/19 21:56:30	1.72
@@ -177,6 +177,8 @@
    $ns->pl and return $ns->destroy;
 
    $ns->async (sub {
+      $Coro::current->{desc} = "addme init";
+
       my ($user, $pass);
 
       $ns->send_packet ("addme_success");
@@ -214,6 +216,8 @@
 
          check_playing $ns, $user and next;
 
+         $Coro::current->{desc} = "addme($user) pass";
+
          $ns->send_drawinfo (
             "Welcome $user, please enter your password now. "
           . "New users should now choose a password. "
@@ -246,6 +250,8 @@
 
          check_playing $ns, $user and next;
 
+         $Coro::current->{desc} = "addme($user) check";
+
          # try to read the user file and check the password
          if (my $pl = cf::player::find $user) {
             aio_stat $pl->path and next;
@@ -308,6 +314,7 @@
          }
 
          # the rest of this function is character creation
+         $Coro::current->{desc} = "addme($user) chargen";
 
          # just to make sure nothing is left over
          nuke_playerdir $user;
@@ -485,6 +492,8 @@
 our $SAVE_TIMEOUT       = $cf::CFG{player_save_interval}     || 20; # save players every n seconds
 
 our $SCHEDULER = cf::async_ext {
+   $Coro::current->{desc} = "player scheduler";
+
    my $schedule_interval = Coro::Event->timer (after => 1);
    while () {
       $schedule_interval->interval ($SCHEDULE_INTERVAL);