Host.pl

use Irssi;
use vars qw($VERSION %IRSSI);
 
$VERSION = "0.1";
%IRSSI = (
    authors => 'PrincessLeia2',
    contact => 'lyz\@princessleia.com ',
    name => 'gimmie',
    description => 'a script, using !host will will get you a host.',
    license => 'GNU GPL v2 or later',
    url => 'http://www.princessleia.com/'
);
 
open ( HOSTS, "<.irssi/hosts" ) or die "can't open host:$!\n";
chomp( @hosts = <HOSTS> );
close hosts;
 
sub event_privmsg {
my ($server, $data, $nick, $mask, $target) =@_;
my ($target, $text) = $data =~ /^(\S*)\s:(.*)/;
    return if ( $target !~ /#test/i );
           if ( $text !~ /^!/i );
           if ( $text =~ /^!host *?$/i ) {
       $urfact = $hosts[rand @hosts];
          $server->command ( "msg $target $urfact" );
	}
}
Irssi::signal_add('event privmsg', 'event_privmsg');