userHandle now global var

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@192 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/IRC/IrcHooks.pl b/src/IRC/IrcHooks.pl
index 7f0b811517f1a5b6c6767cb4ed90803fc686eb73..02f3bde0b6348ef187ba449742cf2c270b74e7a2 100644 (file)
--- a/src/IRC/IrcHooks.pl
+++ b/src/IRC/IrcHooks.pl
@@ -59,7 +59,7 @@ sub on_chat {
     }
 
     if (!exists $dcc{'CHAT'}{$nick}) {
-       my $userHandle  = &verifyUser($who, $nuh);
+       $userHandle     = &verifyUser($who, $nuh);
        my $crypto      = $userList{$userHandle}{'pass'};
        my $success     = 0;
 
@@ -91,7 +91,6 @@ sub on_chat {
        return;
     }
 
-
     $userHandle = &verifyUser($who, $nuh);
     &status("$b_red=$b_cyan$who$b_red=$ob $message");
     if ($message =~ s/^\.//) { # dcc chat commands.
@@ -184,11 +183,11 @@ sub on_dcc_close {
 
     &DEBUG("dcc_close: nick => '$nick'.");
 
-    if (exists $dcc{'SEND'}{$nick} and -f "temp/$nick.txt") {
+    if (exists $dcc{'SEND'}{$nick} and -f "$param{tempDir}/$nick.txt") {
        &status("${b_green}DCC SEND$ob close from $b_cyan$nick$ob");
 
        &status("dcc_close: purging $nick.txt from Debian.pl");
-       unlink "temp/$nick.txt";
+       unlink "$param{tempDir}/$nick.txt";
 
        delete $dcc{'SEND'}{$nick};
     } elsif (exists $dcc{'CHAT'}{$nick} and $dcc{'CHAT'}{$nick} eq $sock) {
@@ -210,7 +209,7 @@ sub on_dcc_open {
        &status("${b_green}DCC lGET$ob established with $b_cyan$nick$ob");
     } elsif ($type eq 'CHAT') {
        &status("${b_green}DCC CHAT$ob established with $b_cyan$nick$ob ($nuh{$nick})");
-       my $userHandle  = &verifyUser($nick, $nuh{lc $nick});
+       $userHandle     = &verifyUser($nick, $nuh{lc $nick});
        my $crypto      = $userList{$userHandle}{'pass'};
        if (defined $crypto) {
            $self->privmsg($sock,"Enter Password, $userHandle.");