get token

test/remote/test.pl

@@ -11,13 +11,13 @@ read_config 'test.cfg' => my %config;
 print "Username : $config{Authentification}{Username}\n";
 print "Host : $config{Authentification}{Host}\n";
 print "Host : $config{Authentification}{Path}\n";
-print "Protocol : $config{Authentification}{Username}\n";
+print "Protocol : $config{Authentification}{Protocol}\n";
 
-local $url = "$config{Authentification}{Host}$config{Authentification}{Path}";
+local $url = "$config{Authentification}{Protocol}$config{Authentification}{Host}$config{Authentification}{Path}";
 local $ua = LWP::UserAgent->new(timeout => 10);
 $ua->env_proxy;
 
-sub rq {
+sub get_code {
   my $path = (exists $_[0])? $_[0] : "";
   my $response = $ua->get( "$url$path" );
   print "rq $url$path\n";
@@ -31,5 +31,19 @@ sub rq {
   }
 }
 
-rq();
-rq( "tokens" );
+get_code();
+get_code( "tokens" );
+
+sub rq {
+  my $path = (exists $_[0])? $_[0] : "";
+  my $method = (exists $_[1])? $_[1] : "";
+  my $content = (exists $_[2])? $_[2] : "";
+
+  my $req = HTTP::Request->new(POST => "$url$path");
+  $req->content_type('application/json');
+  $req->content("$content");
+  my $res = $ua->request($req);
+  print $res->as_string;
+}
+
+rq( "tokens", "GET", "{\"user\" : {\"email\" : \"$config{Authentification}{Email}\", \"password\" : \"$config{Authentification}{Password}\"}}" );