diff options
Diffstat (limited to 'modules/util.pl')
| -rw-r--r-- | modules/util.pl | 165 |
1 files changed, 165 insertions, 0 deletions
diff --git a/modules/util.pl b/modules/util.pl new file mode 100644 index 0000000..060eee0 --- /dev/null +++ b/modules/util.pl @@ -0,0 +1,165 @@ +#warning: if you add a function, put it into killsub! + +use warnings; +use strict; + +my %sf; +my %oq; + +my %RISKS = +( + 'debug' => 10, + 'info' => 20, + 'low' => 30, + 'medium' => 40, + 'high' => 50, + 'opalert'=> 9001 #OVER NINE THOUSAND!!! +); +#leaves room for more levels if for some reason we end up needing more +#theoretically, you should be able to change those numbers without any damage + +sub maxlen { + my ($a, $b) = @_; + my ($la, $lb) = (length($a), length($b)); + return $la if ($la > $lb); + return $lb; +} + +#cs: returns the xml settings for the specified chan, or default if there aren't any settings for that chan +sub cs { + my ($chan) = @_; + $chan = lc $chan; + return $::channels->{channel}->{$chan} if ( defined($::channels->{channel}->{$chan}) ); + return $::channels->{channel}->{default}; +} + +#this item is a stub, dur +sub hostip { + return gethostbyname($_[0]); +} + +# Send something that requires ops +sub o_send { + my ( $conn, $send ) = @_; + my @splt = split(/ /, $send); + my $chan = lc $splt[1]; + $oq{$chan} = [] unless defined($oq{$chan}); + if ( cs($chan)->{op} ne 'no' ) { + print Dumper(lc $::settings->{nick}, $::sc{$chan}{users}{lc $::settings->{nick}}); + print Dumper($send, $chan); + if ( $::sc{$chan}{users}{lc $::settings->{nick}}{op} eq 1) { + $conn->sl($send); + } + else { + push( @{$oq{$chan}},$send ); + $conn->privmsg( 'chanserv', "op $chan" ); + } + } +} + +sub doQueue { + my ( $conn, $chan ) = @_; + return unless defined $oq{$chan}; + $conn->sl(shift(@{$oq{$chan}})) while (@{$oq{$chan}}); +} + +sub flood_add { + my ( $chan, $id, $host, $to ) = @_; + push( @{$sf{$id}{$chan}{$host}}, time ); + while ( time >= $sf{$id}{$chan}{$host}[0] + $to ) { + last if ( $#{ $sf{$id}{$chan}{$host} } == 0 ); + shift( @{$sf{$id}{$chan}{$host}} ); + } + return $#{ @{$sf{$id}{$chan}{$host}}}+1; +} + +sub flood_process { + for my $id ( keys %sf ) { + for my $chan ( keys %{$sf{$id}} ) { + for my $host ( keys %{$sf{$id}{$chan}} ) { + next unless defined $sf{$id}{$chan}{$host}[0]; + while ( time >= $sf{$id}{$chan}{$host}[0] + $sf{$id}{'timeout'} ) { + last if ( $#{ $sf{$id}{$chan}{$host} } == 0 ); + shift ( @{$sf{$id}{$chan}{$host}} ); + } + } + } + } +} + +sub getAlert { + my ($c, $risk, $t) = @_; + @_ = (); + $c = lc $c; + foreach my $prisk ( keys %RISKS) { + if ( $RISKS{$risk} >= $RISKS{$prisk} ) { + push( @_, @{$::channels->{channel}->{master}->{$t}->{$prisk}} ) if defined $::channels->{channel}->{master}->{$t}->{$prisk}; + push( @_, @{cs($c)->{$t}->{$prisk}} ) if defined cs($c)->{$t}->{$prisk}; + } + } + return @_; +} + +sub commaAndify { + my @seq = @_; + my $len = ($#seq); + my $last = $seq[$len]; + return '' if $len eq -1; + return $seq[0] if $len eq 0; + return join( ' and ', $seq[0], $seq[1] ) if $len eq 1; + return join( ', ', splice(@seq,0,$len) ) . ', and ' . $last; +} + +sub parse_modes +{ + my ( $n ) = @_; + my @args = @{$n}; + my @modes = split '', shift @args; + my @new_modes=(); + my $t; + foreach my $c ( @modes ) { + if (($c eq '-') || ($c eq '+')) { + $t=$c; + } + else { + if ( defined( grep( /[abdefhIJkloqv]/,($c) ) ) ) { #modes that take args + push (@new_modes, [$t.$c, shift @args]); + } + elsif ( defined( grep( /[cgijLmnpPQrRstz]/, ($c) ) ) ) { + push (@new_modes, [$t.$c]); + } + else { + die "Unknown mode $c !\n"; + } + } + } + return \@new_modes; +} + +sub leq { + my ($s1, $s2) = @_; + return (lc $s1 eq lc $s2); +} + +sub seq { + my ($n1, $n2) = @_; + return 0 unless defined($n1); + return 0 unless defined($n2); + return ($n1 eq $n2); +} + +sub Util::killsub { + undef &cs; + undef &hostip; + undef &o_send; + undef &doQueue; + undef &flood_add; + undef &flood_process; + undef &getAlert; + undef &commaAndify; + undef &parse_modes; + undef ≤ + undef &seq; +} + +return 1; |