diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/ident.pl | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/scripts/ident.pl b/scripts/ident.pl index 1250825..a4854f2 100644 --- a/scripts/ident.pl +++ b/scripts/ident.pl @@ -22,11 +22,11 @@ my %pw; sub LoadPasswords { - # Load the passwords from file. + # Load the passwords from file. delete @pw{keys %pw}; my $filename = Irssi::get_irssi_dir() . '/passwords'; - my $FH; - unless(open $FH, ">", $filename) + my $FH; + unless(open $FH, "<", $filename) { print "Can not open $filename"; return 0; @@ -34,12 +34,12 @@ sub LoadPasswords { while (my $line = <$FH>) { chomp $line; - next unless ($line); + next unless ($line); my ($tag, $password) = split(/ */, $line, 2); next unless ($tag and $password); - $pw{$tag} = $password; - } - return 1; + $pw{$tag} = $password; + } + return 1; } @@ -48,15 +48,15 @@ sub notice { my ($channel, $msg) = split(/ :/, $data, 2); my $l = 0; - # Test the notice. Must be from nickserv and be asking you to identify. + # Test the notice. Must be from nickserv and be asking you to identify. return undef unless (lc($nick) eq 'nickserv'); return undef unless (lc($msg) =~ /msg nickserv identify/); - # Check it's a direct message and we have a password for this network. + # Check it's a direct message and we have a password for this network. return undef unless (lc($channel) eq lc($server->{'nick'})); return undef unless ($pw{$server->{'chatnet'}}); my $pw = $pw{$server->{'chatnet'}}; - # Use the /quote nickserv approach to reduce chance of leaking the password to a bad actor, ie someone pretending to be nickserv. + # Use the /quote nickserv approach to reduce chance of leaking the password to a bad actor, ie someone pretending to be nickserv. $server->command("^quote nickserv identify $pw"); return undef; @@ -64,5 +64,5 @@ sub notice { if (LoadPasswords()) { - Irssi::signal_add('event notice', \¬ice); + Irssi::signal_add('event notice', \¬ice); } |