Author: Kev <klmitch@mit.edu>

[ircu2.10.12-pk.git] / tools / iauth-test

diff --git a/tools/iauth-test b/tools/iauth-test
index 2629b5285f470eb1bccad383b02132e426eb63b2..7013d1650eedd2b101fdec4e565ba00fa7406529 100755 (executable)
--- a/tools/iauth-test
+++ b/tools/iauth-test
@@ -11,7 +11,6 @@ use strict;
 use warnings;
 use vars qw(%pending);
 
-use Carp;       # for carp
 use Config;     # for $Config{sig_name} and $Config{sig_num}
 use FileHandle; # for autoflush method on file handles
 
@@ -143,7 +142,7 @@ BEGIN {
 }
 
 sub send_server_notice () {
-    reply "> Hello the server!";
+    reply "> :Hello the server!";
 }
 
 my %handlers = (
@@ -163,19 +162,21 @@ my %handlers = (
                 '127.0.0.33' => { T_reply => 'R account-3' },
                 '127.0.0.34' => { T_reply => 'k' },
                 '127.0.0.35' => { T_reply => 'K' },
-                # 127.0.1.x: io/iU/iu functionality.
+                # 127.0.1.x: io/iU/iu/iM functionality.
                 '127.0.1.0'  => { C_reply => 'o forced',
                                   H_reply => 'D' },
                 '127.0.1.1'  => { C_reply => 'U trusted',
                                   H_reply => 'D' },
                 '127.0.1.2'  => { C_reply => 'u untrusted',
                                   H_reply => 'D' },
+                '127.0.1.3'  => { C_reply => 'M +i',
+                                  H_reply => 'D' },
                 # 127.0.2.x: iI/iN functionality.
                 '127.0.2.0'  => { C_reply => 'N iauth.assigned.host',
                                   H_reply => 'D' },
                 '127.0.2.1'  => { C_reply => \&ip_change },
                 # 127.0.3.x: iC/sP functionality.
-                '127.0.3.0'  => { C_reply => 'C Please enter the password.',
+                '127.0.3.0'  => { C_reply => 'C :Please enter the password.',
                                   P_reply => \&passwd_check },
 );