EPT
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
* chat07.ustream.tv gives voice to inasadYBFC-1
use strict;
use warnings;
use Xchat qw(:all);
Xchat::register("eat voice", "1.0");
Xchat::hook_print("Channel Voice",
sub
{
my $check = Xchat::get_info('server');
if($check =~ m/(.*)\.ustream\./ix)
{
return EAT_ALL;
} else {
return EAT_NONE;
}
}
);
Rather simple, but right now it's just a hack. I might expand it to have enable/disable and other config options, but for now it's just for all ustream channels.
PS, mIRC sucks.
