From 7d6747c9ef4e8e98dbf0b9ee36c407770bec4eae Mon Sep 17 00:00:00 2001
From: Anthony Minessale <anthm@freeswitch.org>
Date: Wed, 5 Oct 2011 13:54:47 -0500
Subject: [PATCH] update

---
 scripts/perl/tonegen/rtttl2tgml.pl | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/scripts/perl/tonegen/rtttl2tgml.pl b/scripts/perl/tonegen/rtttl2tgml.pl
index 820e36cc4e..a8a3ed0632 100644
--- a/scripts/perl/tonegen/rtttl2tgml.pl
+++ b/scripts/perl/tonegen/rtttl2tgml.pl
@@ -18,8 +18,19 @@ our $NOTES = {
 
 
 my $file = shift or die "no file\n";
+my $rtttl;
+my $cr = "\n";
 
-my $rtttl = `cat $file`;
+if ($file eq "-nocr") {
+  $cr = "";
+  $file = shift;
+}
+
+if ($file eq "-") {
+  $rtttl = <STDIN>;
+} else {
+  $rtttl = `cat $file`;
+}
 
 $rtttl =~ s/\n//g;
 
@@ -53,7 +64,7 @@ foreach (@{$all}) {
 
   #print STDERR "$_->[0] $_->[1] $_->[2] $_->[3]\n";
   
-  print "%($ms, 0, $NOTES->{$_->[1]}->[$_->[2]]);\n";
+  print "%($ms,0,$NOTES->{$_->[1]}->[$_->[2]]);" . $cr;
 
 }