• Publicidad

Resultados raros con el CGI.pm

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Resultados raros con el CGI.pm

Notapor salvaydor » 2006-09-08 05:25 @268

hola, sigo con el mismo script y ahora se me presentan otros problemas, genera unos resultador raros. Este es el script: (es un poco largo)

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
#!/usr/bin/perl

use CGI ;
use RESELLER ;

my $cgi = new CGI ;

print $cgi->header ;

################

my $JSCRIPT=<<End;
<!--
function CopyContact(x)
{
var trgctc ;
var srcctc ;
var done = 0 ;
if (x.name == "popup_rgs")
        {
        trgctc = "rgs_" ;
        }
if (x.name == "popup_adm")
        {
        trgctc = "adm_" ;
        }
if (x.name == "popup_tec")
        {
        trgctc = "tec_" ;
        }
if (x.name == "popup_bil")
        {
        trgctc = "bil_" ;
        }
       
if (x.value=="1")
        {
        srcctc = "acc_" ;
        }
if (x.value=="2")
        {
        srcctc = "rgs_" ;
        }
if (x.value=="3")
        {
        srcctc = "adm_" ;
        }
if (x.value=="4")
        {
        srcctc = "tec_" ;
        }

for (var i=0 ; i < window.document.forms[0].elements.length ; i++)
        {
        var n = window.document.forms[0].elements[i].name ;
        if ((n.charAt(4) + n.charAt(5) + n.charAt(6) + n.charAt(7)) == trgctc)
                {
                for (var j=0 ; j < window.document.forms[0].elements.length ; j++)
                        {
                        var m = window.document.forms[0].elements[j].name ;
                        if ((m.charAt(4) + m.charAt(5) + m.charAt(6) + m.charAt(7)) == srcctc)
                                {
                                if (m.length == n.length && (m.charAt(m.length-1) + m.charAt(m.length-2) + m.charAt(m.length-3)) == (n.charAt(m.length-1) + n.charAt(m.length-2) + n.charAt(m.length-3)))
                                        {
                                        window.document.forms[0].elements[i].value = window.document.forms[0].elements[j].value ;
                                        done = 1;
                                        }
                                }
                        }
                }
        }
}
//-->
End


###############

my $result = $cgi->url_param('result') ;
my $domain = $cgi->url_param('domain') ;
my $tld = $cgi->url_param('tld') ;

my $some_user_variable = $cgi->url_param('usr_whateverYouWant') ;

if ($result eq '210')
        {

       
        print $cgi->start_html(-title=>"Reparación de ordenadores a domicilio en Murcia, 24 horas; eliminación de virus informaticos",
                                -script=>$JSCRIPT, BGCOLOR=>'white'
                                -meta=>{'keywords'=>'servicio tecnico a domicilio, eliminacion de virus, recuperacion de datos, redes, reparación de ordenadores en Murcia, España',
                                        'abstract'=>'Reparación de ordenadores a domicilio, eliminacion virus, servicio 24 horas, optimización de ordenadores'}
                                -style=>{'src'=>'/styles/style1.css'}) ;
        print $cgi->h3("$domain$tld ESTA DISPONIBLE!") ;
        print $cgi->h4("Por favor complete los datos de registro, contacto y si lo desea la informacion DNS") ;
        print $cgi->start_form(-action=>'https://www.dotregistrar.com/drs/reg.pl',method=>'post') ;
        $cgi->param('domain',$domain . $tld) ;
        print $cgi->hidden('domain',$domain . $tld) ;
        print $cgi->hidden('url',RESELLER::regbackurl) ;
        print $cgi->hidden('trid',RESELLER::mymd5("$domain$tld")) ;
        print $cgi->hidden('user',RESELLER::user) ;
        print $cgi->hidden('usr_whateverYouWant',$some_user_variable) ;
        my $language = '' ;
        if (lc($domain) =~ /^xn--/)
                {
                $language=<<EndOfField ;
                <tr><td align=right>Language:</td>
                <td>
                <select name="lng">
                 <option value="NA">No Language</option>
                 <option value="CHI">Chinese (Traditional)</option>
                 <option value="ZHO">Chinese (Simplified)</option>
                 <option value="JPN">Japanese</option>
                 <option value="KOR">Korean</option>
                 <option>- - - - - - - - - - - - - -</option>
                 <option value="AFR">Afrikaans</option>
                 <option value="ALB">Albanian</option>
                 <option value="ARA">Arabic</option>
                 <option value="ARM">Armenian</option>
                 <option value="AZE">Azerbaijani</option>
                 <option value="BAQ">Basque</option>
                 <option value="BUL">Bulgarian</option>
                 <option value="BUR">Burmese</option>
                 <option value="CAT">Catalan</option>
                 <option value="SCR">Croatian</option>
                 <option value="CZE">Czech</option>
                 <option value="DAN">Danish</option>
                 <option value="DUT">Dutch</option>
                 <option value="ENG">English</option>
                 <option value="EST">Estonian</option>
                 <option value="FAO">Faroese</option>
                 <option value="FIN">Finnish</option>
                 <option value="FRE">French</option>
                 <option value="GEO">Georgian</option>
                 <option value="DEU">German</option>
                 <option value="HEB">Hebrew</option>
                 <option value="HIN">Hindi</option>
                 <option value="HUN">Hungarian</option>
                 <option value="ICE">Icelandic</option>
                 <option value="ITA">Italian</option>
                 <option value="KUR">Kurdish</option>
                 <option value="LAO">Lao</option>
                 <option value="LAV">Latvian</option>
                 <option value="LIT">Lithuanian</option>
                 <option value="MAC">Macedonian</option>
                 <option value="MAL">Malayalm</option>
                 <option value="NEP">Nepali</option>
                 <option value="NOR">Norwegian</option>
                 <option value="PER">Persian</option>
                 <option value="POL">Polish</option>
                 <option value="POR">Portuguese</option>
                 <option value="RUM">Romanian</option>
                 <option value="RUS">Russian</option>
                 <option value="SAN">Sanskirt</option>
                 <option value="SCC">Serbian</option>
                 <option value="SLO">Slovak</option>
                 <option value="SLV">Slovenian</option>
                 <option value="SPA">Spanish</option>
                 <option value="SWA">Swahili</option>
                 <option value="SWE">Swedish</option>
                 <option value="SYR">Syriac</option>
                 <option value="TAM">Tamil</option>
                 <option value="THA">Thai</option>
                 <option value="TIB">Tibetan</option>
                 <option value="TUR">Turkish</option>
                 <option value="UKR">Ukrainian</option>
                 <option value="URD">Urdu</option>
                 <option value="UZB">Uzbek</option>
                 <option value="VIE">Vietnamese</option>
          </select>
          </td>
          </tr>
EndOfField
                }
        $form=<<EndOfTable ;
                <TABLE CELLSPACING=2 BORDER=3 CELLPADDING=1>
                <tr><td align=right>Dominio:                                    </td><td>$domain$tld</td></tr>
                <tr><td align=right>Años:                                      </td><td><INPUT TYPE=text NAME='years' VALUE=1 SIZE=2 MAXLENGTH=2></tr>
                <tr><td align=right>Contraseña (Debes recordarla para futuros accesos):</td><td><INPUT TYPE=PASSWORD NAME='key' VALUE='' SIZE=10 MAXLENGTH=10></tr>
                <tr><td align=right>Repite Contraseña:                         </td><td><INPUT TYPE=PASSWORD NAME='key2' VALUE='' SIZE=10 MAXLENGTH=10></tr>
                $language
                <tr><td>Información sobre el Registrante</td></tr>
                <tr><td align=right>Registrante:                                </td><td><INPUT TYPE=text NAME='pfl.rgs_nam'  SIZE=50 MAXLENGTH=50></tr>
                <tr><td align=right>                                            </td><td><INPUT TYPE=text NAME='pfl.rgs_nam_2'  SIZE=50 MAXLENGTH=100></tr>
                <tr><td align=right>Dirección Reg.:            </td><td><INPUT TYPE=text NAME='pfl.rgs_add'  SIZE=50 MAXLENGTH=50></tr>
                <tr><td align=right>Dirección Reg.2:   </td><td><INPUT TYPE=text NAME='pfl.rgs_add_2'  SIZE=50 MAXLENGTH=50></tr>
                <tr><td align=right>Ciudad Reg.:                </td><td><INPUT TYPE=text NAME='pfl.rgs_cit'  SIZE=30 MAXLENGTH=30></tr>
                <tr><td align=right>Estado Reg.:                                </td><td><INPUT TYPE=text NAME='pfl.rgs_stt'  SIZE=20 MAXLENGTH=20></tr>
                <tr><td align=right>Código Postal Reg.:                        </td><td><INPUT TYPE=text NAME='pfl.rgs_zip'  SIZE=10 MAXLENGTH=10></tr>
                <tr><td align=right>País Reg.:                 </td><td><INPUT TYPE=text NAME='pfl.rgs_cou'  SIZE=20 MAXLENGTH=20></tr>
                <tr><td align=right>Teléfono Reg.:                             </td><td><INPUT TYPE=text NAME='pfl.rgs_phn'  SIZE=30 MAXLENGTH=30></tr>
                <tr><td align=right>Fax Reg.:                           </td><td><INPUT TYPE=text NAME='pfl.rgs_fax'  SIZE=50 MAXLENGTH=100></tr>
                <tr><td align=right>E-Mail Reg.:                        </td><td><INPUT TYPE=text NAME='pfl.rgs_eml'  SIZE=64 MAXLENGTH=64></tr>
                <tr><td>Información sobre el contacto Administrativo</td><td><select name=popup_adm style="font-family: verdana;font-size:10px;width:240;" onChange=CopyContact(forms[0].popup_adm)>
                <OPTION SELECTED VALUE=0>Seleccione una opcion</OPTION>
                <OPTION VALUE=2>Copiar de la informacion del Registrante</OPTION>
                <OPTION VALUE=3>Rellenar manualmente</OPTION></td></tr>
                <tr><td align=right>Contacto Administrativo:    </td><td><INPUT TYPE=text NAME='pfl.adm_nam'  SIZE=50 MAXLENGTH=50></tr>
                <tr><td align=right>Dirección Adm.:                    </td><td><INPUT TYPE=text NAME='pfl.adm_add'  SIZE=50 MAXLENGTH=50></tr>
                <tr><td align=right>Dirección Adm.2:                   </td><td><INPUT TYPE=text NAME='pfl.adm_add_2'  SIZE=50 MAXLENGTH=50></tr>
                <tr><td align=right>Ciudad Adm.:                                </td><td><INPUT TYPE=text NAME='pfl.adm_cit'  SIZE=30 MAXLENGTH=30></tr>
                <tr><td align=right>Estado Adm.:                                </td><td><INPUT TYPE=text NAME='pfl.adm_stt'  SIZE=20 MAXLENGTH=20></tr>
                <tr><td align=right>Código Postal Adm.:                        </td><td><INPUT TYPE=text NAME='pfl.adm_zip'  SIZE=10 MAXLENGTH=10></tr>
                <tr><td align=right>País Adm.:                 </td><td><INPUT TYPE=text NAME='pfl.adm_cou'  SIZE=20 MAXLENGTH=20></tr>
                <tr><td align=right>Teléfono Adm.:                             </td><td><INPUT TYPE=text NAME='pfl.adm_phn'  SIZE=30 MAXLENGTH=30></tr>
                <tr><td align=right>Fax Adm.:                           </td><td><INPUT TYPE=text NAME='pfl.adm_fax'  SIZE=20 MAXLENGTH=20></tr>
                <tr><td align=right>E-Mail Adm.:                        </td><td><INPUT TYPE=text NAME='pfl.adm_eml'  SIZE=64 MAXLENGTH=64></tr>
                <tr><td>Información sobre el contacto Tecnico</td></tr>
                <tr><td align=right>Contacto Técnico:          </td><td><INPUT TYPE=text NAME='pfl.tec_nam' Value='Luis Grau Victoria' readonly='readonly' SIZE=50 MAXLENGTH=50></tr>
                <tr><td align=right>Dirección Tec.:                    </td><td><INPUT TYPE=text NAME='pfl.tec_add' Value='C/ Delicias Nº9, 3ºD' readonly='readonly' SIZE=50 MAXLENGTH=50></tr>
                <tr><td align=right>Dirección Tec2.:                   </td><td><INPUT TYPE=text NAME='pfl.tec_add_2' readonly='readonly' SIZE=50 MAXLENGTH=50></tr>
                <tr><td align=right>Ciudad Tec.:                                </td><td><INPUT TYPE=text NAME='pfl.tec_cit' Value='Murcia' readonly='readonly' SIZE=30 MAXLENGTH=30></tr>
                <tr><td align=right>Estado Tec.:                                </td><td><INPUT TYPE=text NAME='pfl.tec_stt' Value='Murcia' readonly='readonly' SIZE=20 MAXLENGTH=20></tr>
                <tr><td align=right>Código Postal Tec.:                        </td><td><INPUT TYPE=text NAME='pfl.tec_zip' Value='30100' readonly='readonly' SIZE=10 MAXLENGTH=10></tr>
                <tr><td align=right>País Tec.:                 </td><td><INPUT TYPE=text NAME='pfl.tec_cou' Value='Spain' readonly='readonly' SIZE=20 MAXLENGTH=20></tr>
                <tr><td align=right>Teléfono Tec.:                             </td><td><INPUT TYPE=text NAME='pfl.tec_phn' Value='+34.968345013' readonly='readonly' SIZE=30 MAXLENGTH=30></tr>
                <tr><td align=right>Fax Tec.:                           </td><td><INPUT TYPE=text NAME='pfl.tec_fax' readonly='readonly' SIZE=20 MAXLENGTH=20></tr>
                <tr><td align=right>E-Mail Tec.:                        </td><td><INPUT TYPE='text' NAME='pfl.tec_eml' Value='[email protected]' SIZE=64 MAXLENGTH=64></tr>
                <tr><td>Informacion sobre el contacto de Facturación</td></tr>
                <tr><td align=right>Contacto de Facturación:           </td><td><INPUT TYPE=text NAME='pfl.bil_nam' Value='Luis Grau Victoria' readonly='readonly' SIZE=50 MAXLENGTH=50></tr>
                <tr><td align=right>Dirección Fac.:                    </td><td><INPUT TYPE=text NAME='pfl.bil_add' Value='C/ Delicias Nº9, 3ºD' readonly='readonly' SIZE=50 MAXLENGTH=50></tr>
                <tr><td align=right>Dirección Fac.2:                   </td><td><INPUT TYPE=text NAME='pfl.bil_add_2'  SIZE=50 MAXLENGTH=50></tr>
                <tr><td align=right>Ciudad Fac.:                                </td><td><INPUT TYPE=text NAME='pfl.bil_cit' Value='Murcia' readonly='readonly' SIZE=30 MAXLENGTH=30></tr>
                <tr><td align=right>Estado Fac.:                                </td><td><INPUT TYPE=text NAME='pfl.bil_stt' Value='Murcia' readonly='readonly' SIZE=20 MAXLENGTH=20></tr>
                <tr><td align=right>Código Postal Fac.:                        </td><td><INPUT TYPE=text NAME='pfl.bil_zip' Value='30012' readonly='readonly' SIZE=10 MAXLENGTH=10></tr>
                <tr><td align=right>País Fac.:                 </td><td><INPUT TYPE=text NAME='pfl.bil_cou' Value='Spain' readonly='readonly' SIZE=20 MAXLENGTH=20></tr>
                <tr><td align=right>Teléfono Fac.:                             </td><td><INPUT TYPE=text NAME='pfl.bil_phn' Value='+34.968345013' readonly='readonly' SIZE=30 MAXLENGTH=30></tr>
                <tr><td align=right>Fax Fac.:                           </td><td><INPUT TYPE=text NAME='pfl.bil_fax' readonly='readonly' SIZE=20 MAXLENGTH=20></tr>
                <tr><td align=right>E-Mail Fac.:                        </td><td><INPUT TYPE=text NAME='pfl.bil_eml' Value='[email protected]' readonly='readonly' SIZE=64 MAXLENGTH=64></tr>
                <tr><td>Información opcional sobre DNS</td></tr>
                <tr><td align=right>DNS Primaria:               </td><td><INPUT TYPE=text NAME='pfl.dns_1'  SIZE=64 MAXLENGTH=64></tr>
                <tr><td align=right>IP Primaria:                </td><td><INPUT TYPE=text NAME='pfl.ip_1'  SIZE=16 MAXLENGTH=16></tr>
                <tr><td align=right>DNS Secundaria:     </td><td><INPUT TYPE=text NAME='pfl.dns_2'  SIZE=64 MAXLENGTH=64></tr>
                <tr><td align=right>IP Secundaria:              </td><td><INPUT TYPE=text NAME='pfl.ip_2'  SIZE=16 MAXLENGTH=16></tr>
                <tr><td align=right>DNS Terciaria:              </td><td><INPUT TYPE=text NAME='pfl.dns_3'  SIZE=64 MAXLENGTH=64></tr>
                <tr><td align=right>IP Terciaria:               </td><td><INPUT TYPE=text NAME='pfl.ip_3'  SIZE=16 MAXLENGTH=16></tr>
                </TABLE>
EndOfTable
        print $form ;
        print $cgi->submit('Register','Register') ;
        print $cgi->end_form ;
        }
elsif ($result eq '211')
        {
        print $cgi->start_html(-title=>"$domain$tld no está disponible",BGCOLOR=>'white') ;
        print $cgi->h3("$domain$tld no está disponible") ;
        print $cgi->a({href=>RESELLER::chkurl},'Por favor, elija otro dominio') ;
        print $cgi->end_html ;
        }
else
        {
        print $cgi->start_html(-title=>"No se puede comprobar el dominio",BGCOLOR=>'white') ;
        if ($result eq '800')
                {
                print "Dominio inválido<br>" ;
                }
        if ($result eq '666')
                {
                print "Fallo en la autenticación<br>" ;
                }
        elsif ($result eq '900')
                {
                print "El sistema de registro esta en mantenimiento. Pruebe más tarde<br>" ;
                }
        elsif ($result eq '901')
                {
                print "Sistema de registro no disponible. Pruebe más tarde<br>" ;
                }
        print $cgi->end_html ;
        }
       
#-----------------------------------------------------------------------------------------------------------------------------

 
Coloreado en 0.010 segundos, usando GeSHi 1.0.8.4
y el resultado que genera es este:

Sintáxis: [ Descargar ] [ Ocultar ]
  1. <!DOCTYPE html 
  2. PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
  3. "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
  4. <html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US"> 
  5. <head> 
  6. <title>Reparación de ordenadores a domicilio en Murcia, 24 horas; eliminación de virus informaticos</title> 
  7. <script type="text/javascript">//<![CDATA[ 
  8. <!-- 
  9. function CopyContact(x) 
  10. var trgctc ; 
  11. var srcctc ; 
  12. var done = 0 ; 
  13. if (x.name == "popup_rgs") 
  14. trgctc = "rgs_" ; 
  15. if (x.name == "popup_adm") 
  16. trgctc = "adm_" ; 
  17. if (x.name == "popup_tec") 
  18. trgctc = "tec_" ; 
  19. if (x.name == "popup_bil") 
  20. trgctc = "bil_" ; 
  21.  
  22. if (x.value=="1") 
  23. srcctc = "acc_" ; 
  24. if (x.value=="2") 
  25. srcctc = "rgs_" ; 
  26. if (x.value=="3") 
  27. srcctc = "adm_" ; 
  28. if (x.value=="4") 
  29. srcctc = "tec_" ; 
  30.  
  31. for (var i=0 ; i < window.document.forms[0].elements.length ; i++) 
  32. var n = window.document.forms[0].elements[i].name ; 
  33. if ((n.charAt(4) + n.charAt(5) + n.charAt(6) + n.charAt(7)) == trgctc) 
  34. for (var j=0 ; j < window.document.forms[0].elements.length ; j++) 
  35. var m = window.document.forms[0].elements[j].name ; 
  36. if ((m.charAt(4) + m.charAt(5) + m.charAt(6) + m.charAt(7)) == srcctc) 
  37. if (m.length == n.length && (m.charAt(m.length-1) + m.charAt(m.length-2) + m.charAt(m.length-3)) == (n.charAt(m.length-1) + n.charAt(m.length-2) + n.charAt(m.length-3))) 
  38. window.document.forms[0].elements[i].value = window.document.forms[0].elements[j].value ; 
  39. done = 1; 
  40. //--> 
  41.  
  42. //]]></script> 
  43. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
  44. </head> 
  45. <body bgcolor="0" 136415596="HASH(0x823a350)"> 
  46. <h3>cvxczvxc.com ESTA DISPONIBLE!</h3><h4>Por favor complete los datos de registro, contacto y si lo desea la informacion DNS</h4><form method="post" action="https://www.dotregistrar.com/drs/reg.pl" enctype="multipart/form-data"> 
  47. <input type="hidden" name="domain" value="cvxczvxc.com" /><input type="hidden" name="url" value="https://server.webcero.com/~apiweb/cgi-bin/samplefin.pl" /><input type="hidden" name="trid" value="70936942428045711488472125427107490316683971002569294464" /><input type="hidden" name="user" value="arrejunta" /><input type="hidden" name="usr_whateverYouWant" value="12345678" /> <TABLE CELLSPACING=2 BORDER=3 CELLPADDING=1> 
  48. <tr><td align=right>Dominio: </td><td>cvxczvxc.com</td></tr> 
  49.  
  50. <tr><td align=right>Años: </td><td><INPUT TYPE=text NAME='years' VALUE=1 SIZE=2 MAXLENGTH=2></tr> 
  51. <tr><td align=right>Contraseña (Debes recordarla para futuros accesos):</td><td><INPUT TYPE=PASSWORD NAME='key' VALUE='' SIZE=10 MAXLENGTH=10></tr> 
  52. <tr><td align=right>Repite Contraseña: </td><td><INPUT TYPE=PASSWORD NAME='key2' VALUE='' SIZE=10 MAXLENGTH=10></tr> 
  53. #el resultado sigue...... 


Si os fijais en la declaracion de body sale:
Sintáxis: [ Descargar ] [ Ocultar ]
Using bash Syntax Highlighting
<body bgcolor="0" 136415596="HASH(0x823a350)">
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
, cuando no deberia aparecer eso que no se ni lo que es y deberian aparecer las meta que intento poner.

Sabeis cual es el error.

Os agradezco la ayuda. Un saludo.
salvaydor
Perlero nuevo
Perlero nuevo
 
Mensajes: 11
Registrado: 2006-09-07 08:28 @394

Publicidad

Notapor salvaydor » 2006-09-08 05:28 @269

y en la declaracion del javascript sale: <![CDATA[ que tampoco se lo que es.....
salvaydor
Perlero nuevo
Perlero nuevo
 
Mensajes: 11
Registrado: 2006-09-07 08:28 @394

Notapor explorer » 2006-09-08 06:06 @296

Cambia
Código: Seleccionar todo
BGCOLOR=>'white'

por
Código: Seleccionar todo
-BGCOLOR=>'white',
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor explorer » 2006-09-08 06:11 @299

salvaydor escribiste:y en la declaracion del javascript sale: <![CDATA[ que tampoco se lo que es.....
Es una forma de 'comentar' (poner como comentario) el contenido del Javascript, porque el lenguaje del Javascript no concuerda con el DTD indicado en la primera línea, que indica que el resto del documento es un html.

No le hagas ni caso.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor salvaydor » 2006-09-08 11:00 @500

Graciasssssss. Solucionado!!!!

Un saludo a todos. :wink:
salvaydor
Perlero nuevo
Perlero nuevo
 
Mensajes: 11
Registrado: 2006-09-07 08:28 @394


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 4 invitados

cron