Keep output in same order as trigger input

2 files changed, 19 insertions, 12 deletions

diff --git a/saxrobot b/saxrobot
index 5f2dc79..da97e47 100755
--- a/saxrobot
+++ b/saxrobot
@@ -84,17 +84,12 @@ sub irc_public {
 	my $me = $irc->nick_name;
 
 	my $collected_response = "";
-	for (@{$config{triggers}}) {
-		my ($match, $response) = split /=>/;
-		# strip quotes
-		$match =~ s/^[^']*'|'[^']*$//g;
-		$response =~ s/^[^']*'|'[^']*$//g;
-
-		# do the count
-		my $repcount = () = $what =~ /$match/gi;
-		if ($repcount > 0) {
-			$collected_response .= $response x $repcount;
-		}
+	print $config{triggers};
+	my @k = (keys %{$config{triggers}});
+	my $expression = join '|', @k;
+	print "expression: $expression\n";
+	while ($what =~ /($expression)/g) {
+		$collected_response .= $config{triggers}->{$1};
 	}
 	$irc->yield(privmsg => $channel => $collected_response) if $collected_response;
 
diff --git a/sb_config.pm b/sb_config.pm
index 5440f0c..dcff683 100644
--- a/sb_config.pm
+++ b/sb_config.pm
@@ -9,7 +9,7 @@ use Config::Tiny;
 sub parse_config
 {
 	my @scalar_configs = ('nick', 'username', 'ircname', 'server', 'port', 'password', 'must_id');
-	my @list_configs = ('channels', 'ignore', 'admins', 'triggers');
+	my @list_configs = ('channels', 'ignore', 'admins');
 	my $file = $_[0];
 	my %built_config;
 	my $config = Config::Tiny->read($file);
@@ -25,6 +25,18 @@ sub parse_config
 		@built_config{$option} = [split /\s*,\s*/, $vals];
 	}
 
+	# special case: triggers hash
+	my %triggers;
+	foreach (split ',', $config->{_}->{triggers}) {
+		my ($match, $response) = split /=>/;
+		# strip outer quotes
+		$match =~ s/^[^']*'|'[^']*$//g;
+		$response =~ s/^[^']*'|'[^']*$//g;
+		$triggers{$match} = $response;
+	}
+
+	$built_config{triggers} = \%triggers;
+
 	return %built_config;
 }
 1;