From: Anthony Minessale <anthm@freeswitch.org>
Date: Wed, 5 Oct 2011 18:54:47 +0000 (-0500)
Subject: update
X-Git-Tag: v1.2-rc1~27^2~372^2~1
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7d6747c9ef4e8e98dbf0b9ee36c407770bec4eae;p=thirdparty%2Ffreeswitch.git

update
---

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;
 
 }