Remove stale debugging from REGISTER

git-svn-id: https://www.cernu.us/~pdbogen/svn/destult2@63 088b83a4-0077-4247-935c-42ec02c2848b

diff --git a/commands.yaml b/commands.yaml
index e8c3805..2b76f19 100644 (file)
--- a/commands.yaml
+++ b/commands.yaml
@@ -240,7 +240,6 @@ REGISTER: |-
   sub {
     use Digest::MD5 qw( md5_hex );
     my( $kernel, $heap, $who, $what, $src, $dest, $replypath ) = @_;
-    print( STDERR "register( '$what' )\n" );
     my $nargs = ($what =~ s/ / /g);
     if( !$nargs ) {
        $nargs = 1;
@@ -261,8 +260,6 @@ REGISTER: |-
       ( $whom, $password ) = split( / /, $what, 2 );
     }
 
-    print( STDERR "register( $whom, $password ) == $nargs\n" );
-    
     if( $password ) {
       $heap->{ 'users' }->{ uc( $whom ) } = md5_hex( $password );
       DumpFile( "users.yaml", $heap->{ 'users' } );