- my @channels;
- if ($channel && $c->check_user_roles('irc_masterinvite')){
- print "master $channel";
- push @channels,$channel;
- }else{
- print "master $channel";
- my @access = ('auto_invite');
- push @access, 'invite' if $channel;
- my $channels = $c->model->prepare(q{
-SELECT DISTINCT c.name FROM users u
- JOIN groupmembers g ON g.uid = u.uid
- JOIN channel_group_flags gf ON g.gid = gf.group
- JOIN channels c ON gf.channel = c.id
- JOIN channel_flags f ON f.id = gf.flag
-WHERE u.hostmask ILIKE $1 AND COALESCE(c.name = $2,TRUE)
- AND (f.name = ANY($3) )
- });
- $channels->execute($c->host,$channel,\@access);
- while (my ($channel) = $channels->fetchrow()){
+command invite => {
+ help => q(Syntax: invite [channel] | If no channel is specified it invites you to all channel you have auto invite access on),
+ type => q(pm)
+}, class extends NDIRC::Command {
+ method execute ($c,$msg) {
+ my ($channel) = $msg =~ /^\s*(\S+)?\s*$/ or die 'ARGS';
+
+ my @channels;
+ if ($channel && $c->check_user_roles('irc_masterinvite')){