Rev 5300 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
# ListModules
# Permet de lister les modules disponibles dans le niveau specifie par "option"
!if $ident_type=$empty and $format != $empty
ident_type=$format
!endif
!read scripts/check.option
!if $error!=$empty
!exit
!endif
!if $option=$empty or $option=None
option=/
!endif
# On test avec getmodule pour savoir si c'est bien un rpertoire de module qui est appel, et non un module directement.
!read jobs/getmodule.proc
!if $title notsametext
error=sorry, you can't call this job on a module. Try GetModule instead.
!exit
!endif
!bound lang within cn,en,fr,nl default fr
!readdef adm/levelname.phtml
!read adm/levelname.phtml
!read names.$lang
# list1 represente les noms de fichiers a ne pas inclure dans le decompte
list1=.,..,.DS_Store,.wimshome,.svn,adm,classes,data,devel,home,Remarks,template,Changelog.modif,Changelog.new,translator.README
# list2 liste tous les fichiers du repertoire /sheets
list2=!listfile -a $wims_home/public_html/modules$option
# on retire ensuite de list2 les noms de fichiers de list1
list2=!lines2items $list2
listContent=!listcomplement $list1 in $list2
nb_modules=!itemcnt $listContent