Drop tabs. Read instead of write passwords.

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', \&notice);
+    Irssi::signal_add('event notice', \&notice);
 }