Fix stuff like sending hashes instead of nicks

[irc/SurrealServices/srsv.git] / branches / 0.5.0 / modules / serviceslibs / nickserv.pm

diff --git a/branches/0.5.0/modules/serviceslibs/nickserv.pm b/branches/0.5.0/modules/serviceslibs/nickserv.pm
index ffd1b21bcc120682d396e793acc3f9e5ffd7aeda..e5565b5914ab3b2e1508e6f6fa41c5e48a611f2d 100644 (file)
--- a/branches/0.5.0/modules/serviceslibs/nickserv.pm
+++ b/branches/0.5.0/modules/serviceslibs/nickserv.pm
@@ -1110,7 +1110,7 @@ sub ns_register($$$) {
                }
                
                $id_update->execute($src, $uid); $id_update->finish();
-               services::ulog($nsuser, LOG_INFO(), "registered $src (email: $email)".
+               services::ulog($nsnick, LOG_INFO(), "registered $src (email: $email)".
                        (services_conf_validate_email ? ' requires email validation code' : ''),
                        $src);
        } else {
@@ -2705,8 +2705,12 @@ sub authcode($;$$) {
 sub get_hostmask($) {
        my ($user) = @_;
        my ($ident, $host);
-       my $src = get_user_nick($user);
-       
+       my $src;
+       if (ref ($user) eq "HASH") {
+               print "WTF\n"; 
+               $src = get_user_nick($user);
+       }
+       else { $src = $user; }
        ($ident, $host) = get_host($user);
 
        return "$src!$ident\@$host";