From: Jari Matilainen <redacted>
Date: Wed, 22 Jul 2020 17:10:12 +0000 (+0200)
Subject: Update quitmsg.pl
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=e775050db0aa883dced65230bb2199bb71fcb1de;p=irssi-scripts.irssi.org.git

Update quitmsg.pl
---

diff --git a/scripts/quitmsg.pl b/scripts/quitmsg.pl
index 2e943ee..102d9aa 100644
--- a/scripts/quitmsg.pl
+++ b/scripts/quitmsg.pl
@@ -12,10 +12,10 @@ $VERSION = "1.01";
     name        => 'quitmsg',
     description => 'Random quit messages',
     license     => 'Public Domain',
-    changed	=> 'Mon Jul 13 18:00 EET 2020'
+    changed	=> 'Mon Jul 22 20:00 EET 2020'
 );
 
-my $quitfile = glob "~/.irssi/irssi.quit";
+my $quitfile = Irssi::get_irssi_dir() . "/irssi.quit";
 
 sub cmd_quit {
 	my ($data, $server, $channel) = @_;
@@ -24,7 +24,7 @@ sub cmd_quit {
 	open (my $fh, "<", $quitfile) || return;
 	my @lines = <$fh>;
 
-	my $quitmsg = $lines[int(rand(@lines))+1];
+	my $quitmsg = $lines[int(rand(@lines))];
 	chomp($quitmsg);
 	close($fh);