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