1 # If quit message isn't given, quit with a random message
2 # read from ~/.irssi/irssi.quit
8 my $quitfile = glob "~/.irssi/irssi.quit";
11 my ($data, $server, $channel) = @_;
12 return if ($data ne "");
14 open (f, $quitfile) || return;
15 my $lines = 0; while(<f>) { $lines++; };
17 my $line = int(rand($lines))+1;
20 seek(f, 0, 0); $. = 0;
22 next if ($. != $line);
30 foreach my $server (Irssi::servers) {
31 $server->command("/disconnect ".$server->{tag}." $quitmsg");
35 Irssi::command_bind('quit', 'cmd_quit');