#!/usr/bin/perl
{
	package DINAgent;
	use strict;
	use warnings;
	use base 'LWP::UserAgent';
	sub get_basic_credentials {
		return ('admin','password');
	}
}

require 5.010_001;
use strict;
use warnings;
use HTTP::Request;
use Encode qw(encode_utf8);
use LWP::ConsoleLogger::Everywhere ();

my $ip = '192.168.54.24';
my $url = "http://".$ip."/restapi/relay/outlets/=4/state/";
my $header = [
	'X-CSRF' => 'x',
	'Accept' => 'application/json',
	'Content-Type' => 'application/x-www-form-urlencoded',
];
my $data = encode_utf8('value=true');
my $req = HTTP::Request->new('GET', $url, $header, $data);
my $ua = DINAgent->new;

my $res = $ua->request($req);

##</code><code>##


GET http://192.168.54.24/restapi/relay/outlets/=4/state/

.---------------------------------+-------------------------------------------------.
| Request (before sending) Header | Value                                           |
+---------------------------------+-------------------------------------------------+
| Accept                          | application/json                                |
| Authorization                   | Digest username="admin", realm="DLI DIN4181200- |
|                                 | 5889", qop=auth, algorithm="MD5", uri="/restap- |
|                                 | i/relay/outlets/=4/state/", nonce="lUbDs5U7hoG- |
|                                 | pVuUw", nc=00000001, cnonce="5ad8c8da", respon- |
|                                 | se="9b02b9381e1ce4b8de39d2d00d176926", opaque=- |
|                                 | "poDELG+OAifnQbRd"                              |
| Content-Type                    | application/x-www-form-urlencoded               |
| User-Agent                      | libwww-perl/6.33                                |
| X-CSRF                          | x                                               |
'---------------------------------+-------------------------------------------------'

.------------.
| Content    |
+------------+
| value=true |
'------------'

.--------------------------.
| Text                     |
+--------------------------+
| {                        |
|     value => "true",     |
| }                        |
'--------------------------'

.--------------------------------+--------------------------------------------------.
| Request (after sending) Header | Value                                            |
+--------------------------------+--------------------------------------------------+
| Accept                         | application/json                                 |
| Authorization                  | Digest username="admin", realm="DLI DIN41812005- |
|                                | 889", qop=auth, algorithm="MD5", uri="/restapi/- |
|                                | relay/outlets/=4/state/", nonce="lUbDs5U7hoGpVu- |
|                                | Uw", nc=00000001, cnonce="5ad8c8da", response="- |
|                                | 9b02b9381e1ce4b8de39d2d00d176926", opaque="poDE- |
|                                | LG+OAifnQbRd"                                    |
| Content-Type                   | application/x-www-form-urlencoded                |
| User-Agent                     | libwww-perl/6.33                                 |
| X-CSRF                         | x                                                |
'--------------------------------+--------------------------------------------------'

==> 207 Responses from multiple resources follow


##</code><code>##


PUT http://192.168.54.24/restapi/relay/outlets/=4/state/

.---------------------------------+-------------------------------------------------.
| Request (before sending) Header | Value                                           |
+---------------------------------+-------------------------------------------------+
| Accept                          | application/json                                |
| Authorization                   | Digest username="admin", realm="DLI DIN4181200- |
|                                 | 5889", qop=auth, algorithm="MD5", uri="/restap- |
|                                 | i/relay/outlets/=4/state/", nonce="/TiSJpxNOX2- |
|                                 | YUGF9", nc=00000001, cnonce="5ad8c6b2", respon- |
|                                 | se="4d899287d76eeb9544e1f74398a75189", message- |
|                                 | -digest="d41d8cd98f00b204e9800998ecf8427e", op- |
|                                 | aque="32bmBh1vwolMgswm"                         |
| Content-Type                    | application/x-www-form-urlencoded               |
| User-Agent                      | libwww-perl/6.33                                |
| X-CSRF                          | x                                               |
'---------------------------------+-------------------------------------------------'

.------------.
| Content    |
+------------+
| value=true |
'------------'

.--------------------------.
| Text                     |
+--------------------------+
| {                        |
|     value => "true",     |
| }                        |
'--------------------------'

.--------------------------------+--------------------------------------------------.
| Request (after sending) Header | Value                                            |
+--------------------------------+--------------------------------------------------+
| Accept                         | application/json                                 |
| Authorization                  | Digest username="admin", realm="DLI DIN41812005- |
|                                | 889", qop=auth, algorithm="MD5", uri="/restapi/- |
|                                | relay/outlets/=4/state/", nonce="/TiSJpxNOX2YUG- |
|                                | F9", nc=00000001, cnonce="5ad8c6b2", response="- |
|                                | 4d899287d76eeb9544e1f74398a75189", message-dige- |
|                                | st="d41d8cd98f00b204e9800998ecf8427e", opaque="- |
|                                | 32bmBh1vwolMgswm"                                |
| Content-Type                   | application/x-www-form-urlencoded                |
| User-Agent                     | libwww-perl/6.33                                 |
| X-CSRF                         | x                                                |
'--------------------------------+--------------------------------------------------'

==> 401 Unauthorized