Google-Authentifizierung mit Perl-CGI-Anwendung

Question

Ich habe ein CGI :: Anwendung derzeit ausgeführt werden auf dem lokalen Host gebaut und haben 2 Authentifizierungsmethoden verwendet -
1. descried in http://www.perlmonks.org/?node_id=622071 durch Speichern Benutzer-Passwort in der Datenbank und
2. Verwendung von LDAP-Anmeldeinformationen.

Ich war auf der Suche nach einer einfachen Möglichkeit Authentifizierung zu tun google aber habe herausgefunden, nicht eine einfache Art und Weise vor. Kann jemand Punkt mich in der richtigen Richtung.

schaute ich auf
1. Authen-Google Profile und
2. Netto-Google-FederatedLogin

, aber nicht genug, um Dokumentation zu dieser. Wo soll ich anfangen? Bitte lassen Sie mich wissen, auch wenn Sie einige Zeiger auf, dies zu tun außerhalb des cgi haben :: application

Answer 1

Dies ist die nächste Lösung, die ich finden konnte. Ich bin kein Sicherheitsexperte, aber ich glaube nicht, Websites ernst damit diese Methode verwenden würde. Es verwendet WWW :: Mechanize mit Google E-Mail / Passwort zu authentifizieren und dann zieht sicheren Inhalt aus.

http://gregjessup.com/login-to-google-using-perl /

Wenn $ Mecha-> get ($ url); kehrt Fehler, Authentifizierung fehlgeschlagen.

Answer 2

Hier ist der Code, den ich für den Android Market für Entwickler (market.android.com/publish) verwendet:

use WWW::Mechanize;
use HTTP::Cookies;

my $url = 'https://www.google.com/accounts/ServiceLogin';
my $username = 'username@gmail.com';                                                          
my $password = "PASSWORD";
my $mech = WWW::Mechanize->new();
$mech->cookie_jar(HTTP::Cookies->new());
$mech->get($url);
$mech->form_number(1);
$mech->field(Email => $username);
$mech->field(Passwd => $password);
$mech->click();
# Go to the next link, now that we are logged in.                                                                                   
$url = 'https://market.android.com/publish/Home';
$mech->get($url);
print $mech->content();

Es ist eine kleine edit / Bereinigung des Link Prateek posted: http: // gregjessup. com / login-to-google-mit-perl . Ich denke, es sollte in der Lage sein, für die meisten Google-Dienste verwendet werden, die Sie benötigen angemeldet sein.