You don't have permission to access this resource.
Additionally, a 403 Forbidden error was encountered while trying to use an ErrorDocument to handle the request.
355 cThe requested URL was not found on this server.
Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.
0 li~mJi@ Ӫbѿ 8_ ub &=LV[( ? # $Header: /home/timbo/dbi/lib/DBI/RCS/ProxyServer.pm,v 11.9 2003/05/14 11:08:17 timbo Exp $ # -*- perl -*- # # DBI::ProxyServer - a proxy server for DBI drivers # # Copyright (c) 1997 Jochen Wiedmann # # The DBD::Proxy module is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. In particular permission # is granted to Tim Bunce for distributing this as a part of the DBI. # # # Author: Jochen Wiedmann # Am Eisteich 9 # 72555 Metzingen # Germany # # Email: joe@ispsoft.de # Phone: +49 7123 14881 # # ############################################################################## require 5.004; use strict; use RPC::PlServer 0.2001; require DBI; require Config; package DBI::ProxyServer; ############################################################################ # # Constants # ############################################################################ use vars qw($VERSION @ISA); $VERSION = "0.3005"; @ISA = qw(RPC::PlServer DBI); # Most of the options below are set to default values, we note them here # just for the sake of documentation. my %DEFAULT_SERVER_OPTIONS; { my $o = \%DEFAULT_SERVER_OPTIONS; $o->{'chroot'} = undef, # To be used in the initfile, # after loading the required # DBI drivers. $o->{'clients'} = [ { 'mask' => '.*', 'accept' => 1, 'cipher' => undef } ]; $o->{'configfile'} = '/etc/dbiproxy.conf' if -f '/etc/dbiproxy.conf'; $o->{'debug'} = 0; $o->{'facility'} = 'daemon'; $o->{'group'} = undef; $o->{'localaddr'} = undef; # Bind to any local IP number $o->{'localport'} = undef; # Must set port number on the # command line. $o->{'logfile'} = undef; # Use syslog or EventLog. # XXX don't restrict methods that can be called (trust users once connected) $o->{'XXX_methods'} = { 'DBI::ProxyServer' => { 'Version' => 1, 'NewHandle' => 1, 'CallMethod' => 1, 'DestroyHandle' => 1 }, 'DBI::ProxyServer::db' => { 'prepare' => 1, 'commit' => 1, 'rollback' => 1, 'STORE' => 1, 'FETCH' => 1, 'func' => 1, 'quote' => 1, 'type_info_all' => 1, 'table_info' => 1, 'disconnect' => 1, }, 'DBI::ProxyServer::st' => { 'execute' => 1, 'STORE' => 1, 'FETCH' => 1, 'func' => 1, 'fetch' => 1, 'finish' => 1 } }; if ($Config::Config{'usethreads'} eq 'define') { $o->{'mode'} = 'threads'; } elsif ($Config::Config{'d_fork'} eq 'define') { $o->{'mode'} = 'fork'; } else { $o->{'mode'} = 'single'; } # No pidfile by default, configuration must provide one if needed $o->{'pidfile'} = 'none'; $o->{'user'} = undef; }; ############################################################################ # # Name: Version # # Purpose: Return version string # # Inputs: $class - This class # # Result: Version string; suitable for printing by "--version" # ############################################################################ sub Version { my $version = $DBI::ProxyServer::VERSION; "DBI::ProxyServer $versio