Re: [mv] I'm going crazy with DataBases

[jojo@buchonline.net]

******    message to minivend-users from jojo@buchonline.net     ******

On 14 Jul, Eduardo Marquez wrote:
> ******    message to minivend-users from Eduardo Marquez <emarquez@wmega.es>     ******
> 
> What relation are between SQL and Language?
> 
> I doesn't matter if the error message is shown me in Spanish or in US , i want to fix this
> error :
> 
>  - - - [14/julio/2000:12:22:58 +0000] - - Died in select, retrying: error 'Llamada al sistema
> interrumpida' from select.
> 
> If i change the locale language , i will see :
> 
>  - - - [14/julio/2000:12:22:58 +0000] - - Died in select, retrying: error "Interrupted system
> call" from select.
> 
> But i will have the same problem (but in English !!!)
> 
> Best Regards

I don't know about the relation between SQL and Language!
Looking into the Server.pm (<vendroot>/lib/Vend/Server.pm), I see

-----------snipp----------
	  eval {
        $rin = $vector;
		undef $spawn;
        $n = select($rout = $rin, undef, undef, $tick);

		undef $Vend::Cfg;

        if ($n == -1) {
            if ($! =~ m/^Interrupted/) {
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

                if ($Signal_Terminate) {
                    last;
                }
            }
            else {
				my $msg = $!;
				$msg = ::errmsg("error '%s' from select." , $msg );
				::logGlobal({}, $msg );
                die "$msg\n";
            }
        }

        elsif (	$Global::Unix_Mode && vec($rout, fileno(Vend::Server::USOCKET), 1) ) {
            my $ok = accept(Vend::Server::MESSAGE, Vend::Server::USOCKET);
            die "accept: $!" unless defined $ok;
			$spawn = 1;
		}
		elsif($n == 0) {
			undef $spawn;
			housekeeping();
		}
        elsif (	$Global::Inet_Mode ) {
            my ($ok, $p, $v);
			while (($p, $v) = each %vec_map) {
        		next unless vec($rout, $v, 1);
				$Global::TcpPort = $p;
				$ok = accept(Vend::Server::MESSAGE, $fh_map{$p});
			}
#::logDebug("port $Global::TcpPort");
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
            die "accept: $!" unless defined $ok;
			my $connector;
			(undef, $ok) = sockaddr_in($ok);
		CHECKHOST: {
			undef $Vend::OnlyInternalHTTP;
			$connector = inet_ntoa($ok);
			last CHECKHOST if $connector =~ /$Global::TcpHost/;
			my $dns_name;
			(undef, $dns_name) = gethostbyaddr($ok, AF_INET);
			$dns_name = "UNRESOLVED_NAME" if ! $dns_name;
			last CHECKHOST if $dns_name =~ /$Global::TcpHost/;
			$Vend::OnlyInternalHTTP = "$dns_name/$connector";
		}
			$spawn = 1;
		}
        else {
            die "Why did select return with $n? Can we even get here?";
        }
	  };
	  ::logGlobal({}, "Died in select, retrying: %s", $@) if $@;
	  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
-----------snipp----------

I believe, there are two problem/cause to get the error message like
above. One is coming by wrong language and the other is coming by any
problem with TcpPort. Which OS do you use? How did you start the
MiniVend Server (INET OR UNIX OR BOTH MODE)?

Joachim



-- 
Hans-Joachim Leidinger
buch online                 jojo@buchonline.net
Munscheidstr. 14            FAX: +49 209 1671449
45886 Gelsenkirchen         FAX: 0209 1671449

-
To unsubscribe from the list, DO NOT REPLY to this message.  Instead, send
email with 'UNSUBSCRIBE minivend-users' in the body to Majordomo@minivend.com.
Archive of past messages: http://www.minivend.com/minivend/minivend-list