# Version: 20000126
# NOTE: Based on code by Kevin Lenzo & Patrick Cole (c) 1997
#
+use vars qw(%chanconf);
# GENERIC. TO COPY.
sub on_generic {
if ($message =~ s/^\.//) { # dcc chat commands.
### TODO: make use of &Forker(); here?
- &loadMyModule( $myModules{'ircdcc'} );
+ &loadMyModule( $myModules{'UserDCC'} );
&DCCBroadcast("#$who# $message","m");
### ROOTWARN:
&rootWarn($who,$user,$host,$chan) if (
- &IsChanConf("rootWarn") &&
+ &IsChanConf('RootWarn') &&
$user =~ /^~?r(oo|ew|00)t$/i
);
my @args = $event->args;
my $chan = $args[1];
- &status(">>> banned/$b_blue$chan$ob $b_cyan$args[0]$ob");
- #FIXME if $args[0] == me then kill autojoin!
+ &status(">>> banned/$b_blue$chan$ob $b_cyan$args[0]$ob, removing autojoin for $chan");
+ delete $chanconf{$chan}{autojoin};
&joinNextChan();
}
$conn = shift(@_);
my ($event) = @_;
my @args = $event->args;
+ my $chan = $args[1];
- &DEBUG("on_badchankey: args => @args");
+ &DEBUG("on_badchankey: args => @args, removing autojoin for $chan");
+ delete $chanconf{$chan}{autojoin};
&joinNextChan();
}
&joinNextChan();
}
+# TODO not used yet
+sub on_stdin {
+ my $line = <STDIN>;
+ chomp($line);
+ &FIXME("on_stdin: line => \"$line\"");
+}
+
1;