+++ /dev/null
-<?php
-/****************************************************************/
-/* ATalker */
-/****************************************************************/
-/* Copyright (c) 2002-2005 by Greg Gay */
-/* Adaptive Technology Resource Centre / University of Toronto */
-/* http://atutor.ca */
-/* */
-/* This program is free software. You can redistribute it and/or*/
-/* modify it under the terms of the GNU General Public License */
-/* as published by the Free Software Foundation. */
-/****************************************************************/
-// $Id: admin_voice.php 5123 2005-07-12 14:59:03Z greg $
-
-// This file contains the administrator's Manage Voice Files
-
- // Get the time to use as a default filename
- $now = time();
- $scheme_out = AT_SPEECH_DIR.$now.'.scm';
-
- if($_POST['create'] && !$_GET['page']){
- if(!$_POST['check'] ){
- $error = "TTS_NO_CHOICE_MADE";
- $msg->addError($error);
- }
- if(!$error){
-
- foreach ($_POST['check'] as $lang_var){
-
- $file_recieve = AT_SPEECH_URL.$lang_var.'.'.$_POST['file_type'];
- $voice_file = AT_SPEECH_TEMPLATE_DIR.$lang_var.'.'.$_POST['file_type'];
-
- $sql = "SELECT * from ".TABLE_PREFIX."language_text WHERE language_code = '".$_SESSION['lang']."' AND term = '".$lang_var."'";
- $result = mysql_query($sql, $db);
- $row = mysql_fetch_row($result);
-
- //remove markup from text input if not processed as SABLE formatted text
-
- if($_POST['type'] != "sable"){
- $row[3] = strip_tags($row[3]);
- }
-
- if($_POST['file_type'] == "mp3"){
-
- $file_out = AT_SPEECH_DIR.$lang_var.'.wav';
-
- //If SABLE is being used, generate the SABLE markup as the input file
-
-
- if($_POST['type'] == "sable"){
-
- $file_in = AT_SPEECH_DIR.$lang_var.'.sable';
- $sable_out = '
-<?xml version="1.0"?>
- <!DOCTYPE SABLE PUBLIC "-//SABLE//DTD SABLE speech mark up//EN" "Sable.v0_2.dtd"[]>
- <SABLE>
- <LANGUAGE ID="'.$_POST['language'].'" CODE="ISO-8859-1">
- <SPEAKER NAME="'.$_POST['speaker'].'">
- <PITCH BASE="'.$_POST['base'].'" MIDDLE="'.$_POST['middle'].'" RANGE="'.$_POST['range'].'">
- <RATE SPEED="'.$_POST['rate'].'">
- <VOLUMN LEVEL="'.$_POST['volumn'].'">';
- $sable_out .= $row[3].".";
- $sable_out .= '
- </VOLUMN>
- </RATE>
- </PITCH>
- </SPEAKER>
- </LANGUAGE>
- </SABLE>';
-
-
- //write the SABLE file
- $fp = fopen($file_in,'w');
- if (!$fp) {
- echo _AT('AT_ERROR_TTS_NOT_CREATE_SABLE');
- exit;
- }
- fputs($fp, $sable_out);
- fclose($fp);
- $command = "text2wave $file_in -o $file_out -F 48000";
- }else{
- // If not SABLE being used, generate a standard scheme voice properties file and input text file.
- $file_in = AT_SPEECH_DIR.$lang_var.'.txt';
- $scheme_out = AT_SPEECH_DIR.$now.'.scm';
- $file_props = "-mode --tts -eval ".$scheme_out;
-
- $fp = fopen($file_in,'w');
- if (!$fp) {
- echo _AT('AT_ERROR_TTS_NOT_CREATE_TEXT');
- exit;
- }
-
- fputs($fp, strip_tags($row[3]).'.');
- fclose($fp);
-
- $command = "text2wave $file_props $file_in -o $file_out -F 48000 -scale ".$_POST['volumn']."";
- }
-
- $file_out_mp3 = AT_SPEECH_DIR.$lang_var.'.mp3';
-
- if(shell_exec('lame --longhelp')){
- $command2 = 'lame --quiet '.$file_out.' '. $file_out_mp3;
- }else if (shell_exec('bladeenc -h')) {
- $command2 = 'bladeenc -quiet '.$file_out.' '. $file_out_mp3;
- }
-
- escapeshellcmd($command);
- escapeshellcmd($command2);
- passthru($command);
- passthru($command2);
-
- if(file_exists(AT_SPEECH_TEMPLATE_DIR.$lang_var.'.ogg')){
- unlink(AT_SPEECH_TEMPLATE_DIR.$lang_var.'.ogg');
- }
-
- if(file_exists(AT_SPEECH_TEMPLATE_DIR.$lang_var.'.mp3')){
- unlink(AT_SPEECH_TEMPLATE_DIR.$lang_var.'.mp3');
- }
-
- if(copy($file_recieve, $voice_file)){
- $feedback = TTS_FILE_SAVED;
- $msg->addFeedback($feedback);
- }else{
- $error = TTS_FILE_SAVE_FAILED;
- $msg->addError($error);
- }
-
-
- }else if($_POST['file_type'] == "ogg"){
- $file_out = AT_SPEECH_DIR.$lang_var.'.wav';
-
- if($_POST['type'] == "sable"){
- $file_in = AT_SPEECH_DIR.$lang_var.'.sable';
-
- $sable_out = '
-<?xml version="1.0"?>
- <!DOCTYPE SABLE PUBLIC "-//SABLE//DTD SABLE speech mark up//EN" "Sable.v0_2.dtd"[]>
- <SABLE>
- <LANGUAGE ID="'.$_POST['language'].'" CODE="ISO-8859-1">
- <SPEAKER NAME="'.$_POST['speaker'].'">
- <PITCH BASE="'.$_POST['base'].'" MIDDLE="'.$_POST['middle'].'" RANGE="'.$_POST['range'].'">
- <RATE SPEED="'.$_POST['rate'].'">
- <VOLUMN LEVEL="'.$_POST['volumn'].'">';
- $sable_out .= $row[3].".";
- $sable_out .= '
- </VOLUMN>
- </RATE>
- </PITCH>
- </SPEAKER>
- </LANGUAGE>
- </SABLE>';
- //write the SABLE file
- $fp = fopen($file_in,'w');
- if (!$fp) {
- echo _AT('AT_ERROR_TTS_NOT_CREATE_SABLE');
- exit;
- }
-
- fputs($fp, $sable_out);
- fclose($fp);
- $command = "text2wave $file_in -o $file_out -F 48000";
-
- } else{
- // If not SABLE being used, generate a standard scheme file and input text file.
- $file_in = AT_SPEECH_DIR.$lang_var.'.txt';
- $scheme_out = AT_SPEECH_DIR.$now.'.scm';
- $file_props = "-mode --tts -eval ".$scheme_out;
-
- $fp = fopen($file_in,'w');
- if (!$fp) {
- echo _AT('AT_ERROR_TTS_NOT_CREATE_TEXT');
- exit;
- }
- fputs($fp, $row[3].'.');
- fclose($fp);
- $command = "text2wave $file_props $file_in -o $file_out -F 48000 -scale ".$_POST['volumn']."";
- }
-
-
- $file_out_ogg = AT_SPEECH_DIR.$lang_var.'.ogg';
- $command2 = 'oggenc -quiet '.$file_out.' '. $file_out_ogg;
-
- escapeshellcmd($command);
- escapeshellcmd($command2);
- passthru($command);
- passthru($command2);
-
- if(file_exists(AT_SPEECH_TEMPLATE_DIR.$lang_var.'.mp3')){
- unlink(AT_SPEECH_TEMPLATE_DIR.$lang_var.'.mp3');
- }
-
- if(file_exists(AT_SPEECH_TEMPLATE_DIR.$lang_var.'.ogg')){
- unlink(AT_SPEECH_TEMPLATE_DIR.$lang_var.'.ogg');
- }
-
- if(copy($file_recieve, $voice_file)){
- $feedback = TTS_FILE_SAVED;
- $msg->addFeedback($feedback);
- }else{
- $error = TTS_FILE_SAVE_FAILED;
- $msg->addError($error);
- }
-
- }else if($_POST['file_type'] == "wav"){
- $error = TTS_NO_WAV_ALLOWED;
- $msg->addError($error);
- }
- }
-
- }
-
- }else if($_POST['remove'] && !$_GET['page']){
-
- if(!$_POST['check']){
-
- $error = array(TTS_FILES_REMOVED_CHECK);
- $msg->addError($error);
-
- }else{
-
- foreach ($_POST['check'] as $lang_var){
- if(file_exists(AT_SPEECH_TEMPLATE_DIR.$lang_var.".ogg")){
-
- unlink(AT_SPEECH_TEMPLATE_DIR.$lang_var.".ogg");
-
- }else if(file_exists(AT_SPEECH_TEMPLATE_DIR.$lang_var.".mp3")){
-
- unlink(AT_SPEECH_TEMPLATE_DIR.$lang_var.".mp3");
-
- };
-
- }
-
- $feedback = array(TTS_FILES_REMOVED);
- $msg->addFeedback($feedback);
-
- }
-
- }
-
-if($_GET['delete']){
- if(unlink(AT_SPEECH_TEMPLATE_DIR.$_GET['delete'])){
- $feedback = FILE_DELETED;
- $msg->addFeedback($feedback);
- }else{
- $error = TTS_FILE_DELETE_FAILED;
- $msg->addError($error);
- }
- unset($_GET['delete']);
-}
-?>
\ No newline at end of file
projects / atutor.git / blobdiff