# description: simply, use /fun <word>

# Author: tomekk
# e-mail:  tomekk/@/oswiecim/./eu/./org
# home page: http://tomekk.oswiecim.eu.org/
#
# Version 0.1
#
# This file is Copyrighted under the GNU Public License.
# http://www.gnu.org/copyleft/gpl.html

use Irssi;
use vars qw($VERSION %IRSSI);
use strict;

$VERSION = '0.1';
%IRSSI = (
	  authors     => 'tomekk',
	  contact     => 'tomekk\@\oswiecim\.\eu\.\org',
	  name        => 'fun',
	  description => 'write f u n  w o r d s',
	  license     => 'GPL',
	  url         => 'http://irssi.org/scripts/',
	  changed     => 'sat jan 03 15:00:22 CEST 2005',
	  commands    => '/fun'
);

sub funs {
	
	my ($data, $server, $channel) = @_;

	my $long_string;
	my @new_fun;

	@new_fun = split(//, $data);

	$long_string = join(' ', @new_fun);

	Irssi::active_win()->command('/say ' . $long_string);		
}

Irssi::command_bind('funs', 'funs');