Foro - Perl en Español

      $query = new CGI;
      print header;
      $JSCRIPT=<<END;
      // Ask a silly question
      function riddle_me_this() {
         var r = prompt("What walks on four legs in the morning, " +
                       "two legs in the afternoon, " +
                       "and three legs in the evening?");
         response(r);
      }
      // Get a silly answer
      function response(answer) {
         if (answer == "man")
            alert("Right you are!");
         else
            alert("Wrong!  Guess again.");
      }
      END
      print start_html(-title=>'The Riddle of the Sphinx',
                               -script=>$JSCRIPT);

#!/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=>"$domain$tld DISPONIBLE !",-script=>$JSCRIPT, BGCOLOR=>'white') ;
        print $cgi->h3("$domain$tld ESTA DISPONIBLE!") ;