Also, I just noticed, you send this to dbi-dev.  Which is not even for perl
dbi question, but rather for DBI development discussion.  If you have DBI
related questions, you must send to [EMAIL PROTECTED]

Ilya Sterin

> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, June 06, 2001 4:11 AM
> To: [EMAIL PROTECTED]
> Subject: DBI::ProxyServer
>
>
> Hello,
>
> I have installed the following perl modules on the Server (OS is Unix):
>
> -PlRPC-0.2015.tar.gz
> -Net-Daemon-0.35.tar.gz
> -Storable-1.0.11.tar.gz
> -DBI-1.18.tar.gz
>
> and on the client (OS is Windows NT)
>
> -DBD-ODBC.zip
> -DBI.zip
> -PlRPC.zip
> -Storable.zip
>
>
> I start the proxy on the Windows machine:
> c:\dbiproxy -logfile c:\tmp\dbiproxy.log -localport 2000
>
> and start my script on the Unix machine:
>
>  #!/usr/local/bin/perl
>
>     use strict;               # Always a good choice.
>
>     require RPC::PlClient;
>
>     # Constants
>     my $MY_APPLICATION = "MD5_Server";
>     my $MY_VERSION = 1.0;
>     my $MY_USER = "CadUser";           # The server doesn't require user
>     my $MY_PASSWORD = "CadUser";       # authentication.
>
>     my $hexdigest = eval {
>         my $client = RPC::PlClient->new
>             ('peeraddr'    => 'fn0676',
>              'peerport'    => 2000,
>              'application' => $MY_APPLICATION,
>              'version'     => $MY_VERSION,
>              'user'        => $MY_USER,
>              'password'    => $MY_PASSWORD);
>
>         # Create an MD5 object on the server and an associated
>         # client object. Executes a
>         #     $context = MD5->new()
>         # on the server.
>         my $context = $client->ClientObject('MD5', 'new');
>
>         # Let the server calculate a digest for us. Executes a
>         #     $context->add("This is a silly string!");
>         #     $context->hexdigest();
>         # on the server.
>         $context->add("This is a silly string!");
>         $context->hexdigest();
>     };
>     if ($@) {
>         die "An error occurred: $@";
>     }
>
>     print "Got digest $hexdigest\n";
>
>
> But I get the following error message:
>
> On the Unix Machine:
>
>  An error occurred: Unexpected EOF from Server at
> /opt/perl5/lib/site_perl/5.005/RPC/PlClient.pl line 83
>
> On the Windows machine:
>
>  err. Child died Storable binary image v2.4 more recent than I am
> ( V1.0) at
> blib\lib\Storable.pl (autosplit)
>  into blib\lib\auto\Storable\thaw.all) line 238, at
> C:\perl\site\lib\RPC\PlServer\Comm.pl line 142
>
>
> I don't know, what mean' s the error message and what should I do
> to resolv
> this problem ?
>
> Thanks for your help
>
> Hasan
>
> --
> Machen Sie Ihr Hobby zu Geld bei unserem Partner 1&1!
> http://profiseller.de/info/index.php3?ac=OM.PS.PS003K00596T0409a
>
> --
> GMX - Die Kommunikationsplattform im Internet.
> http://www.gmx.net

Reply via email to