use vars qw($VERSION %IRSSI);

use Irssi 20020120;
$VERSION = "0.02";
%IRSSI = (
    authors	=> "sneu, mristeli, Finwe",
    contact	=> "sneuvone\@cs.hut.fi",
    name	=> "Is it Friday?",
    description	=> "Use /isit",
    license	=> "Public Domain",
    url		=> "",
    changed	=> "Fri Apr 13 15:36 CEST 2007, 
                    Fri Apr 13 17:58 CEST 2007
                    Fri Aug 20 23:13 CEST 2010",
);


sub cmd_isit {
        my ($msg, $server, $witem) = @_;
 	my $text;
	my @timestruct = (localtime(time()));

	if ($timestruct[6] == 5) {
	    $text .= "Is it Friday? \00303Yes!";
	} else {
	    $text .= "Is it Friday? \00305No.";
	}
        
        if($msg eq "-quiet") {
            $witem->print($text);
        } else { 
            if ($witem && ($witem->{type} eq 'CHANNEL' || $witem->{type} eq 'QUERY')) {
                $witem->command("MSG " . $witem->{name} ." ". $text);
            } 
        }
}

Irssi::command_bind('isit','cmd_isit');