(*)

Currently CDDBP and HTTP protocols are supported.

log()

update()

Test

write()

Analyse

CDDBP through firewall

SPEED-UP NOTE

If protocol level 1 is specified, the connect method tries to use the highest available protocol level. To do so, it queries the FreeDB to find out exaclty which level is supported. On CDDBP connections this doesn't take that long. On HTTP connections it does. To speed up HTTP connections specify a higher proto_level -say 5.

Options for OPT_HASH_REF may include:

auto_connected

Connect the created object just after instantiation. Defaults to 1.

client_host

The hostname of the client. Defaults to &Sys::Hostname::hostname().

client_name

Mandatory option to name the connecting client software.

client_user

The user name of the client. Defaults to scalar( getpwuid(\$>) ).

client_version

Mandatory option with the client software version string.

freedb_cgi*

The FreeDB cgi to use. Defaults to ~cddb/cddb.cgi.

freedb_host

The FreeDB host. Defaults to freedb.freedb.org.

freedb_port

The port on the FreeDB host. Defaults to 80 for HTTP and to 888 for CDDBP connection types.

protocol

The protocol to use. Either HTTP or CDDBP. Defaults to HTTP.

proto_level

The FreeDB protocol level. Defaults to 1.

proxy_host**

The proxy host to use.

proxy_passwd**

The proxy password to use.

proxy_port**

The port on the proxy host. Defaults to 8080.

proxy_user**

The proxy user name to use.

(*)

Only supported for the HTTP protocol.

(**)

Proxy is only supported for the HTTP protocol.

EOF body => <<'EOF', my $self = shift; my $opt = defined($_[0]) ? shift : {};

    # Check $opt
    ref($opt) eq 'HASH' ||
        throw Error::Simple("ERROR: InfoSys::FreeDB::create_connection, first argument must be 'HASH' reference.");

    # Set default values for $opt
    $opt->{client_host} = &Sys::Hostname::hostname()
        if (! $opt->{client_host} );
    $opt->{client_user} = scalar( getpwuid($>) )
        if (! $opt->{client_user} );
    $opt->{freedb_host} = 'freedb.freedb.org'
        if (! $opt->{freedb_host} );

    # Set default value to protocol
    $opt->{protocol} = 'HTTP' if ( ! $opt->{protocol} );

    # Select the correct connection class
    my $conn = undef;
    if ( $opt->{protocol} eq 'HTTP' ) {
        $opt->{freedb_port} = 80
            if (! $opt->{freedb_port} );
        require InfoSys::FreeDB::Connection::HTTP;
        $conn = InfoSys::FreeDB::Connection::HTTP->new($opt);
    }
    elsif ( $opt->{protocol} eq 'CDDBP' ){
        $opt->{freedb_port} = 888
            if (! $opt->{freedb_port} );
        require InfoSys::FreeDB::Connection::CDDBP;
        $conn = InfoSys::FreeDB::Connection::CDDBP->new($opt);
    }
    else {
        throw Error::Simple("ERROR: InfoSys::FreeDB::create_connection, protocol '$opt->{protocol}' is not supported. Only 'HTTP' and 'CDDBP' are.");
    }

    # Connect if necessary
    $opt->{auto_connected} = 1 if ( !exists( $opt->{auto_connected} ) );
    $opt->{auto_connected} && $conn->connect();

    # Return the connection
    return($conn);
EOF
        },
    ],
    use_opt => [
        {
            dependency_name => 'Sys::Hostname',
        },
    ],
} );