From 66134686ce9a464a7fcaced4df135b2ab738757f Mon Sep 17 00:00:00 2001 From: pdbogen Date: Tue, 14 Oct 2008 16:03:59 +0000 Subject: [PATCH] Remove stale debugging from REGISTER git-svn-id: https://www.cernu.us/~pdbogen/svn/destult2@63 088b83a4-0077-4247-935c-42ec02c2848b --- commands.yaml | 3 --- 1 file changed, 3 deletions(-) diff --git a/commands.yaml b/commands.yaml index e8c3805..2b76f19 100644 --- 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' } ); -- 2.11.0