diff options
| author | Timo Sirainen <cras@irssi.org> | 2002-03-10 21:28:38 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-03-10 21:28:38 +0000 |
| commit | 03c71116e044fda9d99e827a4ffb0652d508abb5 (patch) | |
| tree | df36506fb09ad6563feaf394a0a47728348cadd6 /scripts/autorejoin.pl | |
| parent | 1855e6cc5c84ec861bf1301c09841cb2fd9ad718 (diff) | |
| download | irssi-03c71116e044fda9d99e827a4ffb0652d508abb5.zip | |
added/removed some default scripts
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2569 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'scripts/autorejoin.pl')
| -rw-r--r-- | scripts/autorejoin.pl | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/scripts/autorejoin.pl b/scripts/autorejoin.pl index 3738f5fc..a6dd4b58 100644 --- a/scripts/autorejoin.pl +++ b/scripts/autorejoin.pl @@ -6,8 +6,19 @@ # will just result as ban. You've probably misunderstood the idea of /KICK # if you kick/get kicked all the time "just for fun" ... -use strict; +use Irssi; use Irssi::Irc; +use strict; +use vars qw($VERSION %IRSSI); + +$VERSION = "1.00"; +%IRSSI = ( + authors => 'Timo Sirainen', + name => 'autorejoin', + description => 'Automatically rejoin to channel after kicked', + license => 'Public Domain', + changed => 'Sun Mar 10 23:18 EET 2002' +); sub channel_rejoin { my ($server, $channel) = @_; |