From e95c6c1e4964dd84e29ba1be6fce75f5e9e1676a Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Sat, 8 Aug 2009 19:41:55 +0200
Subject: Improve warnings: use print STDERR (not warn()).

---
 localmarkdown2sms | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'localmarkdown2sms')

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;
 	}
     }
-- 
cgit v1.2.3