Fix lowercasing keyword.

1 files changed, 5 insertions, 3 deletions

diff --git a/localmarkdown2sms b/localmarkdown2sms
index 54e3cc9..380e1c5 100755
--- a/localmarkdown2sms
+++ b/localmarkdown2sms
@@ -45,9 +45,9 @@ foreach my $file (read_dir( $path )) {
 		$content = $2;
 		# key
 		if ($level == 1 and $content =~ /(\w+)/) {
-			$key = $1;
+			$key = lc($1);
 			$i = 0;
-			if ($content ne $key) {
+			if (lc($content) ne $key) {
 				warn( "key \"$key\" extracted from fuzzy content: \"$content\"" );
 			}
 			if (!defined( $delay{$key})) {
@@ -88,10 +88,11 @@ foreach my $file (read_dir( $path )) {
 my ($phone) = shift @ARGV;
 my ($key) = shift @ARGV;
 
+my $num_children = $#{ $reply{$key} };    # How many children we'll create
 $SIG{CHLD} = 'IGNORE';   # Don't worry about reaping zombies
 
 # Spawn off some children
-for my $num ( 1 .. $#{ $reply{$key} } ) {
+for my $num ( 1 .. $num_children ) {
 	$reply{$key}[$num] =~ s/^\s*(.*?)\s*$/$1/s;
 
 	run_fork { child {
@@ -102,5 +103,6 @@ for my $num ( 1 .. $#{ $reply{$key} } ) {
 		exit;
 	} };
 }
+warn ("spawned $num_children reply processes");
 
 1;