StringMin(string)
{
	StringLower, string, string
	StringReplace, string, string, é, e, 1
	StringReplace, string, string, è, e, 1
	StringReplace, string, string, ê, e, 1
	StringReplace, string, string, à, a, 1
	StringReplace, string, string, â, a, 1
	StringReplace, string, string, @, a, 1
	StringReplace, string, string, ô, o, 1
	StringReplace, string, string, ò, o, 1
	StringReplace, string, string, û, u, 1
	StringReplace, string, string, ù, u, 1
	StringReplace, string, string, î, i, 1
	StringReplace, string, string, ì, i, 1
	return string
}

RegexQuote(string)
{
	StringReplace, string, string, \, \\, 1
	StringReplace, string, string, $, \$, 1
	StringReplace, string, string, (, \(, 1
	StringReplace, string, string, ), \), 1
	StringReplace, string, string, [, \[, 1
	StringReplace, string, string, ], \], 1
	StringReplace, string, string, {, \{, 1
	StringReplace, string, string, }, \}, 1
	StringReplace, string, string, *, \*, 1
	StringReplace, string, string, +, \+, 1
	return string
}

MsgReturn(msg)
{
	MsgBox, %msg%
	Return
}

CopyIco(Framakiosk, ico)
{
	found := RegExMatch(ico, "([^/\\]*)$", result)
	
	if (found > 0)
	{
		NomIco = %result1%
		
		newico =  %Framakiosk%/img/apps/%NomIco%
		
		IfExist %newico%
		{
		}
		Else
		{
			FileCopy, %ico%, %newico%
		}
	}

	newico = img/apps/%NomIco%
	Return newico
}

CopyIcoTo(Framakiosk, ico, dir)
{
	found := RegExMatch(ico, "([^/\\]*)$", result)
	
	if (found > 0)
	{
		NomIco = %result1%
		
		IfExist %newico%
		{
		}
		Else
		{
			FileCopy, %FramaKiosk%/%ico%, %dir%/%NomIco%
		}
	}
	Return NomIco
}

AjouterOnglet(Framakiosk, OngletPrec, onglet, adresse)
{
	FileRead, page, %Framakiosk%/index.html
	page := UTF82Ansi(page)
	IfEqual, OngletPrec,
	{
		pattern = <ul class="ui-tabs-nav">
	
		replace = <ul class="ui-tabs-nav">`n`t<li><a href="%adresse%"><span><img class="chtiticone" src="img/apps/icons/kompozer.bmp"/>%onglet%</span></a></li>
	}
	else
	{
		pattern = <li( class="ui-tabs-selected"|)><a href="([^"]*)"><span><img class="chtiticone" src="([^"]*)"/>%OngletPrec%</span></a></li>
	
		replace = <li$1><a href="$2"><span><img class="chtiticone" src="$3"/>%OngletPrec%</span></a></li>`n`t<li><a href="%adresse%"><span><img class="chtiticone" src="img/apps/icons/kompozer.bmp"/>%onglet%</span></a></li>
	}
	
	IfExist, %Framakiosk%/%adresse%
	{
	}
	Else
	{
		FileCopy, defaut/defaut.html, %Framakiosk%/%adresse%
	}
	result := RegExReplace(page, pattern, replace)
	
	result := Ansi2UTF8(result)
	
	FileDelete, %Framakiosk%/index.html
	FileAppend, %result%, %Framakiosk%/index.html
	
	GuiControl,, ListeOnglets, |
	ImportOnglets(result)
}

ModifierOnglet(Framakiosk, Onglet, AncienFichier, fichier, nom, ico)
{
	IfEqual AncienFichier, %fichier%
	{
	}
	Else
	{
		IfExist %Framakiosk%/%fichier%
		{
			IfEqual, fichier, about.html, MsgReturn("Le fichier about.html est utilisé pour une autre page, veuillez entrer un autre nom de fichier.")
			IfEqual, fichier, credits.html, MsgReturn("Le fichier credits.html est utilisé pour une autre page, veuillez entrer un autre nom de fichier.")
			IfEqual, fichier, framakey.html, MsgReturn("Le fichier framakey.html est utilisé pour une autre page, veuillez entrer un autre nom de fichier.")
			IfEqual, fichier, index.html, MsgReturn("Le fichier index.html est utilisé pour une autre page, veuillez entrer un autre nom de fichier.")
			IfEqual, fichier, musique.html, MsgReturn("Le fichier musique.html est utilisé pour une autre page, veuillez entrer un autre nom de fichier.")
			IfEqual, fichier, noflux.html, MsgReturn("Le fichier noflux.html est utilisé pour une autre page, veuillez entrer un autre nom de fichier.")
			IfEqual, fichier, textes.html, MsgReturn("Le fichier textes.html est utilisé pour une autre page, veuillez entrer un autre nom de fichier.")
			MsgBox, 3, FramaKioskBuilder, Le fichier %fichier% existe, voulez vous le remplacer?
			IfMsgBox, Cancel
			{
				Return
			}
			IfMsgBox, No
			{
			InputBox, fichier, FramaKioskBuilder, Fichier ,,,,,,,, %fichier%
			}
			Else
			{
				IfEqual AncienFichier, defaut.html
				{
					FileCopy, %Framakiosk%/%AncienFichier%, %Framakiosk%/%fichier%
				}
				Else
				{
					FileDelete, %Framakiosk%/%fichier%
					FileCopy, %Framakiosk%/%AncienFichier%, %Framakiosk%/%fichier%
				}
			}
		}
		Else
		{
			FileCopy, %Framakiosk%/%AncienFichier%, %Framakiosk%/%fichier%
		}
	}

	FileRead, index, %Framakiosk%/index.html
	index := UTF82Ansi(index)
	
	pattern = <li( class="ui-tabs-selected"|)><a href="([^>]*)"><span><img class="chtiticone" src="([^>]*)"/>%Onglet%</span></a></li>
	
	replace = <li$1><a href="%fichier%"><span><img class="chtiticone" src="%ico%"/>%nom%</span></a></li>
	
	result := RegExReplace(index, pattern, replace)
	
	result := Ansi2UTF8(result)
	FileDelete, %Framakiosk%/index.html
	FileAppend, %result%, %Framakiosk%/index.html
	
	GuiControl,, ListeOnglets, |
	ImportOnglets(result)
}

SupprimerOnglet(Framakiosk, Onglet)
{
	FileRead, index, %Framakiosk%/index.html
	index := UTF82Ansi(index)
	MsgBox, 3, Supression de l'onglet, Supprimer le fichier .html?
	IfMsgBox, Cancel
		return
	IfMsgBox, Yes
	{
		pattern = <li( class="ui-tabs-selected"|)><a href="([^>]*)"><span><img class="chtiticone" src="[^>]*"/>%Onglet%</span></a></li>
	
		found := RegExMatch(page, pattern, result)
	
		if (found > 0 And result2 != "defaut.html")
		{
			FileDelete, %Framakiosk%/%result2%
		}
	}

	pattern = <li class="ui-tabs-selected"><a href="[^>]*"><span><img class="chtiticone" src="[^>]*"/>%Onglet%</span></a></li>
	
	found := RegExMatch(page, pattern, result)
	
	if (found > 0 And result1 != "defaut.html")
	{
		pattern = <li class="ui-tabs-selected"><a href="[^>]*"><span><img class="chtiticone" src="[^>]*"/>%Onglet%</span></a></li>\s*<li><a href="([^>]*)"><span><img class="chtiticone" src="([^>]*)"/>([^<]*)</span></a></li>
		
		replace = <li class="ui-tabs-selected"><a href="$1"><span><img class="chtiticone" src="$2"/>$3</span></a></li>
		
		result := RegExReplace(index, pattern, replace)
	}
	Else
	{
		
		pattern = <li( class="ui-tabs-selected"|)><a href="([^>]*)"><span><img class="chtiticone" src="([^>]*)"/>%Onglet%</span></a></li>
	
		result := RegExReplace(index, pattern)
	
		result := Ansi2UTF8(result)
		FileDelete, %Framakiosk%/index.html
		FileAppend, %result%, %Framakiosk%/index.html
	
		GuiControl,, ListeOnglets, |
		ImportOnglets(result)
	}
}

MonterOnglet(Framakiosk, onglet)
{
	FileRead, index, %Framakiosk%/index.html
	index := UTF82Ansi(index)
	pattern = <li( class="ui-tabs-selected"|)><a href="([^>]*)"><span><img class="chtiticone" src="([^>]*)"/>([^<]*)</span></a></li>(\s*)<li><a href="([^>]*)"><span><img class="chtiticone" src="([^>]*)"/>%Onglet%</span></a></li>
	
	found := RegExMatch(index, pattern, result)
		
	if (found > 0)
	{
		
		pattern = <li( class="ui-tabs-selected"|)><a href="([^>]*)"><span><img class="chtiticone" src="([^>]*)"/>([^<]*)</span></a></li>(\s*)<li><a href="([^>]*)"><span><img class="chtiticone" src="([^>]*)"/>%Onglet%</span></a></li>
	
		replace = <li$1><a href="$6"><span><img class="chtiticone" src="$7"/>%Onglet%</span></a></li>$5<li><a href="$2"><span><img class="chtiticone" src="$3"/>$4</span></a></li>
			
		result := RegExReplace(index, pattern, replace)
		result := Ansi2UTF8(result)
		FileDelete, %Framakiosk%/index.html
		FileAppend, %result%, %Framakiosk%/index.html
			
		GuiControl,, ListeOnglets, |
		ImportOnglets(result)
	}
	Else
	{
		MsgBox, %onglet% est le premier onglet.
	}
}

DescendreOnglet(Framakiosk, onglet)
{
	FileRead, index, %Framakiosk%/index.html
	index := UTF82Ansi(index)
	pattern = <li( class="ui-tabs-selected"|)><a href="([^>]*)"><span><img class="chtiticone" src="([^>]*)"/>%Onglet%</span></a></li>(\s*)<li><a href="([^>]*)"><span><img class="chtiticone" src="([^>]*)"/>([^<]*)</span></a></li>
	
	found := RegExMatch(index, pattern, result)
		
	if (found > 0)
	{
		
		pattern = <li( class="ui-tabs-selected"|)><a href="([^>]*)"><span><img class="chtiticone" src="([^>]*)"/>%Onglet%</span></a></li>(\s*)<li><a href="([^>]*)"><span><img class="chtiticone" src="([^>]*)"/>([^<]*)</span></a></li>
	
		replace = <li$1><a href="$5"><span><img class="chtiticone" src="$6"/>$7</span></a></li>$4<li><a href="$2"><span><img class="chtiticone" src="$3"/>%Onglet%</span></a></li>
			
		result := RegExReplace(index, pattern, replace)
		result := Ansi2UTF8(result)
		FileDelete, %Framakiosk%/index.html
		FileAppend, %result%, %Framakiosk%/index.html
			
		GuiControl,, ListeOnglets, |
		ImportOnglets(result)
	}
	Else
	{
		MsgBox, %onglet% est le dernier onglet.
	}
}

InfosOnglet(Framakiosk, index, nom, start = 1)
{
	nomansi := Ansi2UTF8(nom)
	pattern = <li( class="ui-tabs-selected"|)><a href="([^>]*)"><span><img class="chtiticone" src="([^>]*)"/>%nomansi%</span></a></li>
	
	found := RegExMatch(index, pattern, result, start)
	if (found > 0)
	{
		GuiControl,, NomOnglet, %nom%
		fichier := UTF82Ansi(result2)
		GuiControl,, FichierOnglet, %fichier%
		ico := UTF82Ansi(result3)
		GuiControl,, IcoOnglet, %ico%
	}
	Else
	{
		If (start = 1)
		{
			MsgBox, L'onglet "%nom%" n'existe pas.
		}
	}

	IfExist, %Framakiosk%/%fichier%
	{
		FileRead, page, %Framakiosk%/%fichier%
	}
	Else
	{
		MsgBox, Erreur: Le fichier %Framakiosk%/%fichier% n'existe pas.
	}
	GuiControl,, ListeApps, |
	ImportApps(page)
}

ImportOnglets(index, start = 1)
{
	pattern = 	<li( class="ui-tabs-selected"|)><a href="([^>]*)"><span><img class="chtiticone" src="([^>]*)"/>([^<]*)</span></a></li>
	
	found := RegExMatch(index, pattern, result, start)
	
	if (found > 0)
	{
		nom := UTF82Ansi(result4)
		GuiControl,, ListeOnglets, %nom%
		ImportOnglets(index, found + 1)
	}
}

InfosApp(Framakiosk, page, nom)
{
	nom := Ansi2UTF8(nom)
	nom2 := RegexQuote(nom)
	found := RegExMatch(nom, "-------- (.*) --------", resultnom)
	if (found > 0)
	{
		nom3 = %resultnom1%
	}
	Else
	{
		nom3 = nom
	}
	pattern = ((<div class="icone"><a href="([^>]*)" title=".* - ([^>]*)"><img alt="([^>]*)" src="([^"]*)" /></a></div>\s*<div class="description">%nom2%</div>)|(<div class="separator">%nom3%</div>))
	
	found := RegExMatch(page, pattern, result)
	if (found > 0)
	{
		IfEqual, result2,
		{
			GuiControl, Hide, LchApp
			GuiControl, Hide, ExeApp
			GuiControl, Hide, DossierApp
			GuiControl, Hide, ParametresApp
			GuiControl, Hide, IcoApp
			GuiControl, Hide, App
			GuiControl, Hide, DescApp
			GuiControl, Hide, TextLchApp
			GuiControl, Hide, TextExeApp
			GuiControl, Hide, TextDossierApp
			GuiControl, Hide, TextParametresApp
			GuiControl, Hide, TextIcoApp
			GuiControl, Hide, TextApp
			GuiControl, Hide, TextDescApp
			GuiControl, Hide, ParcourirLchApp
			GuiControl, Hide, ParcourirExeApp
			GuiControl, Hide, ParcourirDossierApp
			GuiControl, Hide, ParcourirIcoApp
			nom3 := UTF82Ansi(nom3)
			GuiControl,, NomApp, %nom3%
		}
		Else
		{
			GuiControl, Show, LchApp
			GuiControl, Show, ExeApp
			GuiControl, Show, DossierApp
			GuiControl, Show, ParametresApp
			GuiControl, Show, IcoApp
			GuiControl, Show, App
			GuiControl, Show, DescApp
			GuiControl, Show, TextLchApp
			GuiControl, Show, TextExeApp
			GuiControl, Show, TextDossierApp
			GuiControl, Show, TextParametresApp
			GuiControl, Show, TextIcoApp
			GuiControl, Show, TextApp
			GuiControl, Show, TextDescApp
			GuiControl, Show, ParcourirLchApp
			GuiControl, Show, ParcourirExeApp
			GuiControl, Show, ParcourirDossierApp
			GuiControl, Show, ParcourirIcoApp
			nom := UTF82Ansi(nom)
			GuiControl,, NomApp, %nom%
			lch := UTF82Ansi(result3)
			GuiControl,, LchApp, %lch%
			ico := UTF82Ansi(result6)
			GuiControl,, IcoApp, %ico%
			app := UTF82Ansi(result5)
			GuiControl,, App, %app%
			desc := UTF82Ansi(result4)
			GuiControl,, DescApp, %desc%
			IfExist, %Framakiosk%/%lch%
			{
				FileRead, pagelch, %Framakiosk%/%lch%
				InfosLchApp(pagelch)
			}
			Else
			{
				MsgBox, Erreur: Le fichier %Framakiosk%/%lch% n'existe pas.
			}
		}
	}
	Else
	{
		MsgBox, L'application "%nom%" n'existe pas.
	}
}

InfosLchApp(lch)
{
	pattern = ExecuteFile=(.*)\s*ExecuteDirectory=(.*)\s*ExecuteParameters=(.*)\s*
	
	found := RegExMatch(lch, pattern, result)
	if (found > 0)
	{
		exe := UTF82Ansi(result1)
		GuiControl,, ExeApp, %exe%
		dossier := UTF82Ansi(result2)
		GuiControl,, DossierApp, %dossier%
		parametres := UTF82Ansi(result3)
		GuiControl,, ParametresApp, %parametres%
	}
	Else
	{
		MsgBox, Erreur: Le contenu du lanceur n'est pas valide.
	}
}

ImportApps(page, start = 1)
{
	pattern = ((<div class="icone"><a href="([^>]*)" title="([^>]*)"><img alt="([^"]*)" src="([^"]*)" /></a></div>\s*<div class="description">([^<]*)</div>)|(<div class="separator">([^<]*)</div>))
	
	found := RegExMatch(page, pattern, result, start)
	
	if (found > 0)
	{
		ifEqual result2, 
		{
			nom = -------- %result9% --------
			nom := UTF82Ansi(nom)
			GuiControl,, ListeApps, %nom%
			ImportApps(page, found + 1)
		}
		Else
		{
			nom := UTF82Ansi(result7)
			GuiControl,, ListeApps, %nom%
			ImportApps(page, found + 1)
		}
	}
}

ModifierApplication(Framakiosk)
{

	GuiControlGet, FichierOnglet
	IfEqual, FichierOnglet,, Return
	IfExist, %Framakiosk%/%FichierOnglet%
	{
		FileRead, page, %Framakiosk%/%FichierOnglet%
		page := UTF82Ansi(page)
		GuiControlGet, ListeApps
		IfEqual, ListeApps,, Return

		found := RegExMatch(ListeApps, "-------- (.*) --------", resultnom)
		if (found > 0)
		{
			App = %resultnom1%
		}	
		Else
		{
			App = ListeApps
		}

		pattern = ((<div class="icone"><a href="([^>]*)" title="([^>]*)"><img alt="([^"]*)" src="([^"]*)" /></a></div>\s*<div class="description">%ListeApps%</div>)|(<div class="separator">%App%</div>))
	
		found := RegExMatch(page, pattern, result)

		if (found > 0)
		{
			ifEqual result2, 
			{
				GuiControlGet, NomApp
				IfEqual, NomApp,, Return
				IfEqual, NomApp, %App%, Return
				
				StringReplace, page, page, <div class="separator">%App%</div>, <div class="separator">%NomApp%</div>

				page := Ansi2UTF8(page)
				FileDelete, %Framakiosk%/%FichierOnglet%
				FileAppend, %page%, %Framakiosk%/%FichierOnglet%
				GuiControl,, ListeApps, |
				ImportApps(page)
			}
			Else
			{
				GuiControlGet, NomApp
				IfEqual, NomApp,
				{
					NomApp = %ListeApps%
				}
				GuiControlGet, LchApp
				IfEqual, LchApp,
				{
					LchApp = lch/Apps/Portable%NomApp%.lch
				}
				GuiControlGet, ExeApp
				IfEqual, ExeApp,
				{
					MsgBox, Le chemin de l'exécutable n'est pas défini.
					Return
				}
				GuiControlGet, DossierApp
				IfEqual, DossierApp,
				{
					found := RegExMatch(ExeApp, "(.*)(/|\\)[^/\\]*exe", result)
					if (found > 0)
					{
						dossier = %result1%
					}
				}
				Else
				{
					dossier = %DossierApp%
				}
				GuiControlGet, ParametresApp
				GuiControlGet, IcoApp
				IfEqual, IcoApp,
				{
					ico = img\defaut.png
				}
				Else
				{
					ico = %IcoApp%
				}
				GuiControlGet, App
				GuiControlGet, DescApp
				GuiControlGet, LchApp
				
				IfExist, %Framakiosk%/%LchApp%
				{
					MsgBox, 4, FramaKioskBuilder, Le fichier %LchApp% existe déjà, le remplacer?
					IfMsgBox, No
					{
						Return
					}
					Else
					{
						FileDelete, %Framakiosk%/%LchApp%
					}
				}
			
				pagelch = [Launch]`nExecuteFile=%ExeApp%`nExecuteDirectory=%dossier%`nExecuteParameters=%ParametresApp%
				FileAppend, %pagelch%, %Framakiosk%/%LchApp%
		
				pattern = <div class="icone"><a href="[^>]*" title="[^>]*"><img alt="[^"]*" src="[^"]*" /></a></div>(\s*)<div class="description">%ListeApps%</div>
					
				replace = <div class="icone"><a href="%LchApp%" title="%App% - %DescApp%"><img alt="%App%" src="%IcoApp%" /></a></div>$1<div class="description">%NomApp%</div>
					
				result := RegExReplace(page, pattern, replace)
				result := Ansi2UTF8(result)
				FileDelete, %Framakiosk%/%FichierOnglet%
				FileAppend, %result%, %Framakiosk%/%FichierOnglet%
				
				GuiControl,, ListeApps, |
				ImportApps(result)
			}
		}
		Else
		{
			MsgBox, "%App%" n'est ni une application, ni un séparateur.
		}
	}
	Else
	{
		MsgBox, Erreur: Le fichier %Framakiosk%/%FichierOnglet% n'existe pas.
	}
}

AjouterApplication(Framakiosk, onglet, AppPrec, lch, nom, desc, ico, titre, exe, dossier, parametres)
{
	
	IfExist, %Framakiosk%/%onglet%
	{
		FileRead, page, %Framakiosk%/%onglet%
		page := UTF82Ansi(page)
		IfEqual, AppPrec,
		{
			pattern = <div id="apps" class="applications">
	
			replace = <div id="apps" class="applications">`n`t<div class="application">`n`t`t<div class="icone"><a href="%lch%" title="%nom% - %desc%"><img alt="%nom%" src="%ico%" /></a></div>`n`t`t<div class="description">%titre%</div>`n`t</div>
			
		}
		else
		{
			
			found := RegExMatch(AppPrec, "-------- (.*) --------", resultnom)
			if (found > 0)
			{
				App = %resultnom1%
			}	
			Else
			{
				App = AppPrec
			}
		
				pattern = (<div class="application">\s*<div class="icone"><a href="[^>]*" title="[^>]*"><img alt="[^"]*" src="[^"]*" /></a></div>\s*<div class="description">%AppPrec%</div>\s*</div>|<div class="separator">%App%</div>)
		
				replace = $1`n`n`t<div class="application">`n`t`t<div class="icone"><a href="%lch%" title="%lch% - %desc%"><img alt="%nom%" src="%ico%" /></a></div>`n`t`t<div class="description">%titre%</div>`n`t</div>
		}
	
		result := RegExReplace(page, pattern, replace)
		result := Ansi2UTF8(result)
		FileDelete, %Framakiosk%/%onglet%
		FileAppend, %result%, %Framakiosk%/%onglet%
		
		pagelch = [Launch]`nExecuteFile=%exe%`nExecuteDirectory=%dossier%`nExecuteParameters=%parametres%
		FileDelete, %Framakiosk%/%lch%
		FileAppend, %pagelch%, %Framakiosk%/%lch%
		
		GuiControl,, ListeApps, |
		ImportApps(result)
	}
	Else
	{
		MsgBox, Erreur: Le fichier %Framakiosk%/%onglet% n'existe pas.
	}
}

MonterApplication(Framakiosk, onglet, App)
{
	
	IfExist, %Framakiosk%/%onglet%
	{
		FileRead, page, %Framakiosk%/%onglet%
		page := UTF82Ansi(page)
		
		found := RegExMatch(App, "-------- (.*) --------", resultnom)
		if (found > 0)
		{
			Separateur = %resultnom1%
		}	
		Else
		{
			Separateur = App
		}
		
		pattern = (<div class="application">\s*<div class="icone"><a href="[^>]*" title="[^>]*"><img alt="[^"]*" src="[^"]*" /></a></div>\s*<div class="description">[^<]*</div>\s*</div>|<div class="separator">[^<]*</div>)(\s*)(<div class="application">\s*<div class="icone"><a href="[^>]*" title="[^>]*"><img alt="[^"]*" src="[^"]*" /></a></div>\s*<div class="description">%App%</div>\s*</div>|<div class="separator">%Separateur%</div>)
	
		found := RegExMatch(page, pattern, result)
		
		if (found > 0)
		{
			
			pattern = (<div class="application">\s*<div class="icone"><a href="[^>]*" title="[^>]*"><img alt="[^"]*" src="[^"]*" /></a></div>\s*<div class="description">[^<]*</div>\s*</div>|<div class="separator">[^<]*</div>)(\s*)(<div class="application">\s*<div class="icone"><a href="[^>]*" title="[^>]*"><img alt="[^"]*" src="[^"]*" /></a></div>\s*<div class="description">%App%</div>\s*</div>|<div class="separator">%Separateur%</div>)
	
			replace = $3$2$1
			
			result := RegExReplace(page, pattern, replace)
			result := Ansi2UTF8(result)
			FileDelete, %Framakiosk%/%onglet%
			FileAppend, %result%, %Framakiosk%/%onglet%
			
			GuiControl,, ListeApps, |
			ImportApps(result)
		}
		Else
		{
			MsgBox, %App% est la première application.
		}
	}
	Else
	{
		MsgBox, Erreur: Le fichier %Framakiosk%/%onglet% n'existe pas.
	}
}

DescendreApplication(Framakiosk, onglet, App)
{
	
	IfExist, %Framakiosk%/%onglet%
	{
		FileRead, page, %Framakiosk%/%onglet%
		page := UTF82Ansi(page)
		
		found := RegExMatch(App, "-------- (.*) --------", resultnom)
		if (found > 0)
		{
			Separateur = %resultnom1%
		}	
		Else
		{
			Separateur = App
		}
		
		pattern = (<div class="application">\s*<div class="icone"><a href="[^>]*" title="[^>]*"><img alt="[^"]*" src="[^"]*" /></a></div>\s*<div class="description">%App%</div>\s*</div>|<div class="separator">%Separateur%</div>)(\s*)(<div class="application">\s*<div class="icone"><a href="[^>]*" title="[^>]*"><img alt="[^"]*" src="[^"]*" /></a></div>\s*<div class="description">[^<]*</div>\s*</div>|<div class="separator">[^<]*</div>)
	
		found := RegExMatch(page, pattern, result)
		
		if (found > 0)
		{
			
			pattern = (<div class="application">\s*<div class="icone"><a href="[^>]*" title="[^>]*"><img alt="[^"]*" src="[^"]*" /></a></div>\s*<div class="description">%App%</div>\s*</div>|<div class="separator">%Separateur%</div>)(\s*)(<div class="application">\s*<div class="icone"><a href="[^>]*" title="[^>]*"><img alt="[^"]*" src="[^"]*" /></a></div>\s*<div class="description">[^<]*</div>\s*</div>|<div class="separator">[^<]*</div>)
	
			replace = $3$2$1
			
			result := RegExReplace(page, pattern, replace)
			result := Ansi2UTF8(result)
			FileDelete, %Framakiosk%/%onglet%
			FileAppend, %result%, %Framakiosk%/%onglet%
			
			GuiControl,, ListeApps, |
			ImportApps(result)
		}
		Else
		{
			MsgBox, %App% est la dernière application.
		}
	}
	Else
	{
		MsgBox, Erreur: Le fichier %Framakiosk%/%onglet% n'existe pas.
	}
}

SupprimerApplication(Framakiosk, onglet, App)
{
	
	IfExist, %Framakiosk%/%onglet%
	{
		FileRead, page, %Framakiosk%/%onglet%
		page := UTF82Ansi(page)

		found := RegExMatch(App, "-------- (.*) --------", resultnom)
		if (found > 0)
		{
			Separateur = %resultnom1%
		}	
		Else
		{
			Separateur = App
		}
		
		pattern = ((<div class="application">\s*<div class="icone"><a href="([^>]*)" title="[^>]*"><img alt="[^"]*" src="[^"]*" /></a></div>\s*<div class="description">%App%</div>\s*</div>)|(<div class="separator">%Separateur%</div>))
		
		found := RegExMatch(page, pattern, result)
		
		if (found > 0)
		{
			ifEqual result2, 
			{
				result := RegExReplace(page, pattern)
				result := Ansi2UTF8(result)
				FileDelete, %Framakiosk%/%onglet%
				FileAppend, %result%, %Framakiosk%/%onglet%
			}
			Else
			{
				MsgBox, 3, Supression du lanceur, Supprimer le lanceur .lch?
				IfMsgBox, Cancel
					return
				IfMsgBox, Yes
				{				
					if (result3 != "lch/defaut.lch" AND result3 != )
					{
						FileDelete, %Framakiosk%/%result3%
					}
				}
				result := RegExReplace(page, pattern)
				result := Ansi2UTF8(result)
				FileDelete, %Framakiosk%/%onglet%
				FileAppend, %result%, %Framakiosk%/%onglet%
			}
			GuiControl,, ListeApps, |
			ImportApps(result)
		}
	}
	Else
	{
		MsgBox, Erreur: Le fichier %Framakiosk%/%onglet% n'existe pas.
	}
}

AjouterSeparateur(Framakiosk, onglet, AppPrec, separateur = "Séparateur")
{
	
	IfExist, %Framakiosk%/%onglet%
	{
		FileRead, page, %Framakiosk%/%onglet%
		page := UTF82Ansi(page)
		IfEqual, AppPrec,
		{
			pattern = (<div class="application">\s*<div class="icone"><a href="[^>]*" title="[^>]*"><img alt="[^>]*" src="[^"]*" /></a></div>\s*<div class="description">[^<]*</div>\s*</div>|<div id="apps" class="applications">)(\s*)</div>
	
			replace = $1$2<div class="separator">%separateur%</div>`n</div>
			
		}
		else
		{
			
		found := RegExMatch(AppPrec, "-------- (.*) --------", resultnom)
		if (found > 0)
		{
			App = %resultnom1%
		}	
		Else
		{
			App = AppPrec
		}
	
			pattern = (<div class="application">\s*<div class="icone"><a href="[^>]*" title="[^>]*"><img alt="[^"]*" src="[^"]*" /></a></div>\s*<div class="description">%AppPrec%</div>\s*</div>|<div class="separator">%App%</div>)
	
			replace = $1`n`n`t<div class="separator">%separateur%</div>
		}
	
		result := RegExReplace(page, pattern, replace)
		result := Ansi2UTF8(result)
		FileDelete, %Framakiosk%/%onglet%
		FileAppend, %result%, %Framakiosk%/%onglet%
		
		GuiControl,, ListeApps, |
		ImportApps(result)
	}
	Else
	{
		MsgBox, Erreur: Le fichier %Framakiosk%/%onglet% n'existe pas.
	}
}

;*************************************************************************************;
;********************** Récupération automatique des applications ********************;
;*************************************************************************************;

ImportAppsDirectory(Framakiosk, AppsDirectory)
{
	IfExist, %AppsDirectory%
	{
		Loop, %AppsDirectory%/*.*, 2
		{
			PApp = %A_LoopFileName%
			StringReplace, App, PApp, Portable
			chemin = %AppsDirectory%/%PApp%/%PApp%Kiosk/%PApp%.xml
			IfExist, %chemin%
			{
				xpath_load(xml, chemin)
				
				cat := xpath(xml, "/portablesoft/category/text()")
				ico := xpath(xml, "/portablesoft/logo/small/text()")
				ico = %AppsDirectory%/%PApp%/%PApp%Kiosk/%ico%
				ico := CopyIco(Framakiosk, ico)
				nom := xpath(xml, "/portablesoft/desc/subtitle/text()")
				desc := xpath(xml, "/portablesoft/desc/content/text()")
			}
			
			IfEqual, cat, Internet
			{
				IfExist, %Framakiosk%/internet.html
				{
				}	
				Else
				{
					AjouterOnglet(Framakiosk, "", "Internet", "internet.html")
				}
				onglet = internet.html
			}
			Else IfEqual, cat, Bureautique
			{
				IfExist, %Framakiosk%/travailler.html
				{
				}	
				Else
				{
					AjouterOnglet(Framakiosk, "", "Travailler", "travailler.html")
				}
				onglet = travailler.html
			}
			Else IfEqual, cat, Jeux
			{
				IfExist, %Framakiosk%/jouer.html
				{
				}	
				Else
				{
					AjouterOnglet(Framakiosk, "", "Jouer", "jouer.html")
				}
				onglet = jouer.html
			}
			Else IfEqual, cat, Audio et Multimedia
			{
				IfExist, %Framakiosk%/multimedia.html
				{
				}	
				Else
				{
					AjouterOnglet(Framakiosk, "", "Multimédia", "multimedia.html")
				}
				onglet = multimedia.html
			}
			Else IfEqual, cat, Graphisme et PAO
			{
				IfExist, %Framakiosk%/multimedia.html
				{
				}	
				Else
				{
					AjouterOnglet(Framakiosk, "", "Multimédia", "multimedia.html")
				}
				onglet = multimedia.html
			}
			Else IfEqual, cat, Utilitaires
			{
				IfExist, %Framakiosk%/outils.html
				{
				}	
				Else
				{
					AjouterOnglet(Framakiosk, "", "Outils", "outils.html")
				}
				onglet = outils.html
			}
			Else IfEqual, cat, Développement et OS
			{
				IfExist, %Framakiosk%/outils.html
				{
				}	
				Else
				{
					AjouterOnglet(Framakiosk, "", "Outils", "outils.html")
				}
				onglet = outils.html
			}
			Else IfEqual, cat, Sciences
			{
				IfExist, %Framakiosk%/scienceseteducation.html
				{
				}	
				Else
				{
					AjouterOnglet(Framakiosk, "", "Sciences et Education", "scienceseteducation.html")
				}
				onglet = scienceseteducation.html
			}
			Else IfEqual, cat, Educatif
			{
				IfExist, %Framakiosk%/scienceseteducation.html
				{
				}	
				Else
				{
					AjouterOnglet(Framakiosk, "", "Sciences et Education", "scienceseteducation.html")
				}
				onglet = scienceseteducation.html
			}
			Else
			{
				IfExist, %Framakiosk%/autres.html
				{
				}	
				Else
				{
					AjouterOnglet(Framakiosk, "", "Autres", "autres.html")
				}
				onglet = autres.html
			}

			IfEqual, ico,
			{
				ico = img/defaut.png
			}

			IfEqual, nom,
			{
				nom = %App%
			}

			IfEqual, desc,
			{
				desc = Description
			}

			IfExist lch/apps/%PApp%.lch
			{
				MsgBox, 4, Le fichier lch/apps/%PApp%.lch existe déjà, voulez vous utiliser un autre fichier?
				IfMsgBox, No
				{
					lch = lch/apps/%PApp%.lch
				}
				Else
				{
					path = %A_ScriptDir%/%Framakiosk%/lch/apps/%PApp%.lch
					StringReplace, path, path, /, \, 1
					FileSelectFile, lch, 8, %path%, Nouveau fichier .lch, Lanceur (*.lch)
				}
			}
			Else
			{
				lch = lch/apps/%PApp%.lch
			}
			
			dossier = %AppsDirectory%/%PApp%/
			StringReplace, dossier, dossier, /, \
			dossier = ${cwd}\..\..\..\%dossier%

			parametres = 
			IfExist, %AppsDirectory%/%PApp%/%PApp%.exe
			{
				exe = %AppsDirectory%/%PApp%/%PApp%.exe
				StringReplace, exe, exe, /, \
				exe = ${cwd}\..\..\..\%exe%
				AjouterApplication(Framakiosk, onglet, AppPrec, lch, App, desc, ico, nom, exe, dossier, parametres)
			}
			Else IfExist, %AppsDirectory%/%PApp%/%App%Portable.exe
			{
				exe = %AppsDirectory%/%PApp%/%App%Portable.exe
				StringReplace, exe, exe, /, \
				exe = ${cwd}\..\..\..\%exe%
				AjouterApplication(Framakiosk, onglet, AppPrec, lch, App, desc, ico, nom, exe, dossier, parametres)
			}
			Else IfExist, %AppsDirectory%/%PApp%/%App%.exe
			{
				exe = %AppsDirectory%/%PApp%/%App%.exe
				StringReplace, exe, exe, /, \
				exe = ${cwd}\..\..\..\%exe%
				AjouterApplication(Framakiosk, onglet, AppPrec, lch, App, desc, ico, nom, exe, dossier, parametres)
			}
			cat = 
			lch = 
			nom = 
			desc = 
			ico = 
			App = 
			ExeNewApp = 
			dossier = 
			parametres = 
			PApp = 
			chemin = 
			exe = 
			xml = 
		}
	}
	Else
	{
		MsgBox, Le dossier "%AppsDirectory%" n'existe pas
	}
}


ModifierInfosXmlApp(AppsDirectory, App, Cat, Ico, Nom, Desc)
{
	chemin = %AppsDirectory%/%App%/%App%Kiosk/%App%.xml
	MsgBox, 1: %chemin%
	IfExist, %chemin%
	{
		MsgBox, 2
		xpath_load(xml, chemin)
		
		CategorieXML := xpath(xml, "/portablesoft/category/text()")
		IcoXML := xpath(xml, "/portablesoft/logo/small/text()")
		NomXML := xpath(xml, "/portablesoft/desc/subtitle/text()")
		DescXML := xpath(xml, "/portablesoft/desc/content/text()")
		
		IfEqual, CategorieXML,
		{
			IfEqual, IcoXML,
			{
				IfEqual, NomXML,
				{
					IfEqual, DescXML,
					{
						xpath_load(xml, "defaut/defaut.xml")
					}
				}
			}
		}
		
		
		xpath(xml, "/portablesoft/category/text()", Cat)
		xpath(xml, "/portablesoft/logo/small/text()", Ico)
		xpath(xml, "/portablesoft/desc/subtitle/text()", Nom)
		xpath(xml, "/portablesoft/desc/content/text()", Desc)

		xpath_save(xml, chemin)
	}	
	Else
	{
		FileAppend,,%chemin%
		xpath_load(xml, "defaut/defaut.xml")
		
		xpath(xml, "/portablesoft/name/text()", App)
		xpath(xml, "/portablesoft/category/text()", Cat)
		xpath(xml, "/portablesoft/logo/small/text()", Ico)
		xpath(xml, "/portablesoft/desc/subtitle/text()", Nom)
		xpath(xml, "/portablesoft/desc/content/text()", Desc)
		
		xpath_save(xml, chemin)
	}

}

InfosXmlApp(AppsDirectory, App)
{
	chemin = %AppsDirectory%/%App%/%App%Kiosk/%App%.xml
	IfExist, %chemin%
	{
		xpath_load(xml, chemin)
		
		CategorieXML := xpath(xml, "/portablesoft/category/text()")
		IcoXML := xpath(xml, "/portablesoft/logo/small/text()")
		NomXML := xpath(xml, "/portablesoft/desc/subtitle/text()")
		DescXML := xpath(xml, "/portablesoft/desc/content/text()")
		
		GuiControl,, IcoNewApp, %IcoXML%
		GuiControl,, NomNewApp, %NomXML%
		GuiControl,, DescNewApp, %DescXML%
	}
	Else
	{
		MsgBox, Le fichier "%chemin%" n'existe pas
	}
}

SupprimerOnglets(Framakiosk, index, start = 1)
{
	index := UTF82Ansi(index)
	pattern = <li( class="ui-tabs-selected"|)><a href="([^>]*)"><span><img class="chtiticone" src="[^>]*"/>[^<]*</span></a></li>

	found := RegExMatch(index, pattern, result, start)

	if (found > 0)
	{
		FileDelete, %Framakiosk%/%result2%
		SupprimerOnglets(Framakiosk, index, found + 1)
	}
	else
	{
		pattern = <li( class="ui-tabs-selected"|)><a href="([^>]*)"><span><img class="chtiticone" src="([^>]*)"/>[^<]*</span></a></li>
	
		result := RegExReplace(index, pattern)
		
		result := Ansi2UTF8(result)
		FileDelete, %Framakiosk%/index.html
		FileAppend, %result%, %Framakiosk%/index.html
	}
}