Autore   = "Paolo Bonavoglia";
MailWeb  = "paolo.bonavoglia@aruba.it";
Is_NS = window.navigator.appName == "Netscape"
Is_IE = window.navigator.appName == "Microsoft Internet Explorer"

function GetElement(nome){
	if (Is_IE) {
		return document.all[nome];
	} else {
		return document.getElementById(nome);
	}
}

function CambiaFoto(fname){
	GetElement('Scelta').value = fname;
	GetElement('Foto').src = fname;
}

function ColOrdina(chiave){
	ord = document.forms[0].Ordine;
	ord.value = chiave;
	tip = document.forms[0].Tipo;
	if (tip.value == 'ASC'){
		tip.value = 'DESC';
	} else {
		tip.value = 'ASC';
	}
	document.forms[0].submit()
}

function NuovoSito(nome, host, path, mail){
	this.Name = nome;
	this.Host = host;
	this.Path = path;
	this.Mail = mail;
}

function Contenuto(host, ipertesto){
	this.Host = host;
	this.HT = ipertesto;
}

function NIpertesto(titolo, fname){
	this.Titolo   = titolo;
	this.FileName = fname;
}

Ipertesto = new Array()
Ipertesto[0] = new NIpertesto("Eclissi e Calendari", "astro/home.html")
Ipertesto[1] = new NIpertesto("Elogio della bicicletta", "bici/home.html")
Ipertesto[2] = new NIpertesto("Venezia 2000", "venezia/index.htm")
Ipertesto[3] = new NIpertesto("Il Liceo Foscarini di Venezia", "index.html")
Ipertesto[4] = new NIpertesto("La Crittografia da Atbash a RSA", "studenti/crittografia/index.html")

Sito = new Array()
Sito[0] = new NuovoSito("Locale",   "", "", MailWeb)
Sito[1] = new NuovoSito("PoloEst",  "www.provincia.venezia.it", "/mfosc/", "mfosc@provincia.venezia.it")
Sito[2] = new NuovoSito("Digiland", "digilander.iol.it", "/paolobona/", "paolo.bona@libero.it")
Sito[3] = new NuovoSito("ClubNet",  "space.tin.it", "/clubnet/gyobon/", "paolo.bona@tin.it")
Sito[4] = new NuovoSito("TiscaliNet", "web.tiscalinet.it", "/paolobona/", "paolo.bona@tiscalinet.it")

Contiene = new Array()
Contiene[0] = new Contenuto(3, 0)
Contiene[1] = new Contenuto(4, 0)
Contiene[2] = new Contenuto(2, 0)
Contiene[3] = new Contenuto(2, 1)
Contiene[4] = new Contenuto(2, 2)
Contiene[5] = new Contenuto(1, 3)
Contiene[6] = new Contenuto(1, 4)
Contiene[7] = new Contenuto(0, 0)
Contiene[8] = new Contenuto(0, 1)
Contiene[9] = new Contenuto(0, 2)

function NumeroHost(hostname){
	for (ind = 1; ind < Sito.length; ind++){
		if ((Sito[ind].Host == hostname)) {
			return ind
		}
	}
	return 0
}

function NomeHost(hostname){
	return Sito[NumeroHost(hostname)].Name
}

function IpertestoContenuto(ht, host){
	for (ind = 0; ind < Contiene.length; ind++){
		if ((Contiene[ind].HT == ht)&&(Sito[Contiene[ind].Host].Host == host)) {
			return 1
		}
	}
	return 0
}

function ScriviAncora(url, titolo){
	document.writeln('<A HREF="',  url, '">', titolo, '</A>');
}

function ListaContenuto(){
	document.writeln('<H3>Su ', NomeHost(location.hostname), '</H3>');
	document.writeln('<UL>');
	for (conta = 0; conta < Ipertesto.length;	conta++){
		if (IpertestoContenuto(conta, location.hostname)==1){ 
			document.write('<LI>');
			ScriviAncora(Ipertesto[conta].FileName, Ipertesto[conta].Titolo);
		}
	}
	document.writeln('</UL>');
	document.writeln('<HR><H3>Su altri Host</H3>');
	document.writeln('<UL>');
	for (conta = 0; conta < Contiene.length; conta++){
		if (IpertestoContenuto(Contiene[conta].HT, location.hostname)==0){ 
			document.write('<LI>');
			ScriviAncora('http://' + Sito[Contiene[conta].Host].Host + Sito[Contiene[conta].Host].Path + Ipertesto[Contiene[conta].HT].FileName, Ipertesto[Contiene[conta].HT].Titolo);
			document.write('(', Sito[Contiene[conta].Host].Name, ')');
		}
	}
	document.writeln('</UL>');
}

function ScriviUltimaData(){
	var datAgg = new Date(document.lastModified);
	with (datAgg) {
		document.writeln(getDate(), '-', getMonth()+1, '-', getFullYear(), '<BR>');
	}
}

function ScriviCoda(dir, aut, tipo){
	document.write("<div>");
	if (tipo == 'TF'){
		document.write("Testo e foto di ");
	} else if (tipo == 'T'){
		document.write("Testo di ");
	} else {
		document.write("Pagina a cura di ");
	} 
	ScriviAutore();
	document.write("</div><div>Testi e foto possono essere riprodotti liberamente a condizione che la cosa non sia a fini di lucro e che venga citata esplicitamente la fonte, con un link alla medesima.")
	document.write("</div><div>Ultimo aggiornamento il ")
	ScriviUltimaData();
	document.write("</div>");
}

function ScriviAutore(){
	document.write('<a href="http://paolo.bonavoglia.eu">', Autore, '</a> (<a href="mailto:', Sito[NumeroHost(location.hostname)].Mail, '" TITLE="scrivete via E-Mail">', Sito[NumeroHost(location.hostname)].Mail, '</A>)');
}