diff options
| -rwxr-xr-x | localmarkdown2sms | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/localmarkdown2sms b/localmarkdown2sms index 8db1096..2959544 100755 --- a/localmarkdown2sms +++ b/localmarkdown2sms @@ -57,14 +57,14 @@ foreach my $file (read_dir( $path )) { $key = lc($1); $i = 0; if (lc($content) ne $key) { - warn( "key \"$key\" extracted from fuzzy string \"$content\" in file \"$file\"" ); + print STDERR "key \"$key\" extracted from fuzzy string \"$content\" in file \"$file\"\n"; } if (!defined( $delay{$key})) { $delay{$key}[0] = 0; $warn_nonkey_delay = undef; $warn_nonkey_content = undef; } else { - warn( "skipping non-unique key \"$key\" in file \"$file\"" ); + print STDERR "skipping non-unique key \"$key\" in file \"$file\"\n"; $key = undef; } # delay @@ -77,14 +77,14 @@ foreach my $file (read_dir( $path )) { } $delay{$key}[$i] += $delay; if ($content ne $1) { - warn( "delay (${delay}s) resolved from fuzzy string \"$content\" in file \"$file\"" ); + print STDERR "delay (${delay}s) resolved from fuzzy string \"$content\" in file \"$file\"\n"; } } else { - warn( "ignoring non-key'ed delay line \"$1\" in file \"$file\"" ) unless ($warn_nonkey_delay); + print STDERR "ignoring non-key'ed delay line \"$1\" in file \"$file\"\n" unless ($warn_nonkey_delay); $warn_nonkey_delay = 1; } } else { - warn( "ignoring non-parsable headline \"$line\" in file \"$file\""); + print STDERR "ignoring non-parsable headline \"$line\" in file \"$file\"\n"; } # reply } elsif ( defined( $key )) { @@ -97,7 +97,7 @@ foreach my $file (read_dir( $path )) { $content =~ s/\h*$//g; # strip all trailing spaces $reply{$key}[$i] = $content; } else { - warn( "skipping non-key'ed content \"$line\" in file \"$file\"" ) unless ($warn_nonkey_content); + print STDERR "skipping non-key'ed content \"$line\" in file \"$file\"\n" unless ($warn_nonkey_content); $warn_nonkey_content = 1; } } |