1use strict; 2use vars qw($VERSION %IRSSI); 3 4use Irssi; 5 6$VERSION = '1.00'; 7%IRSSI = ( 8 authors => 'Cybertinus', 9 contact => 'cybertinus@cybertinus.nl', 10 name => 'Greeter', 11 description => 'This script allows ' . 12 'you to greet the channel ' . 13 'You\'re joining with the ' . 14 'command /hello. The text ' . 15 'it shows depends on the time ' . 16 'you\'re living.', 17 license => 'GPL2', 18 changed => "2005-05-25 13:42:00 GMT+1+DST" 19); 20 21sub hello 22{ 23 my($data, $server, $witem, $time, $text) = @_; 24 return unless $witem; 25 # $witem (window item) may be undef. 26 27 # getting the current hour off the day 28 $time = (localtime(time))[2]; 29 30 if($time >= 18) 31 { 32 $text = Irssi::settings_get_str("evening_message"); 33 } 34 elsif($time >= 12) 35 { 36 $text = Irssi::settings_get_str("afternoon_message"); 37 } 38 elsif($time >= 6) 39 { 40 $text = Irssi::settings_get_str("morning_message"); 41 } 42 elsif($time >= 0) 43 { 44 $text = Irssi::settings_get_str("night_message") 45 } 46 $server->command("MSG $witem->{name} $text $data"); 47 48} 49 50Irssi::command_bind hello => \&hello; 51 52Irssi::settings_add_str("greeter", "evening_message", "good evenening"); 53Irssi::settings_add_str("greeter", "afternoon_message", "good afternoon"); 54Irssi::settings_add_str("greeter", "morning_message", "good morning"); 55Irssi::settings_add_str("greeter", "night_message", "good night"); 56