kenmirrors
/
freeswitch
mirror of https://github.com/signalwire/freeswitch.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

update

This commit is contained in:
Anthony Minessale 2011-10-05 13:54:47 -05:00
parent 86efff6c1f
commit 7d6747c9ef
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
scripts/perl/tonegen/rtttl2tgml.pl
View File

@ -18,8 +18,19 @@ our $NOTES = {
my $file = shift or die "no file\n"; 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; $rtttl =~ s/\n//g;
@ -53,7 +64,7 @@ foreach (@{$all}) {
#print STDERR "$_->[0] $_->[1] $_->[2] $_->[3]\n"; #print STDERR "$_->[0] $_->[1] $_->[2] $_->[3]\n";
print "%($ms, 0, $NOTES->{$_->[1]}->[$_->[2]]);\n"; print "%($ms,0,$NOTES->{$_->[1]}->[$_->[2]]);" . $cr;
} }