From cdcb710badf883660a56f6f3033fe1ece1e53a71 Mon Sep 17 00:00:00 2001
From: bw1
Date: Wed, 15 Mar 2017 20:28:47 +0100
Subject: [randaway] a small correction

---
 _testing/config.yml |  1 -
 scripts/randaway.pl | 12 ++++++------
 2 files changed, 6 insertions(+), 7 deletions(-)

diff --git a/_testing/config.yml b/_testing/config.yml
index b6a8f12..4ebe499 100644
--- a/_testing/config.yml
+++ b/_testing/config.yml
@@ -65,7 +65,6 @@ whitelist:
   - quizmaster-fr
   - quizmaster
   - quiz
-  - randaway
   - scroller
   - stocks
   - sysinfoplus
diff --git a/scripts/randaway.pl b/scripts/randaway.pl
index 6f63c00..91c8d38 100644
--- a/scripts/randaway.pl
+++ b/scripts/randaway.pl
@@ -19,7 +19,7 @@ use Irssi 20011116;
 use Irssi::Irc;
 use vars qw($VERSION %IRSSI);
 
-$VERSION = '1.13';
+$VERSION = '1.14';
 %IRSSI = (
     authors	=> "Lasse Karstensen",
     contact	=> "lkarsten\@stud.ntnu.no",
@@ -32,7 +32,7 @@ $VERSION = '1.13';
 # file to read random reasons from. It should contain one
 # reason at each line, empty lines and lines starting with # is 
 # skipped.
-$reasonfile = Irssi::get_irssi_dir() . "/awayreasons";
+my $reasonfile = Irssi::get_irssi_dir() . "/awayreasons";
 
 my @awayreasons;
 
@@ -46,7 +46,7 @@ sub readreasons {
 		# like a read() .. ie, stopping at each \n.
 		local $/ = "\n";
                 while (<F>) {
-		    $reason = $_;
+		    my $reason = $_;
 
 		    # remove any naughty linefeeds.
 		    chomp($reason);
@@ -94,8 +94,8 @@ sub add_reason {
 	# adding to current environment.
 	push(@awayreasons, $reason);
 	# and also saving it for later.  
-	open(F, ">>", $reasonsfile);
-	print F $reason;
+	open(F, ">>", $reasonfile);
+	print F $reason,"\n";
 	close F;
 	Irssi::print("Added: $reason");
     }
@@ -103,7 +103,7 @@ sub add_reason {
 
 sub reasons {
     Irssi::print("Listing current awayreasons");
-    foreach $var (@awayreasons) {
+    foreach my $var (@awayreasons) {
         Irssi::print("=> \"$var\""); 
     }
 }
-- 
cgit v1.2.3