NAME

Dicop::Client::wget -- a connector object for Dicop::Client using wget

SYNOPSIS

        use Dicop::Client::wget;
        use Dicop::Client;

        my $ua = Dicop::Client::wget->new();
        my $client = Dicop::Client->new ( ua => $ua );
        $client->work();                # never returns

REQUIRES

perl5.008001, wget

DESCRIPTION

This module represents a connector object for the client and manages the actual connection between server and client. It uses the popular wget program to do the work.

METHODS

new()

Create a new object.

agent()

Set/get the user agent string.

        my $agent = $ua->agent();
        $ua->agent('UserAgent/1.0');
  

post()

Given a server url and a parameter string, simulates a PUT request:

        $response = $ua->put('http://127.0.0.1:8888/',$params);

get()

Given a server url and a parameter string, simulates a GET request:

        $response = $ua->get('http://127.0.0.1:8888/files/main');

message()

        $msg = $ua->message();

If the connect failed, this method returns a human-readable error message.

code()

Return the HTTP respone code from the server for the last post() or get().

is_success()

Return true if the last request from the server did not result in an error.

content()

        my $content = $ua->content();

Return the content of the last successfull post() or get() call.

BUGS

None discovered yet.

AUTHOR

(c) Bundesamt fuer Sicherheit in der Informationstechnik 1998-2006

DiCoP is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License version 2 as published by the Free Software Foundation.

See http://www.bsi.de/ for more information.

cpanm Dicop::Base

perl -MCPAN -e shell
install Dicop::Base