Added Spanish and French sounds for date and say functions to work in those languages

git-svn-id: svn://192.168.202.10@1448 3d104415-ff17-0410-8863-d5cf3c621b8a

agi/agi-CALLCARD_dial_in.agi

@@ -20,6 +20,7 @@
 # ; 1. language
 # ; 	- en -			English <default>
 # ; 	- es -			Spanish
+# ; 	- fr -			French, not fully supported
 # ; 2. maximum attempts before hangup:
 # ; 	- 3        <default>
 # ; 3. audio file enter pin number prompt:
@@ -131,8 +132,23 @@ if (length($ARGV[0])>1)
 	if (length($ARGV_vars[3]) > 0) {$pin_invalid_audio = 	$ARGV_vars[3];}
 	if (length($ARGV_vars[4]) > 0) {$did_ingroup_settings = $ARGV_vars[4];}
 	}
-if ($language =~ /es/) {$audio_suffix='_es';}
-else {$audio_suffix='';}
+if ($language =~ /es/) 
+	{
+	$audio_suffix='_es';
+	$AGI->exec("EXEC Set(CHANNEL(language)=$language)");
+#	$AGI->exec("SetLanguage($language)");
+	$AGI->stream_file('sip-silence');
+	$AGI->stream_file('sip-silence');
+	}
+if ($language =~ /fr/) 
+	{
+	$audio_suffix='_fr';
+	$AGI->exec("EXEC Set(CHANNEL(language)=$language)");
+#	$AGI->exec("SetLanguage($language)");
+	$AGI->stream_file('sip-silence');
+	$AGI->stream_file('sip-silence');
+	}
+if ($language !~ /es|fr/) {$audio_suffix='';}
 
 
 $|=1;
@@ -302,10 +318,7 @@ else
 
 	##### play customer's balance to them before transferring
 	$AGI->stream_file("vm-youhave$audio_suffix");
-	if ($language=='es')
-		{$AGI->stream_file("$balance_minutes$audio_suffix");}
-	else
-		{$AGI->say_number("$balance_minutes");}
+	$AGI->say_number("$balance_minutes");
 	$AGI->stream_file("callcard_minutes_left$audio_suffix");
 
 

install.pl

@@ -2302,7 +2302,7 @@ if ($WEBONLY < 1)
 	`chmod 0755 $PATHagi/*`;
 
 	print "Copying sounds to $PATHsounds...\n";
-	`cp -f ./sounds/* $PATHsounds/`;
+	`cp -fR ./sounds/* $PATHsounds/`;
 
 	print "Copying ip_relay scripts to $PATHhome...\n";
 	`cp -fR ./extras/ip_relay $PATHhome/`;

sounds/digits/en/h-4.gsm

@@ -0,0 +1,8 @@
+Ö$”!”PBX—AVÀÚ]z— @Ìå·%î@¬[Z(ã×"”¤êÁ<RÔ£„€½)QÍ"²à¹d1»*àà¶ì‰Ç2Ùæ”!’ÝÁ)+¢`“z©KY$¸ë‘±ÜÁ‡àäÓ6\×èÄ’£zª‘Ibá‡Gcr¦ù]ïI–,Ví6Ó�¾1Ô%ó��ñèŠSöÚd6žé´Óv¯,œn6¯î.¦Ü�^”ÓgüCcº©©½”}G×Å‘·#~¨ÒêM·â¾ÈÔ£oÄÚÓ)û#�FɆGÁ„i�«u,�æF¤qÁ±ƒ¢S\qžÍÓ%ü†”ÅÁº–Ñm…¢—š|i#…Ĺ­×G…2âmUøÒéû’‡D2Û“âÒËE5#ù4Ó‰eÇ<N5#Íã>ÝŠFØÒ­ú
+ì‰#ö›IHµÏcÊÙuXðÑ#è“«Áœ�âE!ìÚ;ÓoñÃlÕã8¦T9¢‘D©=b'ÛDYä␍HÕ•ãíÈYÓ3¹S+—Fû26â˜ÈöÚq¨Ù�'rá­·"�)õn7"Ó°²‹aQåtr«(Sˆ
+ÔrGU…ŽÓcU…srš²Ôo£‹¡W)ÅËMªÛ­HÆüm)cYÃ:¢=V [*·}ÄÔÔïT˜µ)DÜqú¢\ɸÜ�IÓ»'El’6ç¨è&Œ‘ÆÄÔíTa¢>™Æ7LcÂE²M^Ç%ØÜvö!e¤+7ZÔêe^(XÅs$`g©âf8ži
+Ü}4ÔÓE9Z®ÕÕ)]aà–Å Ð~Æ¢Õ(?j7qE8Ô¼â£äª7$‘¶çÖf<b¡¼å–qÈèyçDôÄöäwF91Z:ûg&
+ÃhÞëÖ`D§ìæ©.ÁA²¨§,�º÷}'
+Û�u*|Å䵜6¢×fCʼ#Å6
+¹·|¥èq¹*|„*ÖÊäºÅHÏJ×4Ø犑’~äXÒB]$¶¢A/×@â£X71µZì£ã�µTÙëÌžc‰$†[_F§é’GV㱞FK˜¸ÃK/° YÚkœ#‘cÑ}p	vܤÆ"NµÓ²ƒî
»0¹ç[ÖÀdÚ(´"£¸§z’âëp¨¸Û’1.Pź´FÒW%ò¥n3tÙè¤^ʤ¸ø‚IÔÃBW�+™îä=Ò–½�Cô…ÚÔÚë£Ñc˜ãJÊ�£*¸Á¶ò¢-UÒ¡ÙŠ/­"¢Á×ê‚GZÛ*œê¢UÍ-Å[p�t²ÊÛ–Á3u$õ°�­Ó);%Ú(›‘â€áFœOGºA5l�	T·!HÝmÐ¥�À戶Je×f‹ZΠæ
+•+„ Ù#¶2ì¨à¦²2¹k¬ÀC™Ï%“Ø ‹–àŠ HtVI#´ 7±7lè &Û–ØÒ’ IdmIÕ�›åŒ G+mË#Ê@6â‘×$”@6ãrÉ#Ü@6Û­É$