Merge branch 'master' into lua
This commit is contained in:
Olivier DOSSMANN
commit
d1706ef458
58
categ/display.lua
Executable file
58
categ/display.lua
Executable file
@ -0,0 +1,58 @@
|
|||||||
|
#!/usr/bin/env lua
|
||||||
|
|
||||||
|
-- display.lua
|
||||||
|
-- Display content of a file and attempt to match some specific words
|
||||||
|
-- author: Olivier DOSSMANN (olivier+lua@dossmann.net)
|
||||||
|
|
||||||
|
--[[ requirement ]]--
|
||||||
|
require 'lfs' -- apt-get install liblua5.1-filesystem0 || luarocks install luafilesystem
|
||||||
|
|
||||||
|
function process(filepath)
|
||||||
|
-- parse given file
|
||||||
|
for line in io.lines(filepath) do
|
||||||
|
-- check if this line is a comment ("# my comment"), a category ("[[My category]]Its description") or an element ("Title##Description##URL##Image")
|
||||||
|
is_comment = string.find(line, '^#+.*')
|
||||||
|
is_title = string.find(line, '%[%[(.*)%]%](.*)')
|
||||||
|
is_element = string.find(line, '(.*)##(.*)##(.*)##(.*)')
|
||||||
|
if is_comment then
|
||||||
|
-- do nothing because it's a comment
|
||||||
|
elseif is_title then
|
||||||
|
title = ''
|
||||||
|
for t in string.gmatch(line, '%[%[(.*)%]%].*') do title = title .. t end
|
||||||
|
description =''
|
||||||
|
for d in string.gmatch(line, '%[%[.*%]%](.*)') do description = description .. d end
|
||||||
|
print("TITLE: " .. '\n\t' .. title .. '\n\t' .. description)
|
||||||
|
elseif is_element then
|
||||||
|
title = ''
|
||||||
|
description = ''
|
||||||
|
url = ''
|
||||||
|
img = ''
|
||||||
|
for t in string.gmatch(line, '(.*)##.*##.*##.*') do title = title .. t end
|
||||||
|
for d in string.gmatch(line, '.*##(.*)##.*##.*') do description = description .. d end
|
||||||
|
for u in string.gmatch(line, '.*##.*##(.*)##.*') do url = url .. u end
|
||||||
|
for i in string.gmatch(line, '.*##.*##.*##(.*)') do img = img .. i end
|
||||||
|
print("ELEMENT: " .. '\n\t' .. title .. '\n\t' .. description .. '\n\t' .. url .. '\n\t' .. img)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
function help()
|
||||||
|
print('Usage: ' .. arg[0] .. ' FILE...')
|
||||||
|
end
|
||||||
|
|
||||||
|
if arg and table.getn(arg) > 0 then
|
||||||
|
for i, file in pairs(arg) do
|
||||||
|
if i > 0 then
|
||||||
|
attr = lfs.attributes(file)
|
||||||
|
if attr and attr.mode == 'file' then
|
||||||
|
process(file)
|
||||||
|
else
|
||||||
|
print('INFO: ' .. file .. ' is not a file or doesn\'t exists.')
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
else
|
||||||
|
print('WARNING: No argument given.')
|
||||||
|
help()
|
||||||
|
os.exit(1)
|
||||||
|
end
|
||||||
8
composants/categ.html
Normal file
8
composants/categ.html
Normal file
@ -0,0 +1,8 @@
|
|||||||
|
<!-- Catégorie ${CATEG_TITLE} -->
|
||||||
|
|
||||||
|
<h2>${CATEG_TITLE}</h2>
|
||||||
|
<p>${CATEG_DESC}</p>
|
||||||
|
<ul class="ensemble_element">
|
||||||
|
${ELEMENTS}
|
||||||
|
</ul>
|
||||||
|
<div class="espace"> </div>
|
||||||
31
composants/index.html
Normal file
31
composants/index.html
Normal file
@ -0,0 +1,31 @@
|
|||||||
|
<!DOCTYPE html>
|
||||||
|
<head>
|
||||||
|
<meta charset="UTF-8" />
|
||||||
|
<title>${TITLE}</title>
|
||||||
|
<!--[if lt IE 9]>
|
||||||
|
<script src="html5.js" type="text/javascript"></script>
|
||||||
|
<![endif]-->
|
||||||
|
<link rel="stylesheet" href="${DEFAULT_CSS}" type="text/css" media="all" title="${CSS_NAME}" />
|
||||||
|
<link rel="stylesheet" href="${CSS_COLOR}" type="text/css" media="all" title="${CSS_NAME}" />
|
||||||
|
</head>
|
||||||
|
<body>
|
||||||
|
<!-- Entete de page -->
|
||||||
|
<header>
|
||||||
|
<h1>${PORTEAIL_TITLE}</h1>
|
||||||
|
</header>
|
||||||
|
|
||||||
|
<!-- Corps de la page -->
|
||||||
|
<div id="corps">
|
||||||
|
${INTRODUCTION}
|
||||||
|
${CONTENT}
|
||||||
|
</div>
|
||||||
|
|
||||||
|
${MENU}
|
||||||
|
|
||||||
|
<!-- Pied de page -->
|
||||||
|
|
||||||
|
<footer>
|
||||||
|
<p>Page générée à l'aide de <a href="http://porteail.e-mergence.org/" title="Se rendre sur la page officielle du projet PorteAil">PorteAil</a></p>
|
||||||
|
</footer>
|
||||||
|
</body>
|
||||||
|
</html>
|
||||||
10
composants/one_element.html
Normal file
10
composants/one_element.html
Normal file
@ -0,0 +1,10 @@
|
|||||||
|
<li>
|
||||||
|
<a class="cadre" href="${ELEMENT_URL}" title="${ELEMENT_DESC}">
|
||||||
|
<span class="element">
|
||||||
|
${ELEMENT_TITLE} <br />
|
||||||
|
|
||||||
|
<img src="${IMG_URL}" alt="${IMG_DESC}" title="${ELEMENT_DESC}" />
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</li>
|
||||||
|
|
||||||
275
porteail.lua
Executable file
275
porteail.lua
Executable file
@ -0,0 +1,275 @@
|
|||||||
|
#!/usr/bin/env lua
|
||||||
|
|
||||||
|
-- porteail.lua
|
||||||
|
|
||||||
|
--[[ Requirements ]]--
|
||||||
|
|
||||||
|
require 'lfs'
|
||||||
|
|
||||||
|
--[[ Variables ]]--
|
||||||
|
|
||||||
|
-- Mandatories files
|
||||||
|
local configFile = './' .. 'configrc'
|
||||||
|
-- Default directories values
|
||||||
|
local currentpath = os.getenv('CURDIR') or '.'
|
||||||
|
local default_dir_category = 'categ'
|
||||||
|
local default_dir_component = 'composants'
|
||||||
|
local default_dir_destination = 'porteail'
|
||||||
|
local default_dir_img_destination = 'image'
|
||||||
|
local default_dir_img_source = 'img'
|
||||||
|
local default_dir_css_source = 'style'
|
||||||
|
-- Default files values
|
||||||
|
local default_img_filename = 'generique.png'
|
||||||
|
local default_index_filename = 'index.html'
|
||||||
|
local default_template_index_filename = 'index.html'
|
||||||
|
local default_template_categ_filename = 'categ.html'
|
||||||
|
local default_template_element_filename = 'one_element.html'
|
||||||
|
local default_css_filename = 'noir.css'
|
||||||
|
local default_css_menu_without = 'sans_menu.css'
|
||||||
|
local default_css_menu_with = 'avec_menu.css'
|
||||||
|
-- Other defaults values
|
||||||
|
local default_categ_extension = 'txt'
|
||||||
|
local DIR_SEP = '/'
|
||||||
|
local default_css_name = 'Défaut'
|
||||||
|
|
||||||
|
--[[ Functions ]]--
|
||||||
|
|
||||||
|
function readFile(path, mode)
|
||||||
|
result = ''
|
||||||
|
if not mode then
|
||||||
|
mode = 'r'
|
||||||
|
end
|
||||||
|
if mode ~= 'r' and mode ~= 'rb' then
|
||||||
|
print('Unknown read mode!')
|
||||||
|
os.exit(1)
|
||||||
|
end
|
||||||
|
attr = lfs.attributes(path)
|
||||||
|
if attr and attr.mode == 'file' then
|
||||||
|
f = assert(io.open(path, mode))
|
||||||
|
result = assert(f:read('*a'))
|
||||||
|
assert(f:close())
|
||||||
|
end
|
||||||
|
return result
|
||||||
|
end
|
||||||
|
|
||||||
|
function getConfig(file)
|
||||||
|
result = {}
|
||||||
|
f = assert(io.open(file, 'r'))
|
||||||
|
while true do
|
||||||
|
line = f.read(f)
|
||||||
|
if not line then break end
|
||||||
|
local key = line:match('([^#].-)[ ]+=')
|
||||||
|
local val = line:match('=[ ]+(.*)')
|
||||||
|
local comment = string.find(line, '^#+(.*)')
|
||||||
|
if comment then
|
||||||
|
-- do nothing with comment
|
||||||
|
elseif key then
|
||||||
|
result[key] = val
|
||||||
|
end
|
||||||
|
end
|
||||||
|
assert(f:close())
|
||||||
|
return result
|
||||||
|
end
|
||||||
|
|
||||||
|
function replace(string, table)
|
||||||
|
return string:gsub("$(%b{})", function(string)
|
||||||
|
return table[string:sub(2,-2)]
|
||||||
|
end)
|
||||||
|
end
|
||||||
|
|
||||||
|
function listing (path, extension)
|
||||||
|
files = {}
|
||||||
|
if lfs.attributes(path) then
|
||||||
|
for file in lfs.dir(path) do
|
||||||
|
if file ~= "." and file ~= ".." then
|
||||||
|
local f = path..'/'..file
|
||||||
|
local attr = lfs.attributes (f)
|
||||||
|
filext = (string.match(file, "[^\\/]-%.?([^%.\\/]*)$"))
|
||||||
|
if attr.mode == 'file' and filext == extension then
|
||||||
|
table.insert(files, f)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
else
|
||||||
|
files = nil
|
||||||
|
end
|
||||||
|
return files
|
||||||
|
end
|
||||||
|
|
||||||
|
function basename (string, suffix)
|
||||||
|
string = string or ''
|
||||||
|
local basename = string.gsub (string, '[^'.. DIR_SEP ..']*'.. DIR_SEP ..'', '')
|
||||||
|
if suffix then
|
||||||
|
basename = string.gsub (basename, suffix, '')
|
||||||
|
end
|
||||||
|
return basename
|
||||||
|
end
|
||||||
|
|
||||||
|
function processImage(image, source, img_destination, destination, default_img)
|
||||||
|
-- if no image given, use default one
|
||||||
|
if not image or image == nil or image == '' then
|
||||||
|
image = default_img
|
||||||
|
end
|
||||||
|
-- create image weblink
|
||||||
|
result = img_destination .. '/' .. basename(image)
|
||||||
|
-- check if this image exists
|
||||||
|
attr = lfs.attributes(destination .. '/' .. result)
|
||||||
|
if not attr then
|
||||||
|
img_path = source .. '/' .. image
|
||||||
|
f = assert(io.open(img_path, 'rb'))
|
||||||
|
img_src = assert(f:read('*a'))
|
||||||
|
assert(f:close())
|
||||||
|
img_dest = assert(io.open(destination .. '/' .. result, 'wb'))
|
||||||
|
assert(img_dest:write(img_src))
|
||||||
|
assert(img_dest:close())
|
||||||
|
end
|
||||||
|
return result
|
||||||
|
end
|
||||||
|
|
||||||
|
function process(filepath, template_categ, template_element, img_destination, destination, img_source, default_img)
|
||||||
|
-- parse given file
|
||||||
|
local categ_page = ''
|
||||||
|
local elements = {}
|
||||||
|
for line in io.lines(filepath) do
|
||||||
|
local element = ''
|
||||||
|
-- check if this line is a comment ("# my comment"), a category ("[[My category]]Its description") or an element ("Title##Description##URL##Image")
|
||||||
|
is_comment = string.find(line, '^#+.*')
|
||||||
|
is_title = string.find(line, '%[%[(.*)%]%](.*)')
|
||||||
|
is_element = string.find(line, '(.*)##(.*)##(.*)##(.*)')
|
||||||
|
if is_comment then
|
||||||
|
-- do nothing because it's a comment
|
||||||
|
elseif is_title then
|
||||||
|
title = ''
|
||||||
|
for t in string.gmatch(line, '%[%[(.*)%]%].*') do title = title .. t end
|
||||||
|
description =''
|
||||||
|
for d in string.gmatch(line, '%[%[.*%]%](.*)') do description = description .. d end
|
||||||
|
categ_page = replace(template_categ, {CATEG_TITLE=title, CATEG_DESC=description})
|
||||||
|
elseif is_element then
|
||||||
|
title = ''
|
||||||
|
description = ''
|
||||||
|
url = ''
|
||||||
|
img = ''
|
||||||
|
for t in string.gmatch(line, '(.*)##.*##.*##.*') do title = title .. t end
|
||||||
|
for d in string.gmatch(line, '.*##.*##(.*)##.*') do description = description .. d end
|
||||||
|
for u in string.gmatch(line, '.*##(.*)##.*##.*') do url = url .. u end
|
||||||
|
for i in string.gmatch(line, '.*##.*##.*##(.*)') do img = img .. i end
|
||||||
|
img_description = " "
|
||||||
|
img_url = processImage(img, img_source, img_destination, destination, default_img)
|
||||||
|
url = url:gsub('%&', '%&')
|
||||||
|
element = replace(template_element, {ELEMENT_URL=url, ELEMENT_DESC=description, ELEMENT_TITLE=title, IMG_URL=img_url, IMG_DESC=img_description})
|
||||||
|
table.insert(elements, element)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
local text_elements = ''
|
||||||
|
for k, v in pairs(elements) do
|
||||||
|
text_elements = text_elements .. v
|
||||||
|
end
|
||||||
|
local result = replace(categ_page, {ELEMENTS=text_elements})
|
||||||
|
return result
|
||||||
|
end
|
||||||
|
|
||||||
|
--[[ Principal ]]--
|
||||||
|
|
||||||
|
-- fetch user defined values
|
||||||
|
config = getConfig(configFile)
|
||||||
|
|
||||||
|
-- create values for directories
|
||||||
|
categ = config['CATEGORIES'] or default_dir_category
|
||||||
|
component = config['COMPOSANTS'] or default_dir_component
|
||||||
|
destination = config['CIBLE'] or default_dir_destination
|
||||||
|
img_destination = config['CIBLE_IMAGE'] or default_dir_img_destination
|
||||||
|
img_source = config['IMAGES'] or default_dir_img_source
|
||||||
|
css_source = config['CSS'] or default_dir_css_source
|
||||||
|
-- create values for files
|
||||||
|
index_filename = config['INDEX'] or default_index_filename
|
||||||
|
main_template = config['TEMPLATE_INDEX'] or default_template_index_filename
|
||||||
|
template_categ_filename = config['TEMPLATE_CATEG'] or default_template_categ_filename
|
||||||
|
template_element_filename = config['TEMPLATE_ELEMENT'] or default_template_element_filename
|
||||||
|
default_img = config['DEFAUT_IMG'] or default_img_filename
|
||||||
|
css_filename = config['STYLE'] or default_css_filename
|
||||||
|
css_menu = default_css_menu_without
|
||||||
|
local menu = config['MENU'] or ''
|
||||||
|
if config['MENU'] then
|
||||||
|
css_menu = default_css_menu_with
|
||||||
|
end
|
||||||
|
local introduction = config['INTRO'] or ''
|
||||||
|
-- other default values
|
||||||
|
categ_extension = config['CATEGORIES_EXT'] or default_categ_extension
|
||||||
|
css_name = config['CSS_NAME'] or default_css_name
|
||||||
|
|
||||||
|
-- get pages
|
||||||
|
index = readFile(currentpath .. '/' .. component .. '/' .. index_filename, 'r')
|
||||||
|
template_categ = readFile(currentpath .. '/' .. component .. '/' .. template_categ_filename, 'r')
|
||||||
|
template_element = readFile(currentpath .. '/' .. component .. '/' .. template_element_filename, 'r')
|
||||||
|
-- open menu file if menu have been activated
|
||||||
|
local menu_content = ''
|
||||||
|
if menu ~= '' then
|
||||||
|
menu_content = readFile(component .. '/' .. menu, 'r')
|
||||||
|
end
|
||||||
|
-- open introduction file if intro have been activated
|
||||||
|
local introduction_content = ''
|
||||||
|
if introduction ~= '' then
|
||||||
|
introduction_content = readFile(component .. '/' .. introduction, 'r')
|
||||||
|
end
|
||||||
|
|
||||||
|
-- Check if public and image directory exists
|
||||||
|
for i, dir in pairs({destination, destination .. '/' .. img_destination}) do
|
||||||
|
if lfs.attributes(dir) == nil then
|
||||||
|
assert(lfs.mkdir(dir))
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
-- Browse categ directory
|
||||||
|
local categories_files = listing (currentpath .. '/' .. categ, categ_extension)
|
||||||
|
local content = ''
|
||||||
|
if categories_files then
|
||||||
|
for k,v in pairs(categories_files) do
|
||||||
|
-- read category content
|
||||||
|
attr = lfs.attributes(v)
|
||||||
|
if attr and attr.mode == 'file' then
|
||||||
|
content = content .. process(v, template_categ, template_element, img_destination, destination, img_source, default_img)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
else
|
||||||
|
print ("-- No category file found!")
|
||||||
|
end
|
||||||
|
|
||||||
|
-- Create index file in destination directory
|
||||||
|
result = assert(io.open(destination .. '/' .. main_template, 'wb'))
|
||||||
|
-- create substitution table
|
||||||
|
substitutions = {
|
||||||
|
TITLE=config['TITRE'] .. ' - Accueil',
|
||||||
|
PORTEAIL_TITLE=config['TITRE'],
|
||||||
|
CONTENT=content,
|
||||||
|
INTRODUCTION=introduction_content,
|
||||||
|
MENU=menu_content,
|
||||||
|
CSS_COLOR=css_filename,
|
||||||
|
CSS_NAME=css_name,
|
||||||
|
DEFAULT_CSS=css_menu,
|
||||||
|
}
|
||||||
|
-- replace variables in result
|
||||||
|
homepage = replace(index, substitutions)
|
||||||
|
assert(result:write(homepage))
|
||||||
|
-- close file
|
||||||
|
assert(result:close())
|
||||||
|
|
||||||
|
-- Copy miscellaneous files to destination
|
||||||
|
to_be_copied = {
|
||||||
|
component .. '/' .. 'html5.js',
|
||||||
|
css_source .. '/' .. css_filename,
|
||||||
|
css_source .. '/' .. css_menu,
|
||||||
|
}
|
||||||
|
for i, filepath in pairs(to_be_copied) do
|
||||||
|
fileattr = lfs.attributes(filepath)
|
||||||
|
if not fileattr or fileattr.mode ~= 'file' then
|
||||||
|
print (filepath .. " doesn't exist or is not a file!")
|
||||||
|
os.exit(1)
|
||||||
|
end
|
||||||
|
dest = destination .. '/' .. basename(filepath)
|
||||||
|
filecontent = readFile(filepath, 'r')
|
||||||
|
destfile = assert(io.open(dest, 'wb'))
|
||||||
|
assert(destfile:write(filecontent))
|
||||||
|
assert(destfile:close())
|
||||||
|
end
|
||||||
|
|
||||||
|
--[[ END ]]--
|
||||||
Loading…
Reference in New Issue
Block a user