if ( scalar keys %users < 2 ) {
&status( '!' x 40 );
- &status(
-"!!! Ok. Now type '/msg $ident PASS <pass>' to get master access through DCC CHAT."
- );
+ &status("!!! Ok. Now type '/msg $ident PASS <pass>' to get master access through DCC CHAT.");
&status( '!' x 40 );
}
-
# end of first time run.
if ( &IsChanConf('Wingate') > 0 ) {
# Q, as on quakenet.org.
if ( &IsParam('Q_pass') ) {
&status('Authing to Q...');
- &rawout(
-"PRIVMSG Q\@CServe.quakenet.org :AUTH $param{'Q_user'} $param{'Q_pass'}"
- );
+ &rawout("PRIVMSG Q\@CServe.quakenet.org :AUTH $param{'Q_user'} $param{'Q_pass'}");
}
- &status('End of motd. Now lets join some channels...');
+ &status("$ident End of motd. Now lets join some channels...");
#&joinNextChan();
}
&chanServCheck($chan);
+ # FIXME: scheduler is b0rken! flood join for now
# schedule used to solve ircu (OPN) 'target too fast' problems.
- $conn->schedule( 5, sub { &joinNextChan(); } );
+ #$conn->schedule( 5, sub { &joinNextChan(); } );
+ &joinNextChan();
}
sub on_init {
### ROOTWARN:
&rootWarn( $who, $user, $host, $chan )
if ( &IsChanConf('RootWarn') > 0
- && $user =~ /^~?r(oo|ew|00)t$/i );
+ && $user eq 'root' );
+ #&& $user =~ /^~?r(oo|ew|00)t$/i );
### emit a message based on who just joined
&onjoin( $who, $user, $host, $chan ) if ( &IsChanConf('OnJoin') > 0 );
# revert to main nick. Note that Net::IRC only knows our main nick
if ( $nick eq $conn->nick() ) {
&status("nickchange: own nick \"$nick\" became free; changing.");
- &nick($mynick);
+ &nick($nick);
}
}
my ($event) = @_;
my @args = $event->args;
- &status(">>> chanfull/$b_blue$args[1]$ob");
-
+ &status(">>> chanfull/$b_blue$args[1]$ob, removing autojoin");
+ delete $chanconf{$chan}{autojoin};
&joinNextChan();
}
my ($event) = @_;
my @args = $event->args;
- &status(">>> inviteonly/$b_cyan$args[1]$ob");
-
+ &status(">>> inviteonly/$b_cyan$args[1]$ob, removing autojoin");
+ delete $chanconf{$chan}{autojoin};
&joinNextChan();
}