aniani/irssi
0
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2025-06-30 22:18:06 -04:00
Code

Randomizes the quit msg only if it wasn't given.

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1853 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-10-19 17:28:34 +00:00 committed by cras
parent e746a0b679
commit 0d4de36c6e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scripts/quitmsg.pl
View File

@ -1,4 +1,5 @@
# Quit with a random quit message read from ~/.irssi/irssi.quit
# If quit message isn't given, quit with a random message
# read from ~/.irssi/irssi.quit
use Irssi;
use Irssi::Irc;
@ -8,6 +9,7 @@ my $quitfile = glob "~/.irssi/irssi.quit";
sub cmd_quit {
my ($data, $server, $channel) = @_;
return if ($data eq "");
open (f, $quitfile) || return;
my $lines = 0; while(<f>) { $lines++; };