Advertisement
Guest User

Untitled

a guest
Nov 25th, 2016
152
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.43 KB | None | 0 0
  1. my $host = 'SERVER:80'; # url used to access the Simpana REST service
  2.  
  3. my $header = {
  4. 'host' => $host,
  5. };
  6.  
  7. my $body = 'username=SomeUser&password=mysecret';
  8.  
  9. my $RESTClient = REST::Client->new(host => 'http://' . $host, follow => 0);
  10.  
  11. $RESTClient->POST('bppmws/api/authenticate/login', $body, $header); # Send POST method Authentification
  12.  
  13. say $RESTClient->responseContent();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement