Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Problems with MS Graph

by Discipulus (Canon)
on Jan 18, 2023 at 12:07 UTC ( [id://11149666]=note: print w/replies, xml ) Need Help??


in reply to Problems with MS Graph

Hello PeterKaagman

did you tried curl2lwp page?

I get (selecting LWP::UserAgent as User-Agent module):

#!perl use strict; use warnings; use LWP::UserAgent; my $ua = LWP::UserAgent->new( 'send_te' => '0' ); my $r = HTTP::Request->new( 'POST' => 'https://login.microsoftonline.com/[TENANT_ID]/oauth2/to +ken', [ 'Accept' => '*/*', 'User-Agent' => 'curl/7.55.1', 'Content-Length' => '120', 'Content-Type' => 'application/x-www-form-urlencoded' ], "grant_type=client_credentials&client_id=[APP_ID]&client_secret=[PASSW +ORD]&resource=https\x253A\x252F\x252Fmanagement.azure.com\x252F" ); my $res = $ua->request( $r, );

L*

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11149666]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others imbibing at the Monastery: (4)
As of 2024-03-29 08:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found