Foro - Perl en Español

yo ya aregle el problema del que le esplique ahora me da otro error aqui te lo pongo

Código: Seleccionar todo

*** An error occurred: Error opening socket: Unknown error

en los logs da este error

Código: Seleccionar todo

Use of uninitialized value in bitwise and (&) at modules/parse.pl line 56.\n

aqui le pongo el parse.pl si le ase falta mas dimelo para mandarte el programa completo.

Código: Seleccionar todo

#### Parsing Functions
use strict;

## Reads a config file from the filename passed to it, returns a reference to
## a hash containing the name=value pairs in the file.
sub parse_config {
   my %config;
   open(CONFIG, "<$_[0]") or error("Opening config file '$_[0]': $!");
   while(<CONFIG>) {
      s/(\015\012|\012)$//; # Be forgiving for poor windows users
      next if /^\s*[#;]/; # Comments
      next if !/=/;

      my($key,$value) = split(/\s*=\s*/, $_, 2);
      $config{$key} = defined $value ? $value : '';
   }
   close(CONFIG);
   return \%config;
}

sub make_utf8 {
        # Use perl's unicode support assuming we have 5.6 and Encode
        return pack("U", hex($_[0])) if $] >= 5.006 && $::ENCODE;
        # From http://www1.tip.nl/~t876506/utf8tbl.html
   my $chr = unpack("n", pack("H*", shift));
   return chr $chr if $chr < 0x7F;
   return chr(192 + int($chr / 64)) . chr(128 + $chr % 64) if $chr <= 0x7FF;
   return chr(224 + int($chr / 4096)) . chr(128 + int($chr / 64) % 64) .
      chr(128 + $chr % 64) if $chr <= 0xFFFF;
   return chr(240 + int($chr / 262144)) . chr(128 + int($chr / 4096) % 64) .
      chr(128 + int($chr / 64) % 64) . chr(128 + $chr % 64) if $chr <= 0x1FFFFF;
   return "";
}

## Parses a CGI input, returns a hash reference to the value within it.
## The clever regexp bit is from cgi-lib.pl
## This now also removes certain characters that might not be a good idea.
## $ext (bitmask): 1 to *NOT* remove \n etc, 2 to treat input as xmlhttp
## (different encoding for +).
sub parse_query {
   my($query, $ext) = @_;
   return {} unless defined $query and length $query;

   return {
          map {
             s/\+/ /g unless defined $ext and $ext & 2;
             my($key, $val) = split(/=/,$_,2);
             $val = "" unless defined $val;

             $key =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
             $key =~ s/[\r\n\0\001]//g;

        # Modified from unescape as found in CGI::Util
                  # (can't use CGI::Util due to + oddity from XMLHTTP).
                  $val =~ s{%(?:([0-9a-fA-F]{2})|u([0-9a-fA-F]{4}))}
                    {
                                 if(defined($1)) {
                                         if($ext & 2 and hex($1) > 0x7F) {
                                                 make_utf8("00$1");
                                         }else{
                                                 pack("C", hex($1));
                                         }
                                 }else{
                                         make_utf8($2);
                                 }
                        }ge;

        if(defined $ext and $ext & 1) {
           $val =~ s/[\0\001]//g;
        }else{
           $val =~ s/[\r\n\0\001]//g;
        }

                  Encode::_utf8_on($val) if $::ENCODE;

             $key => $val; # Return a hash element to map.
      } split(/[&;]/, $query)
   };
}

sub parse_cookie {
   if(exists $ENV{HTTP_COOKIE} && $ENV{HTTP_COOKIE} =~ /cgiircauth/) {
          for(split /;/, $ENV{HTTP_COOKIE}) {
                 s/^\s+//;
                 my($name,$value) = split(/=/,$_,2);
                 return $value if $name eq "cgiircauth";
          }
   }
   return 0;
}

sub parse_interface_cookie {
   my %tmp = ( );
   if(exists $ENV{HTTP_COOKIE} && $ENV{HTTP_COOKIE} =~ /cgiirc/) {
      for(split /;/, $ENV{HTTP_COOKIE}) {
         s/^\s+//;
         my($name,$value) = split(/=/,$_,2);
         next if $name =~ /[^a-z]/i;
         next unless $name =~ s/^cgiirc//;
         next if $name eq 'auth';
         $tmp{$name} = $value;
      }
   }
   return \%tmp;
}

sub escape_html {
   my($html) = @_;
   $html =~ s/&/&amp;/g;
   $html =~ s/>/&gt;/g;
   $html =~ s/</&lt;/g;
   $html =~ s/"/&quot;/g;
   return $html;
}

1;

Gracias pro su ayuda Saludos Unix

El primer error es un tema de conexión, por lo que no sabemos porqué ha ocurrido.
En el segundo error, el problema está en la línea 56 de parse.pl:

Código: Seleccionar todo

if($ext & 2 and hex($1) > 0x7F) {

El error quiere decir que la variable $ext no ha sido definido, por lo que quiere decir que la función parse_query ha sido llamada con un solo parámetro. Es necesario llamarle con dos parámetros, siendo el segundo una máscara de bits, cuyo primer bit indica que queres que no elimine los finales de línea '\n', y el segundo bit si quieres tratar la entrada como el resultado de una llamada xmlhttp (tan de moda en nuestros días, por cierto).

Como estas mi hermano siempre ayudando mira mejor hacemos una cosita yo lo boy a subir a una web tu lo bajas lo revisas bueno despues me dices Saludos Unix

Respecto al primer error, en el fichero de configuración, pone:

Código: Seleccionar todo

default_server = sendin
default_port = 6667


Debes comprobar que desde la máquina desde donde se ejecuta el cgi, tiene acceso a una máquina que se llame sendin, y que exista un servicio de irc funcionando en el puerto 6667.

Bueno lo tengo asi mismo pero me sige dando el error ya no se que es por eso te mande el programa para que lo bajaras Saludos Unix.

Según lo que he visto, el programa es un cliente de IRC hecho en Perl. Y no veo que tenga ningún fallo.
Para que no te salga el fallo del modules/parse.pl, debes editar el programa client-perl.cgi y el irc.cgi y donde ponga parse_query( un solo parametro ) pones parse_query( el parametro anterior, 0 ).
Si haces un telnet sendin 6667, qué sale? ¿Se llega a conectar al servidor de IRC?
¿Qué servidor de IRC usas? Quizás no está escuchando por el 6667...

si me finciona el irc le ago el telnet y todo pero el CGI:IRC es que no quieres conertar me sige dando esos errores no se porque bueno esplicame que tengo que cambiar recuerda que ahora es que estoy aprendiendo a programar per dime como quieto lo que me estas esplicando ?????? Saludos Unix

A mi no se me ocurre nada más...

A ver si hay alguien más a quien se le pueda ocurrir qué pasa...

El cgi-irc funciona a la perfecion yo lo uso en mi site.

El error puede ser por 2 cosas:

1- La configuración esta mal (creo que no pones la direc del server de irc) revisa el archivo .config del cgi-irc

2- La makina donde ejecutas el cgi tiene el iptables puesto de tal manera que no permite conexiones salientes al puerto 6667 (muchos servidores web lo hacen) o kiza la red de irc a la k intentas conectar tiene glineada la ip de tu server web.

salu2

bueno tengo que ver a lo mejor es que lo tengo mal configurado el server mio es el localhost es mi server de proeba yo todo lo pruebo en mi pc buenos saludos Unix gracias por todo si algo te escribo por MP a AkonD para que me ayudes a configuralo bien yo uso WinXP buenos mil gracias.