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 ;
}
#-----------------------------------------------------------------------------------------------------------------------------
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.012 segundos, usando GeSHi 1.0.8.4
- <!DOCTYPE html
- PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
- "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
- <html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">
- <head>
- <title>Reparación de ordenadores a domicilio en Murcia, 24 horas; eliminación de virus informaticos</title>
- <script type="text/javascript">//<![CDATA[
- <!--
- 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;
- }
- }
- }
- }
- }
- }
- //-->
- //]]></script>
- <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
- </head>
- <body bgcolor="0" 136415596="HASH(0x823a350)">
- <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">
- <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>
- <tr><td align=right>Dominio: </td><td>cvxczvxc.com</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>
- #el resultado sigue......
Si os fijais en la declaracion de body sale:
Using bash Syntax Highlighting
Sabeis cual es el error.
Os agradezco la ayuda. Un saludo.