Traduzione in italiano

[8003130124464]

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 ?
Grazie!

[Mich_]

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).