#!/usr/bin/perl # Ralf's Chat - a Perl webchat script # Copyright 1998-2002 Ralf Gueldemeister # # This file is part of Ralf's Chat. # # Ralf's Chat 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; either version 2 of the License, or # (at your option) any later version. # # Ralf's Chat is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with Ralf's Chat; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # # Messages Part # # Traducido al cristiano por El Carnicero # ######################## $msg{'au'} = 'A todos'; # all users $msg{'away'} = '[Ausente]'; # [away] - may be replaced with an image $msg{'banne'} = 'baneado'; # banned $msg{'banne2'} = 'baneado: ~~0~~'; # banned: ~~0~~ $msg{'cf'} = ' ~~0~~ viene de ~~1~~'; # ~~0~~ comes from ~~1~~ $msg{'cli'} = 'IP actual'; # current/last ip $msg{'co'} = 'creado el'; # created on $msg{'dne'} = 'no existe'; # does not exist $msg{'email'} = 'email'; # email $msg{'gt'} = ' ~~0~~ va a ~~1~~'; # ~~0~~ goes to ~~1~~ $msg{'hetc'} = '~~0~~ ha entrado en el chat'; # ~~0~~ has entered the chat $msg{'hltc'} = ' ~~0~~ ha dejado chat'; # ~~0~~ has left the chat $msg{'hltct'} = ' ~~0~~ ha dejado el chat (timeout)'; # ~~0~~ has left the chat (timeout) $msg{'hrtc'} = '~~0~~ ha reentrado en el chat'; # ~~0~~ has reentered the chat $msg{'ia'} = 'esta ausente:'; # is away $msg{'iba'} = 'ha vuelto:'; # is back again $msg{'ipb'} = 'IP ~~0~~ baneada'; # IP ~~0~~ banned $msg{'kicke'} = 'echado'; # kicked $msg{'lpwem'} = << '[FIN]'; # lost password email to user A: ~~0~~ De: ~~1~~ (~~2~~) Asunto: [CHAT] Tu contraseña Tu contraseña es ~~3~~ (usuario: ~~4~~) - El administrador [FIN] $msg{'lv'} = 'El último visitado'; # last visited $msg{'memos'} = 'memos'; # memos $msg{'mf'} = 'Memo para'; # Memo for $msg{'mf2'} = 'Memo para ~~0~~ (~~1~~): ~~2~~'; # Memo from ~~0~~ (~~1~~): ~~2~~ $msg{'norma'} = 'normal'; # normal $msg{'npcfp'} = 'Comprobación de contraseña erronea, probablemente mal escrita'; # New password check failed, probably mistyped $msg{'onlin'} = 'en linea'; # online $msg{'pc'} = 'Contraseña cambiada'; # Password changed $msg{'remov'} = 'borrado'; # removed $msg{'ru'} = 'usuarios borrados'; # removed users $msg{'statu'} = 'estado'; # status $msg{'tau'} = 'a todos los usuarios'; # to all users $msg{'tnou'} = 'Número total de usuariarios:'; # Total number of users: $msg{'tnpmn'} = 'La contraseña no puede contener ";\'"'; # The new password may not contain ";\'" $msg{'total'} = 'total'; # total $msg{'tuo'} = 'El nivel de usuario de ~~0~~ es ahora ~~1~~'; # The userlevel of ~~0~~ is now ~~1~~ $msg{'ub'} = 'Usuario ~~0~~ baneado'; # User ~~0~~ banned $msg{'unban'} = 'desbaneado'; # unbanned $msg{'uc'} = 'Comando desconocido'; # unknown command $msg{'ui'} = '~~0~~
nombre real: ~~1~~
email: ~~2~~
edad: ~~3~~
ciudad: ~~4~~
pais: ~~5~~
pagina web: ~~6~~
comentarios: ~~7~~
foto: ~~8~~'; # ~~0~~
realname: ~~1~~
email: ~~2~~
age: ~~3~~
city: ~~4~~
country: ~~5~~
homepage: ~~6~~
anything else: ~~7~~
photo: ~~8~~ $msg{'unf'} = 'usuario ~~0~~ no encontrado'; # user ~~0~~ not found $msg{'user'} = 'usuario'; # user $msg{'userl'} = 'nivel de usuario'; # userlevel $msg{'usern'} = 'nombre de usuario';# username $msg{'users'} = 'usuarios'; # users $msg{'welco'} = "Bienvenido a $html_title!
/help - mostrar ayuda"; # Welcome to $html_title!
/help - helptext $msg{'wp'} = 'wrong password'; # wrong password $msg{'wps'} = 'se ha enviado con éxito'; # was posted successfully $msg{'yaba'} = 'Has vuelto'; # You are back again $msg{'yana'} = 'Ahora estas ausente'; # You are now away $msg{'ydhtn'} = 'No tienes el nivel de usuario necesario para '; # You don\'t have the needed userlevel for $msg{'ydhtn2'} = 'Nivel de usuario o contraseña incorrecto'; # You don\'t have the needed userlevel or the masterpassword is wrong $msg{'ypitl'} = 'Contraseña demasiado larga. La longitud máxima es ~~0~~.'; # Your password is too long. The maximum length is ~~0~~. # help messages $help{'main'} = << '[FIN]'; # main help message Puedes usar los soguientes comando (dependiendo de tu nivel de usuario):

[FIN] $help{'msg'} = '/msg nombre de usuario mensaje - Envia un mensaje privado'; # /msg username message - send private message to user $help{'help'} = '/help - Mostrar la ayuda
/help command - Muestra los comandos del chat'; # /help - this help text
/help command - help message of command $help{'about'} = '/about - Informacion sobre el programa'; # /about - Sobre este programa $help{'me'} = '/me - Acción (ej "/me dice hola" aparecerá como "* usuario dice hola")'; # /me - action (eg "/me says hello" will appear as "* user says hello") $help{'whois'} = '/whois usuario - Muestra el perfil de un usuario'; # /whois username - show profile of user $help{'memo'} = '/memo usuario mensaje - Manda un mensaje a un usuario no conectado'; # /memo username message - leave message for offline user $help{'away'} = '/away mensaje - Te pone ausente y muestra un mensaje (opcional)'; # /away message - set or unset away status and post message (optional) $help{'users'} = '/users - Lista todos los usuarios (conectados o no)'; # /users - list all users (online or not) $help{'deluser'} = '/deluser usuario - Borra a un usuario'; # /deluser username - delete user $help{'kick'} = '/kick usuario - Echa a un usuario de la sala'; # /kick username - kick user out of the chat $help{'ban'} = '/ban usuario - banea a un usuario
/ban ip:x.x.x.x - banea una ip de un usuario
/ban ip:x.[x.[x.]] - ban ip class
/ban - show banned users and ips'; # /ban username - ban user from chatroom
/ban ip:x.x.x.x - ban ip from chatroom (works only when user with banned ip enters, you have to kick/ban the user manually, too)
/ban - show banned users and ips $help{'unban'} = '/unban username - unban user
/unban ip:x.x.x.x - unban ip'; # /unban username - unban user
/unban ip:x.x.x.x - unban ip $help{'admin_memo'} = '/admin_memo mensaje - Deja un mensaje para todos los usuarios'; # /admin_memo message - leave message for all users $help{'ip'} = '/ip usuario - muestra la ip de un usuario'; # /ip username - show ip of user # user errors (headline and text) $err_h{'cif'} = 'La sala esta llena'; # Chat is full $err_t{'cif'} = "El chat está lleno.
Puedes loguearte si tienes nivel > 0.
volver"; # Sorry, the chat is full.
You can login anyway if your userlevel is > 0.
back $err_h{'in'} = 'Nombre de usuario no válido'; # Illegal Nick $err_t{'in'} = "Tu nombre de usuario ~~0~~ contiene caracteres ilegales
El nombre de usuario solo puede contener letras, numeros y \"_\".
reintentar"; # Your username ~~0~~ contains illegal characters
A username may contain only letters, numbers and the underdash \"_\".
retry $err_h{'ip'} = 'Contraseña no válida'; # Illegal Password $err_t{'ip'} = "La contraseña no puede contener \";\'\"
retry"; # A password may not contain \";\"
reintentar $err_h{'isid'} = 'ID de sesión no válido'; # Invalid Session ID $err_t{'isid'} = "No estás logueado. Puede que te hayas deslogueado por un timeout o puede que te hayan echado.
login"; # You are not logged in. Either you have been logged out because of a timeout or you have been kicked/banned.
login $err_h{'iu'} = 'Nombre de usuario no válido'; # Illegal username $err_t{'iu'} = "Tu usuario ~~0~~ contiene caracteres no válidos
El usuario no puede contener \\\";/ :?*<>|'
reintentar"; # Your username \"$query{'name'}\" contains illegal characters
A username must not contain \\\";/ :?*<>|'
retry $err_h{'lp'} = 'Contraseña perdida'; # Lost Password $err_t{'lp'} = "Se te ha enviado la contraseña.
volver"; # The password was sent to you ($query{'email'}).
volver $err_h{'lp2'} = 'Contraseña perdida'; # Lost Password $err_t{'lp2'} = "Tu contraseña no ha sido enviada porque no registraste tu email. Por favor, contacta con el administrador.

volver"; #The password was not sent to you because you didn\'t register an email address. Please contact the admin.

back $err_h{'pcf'} = 'Comprobación de la contraseña errónea'; # Password Check Failed $err_t{'pcf'} = "La contraseña que has introducido no es igual
reintentar"; # The passwords you entered are not equal
retry $err_h{'ptl'} = 'Contraseña demasiado larga'; # Password too long $err_t{'ptl'} = "Contraseña demasiado larga. El tamaño máximo es ~~0~~.
reintentar"; # Your password is too long. The maximum length is ~~0~~.
retry $err_h{'uae'} = 'El nick ya existe'; # Username already exists $err_t{'uae'} = "Prueba con otro nick"; # try another username $err_h{'uali'} = 'El usuario ya está logueado'; # User already logged in $err_t{'uali'} = "El usuario \"~~0~~\" está conectado actualmente"; # The user \"~~0~~\" is already logged in $err_h{'unf'} = 'Usuario no encontrado'; # User not found $err_t{'unf'} = "registrar or
reintentar"; # register or
retry $err_h{'utl'} = 'Nick demasiado largo'; # Username too long $err_t{'utl'} = "El nick \"~~0~~\" es demasiado largo. La longitud máxima es ~~1~~.
reintentar"; # Your username \"~~0~~\" is too long. The maximum length is ~~1~~.
retry $err_h{'wp'} = 'Contraseña incorrecta'; # Wrong Password $err_t{'wp'} = "contraseña perdida
reintentar"; # lost password
retry $err_h{'yab'} = 'Actualmente estás baneado'; # You are banned $err_t{'yab'} = "salir"; # logout # html files # changeuserinfo_html $html{'cui'}{'age'} = 'edad'; # age $html{'cui'}{'city'} = 'ciudad'; # city $html{'cui'}{'count'} = 'pais'; # country $html{'cui'}{'cui'} = 'cambiar información de usuario'; # Change User Information $html{'cui'}{'ee'} = 'todo lo demás'; # everything else $html{'cui'}{'email'} = 'email'; # email $html{'cui'}{'hu'} = 'página web'; # homepage url $html{'cui'}{'icqu'} = 'ICQ uin'; # ICQ uin $html{'cui'}{'pu'} = 'foto web'; # photo url $html{'cui'}{'realn'} = 'nombre real'; # real name $html{'cui'}{'sui'} = 'guardar datos'; # save user info # chat_html $html{'chat'}{'conti'} = 'continuar'; # continue # chatinput_html $html{'ci'}{'logou'} = 'salir'; # logout $html{'ci'}{'optio'} = 'opciones'; # options $html{'ci'}{'pause'} = 'pausa'; # pause $html{'ci'}{'post'} = 'enviar'; # post $html{'ci'}{'profi'} = 'perfil'; # profile # options_html $html{'optio'}{'aqua'} = 'agua'; # aqua $html{'optio'}{'black'} = 'negro'; # black $html{'optio'}{'blue'} = 'azul'; # blue $html{'optio'}{'cp'} = 'cambiar contraseña'; # change password $html{'optio'}{'curre'} = 'actual'; # current $html{'optio'}{'efa'} = 'email (for administration)'; # email (for administration) $html{'optio'}{'fc'} = 'color texto'; # font color $html{'optio'}{'fuchs'} = 'fucsia'; # fuchsia $html{'optio'}{'gray'} = 'gris'; # gray $html{'optio'}{'green'} = 'verde'; # green $html{'optio'}{'red'} = 'rojo'; # red $html{'optio'}{'lime'} = 'lima'; # lime $html{'optio'}{'lsl'} = 'sonido de login(local)'; # login sound (local) $html{'optio'}{'maroo'} = 'marrón'; # maroon $html{'optio'}{'mo'} = 'orden del mensaje'; # message order $html{'optio'}{'navy'} = 'azul marino'; # navy $html{'optio'}{'np'} = 'nueva contraseña'; # new password $html{'optio'}{'npa'} = 'nueva contraseña de nuevo'; # new password again $html{'optio'}{'nob'} = 'el más nuevo abajo'; # newest on bottom $html{'optio'}{'not'} = 'el mas nuevo arriba'; # newest on top $html{'optio'}{'olive'} = 'oliva'; # olive $html{'optio'}{'om'} = 'método de salida'; # output method $html{'optio'}{'op'} = 'contraseña antigua'; # old password $html{'optio'}{'optio'} = 'Opciones'; # Options $html{'optio'}{'purpl'} = 'purpura'; # purple $html{'optio'}{'rds'} = 'pausa entre refrescos (segs)'; # refresh delay (secs) $html{'optio'}{'refre'} = 'refrescar'; # refresh $html{'optio'}{'silve'} = 'plata'; # silver $html{'optio'}{'so'} = 'establecer opciones'; # set options $html{'optio'}{'stand'} = 'standar'; # standard $html{'optio'}{'strea'} = 'streaming'; # streaming $html{'optio'}{'teal'} = 'azul claro'; # teal $html{'optio'}{'white'} = 'blanco'; # white $html{'optio'}{'yello'} = 'amarillo'; # yello # register_html $html{'regis'}{'eofa'} = 'email:
(only for administration)'; # email:
(only for administration) $html{'regis'}{'nu'} = 'nuevo nick'; # new username $html{'regis'}{'p'} = 'contraseña'; # password $html{'regis'}{'pa'} = 'contraseña de nuevo'; # password again $html{'regis'}{'regis'} = 'registrar y entrar'; # register and login $html{'regis'}{'rnu'} = 'Registrar Nuevo Nick'; # Register New Username # rooms_html $html{'rooms'}{'cr'} = 'cambiar de sala'; # change room # userinfo_html $html{'useri'}{'ae'} = 'algo más?'; # anything else $html{'useri'}{'age'} = 'edad'; # age $html{'useri'}{'city'} = 'ciudad'; # city $html{'useri'}{'count'} = 'pais'; # country $html{'useri'}{'email'} = 'email'; # email $html{'useri'}{'hu'} = 'página web'; # homepage url $html{'useri'}{'icqu'} = 'ICQ uin'; # ICQ uin $html{'useri'}{'rn'} = 'nombre real'; # real name $html{'useri'}{'ui'} = 'información de usuario'; # User Information $html{'useri'}{'usern'} = 'nick'; # username # welcome_html $html{'welco'}{'cc'} = 'actualmente chateando:'; # currently chatting $html{'welco'}{'enter'} = 'entrar'; # enter $html{'welco'}{'login'} = 'Login'; # Login $html{'welco'}{'p'} = 'Contraseña'; # password $html{'welco'}{'rnu'} = 'Registrar nuevo nick'; # register new username $html{'welco'}{'room'} = 'Sala'; # room $html{'welco'}{'usern'} = 'Nick'; # username # new in v1.2 $msg{'iai'} = '~~0~~ está siendo ignorado!'; # ~~0~~ already ignored $msg{'ini'} = '~~0~~ ahora está ignorado'; # ~~0~~ is now ignored $msg{'inli'} = '~~0~~ ya no está ignorado'; # ~~0~~ is not longer ignored $msg{'tuoi'} = 'El nivel de usuario de ~~0~~ es ~~1~~ (~~2~~)'; # The userlevel of ~~0~~ is ~~1~~ (~~2~~) $msg{'ydis'} = 'No estás ignorando a nadie'; # You don\'t ignore somebody $msg{'yi'} = 'Ignoras a ~~0~~'; # You ignore ~~0~~ $msg{'yui'} = 'Tu nivel de usuario es ~~0~~ (~~1~~)'; # Your userlevel is ~~0~~ ~~1~~ # help messages $help{'ignore'} = '/ignore usuario - ignorar usuario
/ignore - Listar usuarios ignorados'; # /ignore username - ignore user
/ignore - list ignored users $help{'unignore'} = '/unignore usuario - dejar de ignorar usuario'; # /unignore username - unignore user # options_html $html{'optio'}{'iu'} = 'Usuarios ignorados'; # ignored users $html{'optio'}{'uu'} = 'Usuarios no ignorados'; # unignore user $html{'optio'}{'iu2'} = 'Ignorar usuario'; # unignore user # chatinput_html $html{'ci'}{'about'} = 'Acerca de'; # about # setup_html $html{'setup'}{'btmm'} = 'Volver al menú principal'; # back to main menu $html{'setup'}{'cfrf'} = 'Comprobando archivos requeridos:'; # Checking for required files: $html{'setup'}{'lacc'} = 'Cargar y cambiar configuración'; # load and change configuration $html{'setup'}{'mpw'} = 'Contraseña maestra'; # Masterpassword $html{'setup'}{'nf'} = 'No encontrado'; # not found $html{'setup'}{'setup'} = 'Configuración'; # Setup $html{'setup'}{'spp'} = 'Establecer la ruta de Perl'; # set Perl path # changed in v1.2 # help messages $help{'userlevel'} = '/userlevel nick nivel [contraseña_maestra] - cambia el nivel de un usuario (el nivel propio debe ser mayor que ese nivel, o habrá que proporcionar la contraseña maestra)
/userlevel nick - ver el nivel de un usuario
/userlevel - ver el nivel propio'; # /userlevel username level [masterpassword] - change userlevel of user (own userlevel must be > level, or masterpassword has to be given)
/userlevel username - view userlevel of user
/userlevel - view own userlevel 1; # EOF