lots of modularization done, needs testing and is unstable

1 files changed, 14 insertions, 27 deletions

diff --git a/modules/actions.pl b/modules/actions.pl
index 7d6717d..386e51a 100644
--- a/modules/actions.pl
+++ b/modules/actions.pl
@@ -4,45 +4,32 @@ use warnings;
 #package Actions;
 
 sub Actions::ban {
-  our ($conn, $event, $unmode, $chan, %dct, $id);
-  o_send( $conn, "mode $chan +b *!*\@$event->{host}" );
-  $unmode="mode $chan -b *!*\@$event->{host}";
+  my ($conn, $event, $chan) = @_;
+  $::oq->o_send( $conn, "mode $chan +b *!*\@$event->{host}" );
+  return "mode $chan -b *!*\@$event->{host}";
 }
 
 sub Actions::kban {
-  our ($conn, $event, $unmode, $chan, %dct, $id);
-  o_send($conn, "mode $chan +b *!*\@$event->{host}");
-  o_send($conn, "kick $chan $event->{nick} :$dct{$id}{reason}");
-  $unmode = "mode $chan -b *!*\@$event->{host}";
+  my ($conn, $event, $chan) = @_;
+  $::oq->o_send($conn, "mode $chan +b *!*\@$event->{host}");
+  $::oq->o_send($conn, "kick $chan $event->{nick} :Spamming");
+  return "mode $chan -b *!*\@$event->{host}";
 }
 
 sub Actions::kick {
-  our ($conn, $event, $unmode, $chan, %dct, $id);
-  o_send($conn, "kick $chan $event->{nick} :$dct{$id}{reason}");
+  my ($conn, $event, $chan) = @_;
+  $::oq->o_send($conn, "kick $chan $event->{nick} :Spamming");
+  return "";
 }
 
 sub Actions::none {
-  return;
+  return "";
 }
 
 sub Actions::quiet {
-  our ($conn, $event, $unmode, $chan, %dct, $id);
-  o_send( $conn, "mode $chan +b %*!*\@$event->{host}" );
-  $unmode = "mode $chan -b %*!*\@$event->{host}";
-}
-
-sub Actions::fmod_wiki {
-  our ($conn, $event, $unmode, $chan, %dct, $id);
-  o_send( $conn, "mode $chan -b *!*\@$event->{host}" );
-  o_send( $conn, "mode $chan +b *!*\@$event->{host}!#wikimedia-ops" );
-}
-
-sub Actions::killsub {
-  undef &Actions::ban;
-  undef &Actions::kban;
-  undef &Actions::kick;
-  undef &Actions::none;
-  undef &Actions::quiet;
+  my ($conn, $event, $chan) = @_;
+  $::oq->o_send( $conn, "mode $chan +b %*!*\@$event->{host}" );
+  return "mode $chan -b %*!*\@$event->{host}";
 }
 
 return 1;