$ROOT_DIR="$ENV{DOCUMENT_ROOT}/SID";
$SID_path="$ROOT_DIR/data/sid";
$SID_file="$ROOT_DIR/data/sid_file";
$USER_file="$ROOT_DIR/data/user_file";
$QUOTE_dir="$ROOT_DIR/data/quotes";
$FILES_dir="$ROOT_DIR/data/files";
$vida_sid=10000;

# Definimos el máximo tamaño de fichero a enviar a Orchestra.es como 4MB.
$MAX_ENVIO=4*1024*1024;
$ORCHESTRA_home="http://www.orchestra.es/";

$plantillas="$ENV{DOCUMENT_ROOT}";
$http_plantillas="http://www.orchestra.es/content/spanish";
$plantilla_inicio="$plantillas"."/content/spanish/home.htm";

# Datos del escritorio.

$COL_ESCRITORIO = 3;
$FIL_ESCRITORIO = 2;

# Este hash relaciona un servicio de de la cuenta con el código HTML que debe
# mostrarse en el escritorio para obtenerlo. Los servicios son en mayúsculas
# para los traductores y en minúsculas para los clientes.
#
# La codificación de servicios es:
#
#    a, A: Ayuda.
#    r, R: Archivo de ficheros (file repository).

$appEscHTML{a} = "<a href=\"#\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage('Ayuda','','/cuentas/graficos/ayudaB.gif',1)\" onMouseDown=\"MM_swapImage('Ayuda','','/cuentas/graficos/ayudaA.gif',1)\" onClick=\"window.document.escritorio.procedure.value='muestraAyuda'; window.document.escritorio.submit()\"><img src=\"/cuentas/graficos/ayudaC.gif\" border=\"0\" name=\"Ayuda\" value=\"Ayuda\" alt=\"Ayuda sobre esta p&aacute;gina\"></a>";
$appEscHTML{A} = "<a href=\"#\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage('Ayuda','','/cuentas/graficos/ayudaB.gif',1)\" onMouseDown=\"MM_swapImage('Ayuda','','/cuentas/graficos/ayudaA.gif',1)\" onMouseUp=\"MM_findObj('procedure').value='muestraAyuda';MM_findObj('escritorio').submit();return true;\"><img src=\"/cuentas/graficos/ayudaC.gif\" border=\"0\" name=\"Ayuda\" value=\"Ayuda\" alt=\"Ayuda sobre esta p&aacute;gina\"></a>";

$appEscHTML{r} = "<a href=\"#\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage('Archivo','','/cuentas/graficos/archivoB.gif',1)\" onMouseDown=\"MM_swapImage('Archivo','','/cuentas/graficos/archivoA.gif',1)\" onClick=\"window.document.escritorio.procedure.value='archivoFicheros'; window.document.escritorio.submit()\"><img src=\"/cuentas/graficos/archivoC.gif\" border=\"0\" name=\"Archivos\" value=\"Archivos\" alt=\"Archivo de ficheros\"></a>";
$appEscHTML{R} = "<a href=\"#\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage('Archivo','','/cuentas/graficos/archivoB.gif',1)\" onMouseDown=\"MM_swapImage('Archivo','','/cuentas/graficos/archivoA.gif',1)\" onClick=\"window.document.escritorio.procedure.value='archivoFicheros'; window.document.escritorio.submit()\"><img src=\"/cuentas/graficos/archivoC.gif\" border=\"0\" name=\"Archivos\" value=\"Archivos\" alt=\"Archivo de ficheros\"></a>";

# Paginas que se devuelven desde funciones llamadas por procedure.
$plantilla_quoteOK="/content/spanish/dynamic/services.htm";
$plantilla_wizard1OK="/content/spanish/dynamic/wizard/";
$plantilla_wizard1wOK="/content/spanish/dynamic/wizard/quickquote.";
$plantilla_wizard1wNOK="/content/spanish/dynamic/wizard/";

# Precios por palabra.
$ppp{eformat} = 0.13;
$ppp{pformat} = 0.15;

$presMinimo = 20;

# Cómo se llama un idioma en los distintos idiomas.
$lang{ie_spanish} = "Espa&ntilde;ol internacional";
$lang{es_spanish} = "Espa&ntilde;ol castellano";
$lang{ar_spanish} = "Espa&ntilde;ol de Argentina";
$lang{co_spanish} = "Espa&ntilde;ol de Colombia";
$lang{cl_spanish} = "Espa&ntilde;ol de Chile";
$lang{mx_spanish} = "Espa&ntilde;ol de M&eacute;jico";
$lang{pe_spanish} = "Espa&ntilde;ol de Per&uacute;";
$lang{pr_spanish} = "Espa&ntilde;ol de Puerto Rico";
$lang{ve_spanish} = "Espa&ntilde;ol de Venezuela";
$lang{it_spanish} = "Italiano";
$lang{de_spanish} = "Alem&aacute;n";
$lang{uk_spanish} = "Ingl&eacute;s";
$lang{pt_spanish} = "Portugu&eacute;s";
$lang{fr_spanish} = "Franc&eacute;s";

$lang{ie_english} = "International spanish";
$lang{es_english} = "Castilian Spanish";
$lang{ar_english} = "Argentinean Spanish";
$lang{co_english} = "Colombian Spanish";
$lang{cl_english} = "Chilean Spanish";
$lang{mx_english} = "Mexican Spanish";
$lang{pe_english} = "Peruvian Spanish";
$lang{pr_english} = "Puerto Rican Spanish";
$lang{ve_english} = "Venezuelan Spanish";
$lang{it_english} = "Italian";
$lang{de_english} = "German";
$lang{uk_english} = "English";
$lang{pt_english} = "Portuguese";
$lang{fr_english} = "French";

# Cómo se llama una moneda en los distintos idiomas.
$currency{USD_spanish} = "D&oacute;lares de EE.UU.";
$currency{EUR_spanish} = "Euros";
$currency{ESP_spanish} = "Pesetas";
$currency{BPS_spanish} = "Libras esterlinas";

$currency{USD_english} = "US Dollars";
$currency{EUR_english} = "Euros";
$currency{ESP_english} = "Pesetas";
$currency{BPS_english} = "Pound Sterlings";

# El cambio respecto al dólar de las diferentes monedas. Recordemos que el cálculo
# de los presupuestos se hace en dólares, y que debemos multiplicarlos por estos
# cambios para obtener el presupuesto en la moneda deseada por el cliente.
$cambio{USD} = 1;
$cambio{ESP} = 150;
$cambio{EUR} = 1;
$cambio{BPS} = 0.7;


$plantilla_gqq="$plantillas"."gqq.html";
$plantilla_login="$plantillas"."login.html";
$plantilla_mode="$plantillas"."mode.html";
$plantilla_create="$plantillas"."createacc.html";
$plantilla_presupuesto_electr="$plantillas"."service_electr.html";
$plantilla_presupuesto_paper="$plantillas"."service_paper.html";
$plantilla_quote="$plantillas"."orderz.html";
$plantilla_order="$plantillas"."procorder.html";
$plantilla_order_electr="$plantillas"."procorder_electr.html";
$plantilla_upload="$plantillas"."upload.html";
$plantilla_final="$plantillas"."procok.html";

$cambio{cur_dol} = 1;
$cambio{cur_pst} = 145;
$cambio{cur_eur} = 0.98;
$cambio{cur_pnd} = 0.5;

$desc_currency{cur_dol} = '$';
$desc_currency{cur_pst} = "Pesetas";
$desc_currency{cur_eur} = "Euros";
$desc_currency{cur_pnd} = "Pounds";

$desc_source{src_eng} = "English";
$desc_target{tgt_cas} = "Spanish (Castillian)";
$desc_target{tgt_mex} = "Spanish (Mexican)";
$desc_target{tgt_and} = "Spanish (Andalusi)";

$desc_area{ar_med} = "Medical Text";
$desc_area{ar_com} = "Computers Text";

$desc_format{fmt_w95} = "MS-Word 95";
$desc_format{fmt_w97} = "MS-Word 97";

$desc_via{via_web}= "Web Browser Now";
$desc_via{via_fax}= "Fax";
$desc_via{via_cou}= "Courier";

$desc_receive{rec_web}= "Download from Orchestra's Web Site";
$desc_receive{rec_ema}= "E-mail";
$desc_receive{rec_fax}= "Fax";
$desc_receive{rec_cou}= "Courier";

$precio = .12; # 12 centavos por palabra
@param_presupuesto=(reason,words,end_year,end_month,end_day);
@param_presupuesto_select=('source','target','area','currency');
@param_login=(email,password,reason);
@param_create=(email,password,rep_password,name,card_number,card_date,reason);
@param_create_select=(card_type);
@param_quote=(quote, summary);
@param_order=(summary,id_project,project_name,comments);
@param_order_select=('via','receive','format');
@param_upload=(size, id_project, file_list);
@param_final=();

$sid_global;

1;
