Updates

svn: 56

scripts/irssi/README.irssi

@@ -2,4 +2,10 @@
 
 I don't know perl, so if you improve this script, commit it or submit it to bryan.
 
+Type these:
+
+/script load /path/to/wraith.pl
+/auth
+
+This has not been tested with psyBNC, but in theory it will work.
 

scripts/irssi/wraith.pl

@@ -5,7 +5,7 @@ use Irssi 20020121.2020 ();
 $VERSION = "1.01";
 %IRSSI = (
           authors     => 'bryan P38',
-          contact     => 'bryan\@shatow.net, bryan on EFnet',
+          contact     => 'bryan@shatow.net, bryan on EFnet',
           name        => 'wraith-auth',
           description => 'private auth script for botpack wraith',
           license     => 'ALL?',
@@ -38,7 +38,7 @@ sub auth($) {
     $hash = $words[0];
   }
 
-  Irssi::print "Authing: $hash";
+#  Irssi::print "Authing: $hash";
 
   $secpass = Irssi::settings_get_str('auth_secpass');
   $authkey = Irssi::settings_get_str('auth_authkey');
@@ -95,9 +95,10 @@ Irssi::signal_add "dcc chat message", sub {
   
 };
 
-Irssi::settings_add_str('auth', 'auth_password', '');
+#Irssi::settings_add_str('auth', 'auth_password', '');
 Irssi::settings_add_str('auth', 'auth_secpass', '');
 Irssi::settings_add_str('auth', 'auth_authkey', '');
 
 Irssi::command_bind("auth", "cmd_auth");
 
+Irssi::print "Wraith authorization script by bryan loaded. \$Rev: \$";