Perl mit OAuth2 und Strava (Perl/CGI)

[thread]20747[/thread]

Perl mit OAuth2 und Strava

Tags: perl5 CGI Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+8 replies
HomeAuto_User

2020-02-23 15:00
User since
2019-03-04
3 Artikel
BenutzerIn
Hallo,
ich möchte eine API nutzen um eine Schnittstelle zu erzeugen.
API Erläuterung Userhelp

Ich bitte um Mithilfe.
Folgende Schritte muss ich also umsetzen aber dies gelingt mir nicht.
# 1) Anfrage GET mit Kunden-ID, nicht athlete_id -->
# 2) Eingabe Login Daten
# 3) Return Browser nach authentication (with code)
# 4) Absetzen POST
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

#!/usr/bin/perl use strict; use warnings; use LWP::Authen::OAuth2; use JSON; # The client id and secret from the client_secret.json file my $client_id = "081533311"; my $client_secret = "unknown"; # construct the OAuth2 object my $oauth2 = LWP::Authen::OAuth2->new( authorization_endpoint => 'https://www.strava.com/oauth/authorize', client_id => $client_id, # your application’s ID, obtained during registration client_secret => $client_secret, # APP-TOKEN redirect_uri => "http://localhost/exchange_token", # from client_secret.json approval_prompt => "force", scope => "read", ); # get the authentication url, give the user an opportunity to navigate to the # url, copy the auth code, and paste it my $url = $oauth2->authorization_url(); print "Authorization URL: $url\n";
Danke im Vorraus
Last edited: 2020-02-23 15:49:19 +0100 (CET)
- +6 replies
- bianca
  
  2020-02-24 07:42
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Möchtest du Fragen stellen oder alles kostenfrei fix und fertig gemacht bekommen?
  10 print "Hallo"
  20 goto 10
  - +5 replies
  - HomeAuto_User
    
    2020-02-24 11:47
    
    User since
    2019-03-04
    3 Artikel
    BenutzerIn
    
    Hallo,
    es geht mir um den Weg wie ich zum Ziel komme weil ich mich mit oAuth nicht genug auskenne und da müssen diverse Schritte vollzogen werden.
    
    Wie kann ich zum Beispiel das Login hinsenden und nicht via Browser manuell vollziehen?
    
    MfG
    - +4 replies
    - bianca
      
      2020-02-25 08:13
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Du willst ein für Menschen gedachtes Login mit OAuth als Script/Robot schreiben? Habe ich das richtig verstanden?
      
      Und dein Script ist dein bisheriger Kenntnisstand?
      Das läuft bei mir übrigens fehlerfrei durch. Wie kann man dir denn helfen, ohne sich in die Tiefen von OAuth begeben zu müssen?
      
      In der Doku zu LWP::Authen::OAuth2 steht ziemlich viel. Insbesondere eine Verlinkung zu LWP::Authen::OAuth2::ServiceProvider::Strava. Warum kommt das hier eigentlich nicht zum Einsatz?
      Last edited: 2020-02-25 08:24:03 +0100 (CET)
      10 print "Hallo"
      20 goto 10
      - +3 replies
      - HomeAuto_User
        
        2020-02-26 13:04
        
        User since
        2019-03-04
        3 Artikel
        BenutzerIn
        
        Hallo,
        
        nicht falsch verstehen, ich möchte bzw. muss das OAuth Verfahren nutzen um das ich die API Schnittstelle nutzen kann.
        
        Mein Kenntnisstand wie die Reihenfolge abläuft ist schon schlauer geworden.
        
        Um gezielt Fragen zu stellen:
        1) Kann ich via PERL an eine Webseite mein Login Senden und das Callback auswerten? Grund dafür ist ist die Reihenfolge
        - via Login Webseite mit Anforderung Tokenparameter werde ich zum Login geleitetet
        - dort Login Eingeben und ich erhalte eine Callbackseite mit Code welche aber nicht dargestellt wird
        - Davon muss ich den Code auslesen aus der "Rückadresse"
        
        2) Mir fehlt ein Beispiel von LWP::Authen::OAuth2 wie ich ein POST absetze oder via GET etwas erziele. Mit
        $oauth2->get(...)oder $oauth2->post(...) kann ich nichts anfangen weil ich nicht weiß was als Parameter in die ... kommt und wie das Retrun ich zur Ansicht bringe.
        
        CPAN:LWP::Authen::OAuth2::ServiceProvider::Strava wird nicht genutzt weil es nur manche Parameter automatisch ersetzt welche ich auch manuel angeben kann.
        
        Daxim
        
        2020-02-26 13:35
        
        User since
        2007-08-01
        114 Artikel
        BenutzerIn
        
        Du kannst den Modulautor auf irc.perl.org #austria.pm (Webchat) finden.
        
        bianca
        
        2020-02-27 07:46
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2020-02-26T12:04:33 HomeAuto_User
        nicht falsch verstehen
        
        Noch verstehe ich wenig, weil du nicht mal meine Annahmen bestätigst oder dementierst.
        
        2020-02-26T12:04:33 HomeAuto_User
        ich möchte bzw. muss das OAuth Verfahren nutzen um das ich die API Schnittstelle nutzen kann.
        
        Den Satzbau verstehe ich nicht. Willst du eine Schnittstelle nutzen (Client) oder anbieten (Server)?
        
        2020-02-26T12:04:33 HomeAuto_User
        1) Kann ich via PERL an eine Webseite mein Login Senden und das Callback auswerten?
        
        Ja sicher. Da bist du in der LWP:: Gruppe genau richtig. Die Basis für ganz "normale" GET- oder POST-Requests ist aus meiner Sicht das gute alte LWP::UserAgent
        
        2020-02-26T12:04:33 HomeAuto_User
        Mir fehlt ein Beispiel von LWP::Authen::OAuth2 wie ich ein POST absetze oder via GET etwas erziele.
        
        Aber dein Code macht doch genau das und der läuft sogar. Die Frage verstehe ich also nicht. Im übrigen hatte ich dir Dokus verlinkt. Wirst du dort nicht fündig oder gibt es Verständnisfragen?
        10 print "Hallo"
        20 goto 10
- Linuxer
  
  2020-02-25 13:09
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Was heisst denn "aber dies gelingt mir nicht." genau?
  
  Was passiert? Was passiert nicht?
  Kommen Fehlermeldungen? Welche?
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2020-02-23 15:00.