PDA

Visualizza la versione completa : Traduzione in italiano


8003130124464
24-12-2005, 01:47
Salve gente,
io di CGI e PERL nn ci capisco niente quindi solo voi potete darmi una manina....

Mi servirebbe una "traduzione" di questo codice :



if ($windows) {
if ($setcookie) {
if ($page =~ /$page_domain/ig && $use_page eq 1 || $goahead eq "OK") {
print $q->header(-cookie=>$cookie, -p3p=>"policyref=\"$p3purl\", CP=\"$p3pabbr\"");
print "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"0; URL=$page\">";
} else {
print $q->header(-cookie=>$cookie, -p3p=>"policyref=\"$p3purl\", CP=\"$p3pabbr\"");
print "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"0; URL=$home\">";
}
} else {
if ($page =~ /$page_domain/ig && $use_page eq 1 || $goahead eq "OK") {
print $q->header(-p3p=>"policyref=\"$p3purl\", CP=\"$p3pabbr\"");
print "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"0; URL=$page\">";
} else {
print $q->header(-p3p=>"policyref=\"$p3purl\", CP=\"$p3pabbr\"");
print "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"0; URL=$home\">";
}
}


Non mi importa sapere cosa fa, mi accontento di sapere ke dice (ad esempio) se la stringa XXX uguale alla stringa YYY, allora fammi un redirect su...ecc...ecc...
Ki si offre volontario :yuppi: ?
Grazie!

Mich_
09-01-2006, 11:51
Non e` facile capire quel codice.
Non potresti scriverlo rispettando le indentazioni [ad esempio inserendolo tra [ code ] e [ /code ] (senza spazi) ]?

comunque gli if testano"
- se le variabili sono definite e non zero (i primi due)
- se $page contiene $page_domain AND $use_page = 1 OR $goahead = "OK" (il terzo) e similmente gli altri

I vari print stampano (presumibilmente sul client) il contenuto di un elemento di una hash (non riportata) e i tag riportati (con le variabili sostituite).

Loading