Δημοσιεύτηκε: 02 Αύγ 2011, 16:52
Φαίνεται πως μάντεψα σωστά για τις τιμές. 
Με τα λίγα που θυμάμαι από perl, παίρνει τις τιμές return_url και token (μαζί με άλλες), δημιουργεί ένα url και το διαβάζει:
Αν είναι επιτυχής η σύνδεση τον στέλνει πίσω στο return_url, στην ιστοσελίδα που ήταν πριν:
To http 301 είναι για redirection:
http://www.w3.org/Protocols/rfc2616/rfc2616-sec10.html
http://en.wikipedia.org/wiki/HTTP_301
Με τα λίγα που θυμάμαι από perl, παίρνει τις τιμές return_url και token (μαζί με άλλες), δημιουργεί ένα url και το διαβάζει:
- Κώδικας: Επιλογή όλων
my $cgi_connector = "https://msdn62.e-academy.com/msdnaa_gn6522/index.cfm?loc=login/cab_cgi";
$cgi_connector .= "&token=$token&uid=$uid&groups=$groups&department=$department&email=$uid\@cs.uoi.gr";
$res = $ua->get($cgi_connector);
Αν είναι επιτυχής η σύνδεση τον στέλνει πίσω στο return_url, στην ιστοσελίδα που ήταν πριν:
- Κώδικας: Επιλογή όλων
if ($res->is_success) {
if($res->as_string gt "0 Account"){
$return_url .= "&uid=$uid&token=$token";
print "Status: 301 Moved Permanently\nLocation: $return_url \n\n";
#print $res->content;
}
}
To http 301 είναι για redirection:
http://www.w3.org/Protocols/rfc2616/rfc2616-sec10.html
http://en.wikipedia.org/wiki/HTTP_301