diff --git a/.udir b/.udir index c816bf3..6a259d2 100644 --- a/.udir +++ b/.udir @@ -16,8 +16,10 @@ rm_utools= kvm_service= # Faut-il installer le service openvz-fix-etchosts? openvz_service= +# Faut-il installer le service kill-ssh-user-sessions? +ksus_service= -configure_variables=(dest uninst_utools rm_utools kvm_service openvz_service) +configure_variables=(dest uninst_utools rm_utools kvm_service openvz_service ksus_service) configure_dest_for=(bashrc profile lib/uinst/conf lib/uinst/rootconf lib/profile.d/nutools.shared lib/bashrc.d/bash_completion.shared lib/init.d/kvm-stop-all legacy/sysinc/utools legacy/sysinc/system_caps legacy/sysinc/private/init) config_scripts=(lib/uinst/conf lib/uinst/system_caps.legacy) install_profiles=true diff --git a/CHANGES.md b/CHANGES.md new file mode 100644 index 0000000..e1654aa --- /dev/null +++ b/CHANGES.md @@ -0,0 +1,660 @@ +## Version 6.0.0 du 30/12/2016-18:26 + +* `a7767f7` Intégration de la branche better-apacheconfig + * `683d5df` pour simplifier le débuggage, set -x est désactivé pour les fonction urequire(), parse_args() et awkdef() + * `ed1633a` module template: support de variables supplémentaires avec TEMPLATE_USER_VARS et de la description des variables dans le fichier de configuration + * `b920641` l'installation distante de modules uinst par rruns se fait par défaut sans confirmation + * `fd9105f` bug dans le module base.num: 'is*num -' était vrai + * `6366256` module ipcalc: ajout de ipcalc_network() + * `fbc1a5c` mise à jour du module debian + * `e3cd3ce` diverses modification de apacheconfig et apache.tools +* `c552d2d` corriger le module python ulib.ext.xpath +* `62a59e5` kill-ssh-user-sessions.service: laisser un peu de temps pour que le client soit notifié +* `4b7d4f4` ajouter une option pour installer le service kill-ssh-user-sessions +* `c95d1cd` ajouter un service pour tuer les sessions ssh lors de l'arrêt de la machine +* `4e1e5a4` ruinst: tracer la collecte d'informations sur l'hôte distant +* `5aa60a3` désactiver la création du lien pour xpathtool.py, qui ne fonctionne qu'à partir de lib/ulib/support +* `6a4e6a7` foreach: ajouter une syntaxe alternative pour lister directement les éléments +* `24a8839` update-nutools: possibilité de cloner la branche develop avec l'option --develop +* `24812c1` initialiser PYTHONIOENCODING pour faciliter l'exécution de scripts python +* `390233a` modification pour afficher l'aide même si certains outils requis sont absents +* `2425cbe` maj de l'arborescence de la doc +* `96b1866` prel: support du fichier .prel-noauto pour interdire les releases automatiques +* `b278b17` prel: mise à jour de la commande par défaut pour les dépendances +* `9983e49` pver: support des aliases D et P pour .pver-map +* `e37cc8f` pver et prel utilisent -p par défaut pour le support maven +* `2980d15` pver supporte la gestion des versions maven +* `190519d` pxs ne requière plus la présence du remote origin +* `4a4094c` déplacement de is_defined() et is_array() dans base.core +* `d735b7b` ulib: strops: ajout des opération mid et repl +* `8d486dc` ulib: ajouter la fonction strops +* `db24c70` ulib: ajout de la fonction is_array() +* `3ccd4ed` apacheconfig: ne pas chercher à utiliser site-certs.conf s'il n'y a pas les variables @@{cert,key,ca}@@ +* `b9dc5ca` bug dans apacheconfig +* `b4ade73` TODO de branche +* `44fe622` chrono.py: chronomètre graphique +* `2a6d089` ulib/base: implémenter ask_any() +* `94615de` conversion de CHANGES.txt en CHANGES.md +* `d2a56d6` prel: ajout de l'option --uc pour convertir CHANGES.txt en CHANGES.md +* `f3ba5e3` prel: générer un fichier CHANGES.md par défaut avec une syntaxe un peu différente +* `40babfe` sqlcsv: l'option -l supporte une url jdbc, et la recherche de sqlcsv.properties se fait dans tous les répertoires parent jusqu'à $HOME + +## Version 5.3.0 du 28/09/2016-23:31 + +* `5c466d8` ldif et ldap: match des suffixes sans tenir compte de la casse. modrdn prend un nouvel argument SUFFIX +* `9eb566a` runsmod: modifier chemins par défaut +* `a082788` bash_completion: bug sur certains serveurs + +## Version 5.2.1 du 01/09/2016-15:44 + +* `9995f95` runsmod: bug + +## Version 5.2.0 du 31/08/2016-22:30 + +* `361f1b2` Intégration de la branche runsmod-goodies + * `8854469` maj de la config par défaut + * `f0a71e4` bug avec la génération de sysinfos.conf + * `830a33b` rruns calcule aussi les chemins d'hôtes automatiquement + * `40f5347` préparer le calcul automatique des chemins + * `2fbc599` bug avec git clone lors du basculement sur la branche develop + * `5bef9b1` utiliser la même logique que uproject pour cloner en mode devel + * `96afb2a` mapping des répertoires de destination + * `4b212d8` ne pas utiliser %n tout de suite + * `30e5dda` runs et rruns: améliorer le calcul des chemins + * `55c5755` support de //...%h... + * `409e406` préparer implémentation de %n +* `208f30d` Intégration de la branche better-fndate + * `f388f27` ajouter des liens pour les fonctions courantes de fndate. En mode automatique, si le fichier contient déjà une mention de date, ne pas la modifier. rajouter l'option -@ pour forcer la modification de la date + +## Version 5.1.0 du 25/08/2016-15:36 + +* `8a33418` ulib/ldif: support de l'opération modrdn +* `b710461` Intégration de la branche apacheconfig + * `e52d6c6` déplacer la logique de apacheconfig dans le module apache.tools + +## Version 5.0.0 du 09/08/2016-09:42 + +* `c00d9e4` cgilsxml.py: prévoir le cas où le fichier disparait pendant que la liste est construite +* `2fc7392` uxpath.py: bug +* `f85cd8a` foreach: implémenter la syntaxe %var par défaut +* `de383be` foreach: définir des variables supplémentaires pour chaque fichier trouvé +* `a7fd880` foreach: maj doc +* `c01eb20` ulib/awk: maj doc +* `04b723f` qsql: compatibilité avec anciennes versions de bash +* `dcf0e61` module apache: ajout de HTDOCSBASE pour le déploiement multi-homé +* `7565461` woinst: support du déploiement d'applications construites avec Maven +* `eb0a3be` woctl _create: enlever le suffixe .woa par défaut +* `d251a4e` woinst: tenir compte des variables utilisateurs +* `2fd51b6` pclone bascule automatiquement sur la branche develop si elle existe +* `d056be4` foreach: ajouter l'option --parent +* `63e78f4` ulib: compatibilité avec versions précédentes de bash +* `64699c0` ensure_hostname(): clarification du message affiché +* `22acf0a` ulib: ajouter _qsql() et qsql() pour quoter des chaines sql +* `18b2501` prel: améliorer l'affichage du résumé +* `b8bf04b` uawk dump: ajouter le format -v qui affiches des variables individuelles +* `d57839d` Intégration de la branche cgilsxml + * `6e67302` la disposition, le type et l'encoding peuvent être spécifique à un expression --spec ou --glob + * `b7600aa` possibilité de matcher des sous-répertoires dans l'expression --spec. Support du match de type --glob + * `a49d6e2` les valeurs None ne sont pas affichées. n'a pas de valeur +* `16c1936` uawk dump: avec la méthode -a, afficher par défaut un tableau vide avant +* `c6b6dd4` uawk: ajout de l'alias dump qui avait été oublié +* `d8ab7f7` cgilsxml.py: cosmetic +* `0204a21` cgilsxml.py: possibilité de classifier des fichiers au sein d'un groupe avec --break-on +* `3a9bf04` cgilsxml.py: possibilité de spécifier la disposition du contenu, le type de contenu, ainsi que l'encoding +* `a730609` cgilsxml.py: permettre de télécharger le fichier avec la disposition inline +* `ce0193f` cgilsxml.py: corriger la doc +* `1eba9a7` foreach: améliorer l'affichage +* `c669e8f` utempl -t wosrc: si on crée un wosrc dans le répertoire java, enlever automatiquement le package pour les fichiers resources pour une configuration maven +* `f0f7a6f` utempl -t wosrc: génère des pages bootstrap par défaut +* `8fced87` woctl run: permettre de choisir la version de java utilisée pour le lancement +* `9fe17b3` Ajouter le script foreach +* `f5db579` uxpath: support de la modification de la valeur d'un noeud +* `3653f7d` Ajout des fonctions {build,eval}cmd et upvar +* `7091ecf` support de la création d'un template wosrc pour un projet maven +* `34dbba9` support de l'utilisation des valeurs spécifiques de GIT_ANNEX pour rsync avec git-annex +* `470d7cf` pcrone peut utiliser un répertoire existant +* `e4b7729` corriger le template shell +* `28bb531` activer l'auto-complétion sur debian jessie +* `317dbca` ajout de compileAndGo dans les templates +* `01b9a68` ulib/vcs: corriger le code de git_track_branch. Utiliser ce code dans pdev --sync +* `fc75fcd` runsmod: quelques corrections mineures +* `5058085` runsmod: Implémenter les fonctionnalités documentées +* `12c521c` indenter l'affichage des fonctions qui demandent une saisie de l'utilisateur +* `86a5787` em: forcer -nw en mode non display +* `e74d9e4` bug +* `9218941` ajouter l'option -g à caturl +* `fcacf64` maj doc +* `01ea57e` changer l'affichage de udir, et mettre à jour la doc +* `9fe71b3` ajouter fndate pour dater les fichiers +* `8143452` rendre ppath() plus résistant +* `c9ce115` Intégration de la branche improve-tls + * `d9153af` support de la configuration tls selon https://wiki.mozilla.org/Security/Server_Side_TLS +* `135dbf6` diverses corrections sur runs +* `3d5aeb2` Ajouter l'option -c à umountr +* `278bf5a` renommer rumount un umountr +* `db76c12` Intégration de la branche runsmod-paths + * `a31f8c2` changer la convention de nommage pour les répertoires ~/runs +* `5a31e7e` ulib/java: ajout de la fonction get_java_version() +* `f74b5e3` Générer la doc au format markdown pour tagadoc +* `ded89be` pdev: corrections pour supporter nouvelle version de git +* `5d3e9fe` runsmod: corriger les valeurs par défaut pour les hôtes dans la bulle serveur +* `ada3686` uenv: bug dans le calcul des répertoires destination +* `deaa416` Intégration de la branche runsmod-only + * `f96c482` proposer de créer la configuration par défaut + * `f04e862` implémentation initiale de runsmod +* `42b9590` cosmetic +* `9bc373f` cgiparams.py: implémenter le code de retour +* `1834d29` intégrer les fonctionnalités de cgiupload.py dans cgiparams.py + +## Version 4.4.1 du 15/04/2016-12:24 + +* `a45fd99` awkrun: ajouter l'argument suffix à qsql(), cqsql(), cval() + +## Version 4.4.0 du 15/04/2016-12:04 + +* `73391a9` awkrun: ajout d'un champ field à cqsql +* `2f60fec` git_track_branch(): support de git >= 1.8.x +* `130b4d1` tenir compte du fichier /etc/debian_chroot pour initialiser UTOOLS_CHROOT +* `48c0420` ne pas afficher d'erreur si apache n'est pas installé +* `5e1a6cf` Intégration de la branche rumount +* `1ad804b` implémentation initiale de rumount +* `f460399` améliorer le calcul du répertoire destination avec pclone/pcrone +* `6411e63` configurer la valeur de l'umask +* `eb4362d` apacheconfig: déploiement pour plusieurs systèmes à partir des mêmes sources + +## Version 4.3.0 du 07/04/2016-14:57 + +* `d021c97` support de on_debian() avec des arguments + +## Version 4.2.0 du 06/04/2016-14:25 + +* `a710c5a` Intégration de la branche stdout +* `ba969e3` ajout de stdredir pour pallier l'absence éventuelle de /dev/std* +* `472f2c7` Intégration de la branche sysinfos +* `1864cdf` fonctions pour faciliter la gestion des dépendances sous debian +* `2c27f03` uproject: ajouter la commande xconfig-export +* `ed3de6d` umail: ajout de l'option --gencmd + +## Version 4.1.1 du 08/03/2016-12:04 + +* `0bd2b1f` correction de bugs avec apacheconfig + +## Version 4.1.0 du 03/03/2016-11:02 + +* `4024b2a` pyulib/umail: possibilité de spécifier le type de contenu + +## Version 4.0.0 du 01/03/2016-19:08 + +* `c46626c` ldif: support de dumpcsv et printcsv dans get_transform_cmd() +* `d661e43` doinplace fonctionne comme la fonction. la version étendue est un lien nommé doinplacex +* `d6540ac` dumpcsv: ajouter l'option --hname +* `903d500` dumpcsv: ajouter les options --keep-fields, --skip-fields, --dump-headers +* `af18332` implémenter printcsv +* `383410a` *csv: améliorer cohérences des arguments +* `4808fa0` dumpcsv: ajout de l'option -b +* `939b5ad` implémenter dumpcsv et nettoyer un peu le code +* `cb0e553` script doinplace qui mélange les fonctionnalités des fonctions doinplace et evalp +* `0cf8e04` scripts noerror, noout, noerr qui fonctionnent comme les fonctions du même nom +* `66249c9` nutools base: ajout de noerror(), noout(), noerr() +* `db76488` maj doc +* `40f1bf6` prel: après avoir fusionné une branche, revenir sur develop + +## Version 3.5.0 du 26/02/2016-11:35 + +* `4648b3f` awkrun: ajout de la fonction qarr() +* `81e7f9b` correction de certains messages affichés +* `0ea24ec` ajout de sqlcsv +* `ad06535` pu: autoriser fast-forward même en cas de modifications locales +* `1c397e8` ajout des fonctions awk cqsql(), sval(), cval(). réorganiser et clarifier la doc + +## Version 3.4.2 du 10/02/2016-11:45 + +## Version 3.4.1 du 10/02/2016-11:45 + +* `a702b89` mergecsv: bug quand left ne contient qu'un seul champ vide + +## Version 3.4.0 du 09/02/2016-11:25 + +* `788e1ff` cgilsxml.py: ajout de l'option -E. bug avec le tri sur des valeurs inexistantes + +## Version 3.3.0 du 08/02/2016-09:41 + +* `da3ef60` cgilsxml.py: ajouter de squery_string permettant d'ajouter un préfixe +* `bb25711` cgi: cgierror et cgiredirect arrêtent le script + +## Version 3.2.0 du 07/02/2016-23:05 + +* `24f3211` cgiparams.py et cgilsxml.py: modifications pour gérer la construction de QUERY_STRING + +## Version 3.1.0 du 04/02/2016-13:52 + +* `3190a32` cgilsxml.py: ajout de la variable script_base, qui permet de faire des urls relatives +* `f4537af` ussh: bug dans l'analyse des arguments +* `9992505` ussh: pas de valeur par défaut pour DEFAULT_USER; --parse affiche toutes les options +* `b19059e` Intégration de la branche ussh-auto-persist +* `5c75737` ussh: configuration du multiplexage pour certains hôtes + +## Version 3.0.1 du 31/12/2015-12:36 + +* `56c305a` awk ne supporte pas \s + +## Version 3.0.0 du 24/12/2015-15:39 + +* `4b1c30b` nouvelles fonctions pour le module cgi. cgilsxml, cgiupload et cgiparams sont rassemblés dans le module cgisupport + +## Version 2.26.0 du 24/12/2015-12:17 + +* `d5a2cce` cgilsxml.py: rajouter la variable env/query_vars + +## Version 2.25.0 du 24/12/2015-11:15 + +* `6c73940` cgilsxml.py: désactiver le cache par défaut + +## Version 2.24.1 du 24/12/2015-10:12 + +* `3aba3e3` bug + +## Version 2.24.0 du 24/12/2015-09:58 + +* `b288cf2` apacheconfig: support des fichiers de confs --> /etc/apache2/cond.d sur debian wheezy- +* `2e3fe66` ussh: forcer l'allocation d'un tty avec --cc +* `58fa40c` ussh: ajouter le support de uwatch +* `7bc63c5` maj doc uwatch +* `2d2754b` ajout de uwatch pour afficher un compte +* `4376fff` maj doc +* `bb176d7` maj du template pour runsconfig + +## Version 2.23.1 du 15/12/2015-11:01 + +* `d8d0cc8` cgilsxml: sélectionner automatiquement un groupe seul + +## Version 2.23.0 du 15/12/2015-10:06 + +* `501a7d2` cgilsxml: script_name et xslt peuvent être spécifié dans les paramètres QUERY_STRING +* `ebe4599` Intégration de la branche runs +* `35eadc1` correction d'un bug avec la recherche d'un fichier de recette +* `98ba626` les recettes ont maintenant l'extension .rr par défaut +* `a2e863e` chercher aussi les scripts dans le sous-répertoire runs dans les répertoires d'hôte + +## Version 2.22.0 du 07/12/2015-19:05 + +* `dbc4d9a` uscrontab: ne pas afficher plusieurs fois un même message quand le verrou est posé. n'afficher le message sur la pause qu'avec un tty +* `9821d20` ajouter le lien vers cgilsxml.py + +## Version 2.21.0 du 07/12/2015-15:12 + +* `d7b468d` cgilsxml: ajouter les variables dlname, size, Y, m, d, H, M, S. maj doc +* `eac94a7` cgiupload: possibilité de filtrer sur le nom du fichier ou son type de contenu +* `fae2111` ajout de cgilsxml +* `26fe709` apacheconfig: -S peut aussi être utilisé avec --localhosts +* `7c6ad6a` apacheconfig: nouvelles options pour le développement +* `c2d5eab` pxs fait aussi git pull avec un dépôt sans annexe +* `dca7bee` pxs fonctionne pour les dépôt normaux comme pci -A + +## Version 2.20.0 du 12/11/2015-15:41 + +* `16d95d2` apache_autoconf(): déploiement des certificats autorité +* `775a021` nutools: ajout de cpvcs() pour copier avec la sémantique de cpnovcs() les fichiers de VCS aussi +* `1ca0ee5` runs: ajout des options --force, --copy-links et --with-vcs à ref() +* `91686fb` templatectl: il n'est plus nécessaire de spécifier explicitement fichier.template + +## Version 2.19.0 du 02/11/2015-11:03 + +* `37f3bff` apacheconfig: diverses corrections de bugs +* `5d3861b` apacheconfig: si host==@@dhost@@, alors hostname=@@dhostname@@ et aliases=@@daliases@@ +* `27592d4` apacheconfig: support des hôtes dynamiques ou statiques +* `93ac7ea` re-écrire la gestion des templates pour apacheconfig et runsconfig + +## Version 2.18.0 du 27/10/2015-12:05 + +* `434403a` Intégration de la branche uscrontab +* `2118885` uscrontab: possibilité de mettre en pause sans modifier les planifications en cours +* `0eeee20` awkrun: renommer les fonctions quote_* +* `18691c8` upassword: maj doc et support des commentaires pour le mode batch + +## Version 2.17.2 du 26/09/2015-12:25 + +* `1837a0c` pxs: corriger xget, xcopy, xmove pour utiliser directement git annex sync + +## Version 2.17.1 du 26/09/2015-12:21 + +* `c8c6744` pxs: support des versions <= 5.20150825 + +## Version 2.17.0 du 26/09/2015-11:51 + +* `552e4ba` améliorer pxs pour un dépôt en mode direct +* `2ce66e6` maj doc + +## Version 2.16.0 du 10/09/2015-11:16 + +* `42aa7ea` fonctions e*: changer l'affichage en mode NO_COLOR pour afficher les préfixes complets + +## Version 2.15.0 du 08/09/2015-10:14 + +* `69ee45a` Intégration de la branche prel-fixes +* `47b6e5b` créer VERSION.txt et CHANGES.txt à la racine du projet +* `9d8a747` faire le push à la fin des opérations d'update et/ou de merge + +## Version 2.14.0 du 03/09/2015-09:04 + +* `9dcd60b` pxs transfert les données aussi en mode direct + +## Version 2.13.0 du 01/09/2015-15:44 + +* `8d2e386` uscrontab: permettre d'ignorer le code d'erreur pour une commande planifiée +* `aa989ef` Intégration de la branche uinst +* `58d9f16` uinst -y pose toujours la question si le répertoire est calculé automatiquement +* `594fd4e` activer l'autocomplétion pour uinst -h + +## Version 2.12.1 du 24/08/2015-16:12 + +* `e356c2b` bug avec le calcul du système +* `e040cac` Avec les fonctions e*, afficher le statut de façon explicite en mode non coloré + +## Version 2.12.0 du 23/08/2015-22:57 + +* `dcb85ac` Améliorer le déploiement uinst:rsync avec préfixes pour les hôtes distants + +## Version 2.11.0 du 21/08/2015-10:31 + +* `d9282f7` uinst: ajouter l'option -h pour la méthode uinst:rsync +* `7643573` nettoyer la branche + +## Version 2.10.0 du 19/08/2015-10:23 + +* `6ba41b9` support de --uses-su pour ruinst -C + +## Version 2.9.0 du 10/08/2015-14:04 + +* `447d13f` support de nouvelles versions d'OS pour sysinfos +* `48e111a` fconv et fnconv: le premier argument est le fichier s'il n'est pas spécifié avec -f +* `c29f4b9` mkiso: nouvelles options -A et -V +* `662b82f` caturl --check ne doit pas afficher l'url + +## Version 2.8.0 du 22/07/2015-15:09 + +* `0f5b572` uinst installe maintenant les profils en mode partagé par défaut +* `fb6b492` améliorer l'affichage des scripts geturl et openurl + +## Version 2.7.0 du 17/07/2015-22:03 + +* `7e2a6c3` update-nutools ignore par défaut l'eventuel proxy défini par http_proxy +* `13215c3` apacheconfig: améliorer l'affichage de l'aide et support du répertoire .apacheconfig +* `27f5f7a` pyulib honore maintenant UTOOLS_NO_COLORS +* `3ee6cb4` diminuer l'indentation pour les fonctions e* +* `d4ac5f7` modifier l'affichage des fonction e* + +## Version 2.6.0 du 10/07/2015-17:32 + +* `efa6b3a` Intégration de la branche ftps +* `3288999` authftp: support tls en forçant l'utilisation de lftp +* `58e7f6f` pconf reconnait maintenant les arguments offline et online + +## Version 2.5.1 du 03/07/2015-08:29 + +* `abc4cb9` dumpclients: possibilité de choisir les champs supplémentaires à afficher + +## Version 2.5.0 du 03/07/2015-07:39 + +* `2e15cbe` Ajouter l'option -z à dumpclients + +## Version 2.4.0 du 01/07/2015-04:04 + +* `fda97a8` mise à jour de upassword + +## Version 2.3.0 du 01/07/2015-03:09 + +* `f581aa9` Intégration de la branche pdev-merges +* `80d7a73` ajouter les options -b et -s à pdev + +## Version 2.2.0 du 24/06/2015-16:19 + +* `98cfdfc` Intégration de la branche update-upassword +* `34f027b` bug avec la présence du scheme dans sha +* `b5e6c13` Intégration de la branche update-upassword +* `e4e2fa7` mise à jour upassword pour afficher sha en hexadécimal + +## Version 2.1.1 du 22/06/2015-11:37 + +* `40225b0` Intégration de la branche proxy-default +* `2fa0791` profile.d/proxy lit aussi les valeurs par défaut pour l'hôte + +## Version 2.1.0 du 22/06/2015-10:25 + +* `2a3eb76` Intégration de la branche uenv-modifs +* `bd8c7f8` correction d'un bug avec le nom final +* `d73c929` correction d'un bug avec le choix du répertoire de destination +* `e9089d8` les répertoires de profil partagé et de machine sont traités comme un seul répertoire +* `e3f76cd` possibilité de spécifier si un profil doit être installé dans le répertoire de profil partagé + +## Version 2.0.0 du 22/06/2015-00:48 + +* `8286b29` Intégration de la branche uenv-modifs +* `c43cda0` les répertoires de profil sont spécifiques au nom de la machine + +## Version 1.19.0 du 21/06/2015-10:27 + +* `387dec2` Intégration de la branche add-pxwa +* `4d0b734` ajout de la commande xwebapp + +## Version 1.18.0 du 09/06/2015-10:40 + +* `01e2929` Intégration de la branche fix-javaproperties +* `b24e9ff` norm_properties() affiche les caractères en majuscule, comme JavaProperties#store() + +## Version 1.17.0 du 07/06/2015-14:00 + +* `e2d0c0c` Intégration de la branche pdev-fix +* `1cc3bd4` ajouter l'option --sync à pdev + +## Version 1.16.0 du 04/06/2015-22:14 + +* `4a15085` Intégration de la branche verbose-update +* `8a27561` pu: afficher un message s'il y a des modifications locales + +## Version 1.15.0 du 22/05/2015-17:03 + +* `e715087` Intégration de la branche update-upassword +* `a74a373` upassword: possibilité de spécifier de façon dynamique la ligne à afficher après + +## Version 1.14.0 du 22/05/2015-16:41 + +* `d8f20c3` Intégration de la branche update-upassword +* `dea524a` ajout du mode batch + +## Version 1.13.0 du 22/05/2015-16:04 + +* `275bff8` Intégration de la branche update-upassword +* `1ce1d98` mise à jour de upassword + +## Version 1.12.0 du 22/05/2015-13:37 + +* `57fc84d` correction d'un bug avec prel -s +* `cf108d7` Intégration de la branche prel-show-modifs +* `a744f48` prel -s afficher la liste des modifications qui seraient enregistrées + +## Version 1.11.0 du 22/05/2015-11:41 + +* `2984052` Intégration de la branche quiet-completion +* `755cfa7` ne pas afficher les erreurs pour les fonctions de complétion de git +* `2b5eb2a` Intégration de la branche pu +* `b004730` uproject update fait fetch puis merge, manuellement + +## Version 1.10.0 du 20/05/2015-12:08 + +* `bf1d86a` Intégration de la branche pu-auto-forward +* `8bf8164` fast-forwarder automatiquement les branches locales par rapport aux branches distantes +* `8baabea` Intégration de la branche ptools-maj-topic +* `5ff5b7d` déterminer les branches de topic: ignorer les branches avec un slash dans le nom + +## Version 1.9.0 du 19/05/2015-18:25 + +* `5933089` Intégration de la branche awkfsv +* `caeb06e` possibilité de spécifier les types des champs pour mysqlloadcsv +* `b2c9f81` uawk requière maintenant de spécifier le nom de l'outil + +## Version 1.8.1 du 19/05/2015-10:45 + +* `de8d690` Intégration de la branche annex-support +* `2044181` ne pas synchroniser l'annexe en mode automatique + +## Version 1.8.0 du 19/05/2015-10:27 + +* `4779695` Intégration de la branche annex-support +* `89ad130` support de git-annex pour pp et pdev + +## Version 1.7.0 du 15/05/2015-16:11 + +* `16ad285` Intégration de la branche nutools +* `93d8262` rajouter le script nutools pour vérifier la version installée de nutools. renommer la fonction nutools() en pconf() + +## Version 1.6.0 du 04/05/2015-12:40 + +* `0463b2c` Intégration de la branche norm_props +* `48ca720` ajout de l'en-tête + +## Version 1.5.1 du 29/04/2015-10:14 + +* `4c92f54` Intégration de la branche push-all +* `02c15f9` pp -a pousse toutes les branches et tous les tags. ajouter les options -b et -t pour pousser respectivement toutes les branches et tous les tags + +## Version 1.4.1 du 29/04/2015-10:12 + +Release erronée, à ignorer + +## Version 1.4.0 du 27/04/2015-18:12 + +* `7122fc4` Intégration de la branche norm-properties +* `845c54e` ajout de la fonction norm_properties + +## Version 1.3.0 du 24/04/2015-12:32 + +* `bdc6e9b` Intégration de la branche localhost +* `94b2b48` reconnaitre la valeur spéciale localhost pour check_hostname() + +## Version 1.2.4 du 20/04/2015-17:55 + +* `988e045` bug + +## Version 1.2.3 du 20/04/2015-17:43 + +Correction d'un bug avec la copie des fichiers + +* `d3ab6b8` bug +* `7e0d44b` cosmetic + +## Version 1.2.2 du 20/04/2015-01:16 + +## Version 1.2.1 du 20/04/2015-01:15 + +* `145acfa` bug + +## Version 1.2.0 du 16/04/2015-13:59 + +* `d756a6c` Intégration de la branche ldapt +* `57dac04` support de xempty explicite, et de la possibilité de désactiver ce traitement +* `75f21b5` support des attributs ordonnés +* `00088b3` cosmetic + +## Version 1.1.1 du 16/04/2015-12:10 + +Mise à jour de .ulibver + +## Version 1.1.0 du 16/04/2015-12:09 + +* `4b445a2` Intégration de la branche ldapt-ev +* `f8bd000` support de la nouvelle fonction ensureval +* `dbd9605` Intégration de la branche ptools +* `1fb27d6` pousser le tag quand il a été créé + +## Version 1.0.0 du 14/04/2015-10:05 + +commencer à suivre les versions de nutools: cette release est la première de la +série + +* `66bbf23` Intégration de la branche update-ulibver +* `f5aeff7` maj de ulib +* `073e7b0` Intégration de la branche ptools +* `8f6a32b` forcer la création de la destination. afficher un message informatif +* `48d9104` Intégration de la branche ptools +* `6890d30` workaround pour le bug sous debian squeeze +* `91de409` Intégration de la branche ptools +* `cd50646` ne pas mettre à jour le fichier local +* `f321f1c` Intégration de la branche ptools +* `6258a6b` utiliser la version au lieu de la release +* `5589314` bug +* `10a7d4e` Intégration de la branche ptools +* `cd92832` ne pas supprimer la branche develop +* `3f1dc3e` Intégration de la branche ptools +* `ce050db` ajout d'un changelog possibilité d'éditer le changelog avec -e supprimer les options courtes -z et -Z +* `2bc314c` ajout de --merge-log supprimer les options courtes -z et -Z +* `fc35a05` inclure la liste des modifications dans le log +* `4578219` Intégration de la branche ptools +* `5b0715e` vérifier la présence dans le dépôt distant +* `0e6e94c` Intégration de la feature branch ptools +* `10152b4` calcul de newver action delete +* `6c8e750` implémener -z et -Z +* `2f41de3` cosmetic +* `5f6d5bb` ajout des options courtes -z et -Z +* `18bb510` supprimer l'option courte -d qui est déjà utilisée pour diff +* `dd2a712` ajout de -d et --force-delete +* `38f04ff` maj doc +* `523d3f1` doc pour nouvelle fonctionnalité à implémenter +* `13dfb9a` Intégration de la feature branch prel-tag +* `da96f72` ajout d'un tag après fusion de la branche dans master +* `2a71a51` Intégration de la feature branch prel-tag +* `09c59d8` ne pas afficher les erreurs +* `3e514d5` maj doc +* `f9d4556` Intégration de la feature branch linedots +* `7ae9b48` ajout de elinedots +* `ffa9195` fast-forwarder si possible +* `f64117c` cosmetic +* `d8a3ed4` checkout par défaut +* `89be42e` ne pas utiliser csort +* `881bcde` tenir compte de la valeur de origin +* `7c67a7f` tenir compte des branches potentielles +* `b757ca1` Intégration de la feature branch git-opts +* `c3683a5` bug +* `743e17b` fast-forwarder automatiquement la branche vers laquelle on bascule +* `e3e3bbb` ajout de git_fast_forward +* `1661ee5` ajout des fonctions git_is_ancestor(), git_should_ff(), git_should_push(), git_is_merged() +* `2e215cc` utiliser l'api +* `b975724` maj doc +* `262d12e` toujours charger le module +* `8ae0a8d` utiliser nouvelle API --add-metadata +* `259e1be` ajout de --add-metadata support de --allow-empty pour --update +* `8d3ab79` ajout de semver_addmetadata utiliser API moderne pour les perfs +* `ac940b8` ne garder que les infos sur la branche courante dans les metadata +* `1e11a57` ajouter pz pour faire une archive d'un projet +* `9389fb0` autoriser --allow-emptyp pour l'action --show +* `f90ad4d` bug +* `26aa98f` cosmetic +* `8deda74` cosmetic +* `f8c4a54` calcul de la version avec --prel +* `22a26d9` support des numéros style maven +* `4f0a746` support des fichiers pom.xml +* `6d85330` Intégration de la feature branch ptools +* `f60787a` prel est maintenant en topevel +* `7647d2d` prel est prêt à passer en toplevel +* `7c36761` possibilité de faire -u et -m dans la même commande +* `de618ae` possibilité de ne pas supprimer une feature branch après son intégration +* `57bf621` cosmetic +* `8d4d35d` mettre à jour la version avec pver +* `f98c977` support de -v en mode auto +* `4b64305` finaliser l'option -u +* `5862e75` ne pas charger le fichier s'il n'existe pas +* `e5b8b81` début d'implémentation de update +* `9235ce1` nettoyage +* `ffaed8a` quelques corrections +* `9182dcf` maj api chargement depuis ~/etc/completion.d +* `bbbc35a` maj api chargement depuis ~/etc/completion.d +* `d2133c7` intégrer les modifications faites à l'ur +* `90772f0` Intégration de la feature branch completion +* `163df88` bug +* `e8d683b` bug +* `041a830` suite du support de bash_completion +* `9c17a60` framework pour la complétion automatique +* `bbbe6c4` l'option -c ne fait que le basculement ou la création. Le choix de la version se fera avec -u +* `c5ba03b` ajouter les completions pour prel +* `2b2b7f5` début d'implémentation de prel -c +* `3f925ca` déplacer le code de pver dans ptools diff --git a/CHANGES.txt b/CHANGES.txt deleted file mode 100644 index 4113551..0000000 --- a/CHANGES.txt +++ /dev/null @@ -1,619 +0,0 @@ -## Version 5.3.0 du 28/09/2016-23:31 - -5c466d8 ldif et ldap: match des suffixes sans tenir compte de la casse. modrdn prend un nouvel argument SUFFIX -9eb566a runsmod: modifier chemins par défaut -a082788 bash_completion: bug sur certains serveurs - -## Version 5.2.1 du 01/09/2016-15:44 - -9995f95 runsmod: bug - -## Version 5.2.0 du 31/08/2016-22:30 - -+ 361f1b2 Intégration de la branche runsmod-goodies -| 8854469 maj de la config par défaut -| f0a71e4 bug avec la génération de sysinfos.conf -| 830a33b rruns calcule aussi les chemins d'hôtes automatiquement -| 40f5347 préparer le calcul automatique des chemins -| 2fbc599 bug avec git clone lors du basculement sur la branche develop -| 5bef9b1 utiliser la même logique que uproject pour cloner en mode devel -| 96afb2a mapping des répertoires de destination -| 4b212d8 ne pas utiliser %n tout de suite -| 30e5dda runs et rruns: améliorer le calcul des chemins -| 55c5755 support de //...%h... -| 409e406 préparer implémentation de %n -+ 208f30d Intégration de la branche better-fndate -| f388f27 ajouter des liens pour les fonctions courantes de fndate. En mode automatique, si le fichier contient déjà une mention de date, ne pas la modifier. rajouter l'option -@ pour forcer la modification de la date - -## Version 5.1.0 du 25/08/2016-15:36 - -8a33418 ulib/ldif: support de l'opération modrdn -+ b710461 Intégration de la branche apacheconfig -| e52d6c6 déplacer la logique de apacheconfig dans le module apache.tools - -## Version 5.0.0 du 09/08/2016-09:42 - -c00d9e4 cgilsxml.py: prévoir le cas où le fichier disparait pendant que la liste est construite -2fc7392 uxpath.py: bug -f85cd8a foreach: implémenter la syntaxe %var par défaut -de383be foreach: définir des variables supplémentaires pour chaque fichier trouvé -a7fd880 foreach: maj doc -c01eb20 ulib/awk: maj doc -04b723f qsql: compatibilité avec anciennes versions de bash -dcf0e61 module apache: ajout de HTDOCSBASE pour le déploiement multi-homé -7565461 woinst: support du déploiement d'applications construites avec Maven -eb0a3be woctl _create: enlever le suffixe .woa par défaut -d251a4e woinst: tenir compte des variables utilisateurs -2fd51b6 pclone bascule automatiquement sur la branche develop si elle existe -d056be4 foreach: ajouter l'option --parent -63e78f4 ulib: compatibilité avec versions précédentes de bash -64699c0 ensure_hostname(): clarification du message affiché -22acf0a ulib: ajouter _qsql() et qsql() pour quoter des chaines sql -18b2501 prel: améliorer l'affichage du résumé -b8bf04b uawk dump: ajouter le format -v qui affiches des variables individuelles -+ d57839d Intégration de la branche cgilsxml -| 6e67302 la disposition, le type et l'encoding peuvent être spécifique à un expression --spec ou --glob -| b7600aa possibilité de matcher des sous-répertoires dans l'expression --spec. Support du match de type --glob -| a49d6e2 les valeurs None ne sont pas affichées. n'a pas de valeur -16c1936 uawk dump: avec la méthode -a, afficher par défaut un tableau vide avant -c6b6dd4 uawk: ajout de l'alias dump qui avait été oublié -d8ab7f7 cgilsxml.py: cosmetic -0204a21 cgilsxml.py: possibilité de classifier des fichiers au sein d'un groupe avec --break-on -3a9bf04 cgilsxml.py: possibilité de spécifier la disposition du contenu, le type de contenu, ainsi que l'encoding -a730609 cgilsxml.py: permettre de télécharger le fichier avec la disposition inline -ce0193f cgilsxml.py: corriger la doc -1eba9a7 foreach: améliorer l'affichage -c669e8f utempl -t wosrc: si on crée un wosrc dans le répertoire java, enlever automatiquement le package pour les fichiers resources pour une configuration maven -f0f7a6f utempl -t wosrc: génère des pages bootstrap par défaut -8fced87 woctl run: permettre de choisir la version de java utilisée pour le lancement -9fe17b3 Ajouter le script foreach -f5db579 uxpath: support de la modification de la valeur d'un noeud -3653f7d Ajout des fonctions {build,eval}cmd et upvar -7091ecf support de la création d'un template wosrc pour un projet maven -34dbba9 support de l'utilisation des valeurs spécifiques de GIT_ANNEX pour rsync avec git-annex -470d7cf pcrone peut utiliser un répertoire existant -e4b7729 corriger le template shell -28bb531 activer l'auto-complétion sur debian jessie -317dbca ajout de compileAndGo dans les templates -01b9a68 ulib/vcs: corriger le code de git_track_branch. Utiliser ce code dans pdev --sync -fc75fcd runsmod: quelques corrections mineures -5058085 runsmod: Implémenter les fonctionnalités documentées -12c521c indenter l'affichage des fonctions qui demandent une saisie de l'utilisateur -86a5787 em: forcer -nw en mode non display -e74d9e4 bug -9218941 ajouter l'option -g à caturl -fcacf64 maj doc -01ea57e changer l'affichage de udir, et mettre à jour la doc -9fe71b3 ajouter fndate pour dater les fichiers -8143452 rendre ppath() plus résistant -+ c9ce115 Intégration de la branche improve-tls -| d9153af support de la configuration tls selon https://wiki.mozilla.org/Security/Server_Side_TLS -135dbf6 diverses corrections sur runs -3d5aeb2 Ajouter l'option -c à umountr -278bf5a renommer rumount un umountr -+ db76c12 Intégration de la branche runsmod-paths -| a31f8c2 changer la convention de nommage pour les répertoires ~/runs -5a31e7e ulib/java: ajout de la fonction get_java_version() -f74b5e3 Générer la doc au format markdown pour tagadoc -ded89be pdev: corrections pour supporter nouvelle version de git -5d3e9fe runsmod: corriger les valeurs par défaut pour les hôtes dans la bulle serveur -ada3686 uenv: bug dans le calcul des répertoires destination -+ deaa416 Intégration de la branche runsmod-only -| f96c482 proposer de créer la configuration par défaut -| f04e862 implémentation initiale de runsmod -42b9590 cosmetic -9bc373f cgiparams.py: implémenter le code de retour -1834d29 intégrer les fonctionnalités de cgiupload.py dans cgiparams.py - -## Version 4.4.1 du 15/04/2016-12:24 - -a45fd99 awkrun: ajouter l'argument suffix à qsql(), cqsql(), cval() - -## Version 4.4.0 du 15/04/2016-12:04 - -73391a9 awkrun: ajout d'un champ field à cqsql -2f60fec git_track_branch(): support de git >= 1.8.x -130b4d1 tenir compte du fichier /etc/debian_chroot pour initialiser UTOOLS_CHROOT -48c0420 ne pas afficher d'erreur si apache n'est pas installé -5e1a6cf Intégration de la branche rumount -1ad804b implémentation initiale de rumount -f460399 améliorer le calcul du répertoire destination avec pclone/pcrone -6411e63 configurer la valeur de l'umask -eb4362d apacheconfig: déploiement pour plusieurs systèmes à partir des mêmes sources - -## Version 4.3.0 du 07/04/2016-14:57 - -d021c97 support de on_debian() avec des arguments - -## Version 4.2.0 du 06/04/2016-14:25 - -a710c5a Intégration de la branche stdout -ba969e3 ajout de stdredir pour pallier l'absence éventuelle de /dev/std* -472f2c7 Intégration de la branche sysinfos -1864cdf fonctions pour faciliter la gestion des dépendances sous debian -2c27f03 uproject: ajouter la commande xconfig-export -ed3de6d umail: ajout de l'option --gencmd - -## Version 4.1.1 du 08/03/2016-12:04 - -0bd2b1f correction de bugs avec apacheconfig - -## Version 4.1.0 du 03/03/2016-11:02 - -4024b2a pyulib/umail: possibilité de spécifier le type de contenu - -## Version 4.0.0 du 01/03/2016-19:08 - -c46626c ldif: support de dumpcsv et printcsv dans get_transform_cmd() -d661e43 doinplace fonctionne comme la fonction. la version étendue est un lien nommé doinplacex -d6540ac dumpcsv: ajouter l'option --hname -903d500 dumpcsv: ajouter les options --keep-fields, --skip-fields, --dump-headers -af18332 implémenter printcsv -383410a *csv: améliorer cohérences des arguments -4808fa0 dumpcsv: ajout de l'option -b -939b5ad implémenter dumpcsv et nettoyer un peu le code -cb0e553 script doinplace qui mélange les fonctionnalités des fonctions doinplace et evalp -0cf8e04 scripts noerror, noout, noerr qui fonctionnent comme les fonctions du même nom -66249c9 nutools base: ajout de noerror(), noout(), noerr() -db76488 maj doc -40f1bf6 prel: après avoir fusionné une branche, revenir sur develop - -## Version 3.5.0 du 26/02/2016-11:35 - -4648b3f awkrun: ajout de la fonction qarr() -81e7f9b correction de certains messages affichés -0ea24ec ajout de sqlcsv -ad06535 pu: autoriser fast-forward même en cas de modifications locales -1c397e8 ajout des fonctions awk cqsql(), sval(), cval(). réorganiser et clarifier la doc - -## Version 3.4.2 du 10/02/2016-11:45 - -## Version 3.4.1 du 10/02/2016-11:45 - -a702b89 mergecsv: bug quand left ne contient qu'un seul champ vide - -## Version 3.4.0 du 09/02/2016-11:25 - -788e1ff cgilsxml.py: ajout de l'option -E. bug avec le tri sur des valeurs inexistantes - -## Version 3.3.0 du 08/02/2016-09:41 - -da3ef60 cgilsxml.py: ajouter de squery_string permettant d'ajouter un préfixe -bb25711 cgi: cgierror et cgiredirect arrêtent le script - -## Version 3.2.0 du 07/02/2016-23:05 - -24f3211 cgiparams.py et cgilsxml.py: modifications pour gérer la construction de QUERY_STRING - -## Version 3.1.0 du 04/02/2016-13:52 - -3190a32 cgilsxml.py: ajout de la variable script_base, qui permet de faire des urls relatives -f4537af ussh: bug dans l'analyse des arguments -9992505 ussh: pas de valeur par défaut pour DEFAULT_USER; --parse affiche toutes les options -b19059e Intégration de la branche ussh-auto-persist -5c75737 ussh: configuration du multiplexage pour certains hôtes - -## Version 3.0.1 du 31/12/2015-12:36 - -56c305a awk ne supporte pas \s - -## Version 3.0.0 du 24/12/2015-15:39 - -4b1c30b nouvelles fonctions pour le module cgi. cgilsxml, cgiupload et cgiparams sont rassemblés dans le module cgisupport - -## Version 2.26.0 du 24/12/2015-12:17 - -d5a2cce cgilsxml.py: rajouter la variable env/query_vars - -## Version 2.25.0 du 24/12/2015-11:15 - -6c73940 cgilsxml.py: désactiver le cache par défaut - -## Version 2.24.1 du 24/12/2015-10:12 - -3aba3e3 bug - -## Version 2.24.0 du 24/12/2015-09:58 - -b288cf2 apacheconfig: support des fichiers de confs --> /etc/apache2/cond.d sur debian wheezy- -2e3fe66 ussh: forcer l'allocation d'un tty avec --cc -58fa40c ussh: ajouter le support de uwatch -7bc63c5 maj doc uwatch -2d2754b ajout de uwatch pour afficher un compte -4376fff maj doc -bb176d7 maj du template pour runsconfig - -## Version 2.23.1 du 15/12/2015-11:01 - -d8d0cc8 cgilsxml: sélectionner automatiquement un groupe seul - -## Version 2.23.0 du 15/12/2015-10:06 - -501a7d2 cgilsxml: script_name et xslt peuvent être spécifié dans les paramètres QUERY_STRING -ebe4599 Intégration de la branche runs -35eadc1 correction d'un bug avec la recherche d'un fichier de recette -98ba626 les recettes ont maintenant l'extension .rr par défaut -a2e863e chercher aussi les scripts dans le sous-répertoire runs dans les répertoires d'hôte - -## Version 2.22.0 du 07/12/2015-19:05 - -dbc4d9a uscrontab: ne pas afficher plusieurs fois un même message quand le verrou est posé. n'afficher le message sur la pause qu'avec un tty -9821d20 ajouter le lien vers cgilsxml.py - -## Version 2.21.0 du 07/12/2015-15:12 - -d7b468d cgilsxml: ajouter les variables dlname, size, Y, m, d, H, M, S. maj doc -eac94a7 cgiupload: possibilité de filtrer sur le nom du fichier ou son type de contenu -fae2111 ajout de cgilsxml -26fe709 apacheconfig: -S peut aussi être utilisé avec --localhosts -7c6ad6a apacheconfig: nouvelles options pour le développement -c2d5eab pxs fait aussi git pull avec un dépôt sans annexe -dca7bee pxs fonctionne pour les dépôt normaux comme pci -A - -## Version 2.20.0 du 12/11/2015-15:41 - -16d95d2 apache_autoconf(): déploiement des certificats autorité -775a021 nutools: ajout de cpvcs() pour copier avec la sémantique de cpnovcs() les fichiers de VCS aussi -1ca0ee5 runs: ajout des options --force, --copy-links et --with-vcs à ref() -91686fb templatectl: il n'est plus nécessaire de spécifier explicitement fichier.template - -## Version 2.19.0 du 02/11/2015-11:03 - -37f3bff apacheconfig: diverses corrections de bugs -5d3861b apacheconfig: si host==@@dhost@@, alors hostname=@@dhostname@@ et aliases=@@daliases@@ -27592d4 apacheconfig: support des hôtes dynamiques ou statiques -93ac7ea re-écrire la gestion des templates pour apacheconfig et runsconfig - -## Version 2.18.0 du 27/10/2015-12:05 - -434403a Intégration de la branche uscrontab -2118885 uscrontab: possibilité de mettre en pause sans modifier les planifications en cours -0eeee20 awkrun: renommer les fonctions quote_* -18691c8 upassword: maj doc et support des commentaires pour le mode batch - -## Version 2.17.2 du 26/09/2015-12:25 - -1837a0c pxs: corriger xget, xcopy, xmove pour utiliser directement git annex sync - -## Version 2.17.1 du 26/09/2015-12:21 - -c8c6744 pxs: support des versions <= 5.20150825 - -## Version 2.17.0 du 26/09/2015-11:51 - -552e4ba améliorer pxs pour un dépôt en mode direct -2ce66e6 maj doc - -## Version 2.16.0 du 10/09/2015-11:16 - -42aa7ea fonctions e*: changer l'affichage en mode NO_COLOR pour afficher les préfixes complets - -## Version 2.15.0 du 08/09/2015-10:14 - -69ee45a Intégration de la branche prel-fixes -47b6e5b créer VERSION.txt et CHANGES.txt à la racine du projet -9d8a747 faire le push à la fin des opérations d'update et/ou de merge - -## Version 2.14.0 du 03/09/2015-09:04 - -9dcd60b pxs transfert les données aussi en mode direct - -## Version 2.13.0 du 01/09/2015-15:44 - -8d2e386 uscrontab: permettre d'ignorer le code d'erreur pour une commande planifiée -aa989ef Intégration de la branche uinst -58d9f16 uinst -y pose toujours la question si le répertoire est calculé automatiquement -594fd4e activer l'autocomplétion pour uinst -h - -## Version 2.12.1 du 24/08/2015-16:12 - -e356c2b bug avec le calcul du système -e040cac Avec les fonctions e*, afficher le statut de façon explicite en mode non coloré - -## Version 2.12.0 du 23/08/2015-22:57 - -dcb85ac Améliorer le déploiement uinst:rsync avec préfixes pour les hôtes distants - -## Version 2.11.0 du 21/08/2015-10:31 - -d9282f7 uinst: ajouter l'option -h pour la méthode uinst:rsync -7643573 nettoyer la branche - -## Version 2.10.0 du 19/08/2015-10:23 - -6ba41b9 support de --uses-su pour ruinst -C - -## Version 2.9.0 du 10/08/2015-14:04 - -447d13f support de nouvelles versions d'OS pour sysinfos -48e111a fconv et fnconv: le premier argument est le fichier s'il n'est pas spécifié avec -f -c29f4b9 mkiso: nouvelles options -A et -V -662b82f caturl --check ne doit pas afficher l'url - -## Version 2.8.0 du 22/07/2015-15:09 - -0f5b572 uinst installe maintenant les profils en mode partagé par défaut -fb6b492 améliorer l'affichage des scripts geturl et openurl - -## Version 2.7.0 du 17/07/2015-22:03 - -7e2a6c3 update-nutools ignore par défaut l'eventuel proxy défini par http_proxy -13215c3 apacheconfig: améliorer l'affichage de l'aide et support du répertoire .apacheconfig -27f5f7a pyulib honore maintenant UTOOLS_NO_COLORS -3ee6cb4 diminuer l'indentation pour les fonctions e* -d4ac5f7 modifier l'affichage des fonction e* - -## Version 2.6.0 du 10/07/2015-17:32 - -efa6b3a Intégration de la branche ftps -3288999 authftp: support tls en forçant l'utilisation de lftp -58e7f6f pconf reconnait maintenant les arguments offline et online - -## Version 2.5.1 du 03/07/2015-08:29 - -abc4cb9 dumpclients: possibilité de choisir les champs supplémentaires à afficher - -## Version 2.5.0 du 03/07/2015-07:39 - -2e15cbe Ajouter l'option -z à dumpclients - -## Version 2.4.0 du 01/07/2015-04:04 - -fda97a8 mise à jour de upassword - -## Version 2.3.0 du 01/07/2015-03:09 - -f581aa9 Intégration de la branche pdev-merges -80d7a73 ajouter les options -b et -s à pdev - -## Version 2.2.0 du 24/06/2015-16:19 - -98cfdfc Intégration de la branche update-upassword -34f027b bug avec la présence du scheme dans sha -b5e6c13 Intégration de la branche update-upassword -e4e2fa7 mise à jour upassword pour afficher sha en hexadécimal - -## Version 2.1.1 du 22/06/2015-11:37 - -40225b0 Intégration de la branche proxy-default -2fa0791 profile.d/proxy lit aussi les valeurs par défaut pour l'hôte - -## Version 2.1.0 du 22/06/2015-10:25 - -2a3eb76 Intégration de la branche uenv-modifs -bd8c7f8 correction d'un bug avec le nom final -d73c929 correction d'un bug avec le choix du répertoire de destination -e9089d8 les répertoires de profil partagé et de machine sont traités comme un seul répertoire -e3f76cd possibilité de spécifier si un profil doit être installé dans le répertoire de profil partagé - -## Version 2.0.0 du 22/06/2015-00:48 - -8286b29 Intégration de la branche uenv-modifs -c43cda0 les répertoires de profil sont spécifiques au nom de la machine - -## Version 1.19.0 du 21/06/2015-10:27 - -387dec2 Intégration de la branche add-pxwa -4d0b734 ajout de la commande xwebapp - -## Version 1.18.0 du 09/06/2015-10:40 - -01e2929 Intégration de la branche fix-javaproperties -b24e9ff norm_properties() affiche les caractères en majuscule, comme JavaProperties#store() - -## Version 1.17.0 du 07/06/2015-14:00 - -e2d0c0c Intégration de la branche pdev-fix -1cc3bd4 ajouter l'option --sync à pdev - -## Version 1.16.0 du 04/06/2015-22:14 - -4a15085 Intégration de la branche verbose-update -8a27561 pu: afficher un message s'il y a des modifications locales - -## Version 1.15.0 du 22/05/2015-17:03 - -e715087 Intégration de la branche update-upassword -a74a373 upassword: possibilité de spécifier de façon dynamique la ligne à afficher après - -## Version 1.14.0 du 22/05/2015-16:41 - -d8f20c3 Intégration de la branche update-upassword -dea524a ajout du mode batch - -## Version 1.13.0 du 22/05/2015-16:04 - -275bff8 Intégration de la branche update-upassword -1ce1d98 mise à jour de upassword - -## Version 1.12.0 du 22/05/2015-13:37 - -57fc84d correction d'un bug avec prel -s -cf108d7 Intégration de la branche prel-show-modifs -a744f48 prel -s afficher la liste des modifications qui seraient enregistrées - -## Version 1.11.0 du 22/05/2015-11:41 - -2984052 Intégration de la branche quiet-completion -755cfa7 ne pas afficher les erreurs pour les fonctions de complétion de git -2b5eb2a Intégration de la branche pu -b004730 uproject update fait fetch puis merge, manuellement - -## Version 1.10.0 du 20/05/2015-12:08 - -bf1d86a Intégration de la branche pu-auto-forward -8bf8164 fast-forwarder automatiquement les branches locales par rapport aux branches distantes -8baabea Intégration de la branche ptools-maj-topic -5ff5b7d déterminer les branches de topic: ignorer les branches avec un slash dans le nom - -## Version 1.9.0 du 19/05/2015-18:25 - -5933089 Intégration de la branche awkfsv -caeb06e possibilité de spécifier les types des champs pour mysqlloadcsv -b2c9f81 uawk requière maintenant de spécifier le nom de l'outil - -## Version 1.8.1 du 19/05/2015-10:45 - -de8d690 Intégration de la branche annex-support -2044181 ne pas synchroniser l'annexe en mode automatique - -## Version 1.8.0 du 19/05/2015-10:27 - -4779695 Intégration de la branche annex-support -89ad130 support de git-annex pour pp et pdev - -## Version 1.7.0 du 15/05/2015-16:11 - -16ad285 Intégration de la branche nutools -93d8262 rajouter le script nutools pour vérifier la version installée de nutools. renommer la fonction nutools() en pconf() - -## Version 1.6.0 du 04/05/2015-12:40 - -0463b2c Intégration de la branche norm_props -48ca720 ajout de l'en-tête - -## Version 1.5.1 du 29/04/2015-10:14 - -4c92f54 Intégration de la branche push-all -02c15f9 pp -a pousse toutes les branches et tous les tags. ajouter les options -b et -t pour pousser respectivement toutes les branches et tous les tags - -## Version 1.4.1 du 29/04/2015-10:12 - -Release erronée, à ignorer - -## Version 1.4.0 du 27/04/2015-18:12 - -7122fc4 Intégration de la branche norm-properties -845c54e ajout de la fonction norm_properties - -## Version 1.3.0 du 24/04/2015-12:32 - -bdc6e9b Intégration de la branche localhost -94b2b48 reconnaitre la valeur spéciale localhost pour check_hostname() - -## Version 1.2.4 du 20/04/2015-17:55 - -988e045 bug - -## Version 1.2.3 du 20/04/2015-17:43 - -Correction d'un bug avec la copie des fichiers - -d3ab6b8 bug -7e0d44b cosmetic - -## Version 1.2.2 du 20/04/2015-01:16 - -## Version 1.2.1 du 20/04/2015-01:15 - -145acfa bug - -## Version 1.2.0 du 16/04/2015-13:59 - -d756a6c Intégration de la branche ldapt -57dac04 support de xempty explicite, et de la possibilité de désactiver ce traitement -75f21b5 support des attributs ordonnés -00088b3 cosmetic - -## Version 1.1.1 du 16/04/2015-12:10 - -Mise à jour de .ulibver - -## Version 1.1.0 du 16/04/2015-12:09 - -4b445a2 Intégration de la branche ldapt-ev -f8bd000 support de la nouvelle fonction ensureval -dbd9605 Intégration de la branche ptools -1fb27d6 pousser le tag quand il a été créé - -## Version 1.0.0 du 14/04/2015-10:05 - -commencer à suivre les versions de nutools: cette release est la première de -la série - -66bbf23 Intégration de la branche update-ulibver -f5aeff7 maj de ulib -073e7b0 Intégration de la branche ptools -8f6a32b forcer la création de la destination. afficher un message informatif -48d9104 Intégration de la branche ptools -6890d30 workaround pour le bug sous debian squeeze -91de409 Intégration de la branche ptools -cd50646 ne pas mettre à jour le fichier local -f321f1c Intégration de la branche ptools -6258a6b utiliser la version au lieu de la release -5589314 bug -10a7d4e Intégration de la branche ptools -cd92832 ne pas supprimer la branche develop -3f1dc3e Intégration de la branche ptools -ce050db ajout d'un changelog possibilité d'éditer le changelog avec -e supprimer les options courtes -z et -Z -2bc314c ajout de --merge-log supprimer les options courtes -z et -Z -fc35a05 inclure la liste des modifications dans le log -4578219 Intégration de la branche ptools -5b0715e vérifier la présence dans le dépôt distant -0e6e94c Intégration de la feature branch ptools -10152b4 calcul de newver action delete -6c8e750 implémener -z et -Z -2f41de3 cosmetic -5f6d5bb ajout des options courtes -z et -Z -18bb510 supprimer l'option courte -d qui est déjà utilisée pour diff -dd2a712 ajout de -d et --force-delete -38f04ff maj doc -523d3f1 doc pour nouvelle fonctionnalité à implémenter -13dfb9a Intégration de la feature branch prel-tag -da96f72 ajout d'un tag après fusion de la branche dans master -2a71a51 Intégration de la feature branch prel-tag -09c59d8 ne pas afficher les erreurs -3e514d5 maj doc -f9d4556 Intégration de la feature branch linedots -7ae9b48 ajout de elinedots -ffa9195 fast-forwarder si possible -f64117c cosmetic -d8a3ed4 checkout par défaut -89be42e ne pas utiliser csort -881bcde tenir compte de la valeur de origin -7c67a7f tenir compte des branches potentielles -b757ca1 Intégration de la feature branch git-opts -c3683a5 bug -743e17b fast-forwarder automatiquement la branche vers laquelle on bascule -e3e3bbb ajout de git_fast_forward -1661ee5 ajout des fonctions git_is_ancestor(), git_should_ff(), git_should_push(), git_is_merged() -2e215cc utiliser l'api -b975724 maj doc -262d12e toujours charger le module -8ae0a8d utiliser nouvelle API --add-metadata -259e1be ajout de --add-metadata support de --allow-empty pour --update -8d3ab79 ajout de semver_addmetadata utiliser API moderne pour les perfs -ac940b8 ne garder que les infos sur la branche courante dans les metadata -1e11a57 ajouter pz pour faire une archive d'un projet -9389fb0 autoriser --allow-emptyp pour l'action --show -f90ad4d bug -26aa98f cosmetic -8deda74 cosmetic -f8c4a54 calcul de la version avec --prel -22a26d9 support des numéros style maven -4f0a746 support des fichiers pom.xml -6d85330 Intégration de la feature branch ptools -f60787a prel est maintenant en topevel -7647d2d prel est prêt à passer en toplevel -7c36761 possibilité de faire -u et -m dans la même commande -de618ae possibilité de ne pas supprimer une feature branch après son intégration -57bf621 cosmetic -8d4d35d mettre à jour la version avec pver -f98c977 support de -v en mode auto -4b64305 finaliser l'option -u -5862e75 ne pas charger le fichier s'il n'existe pas -e5b8b81 début d'implémentation de update -9235ce1 nettoyage -ffaed8a quelques corrections -9182dcf maj api chargement depuis ~/etc/completion.d -bbbc35a maj api chargement depuis ~/etc/completion.d -d2133c7 intégrer les modifications faites à l'ur -90772f0 Intégration de la feature branch completion -163df88 bug -e8d683b bug -041a830 suite du support de bash_completion -9c17a60 framework pour la complétion automatique -bbbe6c4 l'option -c ne fait que le basculement ou la création. Le choix de la version se fera avec -u -c5ba03b ajouter les completions pour prel -2b2b7f5 début d'implémentation de prel -c -3f925ca déplacer le code de pver dans ptools diff --git a/TODO.md b/TODO.md new file mode 100644 index 0000000..32dea67 --- /dev/null +++ b/TODO.md @@ -0,0 +1,3 @@ +# TODO + +-*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8:noeol:binary \ No newline at end of file diff --git a/VERSION.txt b/VERSION.txt index 03f488b..09b254e 100644 --- a/VERSION.txt +++ b/VERSION.txt @@ -1 +1 @@ -5.3.0 +6.0.0 diff --git a/apacheconfig b/apacheconfig index ec52ddf..6f824b6 100755 --- a/apacheconfig +++ b/apacheconfig @@ -16,6 +16,19 @@ OPTIONS Créer un nouveau répertoire de configuration pour un hôte -d, --destdir DESTDIR[=$TEMPLATECTL_NAME] Nom du répertoire local de configuration. + -f,--full + --partial + Indiquer respectivement que la configuration est complète ou partielle. + Avec la configuration complète, le serveur peut être complètement + configuré avec tous les fichiers présents. Avec la configuration + partielle, uniquement les informations spécifiques à un service en + particulier sont disponibles. + Cette option est utilisée avec --create. Par défaut, la configuration + est partielle. + Pour le moment, la seule différence est que --full crée un fichier de + configuration nommé .apacheconfig alors que --partial crée un fichier + nommé apacheconfig.conf qui est visible et donc découvrable et éditable + plus facilement -t, --template [OPT] Gérer les fichiers du répertoire local avec templatectl. La valeur de @@ -46,9 +59,12 @@ OPTIONS Lors du déploiement de la configuration, les valeurs des variables dynamiques sont remplacées dans les fichiers destination. Les arguments qui restent sont passés tels quels à apache_autoconf + -N, --network-config + Mettre aussi à jour la configuration réseau. -r, --certsdir CERTSDIR Spécifier le cas échéant le répertoire contenant les certificats à - déployer. Cet argument est requis si le répertoire certsconf/ existe. + déployer. Cet argument est requis si le répertoire certsconf/ existe, + sauf si les certificats sont déjà déployés. --localhosts Créer dans le fichier /etc/hosts tous les noms d'hôte ayant un suffixe @@ -63,24 +79,45 @@ OPTIONS -S, --one-site SITE Ne déployer que le fichier de site spécifié. Cette option est utilisée avec --deploy ou --localhosts et est utile pour le développement et les - tests." + tests. + + -k, --new-site HOST.TLD + Créer une définition pour un nouveau site à partir des fichiers du + répertoires templates/ + -K, --new-site-templatedir TEMPLATEDIR + Spécifier le répertoire source pour les templates de site utilisés par + l'option --new-site. Par défaut, utiliser le répertoire templates/ situé + dans le répertoire de configuration. + Si TEMPLATEDIR est un nom simple sans séparateur de chemin '/' et qu'un + répertoire templates/TEMPLATEDIR existe, alors prendre ce répertoire-là + comme source. + --new-site-force + Avec --new-site, utiliser le nom d'hôte fourni même s'il n'est pas + pleinement qualifié" } action= destdir= -nohideconfig= +nohideconfig=auto templateopt= +FULLCONF= +netconf= aac_certsdir= bits= oneconf= onemodule= onesite= +site_host= +site_templdir= +site_force= args=( --help '$exit_with display_help' -c,--create action=create -d:,--destdir: destdir= --no-hideconfig nohideconfig=1 --hideconfig nohideconfig= + -f,--full FULLCONF=1 + --partial FULLCONF= -t::,--template:: '$set@ templateopt; action=template' --help-template '$templateopt=-help; action=template' -l,--list '$templateopt=l; action=template' @@ -96,15 +133,23 @@ args=( -8,--jessie '$array_add TEMPLATECTL_VARS sysver=jessie' --bits: bits= -u,--update,--deploy action=deploy + -N,--network-config netconf=1 -r:,--certsdir: aac_certsdir= --localhosts action=localhosts -C:,--one-conf: oneconf= -M:,--one-module: onemodule= -S:,--one-site: onesite= + -k:,--new-site: '$action=new-site; set@ site_host' + -K:,--new-site-templatedir: site_templdir= + --new-site-force site_force= ) parse_args "$@"; set -- "${args[@]}" -apacheconfig_loadconf "$destdir" || die +if [ "$nohideconfig" == auto ]; then + [ -n "$FULLCONF" ] && nohideconfig= || nohideconfig=1 +fi + +apacheconfig_loadconf "$destdir" "$nohideconfig" || die apacheconfig_sysinfos "$sysname" "$sysdist" "$sysver" "$bits" ################################################################################ @@ -128,7 +173,7 @@ if [ "$action" == create ]; then ask_yesno "Le fichier $(ppath "$config") sera écrasé. Voulez-vous continuer?" O || die rm -f "$config" || die fi - templatectl -d "$destdir" --config "$config" --no-load-vars -m --write-vars + templatectl -d "$destdir" --config "$config" ${nohideconfig:+--no-hide-config} --no-load-vars -m --write-vars ################################################################################ elif [ "$action" == template ]; then @@ -142,7 +187,9 @@ elif [ "$action" == deploy -o "$action" == localhosts ]; then [ -d "$destdir" ] || die "$destdir: répertoire introuvable" args=( - -d "$destdir" --$action ${aac_certsdir:+-r "$aac_certsdir"} + -d "$destdir" --$action + ${netconf:+--network-config} + ${aac_certsdir:+-r "$aac_certsdir"} ${oneconf:+--one-conf "$oneconf"} ${onemodule:+--one-module "$onemodule"} ${onesite:+--one-site "$onesite"} @@ -160,11 +207,113 @@ elif [ "$action" == deploy -o "$action" == localhosts ]; then apacheconfig_deploy \ "$destdir" "$aac_certsdir" \ "$config" "$oneconf" "$onemodule" "$onesite" \ - "$custom_sysinfos" "$sysname" "$sysdist" "$sysver" "$bits" || die + "$custom_sysinfos" "$sysname" "$sysdist" "$sysver" "$bits" \ + "$netconf" || die eend elif [ "$action" == localhosts ]; then etitle "Mise à jour de /etc/hosts" apacheconfig_deploy_localhosts "$destdir" "$aac_certsdir" "$onesite" || die eend fi + +################################################################################ +elif [ "$action" == new-site ]; then + host="$site_host" + templdir="$site_templdir" + if [[ "$templdir" != */* ]] && [ -d "$destdir/templates/$templdir" ]; then + templdir="$destdir/templates/$templdir" + elif [ -z "$templdir" ]; then + templdir="$destdir/templates" + fi + [ -d "$templdir" ] || die "$templdir: répertoire introuvable" + force="$site_force" + + clrtempl= + ssltempl= + certstempl= + wwwtempl= + array_from_lines templs "$(list_files "$templdir" "*SITE.conf")" + [ ${#templs[*]} -gt 0 ] && clrtempl="${templs[0]}" + array_from_lines templs "$(list_files "$templdir" "*SITE.ssl.conf")" + [ ${#templs[*]} -gt 0 ] && ssltempl="${templs[0]}" + array_from_lines templs "$(list_files "$templdir" "*SITE-certs.conf")" + [ ${#templs[*]} -gt 0 ] && certstempl="${templs[0]}" + array_from_lines templs "$(list_dirs "$templdir" "*SITE")" + [ ${#templs[*]} -gt 0 ] && wwwtempl="${templs[0]}" + + found= + for i in "$clrtempl" "$ssltempl" "$certstempl" "$wwwtempl"; do + [ -n "$i" ] && { found=1; break; } + done + [ -n "$found" ] || die "Aucun template disponible" + + if [ -z "$force" ] && [[ "$host" != *.* ]]; then + die "$host n'est pas un nom d'hôte pleinement qualifié" + fi + + etitle "$host" + hostname="${host%%.*}" + clrconf="${clrtempl/SITE/$hostname}" + sslconf="${ssltempl/SITE/$hostname}" + certsconf="${certstempl/SITE/$hostname}" + wwwdir="${wwwtempl/SITE/$hostname}" + + mkdir -p "$destdir/certsconf" + mkdir -p "$destdir/sites" + + sedscript="\ +s/SITE.TLD/$host/g +s/SITE/$hostname/g" + + if [ -z "$clrtempl" ]; then + : + elif [ ! -f "$templdir/$clrtempl" ]; then + ewarn "Le fichier $(ppath "$templdir/$clrtempl") n'existe pas. La copie ne sera pas complète" + elif [ -f "$destdir/sites/$clrconf" ]; then + ewarn "Le fichier sites/$clrconf existe déjà. Il ne sera pas écrasé." + else + estep "sites/$clrconf" + sed "$sedscript" "$templdir/$clrtempl" >"$destdir/sites/$clrconf" || die + fi + + if [ -z "$ssltempl" ]; then + : + elif [ ! -f "$templdir/$ssltempl" ]; then + ewarn "Le fichier $(ppath "$templdir/$ssltempl") n'existe pas. La copie ne sera pas complète" + elif [ -f "$destdir/sites/$sslconf" ]; then + ewarn "Le fichier sites/$sslconf existe déjà. Il ne sera pas écrasé." + else + estep "sites/$sslconf" + sed "$sedscript" "$templdir/$ssltempl" >"$destdir/sites/$sslconf" || die + fi + + if [ -z "$certstempl" ]; then + : + elif [ ! -f "$templdir/$certstempl" ]; then + ewarn "Le fichier $(ppath "$templdir/$certstempl") n'existe pas. La copie ne sera pas complète" + elif [ -f "$destdir/certsconf/$certsconf" ]; then + ewarn "Le fichier certsconf/$certsconf exite déjà. Il ne sera pas écrasé." + else + estep "certsconf/$certsconf" + sed "$sedscript" "$templdir/$certstempl" >"$destdir/certsconf/$certsconf" || die + fi + + if [ -z "$wwwtempl" ]; then + : + elif [ ! -d "$templdir/$wwwtempl" ]; then + ewarn "Le répertoire $(ppath "$templdir/$wwwtempl") n'existe pas. La copie ne sera pas complète" + elif [ -d "$destdir/$wwwdir" ]; then + ewarn "Le répertoire $wwwdir existe déjà. Il ne sera pas écrasé." + else + estep "$wwwdir" + cpdirnovcs "$templdir/$wwwtempl" "$destdir/$wwwdir" || die + sed -i "$sedscript" "$destdir/$wwwdir/.udir" || die + fi + + eend + + if [ -n "$wwwtempl" ]; then + eimportant "Ne pas oublier le cas échéant de mettre à jour HTDMAPPINGS dans $(ppath "$config") e.g. + HTDMAPPINGS=($wwwdir)" + fi fi diff --git a/chrono.py b/chrono.py new file mode 100755 index 0000000..e82f521 --- /dev/null +++ b/chrono.py @@ -0,0 +1,311 @@ +#!/usr/bin/env python +# -*- coding: utf-8 mode: python -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 + +u"""Afficher un chronomètre""" + +import os, sys, re, subprocess, traceback +from os import path +from datetime import date as Date, time as Time +from datetime import datetime as Datetime, timedelta as Timedelta +from types import IntType, LongType + +DEFAULT_SOUND = path.join(path.dirname(__file__), 'lib', 'chrono.wav') + +def win_playSound(name): + try: import winsound as s + except: return + if name is None: + s.PlaySound(None, s.SND_ASYNC) + else: + scriptdir = path.split(path.abspath(sys.argv[0]))[0] + soundfile = path.join(scriptdir, name) + s.PlaySound(soundfile, s.SND_FILENAME + s.SND_ASYNC) + +def linux_playSound(name): + subprocess.call(['/usr/bin/aplay', '-Nq', name]) + +def playSound(name=None): + if os.name == 'nt': + return win_playSound(name) + elif sys.platform.startswith('linux'): + return linux_playSound(name) + +def isnum(i): + return type(i) in (IntType, LongType) + +DEFAULT_TIMEOUT = '5' + +RE_DESTHOUR = re.compile(r'@(\d+)(?:[:.](\d+)(?:[:.](\d+))?)?$') +def parse_desthour(s): + mo = RE_DESTHOUR.match(s) + if mo is None: return None + h, m, s = mo.groups() + if h is None: h = 0 + if m is None: m = 0 + if s is None: s = 0 + h, m, s = int(h), int(m), int(s) + src = Datetime.today() + srcdate = src.date(); srctime = src.time() + destdate = srcdate; desttime = Time(h, m, s) + if desttime <= srctime: destdate = destdate + Timedelta(1) + src = Datetime.combine(srcdate, srctime) + dest = Datetime.combine(destdate, desttime) + delta = dest - src + return delta.total_seconds() + +RE_TIMEOUT = re.compile(r'(\d+)(?:[:.](\d+)(?:[:.](\d+))?)?$') +def parse_timeout(s): + mo = RE_TIMEOUT.match(s) + if mo is None: return None + h, m, s = mo.groups() + if m is None and s is None: + # M + m = h + h = None + elif s is None: + # M:S + s = m + m = h + h = None + else: + # H:M:S + pass + if h is None: h = 0 + if m is None: m = 0 + if s is None: s = 0 + h, m, s = int(h), int(m), int(s) + return h * 3600 + m * 60 + s + +class Chrono: + timeout = None + date_start = None + date_end = None + initial = None + started = None + + def __init__(self, timeout=None, start=False): + self.set_timeout(timeout) + if start: self.start() + + def __format(self, delta): + h = delta.seconds // 3600 + seconds = delta.seconds % 3600 + m = seconds // 60 + s = seconds % 60 + if h > 0: return '%02i:%02i:%02i' % (h, m, s) + else: return '%02i:%02i' % (m, s) + + def __delta(self, timeout): + return Timedelta(seconds=timeout) + + def set_timeout(self, timeout=None): + if timeout is not None and not isnum(timeout): + tmp = parse_desthour(str(timeout)) + if tmp is None: tmp = parse_timeout(timeout) + if tmp is None: tmp = int(timeout) * 60 + timeout = tmp + self.timeout = timeout + if timeout is None: self.initial = '00:00' + else: self.initial = self.__format(self.__delta(timeout)) + + def start(self, timeout=None): + if timeout is None: timeout = self.timeout + self.date_start = Datetime.today() + if timeout is None: self.date_end = None + else: self.date_end = self.date_start + self.__delta(timeout) + self.started = True + + def stop(self): + self.started = False + + def is_started(self): + return self.started + + def is_end(self): + return self.started and self.date_end is not None and Datetime.today() >= self.date_end + + def __repr__(self): + now = Datetime.today() + if self.date_end is None: delta = now - self.date_start + elif now > self.date_end: delta = Timedelta() + else: delta = self.date_end - now + return self.__format(delta) + +def run_chronometre(timeout=None, autostart=False): + from Tkinter import Tk, Toplevel, Frame, Label, Entry, Button + import tkMessageBox + + class Dialog(Toplevel): + def __init__(self, parent, title=None): + self.result = None + self.have_result = False + + Toplevel.__init__(self, parent) + self.transient(parent) + if title: self.title(title) + self.parent = parent + + body = Frame(self) + self.initial_focus = self.body(body) + body.pack(padx=5, pady=5) + self.buttonbox() + self.grab_set() + if not self.initial_focus: self.initial_focus = self + self.protocol("WM_DELETE_WINDOW", self.cancel) + self.geometry("+%d+%d" % (parent.winfo_rootx()+50, + parent.winfo_rooty()+50)) + self.initial_focus.focus_set() + self.wait_window(self) + + def set_result(self, result): + self.result = result + self.have_result = True + + def body(self, master): + pass + + def buttonbox(self): + box = Frame(self) + w = Button(box, text="OK", width=10, command=self.ok, default='active') + w.pack(side='left', padx=5, pady=5) + w = Button(box, text="Annuler", width=10, command=self.cancel) + w.pack(side='left', padx=5, pady=5) + self.bind("", self.ok) + self.bind("", self.cancel) + box.pack() + + def ok(self, event=None): + if not self.validate(): + self.initial_focus.focus_set() + return + self.withdraw() + self.update_idletasks() + self.apply() + self.cancel() + + def cancel(self, event=None): + self.parent.focus_set() + self.destroy() + + def validate(self): + return True + + def apply(self): + pass + + class Config(Dialog): + def body(self, master): + Label(master, text="Nb minutes", padx=20).grid(row=0) + self.entry = Entry(master) + self.entry.grid(row=0, column=1) + return self.entry + + def apply(self): + value = self.entry.get() + if value == "": result = None + else: result = value + self.set_result(result) + + class Application(Frame): + root = None + chrono = None + stop = None + + def __init__(self, timeout=None, autostart=False, **kw): + self.chrono = Chrono(timeout) + self.stop = False + + root = Tk() + root.title("Chronomètre") + root.columnconfigure(0, weight=1) + root.rowconfigure(0, weight=1) + root.bind("c", lambda event: self.do_config()) + root.bind("s", lambda event: self.do_start()) + root.bind("q", lambda event: self.quit()) + self.root = root + + kw.update(master=root) + Frame.__init__(self, **kw) + + self.TIME = Label(self, width=10, height=2, text=self.chrono.initial, padx=30, pady=10, font=('Helvetica', 18, "normal")) + self.START = Button(self, text="Démarrer", command=self.do_start) + self.CONFIG = Button(self, text="Config", command=self.do_config) + self.QUIT = Button(self, text="Quitter", command=self.quit) + + self.grid(column=0, row=0, sticky='nsew') + self.TIME.grid(column=0, row=0, columnspan=3, sticky='nsew') + self.START.grid(column=0, row=1, sticky='ew') + self.CONFIG.grid(column=1, row=1, sticky='ew') + self.QUIT.grid(column=2, row=1, sticky='ew') + + self.columnconfigure(0, weight=2) + self.columnconfigure(1, weight=1) + self.columnconfigure(2, weight=2) + self.rowconfigure(0, weight=1) + + if autostart: self.do_start() + + def update_time(self): + chrono = self.chrono + self.TIME.configure(text=chrono) + if chrono.is_started(): + if chrono.is_end(): + playSound(DEFAULT_SOUND) + else: + self.root.after(300, self.update_time) + + def do_start(self): + self.chrono.start() + self.update_time() + + def do_config(self): + chrono = self.chrono + chrono.stop() + config = Config(self.root) + if config.have_result: + try: + chrono.set_timeout(config.result) + self.TIME.configure(text=chrono.initial) + except: + traceback.print_exc() + tkMessageBox.showerror("Valeur invalide", sys.exc_info()[1]) + + Application(timeout, autostart).mainloop() + +if __name__ == '__main__': + from argparse import ArgumentParser, RawTextHelpFormatter + AP = ArgumentParser( + formatter_class=RawTextHelpFormatter, + usage=u"%(prog)s [options] [TIMEOUT]", + description=u"Afficher un chronomètre", + epilog=u"Si TIMEOUT est spécifié, par défaut le décompte démarre automatiquement." + ) + AP.set_defaults(autostart=None, timeout=None) + AP.add_argument('timeout', metavar='TIMEOUT', nargs='?', + help=u"""\ +(valeur vide) + chronomètre qui démarre à 0:00 et ne s'arrête pas +H:M:S (heures:minutes:secondes) +ou M:S (minutes:secondes) +ou M (minutes) + minuteur qui démarre à H:M:S et fait un décompte jusqu'à 0:00. A la fin + du décompte, une sonnerie retentit. +@H[:M[:S]] + minuteur qui fonctionne comme précédemment, sauf qu'on spécifie l'heure + d'arrivée, et que la durée est calculée automatiquement""") + AP.add_argument('-n', '--no-autostart', dest='autostart', action='store_false', + help=u"Ne pas démarrer automatiquement le décompte même si TIMEOUT est spécifié.") + AP.add_argument('-s', '--autostart', dest='autostart', action='store_true', + help=u"Forcer le démarrage automatique du décompte, même si TIMEOUT n'est pas spécifié.") + o = AP.parse_args() + + autostart = o.autostart + if autostart is None: autostart = o.timeout is not None + o.autostart = autostart + + timeout = o.timeout + if timeout is None: timeout = DEFAULT_TIMEOUT + elif timeout == '': timeout = None + o.timeout = timeout + + run_chronometre(o.timeout, o.autostart) diff --git a/doc/DefaultTiddlers.twp b/doc/DefaultTiddlers.twp deleted file mode 100644 index cac184d..0000000 --- a/doc/DefaultTiddlers.twp +++ /dev/null @@ -1,25 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -# Pense-bête: -# ''bold'' ==striked== __underline__ //italic// ^^super^^ ~~sub~~ -# @@highlight@@ @@color:red;background-color:white; rouge sur noir@@ -# ~NotAWikiWord [[force wikiword]] [[friendly name|WikiWord]] -# [[external|http://site.com]] ---- {{monospace}} -# !h1 !!h2 !!!h3 !!!!h4 !!!!!h5 -# * dotlist ** sublist # numlist ## sublist -# {{{ |caption|c [img[title|filename]] -# pre text |!header|!header|h [img[filename]] -# }}} |cell|cell| [img[title|filename][link]] -# <<< |>|colspan| [img[filename][link]] -# blockquote |rowspan|one| [img[filename]] -# >quote1 |left| right| -# >>quote2 |>| center | -# >>>quote3 -##@creator: jclain -##@created: 09/03/2012 05:08 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: DefaultTiddlers - -[[Main]] diff --git a/doc/EnsureVM.twp b/doc/EnsureVM.twp deleted file mode 100644 index cda2f7d..0000000 --- a/doc/EnsureVM.twp +++ /dev/null @@ -1,16 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: EnsureVM - -{{{ -EnsureVM: s'assurer que les services sont lancés pour un type de virtualisation - -USAGE - EnsureVM type - -Les types supportés sont virtualbox et kvm (par défaut) -}}} diff --git a/doc/Main.twp b/doc/Main.twp deleted file mode 100644 index 470bda7..0000000 --- a/doc/Main.twp +++ /dev/null @@ -1,46 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -# Pense-bête: -# ''bold'' ==striked== __underline__ //italic// ^^super^^ ~~sub~~ -# @@highlight@@ @@color:red;background-color:white; rouge sur noir@@ -# ~NotAWikiWord [[force wikiword]] [[friendly name|WikiWord]] -# [[external|http://site.com]] ---- {{monospace}} -# !h1 !!h2 !!!h3 !!!!h4 !!!!!h5 -# * dotlist ** sublist # numlist ## sublist -# {{{ |caption|c [img[title|filename]] -# pre text |!header|!header|h [img[filename]] -# }}} |cell|cell| [img[title|filename][link]] -# <<< |>|colspan| [img[filename][link]] -# blockquote |rowspan|one| [img[filename]] -# >quote1 |left| right| -# >>quote2 |>| center | -# >>>quote3 -##@creator: jclain -##@created: 09/03/2012 05:08 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: Main - -!Présentation -nutools est un ensemble d'utilitaires pour faciliter l'utililisation des Unixes, en particulier Linux, mais aussi MacOS X et Cygwin. -C'est aussi une librairie de scripts shell réutilisables ([[ulib]]) et une librairie de modules python réutilisables (pyulib) - -!Prérequis -Python >= 2.3 et GNU Awk sont requis pour que toutes les fonctionnalités soient supportées. -* Sous Linux, lors de l'installation du package, les meilleurs efforts sont fait pour que ces packages soient installés. -* Sous MacOSX, il faut installer manuellement Fink, DarwinPorts ou Homebrew - -! Outils -Chaque outil contient une aide intégrée. Il suffit de lancer l'outil avec l'argument {{{--help}}} pour avoir une aide détaillée. -* Déploiement d'un répertoire ou d'une archive -** [[uinst]]: Déploiement local -** [[mkusfx]]: Faire une archive auto-installable avec uinst -** [[ruinst]]: Déploiement distant avec uinst -** [[runs]]: Lancer un script avec le protocole RUNS -** [[rruns]]: Déploiement distant avec runs -* Librairie réutilisable de scripts shell -** [[uinc]]: Dépliage des inclusions dans un fichier -** [[ulibsync]]: Faire une copie locale pour un projet de ulib et/ou pyulib -* Autres outils -** [[udir]]: Gestion des paramètres d'un répertoire. Ces paramètres sont entre autres utilisés par uinst et uinc. diff --git a/doc/MainMenu.twp b/doc/MainMenu.twp deleted file mode 100644 index 935032c..0000000 --- a/doc/MainMenu.twp +++ /dev/null @@ -1,25 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -# Pense-bête: -# ''bold'' ==striked== __underline__ //italic// ^^super^^ ~~sub~~ -# @@highlight@@ @@color:red;background-color:white; rouge sur noir@@ -# ~NotAWikiWord [[force wikiword]] [[friendly name|WikiWord]] -# [[external|http://site.com]] ---- {{monospace}} -# !h1 !!h2 !!!h3 !!!!h4 !!!!!h5 -# * dotlist ** sublist # numlist ## sublist -# {{{ |caption|c [img[title|filename]] -# pre text |!header|!header|h [img[filename]] -# }}} |cell|cell| [img[title|filename][link]] -# <<< |>|colspan| [img[filename][link]] -# blockquote |rowspan|one| [img[filename]] -# >quote1 |left| right| -# >>quote2 |>| center | -# >>>quote3 -##@creator: jclain -##@created: 09/03/2012 05:08 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: MainMenu - -[[GettingStarted]] diff --git a/doc/SKvm.twp b/doc/SKvm.twp deleted file mode 100644 index 8d66b66..0000000 --- a/doc/SKvm.twp +++ /dev/null @@ -1,40 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: SKvm - -{{{ -SKvm: lancer une machine virtuelle kvm - -USAGE - SKvm [options] vmName - SKvm {-l|-A|-g} - -OPTIONS - -n, --check - Ne rien faire excepté s'assurer que les modules kvm sont chargés - -u, --user - Lancer l'opération avec les droits de l'utilisateur courant. Par défaut, - ce script tente d'acquérir les droits de root. - -l, --list - Lister les machines virtuelles - -s, --start - Démarrer la machine virtuelle (par défaut) - Si le nom de la machine virtuelle n'est pas spécifiée, un menu est - affiché - -k, --stop - Arrêter la machine virtuelle - -H, --destroy - Arrêter sauvagement la machine virtuelle - -r, --restart - Redémarrer la machine virtuelle - -S, --managed-save - Enregistrer l'état de la machine virtuelle - -A, --stop-all - Arrêter toutes les machines virtuelles qui tournent actuellement - -g, --gui - Afficher le gestionnaire de machines virtuelle -}}} diff --git a/doc/SVirtualBox.twp b/doc/SVirtualBox.twp deleted file mode 100644 index b07371d..0000000 --- a/doc/SVirtualBox.twp +++ /dev/null @@ -1,29 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: SVirtualBox - -{{{ -SVirtualBox: lancer une machine virtuelle VirtualBox - -USAGE - SVirtualBox [options] vmName - -OPTIONS - -n Ne rien faire excepté s'assurer que les modules VirtualBox sont chargés - -l Lister les machines virtuelles - -s Démarrer la machine virtuelle (par défaut) - Si le nom de la machine virtuelle n'est pas spécifiée, un menu est - affiché - -b Démarrer la VM sans interface graphique. Cette option n'est valide - qu'avec -s - -k Arrêter la machine virtuelle (par ACPI) - -p Mettre en veille la machine virtuelle (par ACPI) - -H Arrêter sauvagement la machine virtuelle - -R Redémarrer sauvagement la machine virtuelle - -S Enregistrer l'état de la machine virtuelle - -g Afficher le gestionnaire de machines virtuelle -}}} diff --git a/doc/SiteSubtitle.twp b/doc/SiteSubtitle.twp deleted file mode 100644 index 54da2b3..0000000 --- a/doc/SiteSubtitle.twp +++ /dev/null @@ -1,25 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -# Pense-bête: -# ''bold'' ==striked== __underline__ //italic// ^^super^^ ~~sub~~ -# @@highlight@@ @@color:red;background-color:white; rouge sur noir@@ -# ~NotAWikiWord [[force wikiword]] [[friendly name|WikiWord]] -# [[external|http://site.com]] ---- {{monospace}} -# !h1 !!h2 !!!h3 !!!!h4 !!!!!h5 -# * dotlist ** sublist # numlist ## sublist -# {{{ |caption|c [img[title|filename]] -# pre text |!header|!header|h [img[filename]] -# }}} |cell|cell| [img[title|filename][link]] -# <<< |>|colspan| [img[filename][link]] -# blockquote |rowspan|one| [img[filename]] -# >quote1 |left| right| -# >>quote2 |>| center | -# >>>quote3 -##@creator: jclain -##@created: 09/03/2012 05:08 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: SiteSubtitle - -Outils divers pour linux/macosx, et librairies pour bash diff --git a/doc/SiteTitle.twp b/doc/SiteTitle.twp deleted file mode 100644 index ed1c759..0000000 --- a/doc/SiteTitle.twp +++ /dev/null @@ -1,25 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -# Pense-bête: -# ''bold'' ==striked== __underline__ //italic// ^^super^^ ~~sub~~ -# @@highlight@@ @@color:red;background-color:white; rouge sur noir@@ -# ~NotAWikiWord [[force wikiword]] [[friendly name|WikiWord]] -# [[external|http://site.com]] ---- {{monospace}} -# !h1 !!h2 !!!h3 !!!!h4 !!!!!h5 -# * dotlist ** sublist # numlist ## sublist -# {{{ |caption|c [img[title|filename]] -# pre text |!header|!header|h [img[filename]] -# }}} |cell|cell| [img[title|filename][link]] -# <<< |>|colspan| [img[filename][link]] -# blockquote |rowspan|one| [img[filename]] -# >quote1 |left| right| -# >>quote2 |>| center | -# >>>quote3 -##@creator: jclain -##@created: 09/03/2012 05:08 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: SiteTitle - -nutools diff --git a/doc/SiteUrl.twp b/doc/SiteUrl.twp deleted file mode 100644 index bef6314..0000000 --- a/doc/SiteUrl.twp +++ /dev/null @@ -1,25 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -# Pense-bête: -# ''bold'' ==striked== __underline__ //italic// ^^super^^ ~~sub~~ -# @@highlight@@ @@color:red;background-color:white; rouge sur noir@@ -# ~NotAWikiWord [[force wikiword]] [[friendly name|WikiWord]] -# [[external|http://site.com]] ---- {{monospace}} -# !h1 !!h2 !!!h3 !!!!h4 !!!!!h5 -# * dotlist ** sublist # numlist ## sublist -# {{{ |caption|c [img[title|filename]] -# pre text |!header|!header|h [img[filename]] -# }}} |cell|cell| [img[title|filename][link]] -# <<< |>|colspan| [img[filename][link]] -# blockquote |rowspan|one| [img[filename]] -# >quote1 |left| right| -# >>quote2 |>| center | -# >>>quote3 -##@creator: jclain -##@created: 09/03/2012 05:08 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: SiteUrl - - diff --git a/doc/_root.twp b/doc/_root.twp deleted file mode 100644 index 8d9dad4..0000000 --- a/doc/_root.twp +++ /dev/null @@ -1,12 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:20 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: _root - -{{{ -_root: devenir l'utilisateur root, avec 'sudo' si possible, ou 'su' si -'sudo' n'est pas installé -}}} diff --git a/doc/apacheconfig.twp b/doc/apacheconfig.twp deleted file mode 100644 index e5f2c89..0000000 --- a/doc/apacheconfig.twp +++ /dev/null @@ -1,69 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: apacheconfig - -{{{ -apacheconfig: Gérer la configuration d'un serveur web apache - -USAGE - apacheconfig -c - apacheconfig -t -- args... - -OPTIONS - -c, --create - Créer un nouveau répertoire de configuration pour un hôte - -d, --destdir DESTDIR[=apacheconfig] - Nom du répertoire local de configuration. - - -t, --template [OPT] - Gérer les fichiers du répertoire local avec templatectl. La valeur de - cette option est utilisée comme argument court pour l'invocation de - templatectl, e.g - apacheconfig -tm args - est équivalent à - templatectl -m args - Les arguments qui restent sont passés tels quels à templatectl - Les options courantes de templatectl -l, -v, -m, -L sont disponibles - directement - --help-template - Afficher l'aide concernent la gestion des templates. - Equivalent à -t -- --help - -h, --host HOST - Spécifier l'hôte. Equivalent à -v host=HOST - --sysname SYSNAME - --sysdist SYSDIST - -s, --sysver SYSVER - Spécifier la distribution pour laquelle synchroniser le template. Par - défaut, choisir les valeurs correspondantes au système courant. - Les options -7 et -8 sont des aliases respectivement pour -s wheezy et - -s jessie, parce que les fichiers par défaut ont changé à partir de - debian jessie. - - -u, --update, --deploy - Mettre à jour la configuration système à partir du répertoire local. - Lors du déploiement de la configuration, les valeurs des variables - dynamiques sont remplacées dans les fichiers destination. - Les arguments qui restent sont passés tels quels à apache_autoconf - -r, --certsdir CERTSDIR - Spécifier le cas échéant le répertoire contenant les certificats à - déployer. Cet argument est requis si le répertoire certsconf/ existe. - - --localhosts - Créer dans le fichier /etc/hosts tous les noms d'hôte ayant un suffixe - .local mentionnés dans les fichiers de site. Cette option est utile pour - le développement et les tests. - -C, --one-conf CONF - Ne déployer que le fichier de configuration spécifié. Cette option est - utilisée avec --deploy et est utile pour le développement et les tests. - -M, --one-module MODULE - Ne déployer que le fichier de module spécifié. Cette option est utilisée - avec --deploy et est utile pour le développement et les tests. - -S, --one-site SITE - Ne déployer que le fichier de site spécifié. Cette option est utilisée - avec --deploy ou --localhosts et est utile pour le développement et les - tests. -}}} diff --git a/doc/authftp.twp b/doc/authftp.twp deleted file mode 100644 index f132efe..0000000 --- a/doc/authftp.twp +++ /dev/null @@ -1,39 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: authftp - -{{{ -authftp: Se connecter sur un site FTP authentifié -Ce script nécessite ncftp. Il est conçu pour faciliter l'accès à des sites FTP -s'il est requis d'y accéder par un proxy FTP pour les connexion authentifiées. - -USAGE - authftp [options] host login password [path] - -OPTIONS - -p, --proxy - -n, --noproxy - Forcer l'utilisation, resp. ne pas utiliser, le proxy FTP (i.e. faire la - connexion directement) - -l, --lftp - Se connecter avec lftp au lieu de ncftp. Le fonctionnement n'est pas - garanti si l'on utilise un proxy FTP. - -o OPTION - Ajouter une option à la commande lancée. Si l'option prend un argument, - il faut doubler l'option -o, e.g. - authftp -l -o -e -o 'mirror remote local' host login pass - Dans cet exemple, l'option -e de lftp est utilisée pour faire un miroir - local du répertoire remote. - --tls - Indiquer que la connexion se fera en TLS. Implique --lftp puisque ncftp - ne le supporte pas. - -note: A cause d'une limitation de lftp, ce n'est pas possible de se connecter -automatiquement avec lftp si le mot de passe contient une virgule. A cause de la -façon dont le proxy ftp est configuré, il n'est pas possible de se connecter -avec un mot de passe qui contient le caractère @ -}}} diff --git a/doc/caturl.twp b/doc/caturl.twp deleted file mode 100644 index 9d677f2..0000000 --- a/doc/caturl.twp +++ /dev/null @@ -1,20 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 13/05/2016 09:36 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: caturl - -{{{ -caturl: Afficher une url - -USAGE - caturl - -OPTIONS - -c, --check - Vérifier que le fichier est valide - -g, --get - Attaquer l'url spécifiée avec curl -}}} diff --git a/doc/compileAndGo.twp b/doc/compileAndGo.twp deleted file mode 100644 index 0a401cf..0000000 --- a/doc/compileAndGo.twp +++ /dev/null @@ -1,11 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: compileAndGo - -{{{ -compileAndGo: see http://Yost.com/computers/compileAndGo -}}} diff --git a/doc/cssh.twp b/doc/cssh.twp deleted file mode 100644 index 228e26e..0000000 --- a/doc/cssh.twp +++ /dev/null @@ -1,18 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: cssh - -{{{ -cssh: Faire une connexion ssh en lançant automatiquement un screen sur l'hôte distant - -USAGE - cssh [user@]host [options] - -En principe, hormis l'argument user@host, il ne faudrait spécifier que des -options. Dans le cas où d'autres arguments seraient spécifiés, les meilleurs -efforts sont faits pour lancer ces commandes avant screen. -}}} diff --git a/doc/doinplace.twp b/doc/doinplace.twp deleted file mode 100644 index 6d291d5..0000000 --- a/doc/doinplace.twp +++ /dev/null @@ -1,35 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: doinplace - -{{{ -doinplace: filtrer en place un fichier à travers une suite de commandes - -USAGE - doinplace FILE COMMAND [ARGS...] - -Si on utilise une commande avec des options, penser à utliser '--' pour séparer -les options de ce script des options de la commande - -En plus des commandes systèmes, il est possible d'utiliser toute fonction de -nutools qui effectue des traitement sur un flux comme stripnl, filter_empty, -merge_contlines, filter_comment, filter_conf, etc. Les fonctions nl2lf, nl2crlf, -nl2cr, latin1compat et noaccents sont aussi disponibles par convenance. - -OPTIONS - -p, --evalp - Evaluer la commande avec evalp(), ce qui permet de chainer plusieurs - commandes en les séparant par //. Cette option est automatiquement - activée si ce script est lancé avec le nom doinplacex - -g, --ignore-error, --replace-always - Normalement, le fichier n'est pas remplacé si la commande retourne une - erreur. Avec cette option, le fichier est remplacé quel que soit le code - de retour de la commande. A utiliser par exemple avec des commandes - comme grep qui peuvent retourner FAUX s'ils ne trouvent pas le motif. - Cette option est automatiquement activée si ce script est lancé avec le - nom doinplacef -}}} diff --git a/doc/dumpclients.twp b/doc/dumpclients.twp deleted file mode 100644 index 6983b14..0000000 --- a/doc/dumpclients.twp +++ /dev/null @@ -1,30 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: dumpclients - -{{{ -dumpclients: afficher les connexions TCP entrantes sur un port - -USAGE - dumpclients [options] port - -OPTIONS - -4, --only-tcp - -6, --only-tcp6 - Se limiter au protocole spécifié. Par défaut, afficher toutes les - connexions, qu'elles soient en IPv4 ou en IPv6 - -a, --all - Afficher tous les sockets, y compris les ports d'écoute. Par défaut, - seules les sockets ouvertes sont affichées. - -n, --numeric - Afficher uniquement les adresses IP au lieu du nom d'hôte. - -z, --allow-no-port - Ne pas exiger que le port soit spécifié - --show none,ip,port,state - Spécifier d'afficher comme informations supplémentaire: rien, l'adresse - ip, le port et/ou l'état. Par défaut, afficher le port et l'état. -}}} diff --git a/doc/em.twp b/doc/em.twp deleted file mode 100644 index e405ebf..0000000 --- a/doc/em.twp +++ /dev/null @@ -1,95 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: em - -{{{ -Usage: /usr/bin/emacs [OPTION-OR-FILENAME]... - -Run Emacs, the extensible, customizable, self-documenting real-time -display editor. The recommended way to start Emacs for normal editing -is with no options at all. - -Run M-x info RET m emacs RET m emacs invocation RET inside Emacs to -read the main documentation for these command-line arguments. - -Initialization options: - ---batch do not do interactive display; implies -q ---daemon start a server in the background ---debug-init enable Emacs Lisp debugger for init file ---display, -d DISPLAY use X server DISPLAY ---no-desktop do not load a saved desktop ---no-init-file, -q load neither ~/.emacs nor default.el ---no-shared-memory, -nl do not use shared memory ---no-site-file do not load site-start.el ---no-splash do not display a splash screen on startup ---no-window-system, -nw do not communicate with X, ignoring $DISPLAY ---quick, -Q equivalent to -q --no-site-file --no-splash ---script FILE run FILE as an Emacs Lisp script ---terminal, -t DEVICE use DEVICE for terminal I/O ---user, -u USER load ~USER/.emacs instead of your own - -Action options: - -FILE visit FILE using find-file -+LINE go to line LINE in next FILE -+LINE:COLUMN go to line LINE, column COLUMN, in next FILE ---directory, -L DIR add DIR to variable load-path ---eval EXPR evaluate Emacs Lisp expression EXPR ---execute EXPR evaluate Emacs Lisp expression EXPR ---file FILE visit FILE using find-file ---find-file FILE visit FILE using find-file ---funcall, -f FUNC call Emacs Lisp function FUNC with no arguments ---insert FILE insert contents of FILE into current buffer ---kill exit without asking for confirmation ---load, -l FILE load Emacs Lisp FILE using the load function ---visit FILE visit FILE using find-file - -Display options: - ---background-color, -bg COLOR window background color ---basic-display, -D disable many display features; - used for debugging Emacs ---border-color, -bd COLOR main border color ---border-width, -bw WIDTH width of main border ---color, --color=MODE override color mode for character terminals; - MODE defaults to `auto', and can also - be `never', `auto', `always', - or a mode name like `ansi8' ---cursor-color, -cr COLOR color of the Emacs cursor indicating point ---font, -fn FONT default font; must be fixed-width ---foreground-color, -fg COLOR window foreground color ---fullheight, -fh make the first frame high as the screen ---fullscreen, -fs make first frame fullscreen ---fullwidth, -fw make the first frame wide as the screen ---maximized, -mm make the first frame maximized ---geometry, -g GEOMETRY window geometry ---no-bitmap-icon, -nbi do not use picture of gnu for Emacs icon ---iconic start Emacs in iconified state ---internal-border, -ib WIDTH width between text and main border ---line-spacing, -lsp PIXELS additional space to put between lines ---mouse-color, -ms COLOR mouse cursor color in Emacs window ---name NAME title for initial Emacs frame ---no-blinking-cursor, -nbc disable blinking cursor ---reverse-video, -r, -rv switch foreground and background ---title, -T TITLE title for initial Emacs frame ---vertical-scroll-bars, -vb enable vertical scroll bars ---xrm XRESOURCES set additional X resources ---parent-id XID set parent window ---help display this help and exit ---version output version information and exit - -You can generally also specify long option names with a single -; for -example, -batch as well as --batch. You can use any unambiguous -abbreviation for a --option. - -Various environment variables and window system resources also affect -Emacs' operation. See the main documentation. - -Report bugs to bug-gnu-emacs@gnu.org. First, please see the Bugs -section of the Emacs manual or the file BUGS. -}}} diff --git a/doc/fconv.twp b/doc/fconv.twp deleted file mode 100644 index 5306686..0000000 --- a/doc/fconv.twp +++ /dev/null @@ -1,64 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: fconv - -{{{ -fconv: convertir un fichier ou les fichiers d'un répertoire - -USAGE - fconv -f FILE [cmds...] - fconv FILE [cmds...] - -Une ou plusieurs commandes peuvent être spécifiées, séparées par // -La commande par défaut est 'lf' -Si des commandes utilisant des options sont utilisées, penser à séparer les -options de fconv avec -- - -OPTIONS - -N, --detect-always - Pour la commande conv, ne pas optimiser le calcul de l'encoding. Cette - option n'est valide que si src_enc n'est pas spécifié. On assume que - tous les fichiers n'ont pas le même encoding: l'encoding src_enc est - donc recalculé à chaque fois. - -r, --reverse - Pour la commande conv, inverser src_enc et dest_enc, qui doivent être - tous les deux spécifiés. - -f, --file FILE - Spécifier le fichier ou le répertoire concerné par la conversion. Les - aliases -d et --dir sont aussi reconnus. - Si cette option n'est pas spécifiée, le premier argument est considéré - comme le nom du fichier ou du répertoire à convertir. Par défaut, - convertir l'entrée standard. - Si un répertoire est spécifié, tous les fichiers de ce répertoire et de - ses sous-répertoires sont recherchés de façon récursive, sans limite de - profondeur. Ensuite, chacun de ces fichiers est converti. - --show-cmd - Afficher la commande qui serait exécutée - -COMMANDES - c, conv dest_enc [src_enc] - Convertir le fichier dans un autre encoding. - dest_enc est l'encoding destination. Il doit être spécifié. - src_enc est l'encoding source. S'il n'est pas spécifié ou vaut 'detect', - il est autodétecté. - U, utf8 [src_enc] - Equivalent à conv utf8 src_enc - L, latin1 [src_enc] - Equivalent à conv latin1 src_enc - lf - crlf - cr - Convertir respectivement les caractères de fin de ligne en LF, CR/LF ou CR - lc, latin1compat - Transformer certains caratères UTF-8 en équivalents qui existent en Latin1 - na, noaccents - Transformer les caractères accentués en caractères non accentués - sort [-u] - Trier le fichier avec la commande sort. Attention! Il ne faut utiliser - que les options de sort qui agissent sur un flux e.g. -u pour trier les - lignes de façon unique. -}}} diff --git a/doc/fnconv.twp b/doc/fnconv.twp deleted file mode 100644 index 7337bce..0000000 --- a/doc/fnconv.twp +++ /dev/null @@ -1,58 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: fnconv - -{{{ -fnconv: renommer un fichier ou les fichiers d'un répertoire - -USAGE - fnconv -f FILE [cmds...] - fnconv FILE [cmds...] - -Une ou plusieurs commandes peuvent être spécifiées, séparées // -La commande par défaut est 'fixcase' - -OPTIONS - -N, --detect-always - Pour la commande conv, ne pas optimiser le calcul de l'encoding. Cette - option n'est valide que si src_enc n'est pas spécifié. On assume que - tous les fichiers n'ont pas le même encoding: l'encoding src_enc est - donc recalculé à chaque fois. - -r, --reverse - Pour la commande conv, inverser src_enc et dest_enc, qui doivent être - tous les deux spécifiés. - -f, --file FILE - Spécifier le fichier ou le répertoire concerné par le renommage. Les - aliases -d et --dir sont aussi reconnus. - Si cette option n'est pas spécifiée, le premier argument est considéré - comme le nom du fichier ou du répertoire à renommer. - Si un répertoire est spécifié, le traitement est appliqué à tous les - fichiers et répertoires de façon récursive, sans limite de profondeur. - --show-cmd - Afficher la commande qui serait exécutée - -COMMANDES - C, conv dest_enc [src_enc] - Convertir le nom du fichier dans un autre encoding. - dest_enc est l'encoding destination. Il doit être spécifié. - src_enc est l'encoding source. S'il n'est pas spécifié ou vaut 'detect', - il est autodétecté. - U, utf8 [src_enc] - Equivalent à conv utf8 src_enc - L, latin1 [src_enc] - Equivalent à conv latin1 src_enc - lc, latin1compat - Transformer certains caratères UTF-8 en équivalents qui existent en Latin1 - na, noaccents - Transformer les caractères accentués en caractères non accentués - l, lowercase - Transfomer le nom en minuscule - u, uppercase - Transformer le nom en majuscule - f, fixcase - Transformer le nom en minuscule s'il est entièrement en majuscule -}}} diff --git a/doc/geturl.twp b/doc/geturl.twp deleted file mode 100644 index 1ec3d76..0000000 --- a/doc/geturl.twp +++ /dev/null @@ -1,14 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: geturl - -{{{ -geturl: Télécharger un fichier avec wget ou curl - -USAGE - geturl [wget options] -}}} diff --git a/doc/index.md b/doc/index.md index 374a8f1..2762f05 100644 --- a/doc/index.md +++ b/doc/index.md @@ -20,16 +20,16 @@ Chaque outil contient une aide intégrée. Il suffit de lancer l'outil avec l'argument `--help` pour avoir une aide détaillée. * Déploiement d'un répertoire ou d'une archive - * [uinst](): Déploiement local - * [mkusfx](): Faire une archive auto-installable avec uinst - * [ruinst](): Déploiement distant avec uinst - * [runs](): Lancer un script avec le protocole RUNS - * [rruns](): Déploiement distant avec runs + * [uinst](tools/uinst): Déploiement local + * [mkusfx](tools/mkusfx): Faire une archive auto-installable avec uinst + * [ruinst](tools/ruinst): Déploiement distant avec uinst + * [runs](tools/runs): Lancer un script avec le protocole RUNS + * [rruns](tools/rruns): Déploiement distant avec runs * Librairie réutilisable de scripts shell - * [uinc](): Dépliage des inclusions dans un fichier - * [ulibsync](): Faire une copie locale pour un projet de ulib et/ou pyulib + * [uinc](tools/uinc): Dépliage des inclusions dans un fichier + * [ulibsync](tools/ulibsync): Faire une copie locale pour un projet de ulib et/ou pyulib * Autres outils - * [udir](): Gestion des paramètres d'un répertoire. Ces paramètres sont entre - autres utilisés par uinst et uinc. + * [udir](tools/udir): Gestion des paramètres d'un répertoire. Ces paramètres sont entre + autres utilisés par uinst et uinc. -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8:noeol:binary \ No newline at end of file diff --git a/doc/mkRewriteRules.twp b/doc/mkRewriteRules.twp deleted file mode 100644 index 2b1c35c..0000000 --- a/doc/mkRewriteRules.twp +++ /dev/null @@ -1,86 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: mkRewriteRules - -{{{ -mkRewriteRules: Créer un fichier de redirections pour Apache à partir d'un certain -nombre de règles - -USAGE - mkRewriteRules -f rewrite.rules [-o RewriteRules.conf] [-w RewriteRules.html] host - -OPTIONS - -p Générer les directives et tenir compte de proxy_acls - Par défaut, le champ proxy_acls est ignoré - -FORMAT des règles de mapping -============================ - -Les commentaires commencent par le signe "#" -Les règles sont de la forme: - src:dest:host:suffix:OPTS:prot:proxy_acls - ^prefix - =literal - -prot vaut par défaut http. Il peut valoir aussi https - -Si dest ou suffix se terminent par $, on est en mode NO_SLASH -En mode NO_SLASH, si src se termine par $, on est en mode NO_TRAIL - -* Si dest est de la forme Application.woa -En mode NO_SLASH, on génère - RewriteRule ^/src(.*) [prot://host]/cgi-bin/WebObjects/dest[/suffix]$1 [L,OPTS] -En mode NO_SLASH+NO_TRAIL, on génère - RewriteRule ^/src [prot://host]/cgi-bin/WebObjects/dest[/suffix] [L,OPTS] -En mode normal, on génère - RewriteRule ^/src$ /src/ - RewriteRule ^/src/(.*) [prot://host]/cgi-bin/WebObjects/dest[/suffix]/$1 [L,OPTS] - -* Si dest n'est pas de la forme Application.woa -En mode NO_SLASH, on génère - RewriteRule ^/src(.*) [prot://host]/dest[/suffix]$1 [L,OPTS] -En mode NO_SLASH+NO_TRAIL, on génère - RewriteRule ^/src [prot://host]/dest[/suffix] [L,OPTS] -En mode normal, on génère - RewriteRule ^/src$ /src/ - RewriteRule ^/src/(.*) /dest[/suffix]/$1 [L,OPTS] - -Si une règle est précédée d'une ou plusieurs lignes de la forme "^prefix", -ces lignes sont copiées avant chacune des commandes RewriteRule générées -pour une règle. Ceci permet d'ajouter des conditions avec RewriteCond pour -une règle. e.g. - ^RewriteCond %{REMOTE_ADDR} 10\..* - src:dest.woa -qui génère: - RewriteCond %{REMOTE_ADDR} 10\..* - RewriteRule ^/src$ /src/ - RewriteCond %{REMOTE_ADDR} 10\..* - RewriteRule ^/src/(.*) /cgi-bin/WebObjects/dest.woa/$1 [L] - -Une ligne de la forme "=literal" est recopiée sans modifications (sans le "=") -dans le fichier de sortie. - -proxy_acls est utilisé si l'option -p est spécifiée et OPTS contient P (comme -proxy), ou si le mode de réécriture requière l'utilisation d'un proxy. - -* Avec la valeur "None", aucune directive n'est générée -* Si aucune valeur n'est spécifiée, la directive suivante est générée: - - AddDefaultCharset off - Order Deny,Allow - Allow from all - -* Si une valeur est spécifiée, la directive suivante est générée: - - AddDefaultCharset off - Order Allow,Deny - Allow from $proxy_acls - - -Dans les exemples donnés ci-dessus, $URL est l'url générée par la réécriture, -et $proxy_acls la valeur du champ proxy_acls spécifiée ci-dessus. -}}} diff --git a/doc/mkiso.twp b/doc/mkiso.twp deleted file mode 100644 index a42ac0c..0000000 --- a/doc/mkiso.twp +++ /dev/null @@ -1,25 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: mkiso - -{{{ -mkiso: créer une image iso d'un répertoire - -USAGE - mkiso [options] srcdir [dest.iso] - -OPTIONS - -M, --hfs - créer une image hybride ISO/HFS - -V, --volume - Nom du volume. Par défaut, prendre le nom de base du répertoire - d'origine. La taille est de 32 caractères max. - -A, --application - Description de l'application qui est sur l'image créée. Par défaut, - prendre le nom de base du répertoire d'origine. La taille est de 128 - caractères max. -}}} diff --git a/doc/mkurl.twp b/doc/mkurl.twp deleted file mode 100644 index 660d3a3..0000000 --- a/doc/mkurl.twp +++ /dev/null @@ -1,20 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:20 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: mkurl - -{{{ -mkurl: Enregistrer une url dans un fichier raccourci - -USAGE - mkurl [output] - -OPTIONS -Par défaut, l'url est enregistrée dans un fichier homepage.url -Mais il est possible de spécifier un fichier avec l'extension .url pour un -raccourci utilisable aussi sous Windows, ou avec l'extension .desktop pour -compatibilité avec le standard XDG -}}} diff --git a/doc/mkusfx.twp b/doc/mkusfx.twp deleted file mode 100644 index 6da2c22..0000000 --- a/doc/mkusfx.twp +++ /dev/null @@ -1,35 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:20 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: mkusfx - -{{{ -mkusfx: Créer une archive auto-extractible qui installe son contenu avec uinst - -USAGE - mkusfx [options] [--bare] src cmd... - mkusfx [options] [--uinst] src - -OPTIONS - --bare - Installer le contenu de l'archive en lançant la commande 'cmd...' avec - le répertoire courant étant le contenu de l'archive. Typiquement, ce - sera une commande de forme './script', où script est un fichier situé à - la racine de l'archive - Dans ce mode d'installation, l'option --self-contained est ignorée. - --uinst - Installer le contenu de l'archive avec uinst (par défaut) - -o dest - Spécifier le fichier de sortie. Par défaut, il s'agit de - ${src}-installer.run - --tmp-archive - Spécifier qu'il s'agit d'une archive temporaire. Cette archive - s'auto-détruit après utilisation. - --self-contained - Spécifier que l'archive doit pouvoir s'installer même sur un système sur - lequel nutools n'est pas installé. Cette archive contiendra une copie - locale de ulib et uinst.sh -}}} diff --git a/doc/mocifs.twp b/doc/mocifs.twp deleted file mode 100644 index 7cea103..0000000 --- a/doc/mocifs.twp +++ /dev/null @@ -1,30 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: mocifs - -{{{ -mocifs: Monter un partage Windows/Samba/CIFS - -USAGE - mocifs [user@]host[/path] [mountpoint] - -Par défaut, le répertoire distant est montée sur un répertoire avec le même nom -de base que l'hôte. Si le répertoire distant est déjà monté, il est démonté. -Les options -M et -U permettent de modifier le comportement par défaut. - -OPTIONS - -M - Forcer le montage - -U - Forcer le démontage - -o OPTIONS - Ajouter les options spécifiées à la commande de montage mount.cifs - -u USERNAME - -p PASSWORD - -c USERNAME:PASSWORD - Spécifier les credentials à utiliser pour la connexion -}}} diff --git a/doc/modav.twp b/doc/modav.twp deleted file mode 100644 index 13556bc..0000000 --- a/doc/modav.twp +++ /dev/null @@ -1,44 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: modav - -{{{ -modav: Monter un répertoire sur un hôte distant avec davfs - -USAGE - modav http[s]://host[/path] [mountpoint] - -Par défaut, le répertoire distant est montée sur un répertoire avec le même nom -de base que l'hôte. Si le répertoire distant est déjà monté, il est démonté. -Les options -M et -U permettent de modifier le comportement par défaut. - -OPTIONS - -M - Forcer le montage - -U - Forcer le démontage - -o OPTIONS - Ajouter les options spécifiées à la commande de montage - -u USERNAME - -p PASSWORD - -c USERNAME:PASSWORD - Si les credentials à utiliser ne sont pas configuré dans le fichier - /etc/davfs2/secrets, cette option permet de les spécifier. Si cette - option est utilisée, il est possible de rajouter - ask_auth 0 - dans le fichier /etc/davfs2/davfs2.conf pour éviter le conflit qui se - produit quand des informations sont demandées interactivement. C'est le - cas par exemple si une connexion en https est faite et que la chaine de - certification n'est pas configurée. Pour mémoire, cela se fait avec - servercert myCAs.pem - dans le fichier /etc/davfs2/davfs2.conf - Bien entendu, il est préférable de configurer les credentials dans le - fichier /etc/davfs2/secrets avec la syntaxe - url username password - ou - mountpoint username password -}}} diff --git a/doc/moiso.twp b/doc/moiso.twp deleted file mode 100644 index e8ec2be..0000000 --- a/doc/moiso.twp +++ /dev/null @@ -1,24 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: moiso - -{{{ -moiso: Monter une image ISO - -USAGE - moiso image.iso [mountpoint] - -Par défaut, l'image iso est montée sur un répertoire avec le même nom de base. -Si l'image est déjà montée, elle est démontée. Les options -m et -u permettent -de modifier le comportement par défaut. - -OPTIONS - -m - Forcer le montage - -u - Forcer le démontage -}}} diff --git a/doc/mossh.twp b/doc/mossh.twp deleted file mode 100644 index 0a64a06..0000000 --- a/doc/mossh.twp +++ /dev/null @@ -1,33 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: mossh - -{{{ -mossh: Monter un répertoire sur un hôte distant avec sshfs - -USAGE - mossh [user@]host[:/path] [mountpoint] - -Par défaut, le répertoire distant est montée sur un répertoire avec le même nom -de base que l'hôte. Si le répertoire distant est déjà monté, il est démonté. -Les options -M et -U permettent de modifier le comportement par défaut. - -OPTIONS - -M - Forcer le montage - -U - Forcer le démontage - -o OPTIONS - Ajouter les options spécifiées à la commande de montage - -s - Equivalent à -o allow_other ou -o allow_root selon que l'on est root ou - non - -u USER - Spécifier le user pour la connexion distante, s'il n'est pas possible de - le spécifier dans l'url. En cas de conflit, la valeur dans l'url est - prioritaire par rapport à cette option. -}}} diff --git a/doc/mysqlcsv.twp b/doc/mysqlcsv.twp deleted file mode 100644 index 24590c0..0000000 --- a/doc/mysqlcsv.twp +++ /dev/null @@ -1,69 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: mysqlcsv - -{{{ -mysqlcsv: Faire une requête MySQL et formater la sortie pour traitement avec awkcsv - -USAGE - mysqlcsv [query [db]] [-- mysql options] - -query est la requête sql à exécuter. Si query n'est pas spécifiée, la(les) - requête(s) sql sont prises sur l'entrée standard, ou depuis un fichier - si l'option -f est spécifiée. -db est le nom de la base de données. Cette argument n'est lu que si le nom - de la base de donnée n'est ni spécifié dans le fichier de configuration, - ni spécifié avec l'option -D - -OPTIONS - -h, --host HOST - -P, --port PORT - -u, --user USER - -pPASSWORD - -D, --database DATABASE - Informations de connexion à la base de données - -C, --config CONFIG - Prendre les informations de connexion depuis le fichier spécifié. - Le fichier doit être de la forme - host=HOST - #post=3306 - user=USER - password=PASS - #database=DB - #query=QUERY - Les variables port, database et query sont facultatives. - Les valeurs définies dans ce fichier sont prioritaires par rapport à - celles qui auraient été spécifiées sur la ligne de commande. - Utiliser password=--NOT-SET-- s'il faut se connecter sans mot de passe - Cette option peut être utilisée plusieurs fois, auquel cas les fichiers - sont chargés dans l'ordre. - --profile PROFILE - La variable $PROFILE est définie avec la valeur spécifiée avant de - sourcer les fichiers de configuration. Cela permet d'avoir des fichiers - de configuration qui calculent dynamiquement les paramètres en fonction - de la valeur du profil. - -N, --no-headers - Ne pas afficher les en-têtes - -c, --force - Continuer le traitement même en cas d'erreur - -r, --raw - Ne pas autoriser mysql à mettre en échappement certaines valeurs - retournées par le serveur. Par défaut, les transformations suivantes - sont effectuées: - newline --> \n - tab --> \t - nul --> \0 - \ --> \\ - -n, --nulls - Transformer dans le flux en sortie les valeurs NULL en chaines vides - -f, --input INPUT - Lire la requête depuis le fichier input au lieu de le lire depuis la - ligne de commande ou l'entrée standard. Ne pas spécifier cette option - ou utiliser '-' pour lire depuis l'entrée standard. - Cette option est ignorée si la requête est spécifiée parmi les - arguments. -}}} diff --git a/doc/mysqlloadcsv.twp b/doc/mysqlloadcsv.twp deleted file mode 100644 index d07938f..0000000 --- a/doc/mysqlloadcsv.twp +++ /dev/null @@ -1,112 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: mysqlloadcsv - -{{{ -mysqlloadcsv: Charger une table MySQL avec un fichier csv - -USAGE - mysqlloadcsv [db.]table [fields...] [-- mysql options] - -db est le nom de la base de données -table est le nom de la table à charger -fields est la liste des colonnes. Si cette valeur est spécifiée, il faudra - peut-être utiliser l'option -s pour ignorer le cas échéant la ligne des - en-têtes dans le fichier en entrée. Sinon, les colonnes à utiliser sont - calculées à partir du fichier en entrée. - -Dans les données en entrées, qui doivent être en UTF8, les conversions suivantes -sont effectuées par MySQL: - - \0 --> - \b --> - \n --> - \r --> - \t --> - \Z --> Ctrl+Z - \N --> NULL - -OPTIONS - -h, --host host - -P, --port port - -u, --user user - -ppassword - Informations de connexion à la base de données - -C, --config CONFIG - Prendre les informations de connexion depuis le fichier spécifié. - Le fichier doit être de la forme - host=HOST.TLD - #post=3306 - user=USER - password=PASS - #dbtable=DB.TABLE - #fields=(FIELDS...) - # Il est possible aussi de spécifier DB et TABLE séparément: - #database=DB - #table=TABLE - Les variables port, dbtable et fields sont facultatives. - Les valeurs définies dans ce fichier sont prioritaires par rapport à - celles qui auraient été spécifiées sur la ligne de commande. - Utiliser password=--NOT-SET-- s'il faut se connecter sans mot de passe - Cette option peut être utilisée plusieurs fois, auquel cas les fichiers - sont chargés dans l'ordre. - --profile PROFILE - La variable $PROFILE est définie avec la valeur spécifiée avant de - sourcer les fichiers de configuration. Cela permet d'avoir des fichiers - de configuration qui calculent dynamiquement les paramètres en fonction - de la valeur du profil. - -f, --input INPUT - Fichier en entrée. Ne pas spécifier cette option ou utiliser '-' pour - lire depuis l'entrée standard. - -d, --auto-dbtable DB - Spécifier la base de données avec laquelle se connecter. De plus, si le - nom de la table n'est pas spécifié, prendre par défaut le nom de base du - fichier spécifié avec l'option -f - -s, --skip-lines NBLINES - Nombre de lignes à sauter dans le fichier en entrée - -n, --fake - Ne pas effectuer l'opération. Afficher simplement la commande SQL. - --run - Forcer le lancement de l'opération. Utiliser cette option avec -A pour - créer la table avec les paramètres analysés. - -T, --truncate - Vider la table avant d'effectuer le chargement - -L, --load-data - Charger les données avec la commande 'load data local'. C'est l'option - par défaut. Le fichier est transmis tel quel à MySQL. - -I, --insert-data - Charger les données en générant des commandes 'insert into'. L'effet est - en principe le même avec l'option -L (sauf que certains formats de date - exotiques seront correctement importés). Cette option peut aussi être - utilisée avec l'option -n pour générer une liste de commande à corriger - et/ou adapter. - -U, -k, --update-data KEY - Au lieu de charger de nouvelles données, essayer de mettre à jour la - table. KEY est le nom de la colonne qui est utilisée comme clé. Toutes - les autres colonnes sont les nouvelles données à mettre à jour. Si - aucune ligne ne correspond à une clé donnée, la mise à jour pour cette - ligne est ignorée. - Note: utiliser les options -T et -U ensemble n'a pas de sens, mais -T - est quand même honoré. - -Z, --null-value VALUE - Avec les options -I et -U, considérer que NULL est représenté par la - chaine spécifiée. Par défaut, utiliser \N - -z, --null-is-empty - Avec les options -I et -U, considérer que NULL est représenté par la - chaine vide. Cette option est équivalente à -Z '' - -t, --types [DEFAULT_TYPE,]FIELD:TYPE,... - Spécifier pour chaque champ mentionné le type de donnée à forcer. Le - type 'auto' signifie que le type est autodétecté. C'est la valeur par - défaut. Les autres types valides sont 'str', 'int' et 'date' - Cette option est ignorée avec l'option -L - -A, --analyse - Analyser les données et afficher une requête pour créer une table qui - pourrait contenir ces données. - Cette option implique --fake et affiche simplement la commande SQL. - Pour lancer la commande SQL générée, il faut ajouter l'option --run - APRES cette option -}}} diff --git a/doc/noerr.twp b/doc/noerr.twp deleted file mode 100644 index ca9e012..0000000 --- a/doc/noerr.twp +++ /dev/null @@ -1,11 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: noerr - -{{{ -noerr: lancer une commande en supprimant la sortie d'erreur -}}} diff --git a/doc/noerror.twp b/doc/noerror.twp deleted file mode 100644 index 08abded..0000000 --- a/doc/noerror.twp +++ /dev/null @@ -1,11 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: noerror - -{{{ -noerror: lancer une commande en masquant son code de retour. le code de retour est toujours 0 -}}} diff --git a/doc/noout.twp b/doc/noout.twp deleted file mode 100644 index cc2b854..0000000 --- a/doc/noout.twp +++ /dev/null @@ -1,11 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: noout - -{{{ -noout: lancer une commande en supprimant la sortie standard -}}} diff --git a/doc/nutools.twp b/doc/nutools.twp deleted file mode 100644 index f0accb6..0000000 --- a/doc/nutools.twp +++ /dev/null @@ -1,38 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: nutools - -{{{ -nutools: configurer ou afficher des informations sur nutools - -USAGE - nutools [VERSION] - -OPTIONS - -C, --configure - Faire la configuration pour l'utilisateur courant en appelant uenv -u - Avec cette option, l'option -l (ou --local-profiles) est aussi reconnue - et est passée directement à uenv - -v, --version - Afficher la version de nutools installée. C'est l'option par défaut - -c, --check - Calculer si la version installée correspond à la version spécifiée - -o, --oper OPERATOR - Spécifier l'opérateur à utiliser avec l'option --check (par défaut, - utiliser l'opérateur ge, qui permet de vérifier si la version minimum - spécifiée est installée) - --eq - --ne - --lt - --le - --gt - --ge - --same - --diff - Ces options sont des raccourcis. L'option '--OP' est équivalente à - '--check --op OP' -}}} diff --git a/doc/openurl.twp b/doc/openurl.twp deleted file mode 100644 index ec66ae0..0000000 --- a/doc/openurl.twp +++ /dev/null @@ -1,14 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:20 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: openurl - -{{{ -openurl: Ouvrir une URL dans un navigateur - -USAGE - openurl -}}} diff --git a/doc/pdev.twp b/doc/pdev.twp deleted file mode 100644 index 5ad1858..0000000 --- a/doc/pdev.twp +++ /dev/null @@ -1,90 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: pdev - -{{{ -pdev: basculer sur une branche de développement - -USAGE - pdev [FEATURE [SOURCE]] - pdev -m|-l|-d [FEATURE] - -- Vérifier l'existence de la branche develop. La créer si nécessaire en la - basant sur [origin/]master. -- Vérifier s'il n'y a pas de modifications locales. Sinon, proposer de faire un - commit ou un stash. -- Si FEATURE est spécifié, et si on n'est pas déjà sur cette branche, basculer - vers cette nouvelle branche. S'il s'agit d'une nouvelle branche, la baser sur - la branche SOURCE, qui vaut par défaut develop -- Si FEATURE n'est pas spécifié, basculer sur develop s'il s'agit de la seule - solution, sinon afficher un menu pour choisir la branche de destination. - -OPTIONS - -C, --projdir PROJDIR - Spécifier le répertoire de base du projet qui est dans git. Par défaut, - on travaille dans le répertoire courant et on laisse git trouver le - répertoire de base du projet. Avec cette option, le répertoire courant - est modifié avant de lancer les commandes git. - -O, --origin ORIGIN - Spécifier le nom de l'origine. Par défaut, utiliser 'origin' - -o, --offline - En cas de création d'une branche, ne pas pousser vers l'origine; ne pas - tenter le cas échéant de traquer la branche dans l'origine; ne pas - supprimer une branche dans l'origine. Cette option est automatiquement - activée si la variable UTOOLS_VCS_OFFLINE est définie. - --online - Annuler l'effet de la variable UTOOLS_VCS_OFFLINE: forcer le mode online - --sync - Faire un certain nombre d'opération pour 'corriger' le dépôt local: pour - chacune des branches distantes, vérifier qu'il existe une branche locale - qui la traque, et pour chaque feature branche locale, vérifier qu'il - existe une branche distante associée. Cette option nécessite --online - - -s, --squash COMMIT_MSG - Si la branche actuelle est une feature branch, la merger comme un seul - commit avec le message COMMIT_MSG dans develop puis la supprimer. Puis - basculer sur la branche develop. - Cette option ne devrait pas être utilisée avec -k, puisque bien que les - modifications soient mergées, la branche elle-même n'est pas considérée - comme mergée. Les résultats sont donc indéfinis si la branche est mergée - à plusieurs reprises. - -b, --rebase - Si la branche actuelle est une feature branch, lancer 'git rebase -i' - sur la feature branch. Cela permet de réordonner les commits pour - nettoyer l'historique avant de fusionner la branche avec -m - Cette option devrait le cas échéant être utilisée immédiatement avant -m - ou alors il faut forcer le push et communiquer avec l'équipe sur le fait - que la branche de feature a été rebasée. - -m, --merge - Si la branche actuelle est une feature branch, la merger dans develop - puis la supprimer. Puis basculer sur la branche develop. - --merge-log - Ajouter un résumé des modifications sur la feature branch en ajoutant le - log en une ligne de chaque commit dans le message du merge. Cette option - n'est en principe pas nécessaire puisque 'prel -um' intègre la liste des - commits dans CHANGES.txt - -k, --keep - Avec l'option -m, ne pas supprimer une feature branch après l'avoir - fusionnée dans develop. Cela permet d'intégrer les modifications petit à - petit. - --delete - Supprimer une feature branch, à condition qu'elle aie déjà été - entièrement fusionnée dans la branch develop - --force-delete - Supprimer une feature branch, même si elle n'a pas encore été fusionnée - dans la branche develop - - -l, --log - -d, --diff - Afficher les modifications entre deux branches. L'option --log affiche - les modifications dans l'ordre alors que --diff affiche les différences - sous forme de diff. Les deux options peuvent être combinées et ont - l'effet de 'git log -p' - La branche comparée, s'il elle n'est pas spécifiée, est par défaut la - branche courante. S'il s'agit d'une feature branch, elle est comparée à - develop. S'il s'agit de la branche develop, elle est comparée à master. -}}} diff --git a/doc/prel.twp b/doc/prel.twp deleted file mode 100644 index eb0f4cf..0000000 --- a/doc/prel.twp +++ /dev/null @@ -1,105 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: prel - -{{{ -prel: basculer sur une branche de release - -USAGE - prel -u [SOURCE] - prel -c [RELEASE [SOURCE]] - prel -m|-l|-d [RELEASE] - -- Vérifier s'il n'y a pas de modifications locales. Sinon, proposer de faire un - commit ou un stash. -- Avec l'option -c, s'il existe une branche de release, proposer de basculer - vers elle ou sur la branche master. Sinon, basculer sur la branche master. -- Avec l'option -u, proposer ou fixer une branche de release à créer. Si elle - existe déjà, basculer vers elle. Sinon, la créer en la basant sur SOURCE, qui - vaut par défaut develop - -OPTIONS - -C, --projdir PROJDIR - Spécifier le répertoire de base du projet qui est dans git. Par défaut, - on travaille dans le répertoire courant et on laisse git trouver le - répertoire de base du projet. Avec cette option, le répertoire courant - est modifié avant de lancer les commandes git. - -O, --origin ORIGIN - Spécifier le nom de l'origine. Par défaut, utiliser 'origin' - -o, --offline - En cas de création d'une branche, ne pas pousser vers l'origine; ne pas - tenter le cas échéant de traquer la branche dans l'origine; ne pas - supprimer une branche dans l'origine. Cette option est automatiquement - activée si la variable UTOOLS_VCS_OFFLINE est définie. - --online - Annuler l'effet de la variable UTOOLS_VCS_OFFLINE: forcer le mode online - - -c, --checkout - Basculer vers une branche de release existante. C'est l'option par - défaut. Si aucune branche de release n'existe, basculer vers master - -u, --update - Préparer une nouvelle release. Utiliser une des options -x, -z ou -p - pour spécifier le type de release à préparer. Si la branche qui serait - créée pour le type de release existe déjà, basculer vers cette branche. - S'il faut la créer, la baser sur la branche SOURCE, qui vaut par défaut - develop - --menu - -x, --major - -z, --minor - -p, --patchlevel - Utilisé avec l'option -u, soit afficher un menu pour choisir la version - de la nouvelle release (par défaut), soit préparer respectivement une - release majeure, mineure, ou pour correction de bug. - -v-OPT - Avec l'option -u, spécifier une option de pver permettant de choisir la - version de la nouvelle release. Les options supportées sont -v, -l, -a, - -b, -r et -R. Par exemple, si la version actuelle sur la branche master - est 0.2.3, les options '-uz -v-lbeta' permettent de préparer la release - 0.3.0-beta - En principe, cette option n'a pas à être utilisée, puisque dans une - branche de release, on peut faire vivre les versions de pré-release - jusqu'à la release finale. Ainsi, la branche de release est nommée - d'après la version finale, mais le projet peut recevoir une version de - pré-release incrémentale. - -w, --write - Si une nouvelle branche est créée avec -u, mettre à jour le fichier - VERSION.txt avec pver. C'est l'option par défaut. - -n, --no-write - Si une nouvelle branche est créée avec -u, NE PAS mettre à jour le - fichier VERSION.txt avec pver. Utiliser cette option si la mise à jour - du numéro de version doit être faite d'une manière particulière. - -e, --edit - Editer le fichier CHANGES.txt autogénéré par -u -w - Cette option est surtout utile si -m est utilisé avec -u, pour donner la - possibilité de corriger la liste des modifications avant leur - enregistrement définitif. - - -m, --merge - Si la branche actuelle est une branche de release, ou s'il existe une - branche de release, la merger dans master, puis dans develop, puis la - supprimer. Puis basculer sur la branche master. - S'il n'existe pas de branche de release, proposer de fusionner les - modifications de la branche develop dans la branche master, sans - préparer de branche de release au préalable. - --delete - Supprimer une branche de release, à condition qu'elle aie déjà été - entièrement fusionnée dans la branch master - --force-delete - Supprimer une branche de release, même si elle n'a pas encore été - fusionnée dans la branche master - - -s, --summary - Afficher la liste des différences entre la branche develop et la branche - master, comme elle serait générée par les options -u -w pour le fichier - CHANGES.txt - -l, --log - Afficher les modifications actuellement effectuée dans la branche de - release par rapport à develop. - -d, --diff - Afficher les modifications actuellement effectuée dans la branche de - release par rapport à develop, sous forme de diff. -}}} diff --git a/doc/pver.md b/doc/pver.md deleted file mode 100644 index b87a431..0000000 --- a/doc/pver.md +++ /dev/null @@ -1,98 +0,0 @@ -# pver - -~~~ -pver: gérer des numéros de version selon les règles du versionage sémantique v2.0.0 (http://semver.org/) - -USAGE - pver [options] - -OPTIONS - -f, --file VERSIONFILE - Gérer le numéro de version se trouvant dans le fichier spécifié. Le - fichier est créé si nécessaire. C'est l'option par défaut si un fichier - nommé VERSION.txt se trouve dans le répertoire courant. - -e, --maven POMFILE - Gérer le numéro de version se trouvant dans le fichier pom.xml spécifié. - Le fichier DOIT exister. C'est l'option par défaut si un fichier nommé - pom.xml se trouve dans le répertoire courant. - -F, --file-string VERSIONFILE - Prendre pour valeur de départ le contenu du fichier VERSIONFILE (qui - vaut par défaut VERSION.txt) - -g, --git-string [branch:]VERSIONFILE - Prendre pour valeur de départ le contenu du fichier VERSIONFILE (qui - vaut par défaut VERSION.txt) dans la branche BRANCH (qui vaut par défaut - master) du dépôt git situé dans le répertoire courant. - -s, --string VERSION - Prendre pour valeur de départ le numéro de version spécifié - - --show - Afficher le numéro de version. C'est l'action par défaut - --allow-empty - Supporter que la version puisse ne pas être spécifiée ni trouvée. Dans - ce cas, ne pas assumer que la version effective est 0.0.0 - Avec --show et --update, ne rien afficher si la version est vide. - --check - Vérifier que le numéro de version est conforme aux règles du versionage - sémantique - --convert - --no-convert - Activer (resp. désactiver) la conversion automatique. Par défaut, si la - version est au format classique 'x.z[.p]-rDD/MM/YYYY', elle est - convertie automatiquement au format sémantique x.z.p+rYYYYMMDD - --eq VERSION - --ne VERSION - --lt VERSION - --le VERSION - --gt VERSION - --ge VERSION - --same VERSION - --diff VERSION - Comparer avec la version spécifiée. Les opérateurs --eq, --ne, --lt, - --le, --gt, et --ge ignorent l'identifiant de build (comme le demande la - règle du versionage sémantique). Les opérateurs --same et --diff - comparent aussi les identifiants de build. - -v, --set-version VERSION - Spécifier un nouveau numéro de version qui écrase la valeur actuelle. - Cette option ne devrait pas être utilisée en temps normal parce que cela - va contre les règles du versionage sémantique. - --prel - Spécifier un nouveau numéro de version qui écrase la valeur actuelle. Le - numéro de version est obtenu à partir du nom de la branche git courante, - qui doit être de la forme release-VERSION - -u, --update - Mettre à jour le numéro de version. - - --menu - Afficher un menu permettant de choisir le composant de la version à - incrémenter - -x, --major - Augmenter le numéro de version majeure - -z, --minor - Augmenter le numéro de version mineure. C'est la valeur par défaut. - -p, --patchlevel - Augmenter le numéro de patch - - -l, --prelease ID - Spécifier un identifiant de pré-release, à ajouter au numéro de version. - -a, --alpha - -b, --beta - -r, --rc - Spécifier une pré-release de type alpha, beta, ou rc. Si la version est - déjà dans ce type, augmenter la dernière valeur numérique des composants - de l'identifiant, e.g. alpha deviant alpha.1, beta-1.2 devient beta-1.3, - rc1 devient rc2 - XXX ces fonctions ne sont pas encore implémentées - -R, --final, --release - Supprimer l'identifiant de prérelease - - -m, --metadata ID - Spécifier un identifiant de build, à ajouter au numéro de version. - -M, --vcs-metadata - Spécifier l'identifiant à partir de la révision actuelle dans le - gestionnaire de version. Note: pour le moment, seul git est supporté. - --add-metadata ID - Ajouter l'identifiant spécifié à la valeur actuelle, au lieu de la - remplacer. Séparer l'identifiant de la valeur précédente avec un '.' -~~~ - --*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8:noeol:binary \ No newline at end of file diff --git a/doc/pver.twp b/doc/pver.twp deleted file mode 100644 index 243b6b1..0000000 --- a/doc/pver.twp +++ /dev/null @@ -1,102 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: pver - -{{{ -pver: gérer des numéros de version selon les règles du versionage sémantique v2.0.0 (http://semver.org/) - -USAGE - pver [options] - -OPTIONS - -f, --file VERSIONFILE - Gérer le numéro de version se trouvant dans le fichier spécifié. Le - fichier est créé si nécessaire. C'est l'option par défaut si un fichier - nommé VERSION.txt se trouve dans le répertoire courant. - -e, --maven POMFILE - Gérer le numéro de version se trouvant dans le fichier pom.xml spécifié. - Le fichier DOIT exister. C'est l'option par défaut si un fichier nommé - pom.xml se trouve dans le répertoire courant. - -F, --file-string VERSIONFILE - Prendre pour valeur de départ le contenu du fichier VERSIONFILE (qui - vaut par défaut VERSION.txt) - -g, --git-string [branch:]VERSIONFILE - Prendre pour valeur de départ le contenu du fichier VERSIONFILE (qui - vaut par défaut VERSION.txt) dans la branche BRANCH (qui vaut par défaut - master) du dépôt git situé dans le répertoire courant. - -s, --string VERSION - Prendre pour valeur de départ le numéro de version spécifié - - --show - Afficher le numéro de version. C'est l'action par défaut - --allow-empty - Supporter que la version puisse ne pas être spécifiée ni trouvée. Dans - ce cas, ne pas assumer que la version effective est 0.0.0 - Avec --show et --update, ne rien afficher si la version est vide. - --check - Vérifier que le numéro de version est conforme aux règles du versionage - sémantique - --convert - --no-convert - Activer (resp. désactiver) la conversion automatique. Par défaut, si la - version est au format classique 'x.z[.p]-rDD/MM/YYYY', elle est - convertie automatiquement au format sémantique x.z.p+rYYYYMMDD - --eq VERSION - --ne VERSION - --lt VERSION - --le VERSION - --gt VERSION - --ge VERSION - --same VERSION - --diff VERSION - Comparer avec la version spécifiée. Les opérateurs --eq, --ne, --lt, - --le, --gt, et --ge ignorent l'identifiant de build (comme le demande la - règle du versionage sémantique). Les opérateurs --same et --diff - comparent aussi les identifiants de build. - -v, --set-version VERSION - Spécifier un nouveau numéro de version qui écrase la valeur actuelle. - Cette option ne devrait pas être utilisée en temps normal parce que cela - va contre les règles du versionage sémantique. - --prel - Spécifier un nouveau numéro de version qui écrase la valeur actuelle. Le - numéro de version est obtenu à partir du nom de la branche git courante, - qui doit être de la forme release-VERSION - -u, --update - Mettre à jour le numéro de version. - - --menu - Afficher un menu permettant de choisir le composant de la version à - incrémenter - -x, --major - Augmenter le numéro de version majeure - -z, --minor - Augmenter le numéro de version mineure. C'est la valeur par défaut. - -p, --patchlevel - Augmenter le numéro de patch - - -l, --prelease ID - Spécifier un identifiant de pré-release, à ajouter au numéro de version. - -a, --alpha - -b, --beta - -r, --rc - Spécifier une pré-release de type alpha, beta, ou rc. Si la version est - déjà dans ce type, augmenter la dernière valeur numérique des composants - de l'identifiant, e.g. alpha deviant alpha.1, beta-1.2 devient beta-1.3, - rc1 devient rc2 - XXX ces fonctions ne sont pas encore implémentées - -R, --final, --release - Supprimer l'identifiant de prérelease - - -m, --metadata ID - Spécifier un identifiant de build, à ajouter au numéro de version. - -M, --vcs-metadata - Spécifier l'identifiant à partir de la révision actuelle dans le - gestionnaire de version. Note: pour le moment, seul git est supporté. - --add-metadata ID - Ajouter l'identifiant spécifié à la valeur actuelle, au lieu de la - remplacer. Séparer l'identifiant de la valeur précédente avec un '.' -}}} diff --git a/doc/pz.twp b/doc/pz.twp deleted file mode 100644 index a49c742..0000000 --- a/doc/pz.twp +++ /dev/null @@ -1,24 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: pz - -{{{ -pz: faire une archive du projet - -USAGE - pz - -OPTIONS - -C, --projdir PROJDIR - Spécifier le répertoire de base du projet qui est dans git. Par défaut, - on travaille dans le répertoire courant et on laisse git trouver le - répertoire de base du projet. Avec cette option, le répertoire courant - est modifié avant de lancer les commandes git. - -d, --destdir DESTDIR - Spécifier le répertoire dans lequel générer l'archive. Par défaut, - prendre le répertoire parent du répertoire de base du dépôt. -}}} diff --git a/doc/reptyr.cgo.twp b/doc/reptyr.cgo.twp deleted file mode 100644 index f1b3003..0000000 --- a/doc/reptyr.cgo.twp +++ /dev/null @@ -1,20 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: reptyr.cgo - -{{{ -Usage: reptyr [-s] PID - reptyr -l|-L [COMMAND [ARGS]] - -l Create a new pty pair and print the name of the slave. - if there are command-line arguments after -l - they are executed with REPTYR_PTY set to path of pty. - -L Like '-l', but also redirect the child's stdio to the slave. - -s Attach fds 0-2 on the target, even if it is not attached to a tty. - -h Print this help message and exit. - -v Print the version number and exit. - -V Print verbose debug output. -}}} diff --git a/doc/rmtildes.twp b/doc/rmtildes.twp deleted file mode 100644 index b9d56a5..0000000 --- a/doc/rmtildes.twp +++ /dev/null @@ -1,16 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:20 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: rmtildes - -{{{ -rmtildes: supprimer les fichiers *~ dans le répertoire courant - -USAGE - rmtildes [dir [glob]] - -Par défaut, dir==. et glob==*~ -}}} diff --git a/doc/rruns.twp b/doc/rruns.twp deleted file mode 100644 index a492593..0000000 --- a/doc/rruns.twp +++ /dev/null @@ -1,78 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: rruns - -{{{ -rruns: Déploiement distant avec runs - -USAGE - rruns [-h hosts] [-T tmproot] rscriptname name=value... - rruns [-h hosts] [-T tmproot] @recipe name=value... - rruns [-h hosts] [-T tmproot] -f rscript name=value... - rruns [-h hosts] [-T tmproot] -r recipe name=value... - -Lancer ce script sans argument (hors options) est équivalent à le lancer avec -l'argument @default - -OPTIONS - -C Ne pas faire le déploiement. Configurer uniquement la connexion par clé - sur les hôtes distants spécifiés pour le user spécifié. Il faut pouvoir - se connecter par mot de passe pour configurer la connexion par clé. - Si l'on veut configurer la connexion par clé pour le user root, mais que - ce n'est pas possible de se connecter par mot de passe avec le user root - sur l'hôte distant, et qu'il existe un user sudoer sur l'hôte distant, - il est possible de faire la configuration avec '--configure root'. La - commande serait alors - rruns -h user@host --configure root - -T tmproot - Spécifier le répertoire temporaire sur l'hôte distant, comme par exemple - /var/tmp. Cette option est utile pour les vservers, qui ont par défaut - un /tmp minuscule de 16 Mo. - -S ssh - Spécifier le programme à utiliser pour la connection par ssh. - -h host - -h @hostsfile - Spécifier un ou plusieurs hôtes sur lequels faire le déploiement. Pour - spécifier plusieurs hôtes, il est possible d'utiliser plusieurs fois - l'option -h, ou spécifier en une seule fois plusieurs hôtes en les - séparant par un espace ou le caractère ':', e.g. 'host1 host2' ou - 'host1:host2'. Si la spécification contient les caractères { et }, - l'expansion est effectuée, e.g - -h 'root@{host1,host2}.univ.run' - Par défaut, la connexion sur l'hôte distant se fait avec l'utilisateur - root. Il est possible de spécifier un autre utilisateur avec la syntaxe - user@host, e.g -h user@host - La forme @hostsfile permet de lire la liste des hôtes depuis le fichier - hostsfile, à raison d'un hôte par ligne. - Si cette option n'est pas spécifiée, et que le répertoire courant est - dans un des répertoires de $RUNSHOSTSPATH, sélectionner l'hôte - correspondant. Sinon, l'utilisateur doit saisir l'hôte distant de façon - interactive. - -f RSCRIPT - Lancer le script individuel spécifié au lieu de chercher dans les - répertoires $RUNS{SCRIPTS,HOSTS}PATH - -r RECIPE - Lancer les scripts spécifiés dans le fichier de recettes individuel - spécifié. - -z Forcer la réinstallation des scripts qui se basent sur shouldrun/setdone - -o OUTPUT - Générer l'archive à lancer sur l'hôte distant au lieu de faire le - déploiement. Si plusieurs hôtes sont spécifiés, OUTPUT est considéré - comme un nom de base auquel est ajouté le nom de l'hôte sur lequel - l'archive doit être déployée. - --init - --no-init - Forcer (resp. empêcher) la création des répertoires d'hôte correspondant - aux hôtes spécifiés. Par défaut, la création des répertoires d'hôte est - effectuée uniquement si ce script est lancé sans argument. - --sysinfos - Après un déploiement réussi sur l'hôte distant, inscrire si ce n'est - déjà fait le résultat de la commande usysinfos dans le fichier - sysinfos.conf du répertoire d'hôte. - Cette option est automatiquement activée si ce script est lancé sans - argument (hors options). -}}} diff --git a/doc/ruinst.twp b/doc/ruinst.twp deleted file mode 100644 index bfd5161..0000000 --- a/doc/ruinst.twp +++ /dev/null @@ -1,52 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ruinst - -{{{ -ruinst: Déploiement distant avec uinst - -USAGE - ruinst [-h host] [-T tmproot] [-- options de uinst] - -note: à cause d'une limitation de makeself, les options de uinst ne devraient -pas contenir d'espaces ni de caractères spéciaux. L'échappement de ces -caractères n'est pas garanti. - -OPTIONS - -C Ne pas faire le déploiement. Configurer uniquement la connexion par clé - sur les hôtes distants spécifiés pour le user spécifié. Il faut pouvoir - se connecter par mot de passe pour configurer la connexion par clé. - Si l'on veut configurer la connexion par clé pour le user root, mais que - ce n'est pas possible de se connecter par mot de passe avec le user root - sur l'hôte distant, et qu'il existe un user sudoer sur l'hôte distant, - il est possible de faire la configuration avec '--configure root'. La - commande serait alors - ruinst -h user@host --configure root - Si l'hôte distant n'a pas sudo ou si sudo n'est pas configuré, il faut - rajouter l'option --uses-su, e.g: - ruinst -h user@host --configure root --uses-su - -T tmproot - Spécifier le répertoire temporaire sur l'hôte distant, comme par exemple - /var/tmp. Cette option est utile pour les vservers, qui ont par défaut - un /tmp minuscule de 16 Mo. - -S, --ssh ssh - Spécifier le programme à utiliser pour la connection par ssh. - -h hosts - -h @hostsfile - Spécifier un ou plusieurs hôtes sur lequels faire le déploiement. Pour - spécifier plusieurs hôtes, il est possible d'utiliser plusieurs fois - l'option -h, ou spécifier en une seule fois plusieurs hôtes en les - séparant par un espace ou le caractère ':', e.g. 'host1 host2' ou - 'host1:host2'. Si la spécification contient les caractères { et }, - l'expansion est effectuée, e.g - -h 'root@{host1,host2}.univ.run' - Par défaut, la connexion sur l'hôte distant se fait avec l'utilisateur - root. Il est possible de spécifier un autre utilisateur avec la syntaxe - user@host, e.g -h user@host - La forme @hostsfile permet de lire la liste des hôtes depuis le fichier - hostsfile, à raison d'un hôte par ligne. -}}} diff --git a/doc/rumount.twp b/doc/rumount.twp deleted file mode 100644 index 0e3573f..0000000 --- a/doc/rumount.twp +++ /dev/null @@ -1,18 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:18 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: rumount - -{{{ -rumount: démonter un système de fichier récursivement - -USAGE - rumount mountpoint - -Démonter tous les systèmes de fichiers qui sont montés en-dessous de mountpoint -puis démonter mountpoint. Démonter aussi tous les systèmes de fichiers -bind-montés à partir d'un sous-répertoire de mountpoint. -}}} diff --git a/doc/runs.twp b/doc/runs.twp deleted file mode 100644 index 978e900..0000000 --- a/doc/runs.twp +++ /dev/null @@ -1,62 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: runs - -{{{ -runs: Lancer un script avec le protocole runs - -USAGE - runs [options] rscriptname name=value... - runs [options] @recipe name=value... - runs [options] -f rscript name=value... - runs [options] -r recipe name=value... - -OPTIONS -Configuration - --init - --verify - Vérifier le nom d'hôte et créer si nécessaire le répertoire d'hôte - correspondant à l'hôte courant ou à l'hôte spécifié avec l'option -h - Avec --verify, la création du répertoire d'hôte n'est pas effectuée. - --sysinfos DATA - Avec l'option --init, initialiser le fichier sysinfos.conf avec DATA, si - le fichier n'a pas déjà été provisionné. Sans cette option, un fichier - vide avec des commentaires est créé à la place. - --create RSCRIPT - Créer un modèle de script avec le nom donné. - Avec l'option -h, le script est créé dans le répertoire d'hôte - correspondant à l'hôte spécifié - -Gestion des scripts - -s Forcer l'exécution du script avec l'utilisateur root si ce n'est pas - déjà le cas - -f RSCRIPT - Lancer le script individuel spécifié au lieu de chercher dans les - répertoires de $RUNSSCRIPTSPATH - -r RECIPE - Lancer les scripts spécifiés dans le fichier de recettes individuel - spécifié. - -h HOSTNAME[.DOMAIN] - Spécifier que les scripts sont destinés à être lancés sur l'hôte - spécifié. Les scripts sont alors aussi cherchés dans les répertoires - {$RUNSHOSTSPATH}/$hostname.$domain (par défaut) et - {$RUNSHOSTSPATH}/$domain/$hostname (le cas échéant) - L'option --host est équivalente, sauf que son argument est facultatif et - que sa valeur par défaut est l'hôte courant, soit sulfure - --list - Afficher la liste des scripts qui sont disponibles. Avec l'option -h, - inclure aussi les scripts spécifiques à cet hôte. - Avec cette option, les arguments supplémentaires agissent comme des - filtres (regexp utilisée avec l'opérateur == de la commande [[). Les - noms des scripts doivent valider au moins un filtre. - --info - Afficher la la description du script et la valeur de chaque variable - définies - --desc-only - Afficher seulement la description du script - -z Forcer la réinstallation des scripts qui se basent sur shouldrun/setdone -}}} diff --git a/doc/runsconfig.twp b/doc/runsconfig.twp deleted file mode 100644 index 3cc4a10..0000000 --- a/doc/runsconfig.twp +++ /dev/null @@ -1,37 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: runsconfig - -{{{ -runsconfig: Gérer un répertoire d'hôte de runs - -USAGE - runsconfig -c [host [destdir]] - runsconfig -t -- args... - -OPTIONS - -c, --create - Créer un nouveau répertoire de configuration pour un hôte - -d, --destdir DESTDIR[=runs] - Nom du répertoire local de configuration. - - -t, --template [OPT] - Gérer les fichiers du répertoire local avec templatectl. La valeur de - cette option est utilisée comme argument court pour l'invocation de - templatectl, e.g - runsconfig -tm args - est équivalent à - templatectl -m args - Les arguments qui restent sont passés tels quels à templatectl - Les options courantes de templatectl -l, -v, -m, -L sont disponibles - directement - --help-template - Afficher l'aide concernent la gestion des templates. - Equivalent à -t -- --help - -h, --host HOST - Spécifier l'hôte. Equivalent à -v host=HOST -}}} diff --git a/doc/runsmod.twp b/doc/runsmod.twp deleted file mode 100644 index 9d90c90..0000000 --- a/doc/runsmod.twp +++ /dev/null @@ -1,70 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: runsmod - -{{{ -runsmod: récupérer des dépôts git à usage de runs - -USAGE - runsmod [options] [-h host] [modules...] - -Tous les dépôts spécifiés dans la configuration sont récupérés. Si des modules -sont spécifiés, les dépôts correspondants sont récupérés aussi. Avec l'option --h, des dépôts spécifiques à l'hôte peuvent éventuellement être récupérés en -plus. - -OPTIONS - -c, --config CONFIG - Spécifier un fichier de configuration à charger au lieu de la valeur par - défaut ~/etc/default/runs - --prod - --devel - Forcer un mode de sélection des urls. En mode production, préférer pour - le clonage les urls de production, qui sont en principe accessibles sans - authentification et en lecture seule. En mode développement, préférer - pour le clonage les urls de développement, qui sont en principe - accessibles par clé ssh et en lecture/écriture - --no-fetch - Ne rien récupérer. Utile avec --update-repolist - -N, --no-host - -A, --all-hosts - -H, -h, --host HOST - -T, --this-host - Options permettant de spécifier l'hôte pour la récupération de dépôts - spécifiques. - --no-host demande explicitement à ce qu'aucun hôte ne soit spécifié - --all-hosts sélectionne tous les dépôts spécifiques - --host récupère uniquement les dépôts pour l'hôte spécifié - --this-host équivaut à --host sulfure - L'option par défaut est --this-host en mode production et --all-hosts en - mode développement - --update-repolist - Forcer la mise à jour de la liste des dépôts. En principe, cette mise à - jour n'est pas faite plus d'une fois par période de 24 heures. - -0, --offline - -n, --no-pull - -u, --pull - Spécifier le mode opératoire pour la récupération des dépôts. - En mode --offline, ni clone ni pull ne sont autorisés. Le module doit - avoir déjà été cloné. - En mode --no-pull, seul le clonage est autorisé, e.g. le dépôt est - cloné si ce n'est pas déjà le cas. - En mode --pull, cloner le dépôt si ce n'est pas déjà le cas, ou le - mettre à jour le dépôt avant de l'utiliser s'il avait déjà été cloné. - Par défaut, utiliser --pull en mode production et --no-pull en mode - développement. - -i, --identity IDENTITY_FILE - Spécifier le fichier depuis lequel lire la clé privée pour les - connexions par ssh. - -o, --output OUTPUT - Spécifier un fichier dans lequel écrire des définitions de variables, - notamment REPODIRS qui reçoit la liste des chemins des dépôts qui ont - été récupérés. De plus, les variables RUNSSCRIPTSPATH, RUNSMODULESPATH - et RUNSHOSTSPATH sont définies. - -a, --append-output - Ajouter au fichier OUTPUT au lieu de l'écraser -}}} diff --git a/doc/rwoinst.twp b/doc/rwoinst.twp deleted file mode 100644 index 0415fac..0000000 --- a/doc/rwoinst.twp +++ /dev/null @@ -1,38 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:20 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: rwoinst - -{{{ -rwoinst: Déploiement distant avec woinst - -USAGE - rwoinst [-H host] [-T tmproot] ... [-- options de woinst] - -OPTIONS - -C Ne pas faire le déploiement. Configurer uniquement la connexion par clé - sur les hôtes distants spécifiés pour le user spécifié. Il faut pouvoir - se connecter par mot de passe pour configurer la connexion par clé. - Si l'on veut configurer la connexion par clé pour le user root, mais que - ce n'est pas possible de se connecter par mot de passe avec le user root - sur l'hôte distant, et qu'il existe un user sudoer sur l'hôte distant, - il est possible de faire la configuration avec '--configure root'. La - commande serait alors - rwoinst -H user@host --configure root - -T tmproot - Spécifier le répertoire temporaire sur l'hôte distant, comme par exemple - /var/tmp. Cette option est utile pour les vservers, qui ont par défaut - un /tmp minuscule de 16 Mo. - -S ssh - Spécifier le programme à utiliser pour la connection par ssh. - -H host - Spécifier un hôte distant sur lequel faire le déploiement. Plusieurs - options -H peuvent être spécifiées, ou alors on peut séparer plusieurs - hôtes par ':', e.g. -H host1:host2 - Par défaut, la connexion sur l'hôte distant se fait avec l'utilisateur - root. Il est possible de spécifier un autre utilisateur avec la syntaxe - user@host, e.g -H user@host -}}} diff --git a/doc/sqlcsv.twp b/doc/sqlcsv.twp deleted file mode 100644 index fe91aba..0000000 --- a/doc/sqlcsv.twp +++ /dev/null @@ -1,98 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: sqlcsv - -{{{ -USAGE: - sqlcsv [query] - -query est la requête SQL à exécuter. Si query n'est pas spécifiée ou si elle - vaut '-', la requête SQL est lue sur l'entrée standard, ou depuis un - fichier si l'option -f est spécifiée. - -DEMARRAGE - -Au démarrage, les répertoires de configuration (utilisateur ~/.sqlcsv et système -/etc/sqlcsv) sont analysés. Les fichiers *.jar situés dans ces répertoires sont -ajoutés au CLASSPATH. La présence de certains fichiers est testée pour activer -éventuellement les logs détaillés. - -OPTIONS - -C, --config CONFIG - Prendre les informations de connexion depuis le fichier de propriété - spécifié. Pour l'identifiant CONN, la propriété 'CONN.url' doit exister - dans ce fichier avec la valeur de l'url jdbc de connexion. De plus, les - propriétés 'CONN.user' et 'CONN.password' contiennent respectivement si - nécessaire le nom et le mot de passe de connexion. La propriété - 'loglevel', si elle existe, est utilisée pour configurer le niveau - d'affichage des logs, comme avec l'option --loglevel - Si cette option n'est pas spécifiée, un fichier nommé sqlcsv.properties - est recherché dans l'ordre: dans le répertoire courant, dans le - répertoire de configuration utilisateur, puis dans le répertoire de - configuration système. Si le fichier est trouvé, il est chargé - automatiquement. - -l, --conn CONN - Spécifier l'identifiant (ou l'url) de connexion. Cette information est - obligatoire. Si cette option n'est pas fournie, il faut spécifier un - fichier de configuration avec l'option -C dans lequel *une seule* - propriété 'CONN.url' est définie. - -u, --user USER - -p, --password PASSWORD - Spécifier un nom de connexion et un mot de passe si l'url ne le fournit - pas. Ces valeurs ont la priorité sur les valeurs éventuellement déjà - présentes dans le fichier de propriété. - -f, --input INPUT - Lire la requête depuis le fichier INPUT au lieu de la lire depuis la - ligne de commande ou l'entrée standard. Ne pas spécifier cette option ou - utiliser '-' pour lire depuis l'entrée standard. Cette option est - ignorée si la requête est fournie sur la ligne de commande. - -o, --output OUTPUT - Ecrire le résultat dans le fichier OUTPUT. Utiliser '-' pour spécifier - la sortie standard (c'est la valeur par défaut). S'il y a plusieurs - requêtes et que le fichier de sortie n'est pas la sortie standard, - ajouter un numéro incrémental au nom du fichier en sortie pour chaque - requête. Sinon, il est possible de spécifier plusieurs fois cette option - pour nommer les fichiers correspondant à chaque requête. - -t, --autocommit - Activer le mode autocommit - -c, --ignore-io-error - Continuer le traitement même en cas d'erreur du système de fichiers. - Cependant le traitement s'arrête et la transaction est annulée si une - autre erreur se produit. - -y, --ignore-any-error - Continuer le traitement même en cas d'erreur quelconque. - -n, --no-headers - Ne JAMAIS inclure les en-têtes dans la sortie, même avec l'option -h - -a, --append - Ajouter le résultat au fichier OUTPUT au lieu de l'écraser. - -A, --auto-na - Activer les option -n -a si le fichier OUTPUT existe et qu'il est non - vide. Le test n'est effectué que pour le premier fichier spécifié. - -s, --same-output - Utiliser le même fichier pour écrire le résultat de toutes les requêtes. - Normalement, un numéro incrémental est ajouté au fichier en sortie si - plusieurs requêtes sont spécifiées. Si les en-têtes sont les mêmes, - ajouter le résultat au fichier directement à la suite. Sinon, sauter une - ligne blanche et afficher les nouveaux en-têtes. - -h, --force-headers - En cas d'écriture du résultat de plusieurs requêtes dans un même - fichier, ne pas tenter de concaténer les résultats même si les en-têtes - sont les mêmes. - --uc-output - Ajouter dans la sortie les résultat de toutes les requêtes, pas - seulement celles de type DQML - --loglevel LOGLEVEL - Spécifier le niveau de logs à afficher. Les valeurs valides sont à - choisir parmi ALL, FINEST, FINER, FINE, CONFIG, INFO, WARNING, ERROR - La présence de certains fichiers dans les répertoires de configuration - utilisateur ou système configure les logs avant que les options de la - ligne de commande ne soient analysés: un fichier DEBUG fait démarrer - l'application avec le niveau de log ALL ce qui permet de voir les logs - concernant le chargement des jar. Un fichier SQL_DEBUG permet d'activer - la trace de DriverManager. Exemple: - mkdir -p ~/.sqlcsv && touch ~/.sqlcsv/{DEBUG,SQL_DEBUG} -}}} diff --git a/doc/EnsureVM.md b/doc/tools/EnsureVM.md similarity index 100% rename from doc/EnsureVM.md rename to doc/tools/EnsureVM.md diff --git a/doc/SKvm.md b/doc/tools/SKvm.md similarity index 100% rename from doc/SKvm.md rename to doc/tools/SKvm.md diff --git a/doc/SVirtualBox.md b/doc/tools/SVirtualBox.md similarity index 100% rename from doc/SVirtualBox.md rename to doc/tools/SVirtualBox.md diff --git a/doc/_root.md b/doc/tools/_root.md similarity index 100% rename from doc/_root.md rename to doc/tools/_root.md diff --git a/doc/apacheconfig.md b/doc/tools/apacheconfig.md similarity index 100% rename from doc/apacheconfig.md rename to doc/tools/apacheconfig.md diff --git a/doc/authftp.md b/doc/tools/authftp.md similarity index 100% rename from doc/authftp.md rename to doc/tools/authftp.md diff --git a/doc/caturl.md b/doc/tools/caturl.md similarity index 100% rename from doc/caturl.md rename to doc/tools/caturl.md diff --git a/doc/tools/chrono.py.md b/doc/tools/chrono.py.md new file mode 100644 index 0000000..d3a9a0b --- /dev/null +++ b/doc/tools/chrono.py.md @@ -0,0 +1,28 @@ +# chrono.py + +~~~ +usage: chrono.py [options] [TIMEOUT] + +Afficher un chronomètre + +positional arguments: + TIMEOUT (valeur vide) + chronomètre qui démarre à 0:00 et ne s'arrête pas + H:M:S (heures:minutes:secondes) + ou M:S (minutes:secondes) + ou M (minutes) + minuteur qui démarre à H:M:S et fait un décompte jusqu'à 0:00. A la fin + du décompte, une sonnerie retentit. + @H[:M[:S]] + minuteur qui fonctionne comme précédemment, sauf qu'on spécifie l'heure + d'arrivée, et que la durée est calculée automatiquement + +optional arguments: + -h, --help show this help message and exit + -n, --no-autostart Ne pas démarrer automatiquement le décompte même si TIMEOUT est spécifié. + -s, --autostart Forcer le démarrage automatique du décompte, même si TIMEOUT n'est pas spécifié. + +Si TIMEOUT est spécifié, par défaut le décompte démarre automatiquement. +~~~ + +-*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8:noeol:binary \ No newline at end of file diff --git a/doc/compileAndGo.md b/doc/tools/compileAndGo.md similarity index 100% rename from doc/compileAndGo.md rename to doc/tools/compileAndGo.md diff --git a/doc/cssh.md b/doc/tools/cssh.md similarity index 100% rename from doc/cssh.md rename to doc/tools/cssh.md diff --git a/doc/doinplace.md b/doc/tools/doinplace.md similarity index 100% rename from doc/doinplace.md rename to doc/tools/doinplace.md diff --git a/doc/dumpclients.md b/doc/tools/dumpclients.md similarity index 100% rename from doc/dumpclients.md rename to doc/tools/dumpclients.md diff --git a/doc/em.md b/doc/tools/em.md similarity index 87% rename from doc/em.md rename to doc/tools/em.md index 9f5b43e..bd3f8ae 100644 --- a/doc/em.md +++ b/doc/tools/em.md @@ -13,6 +13,7 @@ read the main documentation for these command-line arguments. Initialization options: --batch do not do interactive display; implies -q +--chdir DIR change to directory DIR --daemon start a server in the background --debug-init enable Emacs Lisp debugger for init file --display, -d DISPLAY use X server DISPLAY @@ -20,9 +21,11 @@ Initialization options: --no-init-file, -q load neither ~/.emacs nor default.el --no-shared-memory, -nl do not use shared memory --no-site-file do not load site-start.el +--no-site-lisp, -nsl do not add site-lisp directories to load-path --no-splash do not display a splash screen on startup --no-window-system, -nw do not communicate with X, ignoring $DISPLAY ---quick, -Q equivalent to -q --no-site-file --no-splash +--quick, -Q equivalent to: + -q --no-site-file --no-site-lisp --no-splash --script FILE run FILE as an Emacs Lisp script --terminal, -t DEVICE use DEVICE for terminal I/O --user, -u USER load ~USER/.emacs instead of your own @@ -32,7 +35,7 @@ Action options: FILE visit FILE using find-file +LINE go to line LINE in next FILE +LINE:COLUMN go to line LINE, column COLUMN, in next FILE ---directory, -L DIR add DIR to variable load-path +--directory, -L DIR prepend DIR to load-path (with :DIR, append DIR) --eval EXPR evaluate Emacs Lisp expression EXPR --execute EXPR evaluate Emacs Lisp expression EXPR --file FILE visit FILE using find-file @@ -51,14 +54,14 @@ Display options: --border-color, -bd COLOR main border color --border-width, -bw WIDTH width of main border --color, --color=MODE override color mode for character terminals; - MODE defaults to `auto', and can also - be `never', `auto', `always', + MODE defaults to `auto', and + can also be `never', `always', or a mode name like `ansi8' --cursor-color, -cr COLOR color of the Emacs cursor indicating point --font, -fn FONT default font; must be fixed-width --foreground-color, -fg COLOR window foreground color --fullheight, -fh make the first frame high as the screen ---fullscreen, -fs make first frame fullscreen +--fullscreen, -fs make the first frame fullscreen --fullwidth, -fw make the first frame wide as the screen --maximized, -mm make the first frame maximized --geometry, -g GEOMETRY window geometry @@ -82,7 +85,7 @@ example, -batch as well as --batch. You can use any unambiguous abbreviation for a --option. Various environment variables and window system resources also affect -Emacs' operation. See the main documentation. +the operation of Emacs. See the main documentation. Report bugs to bug-gnu-emacs@gnu.org. First, please see the Bugs section of the Emacs manual or the file BUGS. diff --git a/doc/fconv.md b/doc/tools/fconv.md similarity index 100% rename from doc/fconv.md rename to doc/tools/fconv.md diff --git a/doc/fnconv.md b/doc/tools/fnconv.md similarity index 100% rename from doc/fnconv.md rename to doc/tools/fnconv.md diff --git a/doc/tools/fndate.md b/doc/tools/fndate.md new file mode 100644 index 0000000..b73dcd6 --- /dev/null +++ b/doc/tools/fndate.md @@ -0,0 +1,69 @@ +# fndate + +~~~ +fndate: manipuler des noms de fichier pour les dater + +USAGE + fndate (FILE|DIR)s... + fndate -k SRCs... [DESTDIR] + fndate -m SRCs... [DESTDIR] + fndate -c COMMAND [ARGs...] + +OPTIONS + --create-or-rename + Créer un nouveau fichier (option -f) ou créer un nouveau répertoire + (option -d), ou renommer un fichier existant sans le changer de + répertoire. C'est l'option par défaut. + -f, --create-file + Créer un nouveau fichier. Cette option est ignorée si le fichier ou le + répertoire spécifié existe. C'est la valeur par défaut + -d, --create-dir + Créer un nouveau répertoire. Cette option est ignorée si le fichier ou + le répertoire spécifié existe. + -k, --copy + Copier le fichier SRC vers la destination DESTDIR qui vaut par défaut le + répertoire courant si un seul fichier source est spécifié. Si plusieurs + fichiers sources sont spécifiés, il faut absolument spécifier un + répertoire destination. Dans la destination, les fichiers sont nommés + avec la date en préfixe. + -m, --move + Déplacer le fichier SRC vers la destination DESTDIR qui vaut par défaut + le répertoire courant si un seul fichier source est spécifié. Si + plusieurs fichiers sources sont spécifiés, il faut absolument spécifier + un répertoire destination. Dans la destination, les fichiers sont nommés + avec la date en préfixe. + -c, --cmd + Les arguments sont une commande à lancer. Dans les argument, PLACEHOLDER + est remplacé par la date. Si le PLACEHOLDER n'est trouvé dans aucun des + arguments, alors ajouter la date à la fin de la commande. Par exemple, + voici comment émuler l'option -k + fndate -c cp src dest/~~ + --string + Remplacer dans chaque argument le placeholder par la date et afficher le + résultat. + -P, --placeholder PLACEHOLDER + Dans le nom spécifié, remplacer PLACEHOLDER par la date. Par défaut, + PLACEHOLDER vaut ~~. Si le nom spécifié ne contient pas le PLACEHOLDER, + il est placé au début. + -@, --force-date DATE + Dans le nom spécifié, si la date est déjà présente, forcer son + remplacement par la valeur spécifiée. Par défaut, le fichier n'est pas + modifié si la date est déjà présente. + -F, --format FORMAT + Spécifier le format de la date à insérer dans le nom du fichier. Par + défaut, FORMAT vaut 'YYMMDD-' + Les formats valides sont: + YYYY année sur 4 chiffres + YY année sur 2 chiffres + MM mois sur 2 chiffres + DD jour sur 2 chiffres + Tous les autres caractères sont pris tels-quels + -s, --short + Equivalent à -F YYMMDD --autof + -l, --long + Equivalent à -F YYYMMDD --autof + --autof + Option non (pas encore) documentée +~~~ + +-*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8:noeol:binary \ No newline at end of file diff --git a/doc/tools/foreach.md b/doc/tools/foreach.md new file mode 100644 index 0000000..3048e78 --- /dev/null +++ b/doc/tools/foreach.md @@ -0,0 +1,80 @@ +# foreach + +~~~ +foreach: lancer une commande pour un ensemble d'arguments + +USAGE + foreach [options] [VAR=]expr cmd... + foreach [options] [VAR=]items... -- cmd... + +La commande est lancée avec la variable 'VAR', qui vaut par défaut 'item', +définie à la valeur courante de l'énumération. De plus, la variable 'index' +reçoit une valeur incrémentale commençant à 0. + +La deuxième syntaxe appelée syntaxe alternative permet de spécifier un ensemble +d'éléments directement, mais nécessite l'utilisation du séparateur '--' pour +identifier où s'arrête la liste des éléments. + +En plus de VAR, les variables file, dir, name, basename, ext et dotext sont +définies. Elle valent respectivement le chemin absolu du fichier, le répertoire +absolu du fichier, le nom du fichier, le nom de base sans extension, l'extension +sans le point et l'extension avec le point, e.g pour item=dir/file.ext on a +file=/path/to/dir/file.ext, dir=/path/to/dir, name=file.ext, basename=file, +ext=ext, dotext=.ext + +Les 3 exemples suivants sont équivalents: + foreach '*.c' cp %item dest/dir + foreach item='*.c' cp %item dest/dir + foreach *.c -- cp %item dest/dir + +OPTIONS + -b, --basedir BASEDIR + Chercher les expressions -d, -f, -a à partir de BASEDIR au lieu du + répertoire courant. + -d, --dir + -f, --file + -a, --all + -s, --string + Ces options permettent de spécifier le type d'expression et la façon de + les traiter. Avec -d, faire la correspondance de l'expression sur les + répertoires uniquement. Avec -f, faire la correspondance sur les fichier + uniquement. Avec -a, faire la correspondance sur les répertoires et les + fichiers. Avec -s, évaluer l'expression avec la fonction 'eval' du + shell. + Si la syntaxe alternative est utilisée, le premier élément est évalué + conformément à ces options *si et seulement s'il* est précédé d'une + chaine 'VAR='. Les autres éléments sont pris tels-quels. e.g: + cette commande affiche uniquement la chaine '*.c': + foreach '*.c' -- + alors que celle-ci liste les fichiers qui ont l'extension '.c': + foreach 'item=*.c' -- + -p, --parent + Pour chaque fichier/répertoire, se placer dans le répertoire parent + avant de lancer la commande. item est aussi modifié pour ne plus + contenir que le nom de la cible (qui est désormais dans le répertoire + courant) + Cette option a la priorité sur --go + -g, --go + Si la cible est un répertoire, en faire le répertoire courant avant de + lancer la commande. Si la cible est un fichier, faire comme --parent et + se placer dans le répertoire du fichier avant de lancer la commande. + Dans les deux cas, item est modifié pour ne plus contenir que le nom de + la cible, soit '.' pour le répertoire courant, soit le nom du fichier + dans le répertoire courant. + Si cette option est mentionnée seule, elle implique --dir + -x, --expand + -n, --no-expand + Reconnaitre et traiter (resp. ne pas reconnaitre) la syntaxe %var dans + les arguments. C'est le cas par défaut, ce qui permet de simplifier + l'écriture d'une ligne de commande. Pour écrire le caractère '%', il + suffit de le doubler e.g %%item + Si l'expansion est désactivée, il faut protéger le caractère $ pour + qu'il soit traité, e.g, avec les examples ci-dessus: + foreach -n '*.c' 'cp "$item" dest/dir' + -t, --title + --no-title + Afficher (resp. ne pas afficher) chaque correspondance avant de lancer + la commande. Par défaut, l'affichage est effectué. +~~~ + +-*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8:noeol:binary \ No newline at end of file diff --git a/doc/geturl.md b/doc/tools/geturl.md similarity index 100% rename from doc/geturl.md rename to doc/tools/geturl.md diff --git a/doc/mkRewriteRules.md b/doc/tools/mkRewriteRules.md similarity index 100% rename from doc/mkRewriteRules.md rename to doc/tools/mkRewriteRules.md diff --git a/doc/mkiso.md b/doc/tools/mkiso.md similarity index 100% rename from doc/mkiso.md rename to doc/tools/mkiso.md diff --git a/doc/mkurl.md b/doc/tools/mkurl.md similarity index 100% rename from doc/mkurl.md rename to doc/tools/mkurl.md diff --git a/doc/mkusfx.md b/doc/tools/mkusfx.md similarity index 100% rename from doc/mkusfx.md rename to doc/tools/mkusfx.md diff --git a/doc/mocifs.md b/doc/tools/mocifs.md similarity index 100% rename from doc/mocifs.md rename to doc/tools/mocifs.md diff --git a/doc/modav.md b/doc/tools/modav.md similarity index 100% rename from doc/modav.md rename to doc/tools/modav.md diff --git a/doc/moiso.md b/doc/tools/moiso.md similarity index 100% rename from doc/moiso.md rename to doc/tools/moiso.md diff --git a/doc/mossh.md b/doc/tools/mossh.md similarity index 100% rename from doc/mossh.md rename to doc/tools/mossh.md diff --git a/doc/mysqlcsv.md b/doc/tools/mysqlcsv.md similarity index 100% rename from doc/mysqlcsv.md rename to doc/tools/mysqlcsv.md diff --git a/doc/mysqlloadcsv.md b/doc/tools/mysqlloadcsv.md similarity index 100% rename from doc/mysqlloadcsv.md rename to doc/tools/mysqlloadcsv.md diff --git a/doc/noerr.md b/doc/tools/noerr.md similarity index 100% rename from doc/noerr.md rename to doc/tools/noerr.md diff --git a/doc/noerror.md b/doc/tools/noerror.md similarity index 100% rename from doc/noerror.md rename to doc/tools/noerror.md diff --git a/doc/noout.md b/doc/tools/noout.md similarity index 100% rename from doc/noout.md rename to doc/tools/noout.md diff --git a/doc/nutools.md b/doc/tools/nutools.md similarity index 100% rename from doc/nutools.md rename to doc/tools/nutools.md diff --git a/doc/openurl.md b/doc/tools/openurl.md similarity index 100% rename from doc/openurl.md rename to doc/tools/openurl.md diff --git a/doc/pdev.md b/doc/tools/pdev.md similarity index 100% rename from doc/pdev.md rename to doc/tools/pdev.md diff --git a/doc/prel.md b/doc/tools/prel.md similarity index 88% rename from doc/prel.md rename to doc/tools/prel.md index 7e19a20..f9dd0bd 100644 --- a/doc/prel.md +++ b/doc/tools/prel.md @@ -67,15 +67,15 @@ OPTIONS fichier VERSION.txt avec pver. Utiliser cette option si la mise à jour du numéro de version doit être faite d'une manière particulière. -e, --edit - Editer le fichier CHANGES.txt autogénéré par -u -w - Cette option est surtout utile si -m est utilisé avec -u, pour donner la - possibilité de corriger la liste des modifications avant leur - enregistrement définitif. + Editer le fichier CHANGES.md autogénéré par les options -u -w ou un + fichier CHANGES.txt existant. Cette option est surtout utile si -m est + utilisé avec -u, pour donner la possibilité de corriger la liste des + modifications avant leur enregistrement définitif. -m, --merge Si la branche actuelle est une branche de release, ou s'il existe une branche de release, la merger dans master, puis dans develop, puis la - supprimer. Puis basculer sur la branche master. + supprimer. A l'issu de cette opération, rester sur la branche develop. S'il n'existe pas de branche de release, proposer de fusionner les modifications de la branche develop dans la branche master, sans préparer de branche de release au préalable. @@ -89,13 +89,17 @@ OPTIONS -s, --summary Afficher la liste des différences entre la branche develop et la branche master, comme elle serait générée par les options -u -w pour le fichier - CHANGES.txt + CHANGES.txt (la syntaxe pour CHANGES.md est légèrement différente) -l, --log Afficher les modifications actuellement effectuée dans la branche de release par rapport à develop. -d, --diff Afficher les modifications actuellement effectuée dans la branche de release par rapport à develop, sous forme de diff. + +OPTIONS AVANCEES + --uc, --upgrade-changes + Convertir un fichier CHANGES.txt en CHANGES.md ~~~ -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8:noeol:binary \ No newline at end of file diff --git a/doc/tools/pver.md b/doc/tools/pver.md new file mode 100644 index 0000000..8db8c3b --- /dev/null +++ b/doc/tools/pver.md @@ -0,0 +1,201 @@ +# pver + +~~~ +pver: gérer des numéros de version selon les règles du versionage sémantique v2.0.0 (http://semver.org/) + +USAGE + pver [options] + +OPTIONS + -w, --auto-file DIR + Gérer le numéro de version du répertoire spécifié. Si un fichier pom.xml + existe dans ce répertoire, alors c'est l'option '-e DIR/pom.xml' qui est + activé. Si un fichier VERSION.txt existe dans ce répertoire, alors c'est + l'option '-f DIR/VERSION.txt' qui est activée. Sinon, un nouveau fichier + VERSION.txt est créé dans ce répertoire. C'est l'option par défaut. + --sw, --auto-string DIR + Prendre pour valeur de départ la version du répertoire spécifié. Si un + fichier pom.xml existe dans ce répertoire, alors c'est l'option -E qui + est activé. Si un fichier VERSION.txt existe dans ce répertoire, alors + c'est l'option -F qui est activée. + --gw, --auto-git-string [BRANCH:]DIR + Prendre pour valeur de départ la version du répertoire spécifié dans la + branche BRANCH (qui vaut par défaut master) du dépôt git. Si un fichier + pom.xml existe dans ce répertoire, alors c'est l'option -g qui est + activé. Si un fichier VERSION.txt existe dans ce répertoire, alors c'est + l'option -G qui est activée. + -e, --pom POMFILE + Gérer le numéro de version se trouvant dans le fichier pom.xml spécifié. + Le fichier DOIT exister. Implique --maven-update + -E, --pom-string POMFILE + Prendre pour valeur de départ la version contenue dans le fichier + pom.xml spécifié. Le fichier DOIT exister. Implique --maven-update + -f, --file VERSIONFILE + Gérer le numéro de version se trouvant dans le fichier spécifié. Le + fichier est créé si nécessaire. + -F, --file-string VERSIONFILE + Prendre pour valeur de départ le contenu du fichier VERSIONFILE. + -g, --git-file-string [BRANCH:]VERSIONFILE + Prendre pour valeur de départ le contenu du fichier VERSIONFILE (qui + vaut par défaut VERSION.txt) dans la branche BRANCH (qui vaut par défaut + master) du dépôt git. Retourner 2 si on n'est pas situé dans un dépôt + git. + -G, --git-pom-string [BRANCH:]POMFILE + Prendre pour valeur de départ la version du fichier POMFILE (qui vaut + par défaut pom.xml) dans la branche BRANCH (qui vaut par défaut master) + du dépôt git. Retourner 2 si on n'est pas situé dans un dépôt git. + --git-prel-string + Prendre pour valeur de départ le numéro de version correspondant à la + branche de release courante. Retourner 1 si la branche courante n'est + pas une branche de release, 2 si on n'est pas situé dans un dépôt git. + -s, --string VERSION + Prendre pour valeur de départ le numéro de version spécifié + + --show + Afficher le numéro de version. C'est l'action par défaut + --check + Vérifier que le numéro de version est conforme aux règles du versionage + sémantique + --eq VERSION + --ne VERSION + --lt VERSION + --le VERSION + --gt VERSION + --ge VERSION + --same VERSION + --diff VERSION + Comparer avec la version spécifiée. Les opérateurs --eq, --ne, --lt, + --le, --gt, et --ge ignorent l'identifiant de build (comme le demande la + règle du versionage sémantique). Les opérateurs --same et --diff + comparent aussi les identifiants de build. + -u, --update + Mettre à jour le numéro de version. + +Les options suivantes impliquent --update: + -v, --set-version VERSION + Spécifier un nouveau numéro de version qui écrase la valeur actuelle. + Cette option ne devrait pas être utilisée en temps normal parce que cela + va contre les règles du versionage sémantique. + --prel + Spécifier un nouveau numéro de version qui écrase la valeur actuelle. Le + numéro de version est obtenu à partir du nom de la branche git courante, + qui doit être de la forme release-VERSION + --menu + Afficher un menu permettant de choisir le composant de la version à + incrémenter. + -x, --major + Augmenter le numéro de version majeure. + -z, --minor + Augmenter le numéro de version mineure. C'est la valeur par défaut, sauf + avec --maven-update où c'est l'option -p qui est sélectionnée par + défaut. + -p, --patchlevel + Augmenter le numéro de patch. + -k, --keep + Ne pas augmenter le numéro de version. Cette option est surtout utile + pour *convertir* un numéro de version existant et mettre à jour le + fichier correspondant. Elle est assumée si aucune option -[xzp] n'est + spécifiée et qu'une des options -[labrSRmM] est utilisée. + + -l, --prelease ID + Spécifier un identifiant de pré-release, à ajouter au numéro de version. + -a, --alpha + -b, --beta + -r, --rc + Spécifier une pré-release de type alpha, beta, ou rc. Si la version est + déjà dans ce type, augmenter la dernière valeur numérique des composants + de l'identifiant, e.g. alpha deviant alpha.1, beta-1.2 devient beta-1.3, + rc1 devient rc2 + XXX ces fonctions ne sont pas encore implémentées + -S, --snapshot + Ajouter l'identifiant SNAPSHOT, utilisé par Maven + -R, --final, --release + Supprimer l'identifiant de prérelease, utilisé par Maven + + -m, --metadata ID + Spécifier un identifiant de build, à ajouter au numéro de version. + -M, --vcs-metadata + Calculer l'identifiant de build à partir de la révision actuelle dans le + gestionnaire de version. Note: pour le moment, seul git est supporté. + --add-metadata ID + Ajouter l'identifiant spécifié à la valeur actuelle, au lieu de la + remplacer. Séparer l'identifiant de la valeur précédente avec un '.' + +OPTIONS AVANCEES + --show-source + Afficher le type de source qui sera traité, i.e. pom, file, pom-string, + file-string, git-pom-string, git-file-string + --vpath VPATH + Pour les options -e et -E, spécifier le chemin XPATH du tag qui contient + le numéro de version. + --map MAPFILE + Cette option permet de spécifier un fichier de règles qui indique les + fichiers pom.xml et VERSION.txt qui doivent être mis à jour dans un + projet multi-modules pour lequel les versions doivent être mises à jour + en même temps. + Par défaut, si un fichier nommé .pver-map existe dans le répertoire de + {POM,VERSION}FILE, cette option est automatiquement activée. Ainsi, on + n'aura besoin d'utiliser cette option que si l'on désire charger un + fichier alternatif ou ignorer le fichier par défaut. + Si une valeur vide est fournie, seul le fichier {POM,VERSION}FILE est + traité. Sinon, {POM,VERSION}FILE est utilisé uniquement pour chercher le + fichier .pver-map et seuls les fichiers mentionnés dans MAPFILE sont + traités. + Le fichier MAPFILE est constitué d'un ensemble de lignes de la forme + FILESPEC:VPATH + FILESPEC est requis et prend la forme d'une spécification de chemin + relatif au répertoire de MAPFILE et identifiant un ensemble de fichiers + de version. Si FILESPEC contient des wildcards, alors les fichiers + identifiés par ce chemin sont ignorés s'ils ont déjà été traités par une + règle précédente. Si FILESPEC ne contient pas de wildcards, alors le + fichier est systématiquement traité. + VPATH désigne le chemin XPATH vers le numéro de version qu'il faut + mettre à jour dans les fichiers pom.xml. Certaines valeurs spéciales + pour VPATH sont supportées: + (vide) le chemin par défaut est utilisé pour ce fichier, c'est à + dire /project/version ou /project/parent/version en fonction + du contenu du fichier + - le fichier pom.xml n'est pas modifié (il est ignoré) + D alias pour le chemin XPATH /project/version + P alias pour le chemin XPATH /project/parent/version + Pour les fichiers VERSION.txt, VPATH doit être vide + Le fichier de version correspondant au premier fichier de la première + ligne de MAPFILE contient la version de référence, qui est dupliquée + dans tous les autres fichiers. + --allow-empty + Supporter que la version puisse ne pas être spécifiée ni trouvée. Sans + cette option, on assume que la version effective est 0.0.0 si elle n'est + pas spécifiée ni trouvée. + Avec --show et --update, ne rien afficher si la version est vide. + --convert + --no-convert + Activer (resp. désactiver) la conversion automatique. Par défaut, si la + version est au format classique 'x.z[.p]-rDD/MM/YYYY', elle est + convertie automatiquement au format sémantique x.z.p+rYYYYMMDD + -t, --maven-update + Mettre à jour le numéro de version selons les règles de Maven. Cette + option est automatiquement activée si -e est sélectionné. Elle n'est + prise en compte qu'avec l'option -u + Si les options -R et -S ne sont pas spécifiée, alors une release est + transformée en snapshot et une snapshot en release. Avec -R, une + snapshot est transformée en release, et une release est traitée / + incrémentée normalement. Avec -S une release est transformée en + snapshot, et un snapshot est traité / incrémentée normalement. + Si l'une des options -x, -z, -p est utilisée, alors la partie spécifiée + est incrémentée selon les règles suivantes. Dans les exemples suivants, + A est un nombre quelconque, B = A + 1, et x, y et z sont des nombres + quelconques. + Avec l'option -x: + A.0.0-SNAPSHOT --> A.0.0 + A.x.y-SNAPSHOT --> B.0.0 + x.A.y --> x.B.0-SNAPSHOT + Avec l'option -z: + x.A.0-SNAPSHOT --> x.A.0 + x.A.y-SNAPSHOT --> x.B.0 + x.A.y --> x.B.0-SNAPSHOT + Avec l'option -p, qui est celle sélectionnée par défaut: + x.y.z-SNAPSHOT --> x.y.z + x.y.A --> x.y.B-SNAPSHOT +~~~ + +-*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8:noeol:binary \ No newline at end of file diff --git a/doc/pz.md b/doc/tools/pz.md similarity index 100% rename from doc/pz.md rename to doc/tools/pz.md diff --git a/doc/reptyr.cgo.md b/doc/tools/reptyr.cgo.md similarity index 100% rename from doc/reptyr.cgo.md rename to doc/tools/reptyr.cgo.md diff --git a/doc/rmtildes.md b/doc/tools/rmtildes.md similarity index 100% rename from doc/rmtildes.md rename to doc/tools/rmtildes.md diff --git a/doc/rruns.md b/doc/tools/rruns.md similarity index 100% rename from doc/rruns.md rename to doc/tools/rruns.md diff --git a/doc/ruinst.md b/doc/tools/ruinst.md similarity index 100% rename from doc/ruinst.md rename to doc/tools/ruinst.md diff --git a/doc/rumount.md b/doc/tools/rumount.md similarity index 100% rename from doc/rumount.md rename to doc/tools/rumount.md diff --git a/doc/runs.md b/doc/tools/runs.md similarity index 96% rename from doc/runs.md rename to doc/tools/runs.md index 3ecd61c..a648b04 100644 --- a/doc/runs.md +++ b/doc/tools/runs.md @@ -40,7 +40,7 @@ Gestion des scripts {$RUNSHOSTSPATH}/$hostname.$domain (par défaut) et {$RUNSHOSTSPATH}/$domain/$hostname (le cas échéant) L'option --host est équivalente, sauf que son argument est facultatif et - que sa valeur par défaut est l'hôte courant, soit sulfure + que sa valeur par défaut est l'hôte courant, soit natrix --list Afficher la liste des scripts qui sont disponibles. Avec l'option -h, inclure aussi les scripts spécifiques à cet hôte. diff --git a/doc/runsconfig.md b/doc/tools/runsconfig.md similarity index 100% rename from doc/runsconfig.md rename to doc/tools/runsconfig.md diff --git a/doc/runsmod.md b/doc/tools/runsmod.md similarity index 89% rename from doc/runsmod.md rename to doc/tools/runsmod.md index 8c5bf5e..b68b3f3 100644 --- a/doc/runsmod.md +++ b/doc/tools/runsmod.md @@ -11,6 +11,9 @@ sont spécifiés, les dépôts correspondants sont récupérés aussi. Avec l'op -h, des dépôts spécifiques à l'hôte peuvent éventuellement être récupérés en plus. +Il est possible de spécifier le module '*' pour récupérer tous les modules +disponibles. C'est utile sur un poste de développement. + OPTIONS -c, --config CONFIG Spécifier un fichier de configuration à charger au lieu de la valeur par @@ -33,12 +36,15 @@ OPTIONS --no-host demande explicitement à ce qu'aucun hôte ne soit spécifié --all-hosts sélectionne tous les dépôts spécifiques --host récupère uniquement les dépôts pour l'hôte spécifié - --this-host équivaut à --host sulfure + --this-host équivaut à --host natrix L'option par défaut est --this-host en mode production et --all-hosts en mode développement --update-repolist Forcer la mise à jour de la liste des dépôts. En principe, cette mise à jour n'est pas faite plus d'une fois par période de 24 heures. + --shallow-clone + Faire un clone avec une profondeur de 1. C'est la valeur par défaut pour + le mode production. -0, --offline -n, --no-pull -u, --pull diff --git a/doc/rwoinst.md b/doc/tools/rwoinst.md similarity index 100% rename from doc/rwoinst.md rename to doc/tools/rwoinst.md diff --git a/doc/sqlcsv.md b/doc/tools/sqlcsv.md similarity index 100% rename from doc/sqlcsv.md rename to doc/tools/sqlcsv.md diff --git a/doc/twsync.md b/doc/tools/twsync.md similarity index 100% rename from doc/twsync.md rename to doc/tools/twsync.md diff --git a/doc/uawk.md b/doc/tools/uawk.md similarity index 100% rename from doc/uawk.md rename to doc/tools/uawk.md diff --git a/doc/ubackup.md b/doc/tools/ubackup.md similarity index 100% rename from doc/ubackup.md rename to doc/tools/ubackup.md diff --git a/doc/ucalc.md b/doc/tools/ucalc.md similarity index 100% rename from doc/ucalc.md rename to doc/tools/ucalc.md diff --git a/doc/uconf.md b/doc/tools/uconf.md similarity index 100% rename from doc/uconf.md rename to doc/tools/uconf.md diff --git a/doc/ucrontab.md b/doc/tools/ucrontab.md similarity index 100% rename from doc/ucrontab.md rename to doc/tools/ucrontab.md diff --git a/doc/udaemon.cgo.md b/doc/tools/udaemon.cgo.md similarity index 100% rename from doc/udaemon.cgo.md rename to doc/tools/udaemon.cgo.md diff --git a/doc/udir.md b/doc/tools/udir.md similarity index 100% rename from doc/udir.md rename to doc/tools/udir.md diff --git a/doc/udist.md b/doc/tools/udist.md similarity index 100% rename from doc/udist.md rename to doc/tools/udist.md diff --git a/doc/uenv.md b/doc/tools/uenv.md similarity index 100% rename from doc/uenv.md rename to doc/tools/uenv.md diff --git a/doc/ufixmod.md b/doc/tools/ufixmod.md similarity index 100% rename from doc/ufixmod.md rename to doc/tools/ufixmod.md diff --git a/doc/ugenpass.md b/doc/tools/ugenpass.md similarity index 100% rename from doc/ugenpass.md rename to doc/tools/ugenpass.md diff --git a/doc/uinc.md b/doc/tools/uinc.md similarity index 100% rename from doc/uinc.md rename to doc/tools/uinc.md diff --git a/doc/uinc.sh.md b/doc/tools/uinc.sh.md similarity index 100% rename from doc/uinc.sh.md rename to doc/tools/uinc.sh.md diff --git a/doc/uinst.md b/doc/tools/uinst.md similarity index 100% rename from doc/uinst.md rename to doc/tools/uinst.md diff --git a/doc/uinst.sh.md b/doc/tools/uinst.sh.md similarity index 100% rename from doc/uinst.sh.md rename to doc/tools/uinst.sh.md diff --git a/doc/ujava.md b/doc/tools/ujava.md similarity index 100% rename from doc/ujava.md rename to doc/tools/ujava.md diff --git a/doc/uldap.md b/doc/tools/uldap.md similarity index 100% rename from doc/uldap.md rename to doc/tools/uldap.md diff --git a/doc/tools/ulib.md b/doc/tools/ulib.md new file mode 100644 index 0000000..281a9cf --- /dev/null +++ b/doc/tools/ulib.md @@ -0,0 +1,63 @@ +# ulib + +~~~ +ulib: Gestion des librairies ulib et pyulib + +USAGE + ulib [options] --destdir DESTDIR [options] + ulib [options] --version [options] + ulib [options] --shell [options] + +SYNCHRONISER ULIB/PYULIB + -S, --sync + Synchroniser ulib, pyulib et les scripts de support + -d, --destdir DESTDIR + Synchroniser ulib et/ou pyulib dans le répertoire destdir. + Les options -u et -p permettent de choisir ce qui est synchronisé + -u, --ulib + Copier/mettre à jour ulib (par défaut) + -p, --pyulib + Copier/mettre à jour pyulib + -s, --support + Copier/mettre à jour les scripts de support + +GERER LA VERSION DE ULIB + -v, --version + Gérer la version de ulib + -l, --show + Afficher la version de la librairie (par défaut) + -s, --system + Afficher aussi la version de la librairie système + -c, --check MIN_VERSION + Vérifier que la version de la librairie est au minimum MIN_VERSION, et + afficher un message d'information. Utiliser l'option -q si l'on veut + juste tester la version et ne pas afficher le message d'information. + -V, --set-version VERSION + Forcer la version de ulib + -u, --update + Incrémenter la version de ulib. Les options -x, -z, -p permettent de + choisir le numéro qui est incrémenté. + -x, --major + Augmenter le numéro de version majeure + -z, --minor + Augmenter le numéro de version mineure. C'est l'option par défaut + -p, --patchlevel + Augementer le numéro de patch + +LANCER UN SHELL (par défaut) + -s, --shell + Lancer un shell dans lequel les modules de ulib spécifiés sont chargés. + De plus, PATH est modifié pour que /home/jclain/wop/modules/nutools soit ajouté en premier. + Les arguments restants sont passés inchangés au shell. + -r, --require module + Spécifier un module à charger avec urequire. Plusieurs modules peuvent + être spécifiés en les séparant par ':' + Par défaut, seul le module DEFAULTS est chargé. + --force-reload + Forcer le (re)chargement des modules avec urequire. Cette option est + utile pour le développement. En effet, dans le shell, la commande + 'urequire module' (re)charge toujours le module, même s'il avait déjà + été chargé. +~~~ + +-*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8:noeol:binary \ No newline at end of file diff --git a/doc/ulink.md b/doc/tools/ulink.md similarity index 100% rename from doc/ulink.md rename to doc/tools/ulink.md diff --git a/doc/umatch.md b/doc/tools/umatch.md similarity index 100% rename from doc/umatch.md rename to doc/tools/umatch.md diff --git a/doc/umirror.md b/doc/tools/umirror.md similarity index 100% rename from doc/umirror.md rename to doc/tools/umirror.md diff --git a/doc/tools/umountr.md b/doc/tools/umountr.md new file mode 100644 index 0000000..4caac66 --- /dev/null +++ b/doc/tools/umountr.md @@ -0,0 +1,18 @@ +# umountr + +~~~ +umountr: démonter un système de fichier récursivement + +USAGE + umountr mountpoint + +Démonter tous les systèmes de fichiers qui sont montés en-dessous de mountpoint +puis démonter mountpoint. Démonter aussi tous les systèmes de fichiers +bind-montés à partir d'un sous-répertoire de mountpoint. + +OPTION + -c, --continuous + Continuer même en cas d'erreur +~~~ + +-*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8:noeol:binary \ No newline at end of file diff --git a/doc/upassword.md b/doc/tools/upassword.md similarity index 100% rename from doc/upassword.md rename to doc/tools/upassword.md diff --git a/doc/tools/update-nutools.md b/doc/tools/update-nutools.md new file mode 100644 index 0000000..4ba94b0 --- /dev/null +++ b/doc/tools/update-nutools.md @@ -0,0 +1,16 @@ +# update-nutools + +~~~ +update-nutools: mettre à jour nutools + +USAGE: + update-nutools [--develop] + +OPTIONS + -d, --develop + Mettre à jour avec la branche develop pour avoir les dernières fonctions + qui ne sont pas encore stabilisées. Par défaut, la mise à jour est faite + avec la branche master. +~~~ + +-*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8:noeol:binary \ No newline at end of file diff --git a/doc/uprefix.md b/doc/tools/uprefix.md similarity index 100% rename from doc/uprefix.md rename to doc/tools/uprefix.md diff --git a/doc/uproject.md b/doc/tools/uproject.md similarity index 95% rename from doc/uproject.md rename to doc/tools/uproject.md index 15555c3..93b3e16 100644 --- a/doc/uproject.md +++ b/doc/tools/uproject.md @@ -56,8 +56,9 @@ COMMANDS -R Afficher les modifications effectuées depuis la dernière release. clone git@host:path/to/repo [destdir] - Cloner un dépôt distant. Initialiser git annex si le dépôt contient des - fichiers annexés. Récupérer aussi ces fichiers avec 'git annex get' + Cloner un dépôt distant. Basculer sur la branche develop si elle existe. + Initialiser git annex si le dépôt contient des fichiers annexés. + Récupérer aussi ces fichiers avec 'git annex get' crone git@host:path/to/repo [destdir] Créer un dépôt distant sur gitolite, puis le cloner diff --git a/doc/uscrontab.md b/doc/tools/uscrontab.md similarity index 100% rename from doc/uscrontab.md rename to doc/tools/uscrontab.md diff --git a/doc/ussh.md b/doc/tools/ussh.md similarity index 100% rename from doc/ussh.md rename to doc/tools/ussh.md diff --git a/doc/usysinfos.md b/doc/tools/usysinfos.md similarity index 100% rename from doc/usysinfos.md rename to doc/tools/usysinfos.md diff --git a/doc/utempl.md b/doc/tools/utempl.md similarity index 100% rename from doc/utempl.md rename to doc/tools/utempl.md diff --git a/doc/utrigger.md b/doc/tools/utrigger.md similarity index 100% rename from doc/utrigger.md rename to doc/tools/utrigger.md diff --git a/doc/uwatch.md b/doc/tools/uwatch.md similarity index 100% rename from doc/uwatch.md rename to doc/tools/uwatch.md diff --git a/doc/vzusage.md b/doc/tools/vzusage.md similarity index 100% rename from doc/vzusage.md rename to doc/tools/vzusage.md diff --git a/doc/woArchive.md b/doc/tools/woArchive.md similarity index 100% rename from doc/woArchive.md rename to doc/tools/woArchive.md diff --git a/doc/woSwitch.md b/doc/tools/woSwitch.md similarity index 100% rename from doc/woSwitch.md rename to doc/tools/woSwitch.md diff --git a/doc/woctl.md b/doc/tools/woctl.md similarity index 100% rename from doc/woctl.md rename to doc/tools/woctl.md diff --git a/doc/woinst.md b/doc/tools/woinst.md similarity index 100% rename from doc/woinst.md rename to doc/tools/woinst.md diff --git a/doc/wosign.md b/doc/tools/wosign.md similarity index 100% rename from doc/wosign.md rename to doc/tools/wosign.md diff --git a/doc/twsync.twp b/doc/twsync.twp deleted file mode 100644 index c867f77..0000000 --- a/doc/twsync.twp +++ /dev/null @@ -1,39 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:20 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: twsync - -{{{ -twsync: synchroniser un répertoire de wiki avec un tiddlywiki - -USAGE - twsync [options] - -Un répertoire de wiki est un répertoire où chaque page est contenu dans un -fichier avec l'extension .twp -Un tiddlywiki est un fichier html contenant le code de TiddlyWiki et les données -associées. - -OPTIONS - -d wikidir - -f wikifile - Spécifier le répertoire de wiki et le tiddlywiki à traiter. Par défaut, - il s'agit de wiki.html dans le répertoire courant. - -u Importer les pages de wikidir dans le tiddlywiki. Utiliser cette action - quand les pages de wikidir sont modifiées et qu'il faut mettre à jour le - tiddlywiki. - Il s'agit de l'action par défaut - --force - Forcer l'importation des pages même si les tiddlers correspondant sont - plus récents dans le tiddlywiki - Forcer aussi la regénération de wikifile même si aucune modification n'a - été détectée - -e Exporter les tiddlers du tiddlywiki vers wikidir. Utiliser cette action - quand le tiddlywiki a été modifié, et qu'il faut synchroniser wikidir - avec les dernières modifications. - -U Mettre à jour le fichier wikifile avec la dernière version de tiddlywiki - située dans ~/wop/modules/nutools/lib/tiddlywiki/empty.html -}}} diff --git a/doc/uawk.twp b/doc/uawk.twp deleted file mode 100644 index 494c2d8..0000000 --- a/doc/uawk.twp +++ /dev/null @@ -1,17 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: uawk - -{{{ -uawk: wrapper pour des outils implémentés en awk - -USAGE - uawk TOOL args... - -Les noms d'outils valides sont: awkrun awkcsv grepcsv awkfsv2csv mergecsv sortcsv dumpcsv printcsv -Utiliser l'option --help pour obtenir de l'aide sur chacun des outils -}}} diff --git a/doc/ubackup.twp b/doc/ubackup.twp deleted file mode 100644 index 90510bb..0000000 --- a/doc/ubackup.twp +++ /dev/null @@ -1,24 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:20 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ubackup - -{{{ -ubackup: faire une sauvegarde des fichiers - -USAGE - ubackup [options] - -OPTIONS - -l Lister les profils de sauvegarde disponibles. - -p Spécifier le profil de sauvegarde à effectuer. Par défaut, toutes les - sauvegardes sont effectuées. - -u USER - Faire le sauvegarde pour l'utilisateur $USER. Cette option n'est valide - que pour l'utilisateur root. - -n Afficher ce qui doit être fait plutôt que de le faire - -H Arrêter la machine après une sauvegarde REUSSIE. -}}} diff --git a/doc/ucalc.twp b/doc/ucalc.twp deleted file mode 100644 index 87c3bef..0000000 --- a/doc/ucalc.twp +++ /dev/null @@ -1,35 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ucalc - -{{{ -ucalc: Afficher une valeur dans plusieurs unités - -USAGE - ucalc value - -Sans suffixe, la valeur est exprimée en octets. Sinon, elle peut être suffixée -pour spécifier l'unité dans laquelle est exprimée la valeur: - K,M,G,T -- Kibi (1024), Mibi (1024^2), Gibi (1024^3), Tebi (1024^4) - k,m,g,t -- Kilo (1000), Mega (1000^2), Giga (1000^3), Tera (1000^4) - s -- secteurs de 512 octets - S -- secteurs de 2048 octets - p -- pages de 4096 octets - c -- cylindres (si l'option -c est spécifiée) - b -- octets - -OPTIONS - -u UNIT - Spécifier l'unité de value. Le suffixe qui est éventuellement sur value - est ignoré. - -o UNIT - Spécifier l'unité en sortie. Par défaut, afficher la valeur dans toutes - les unités supportées. - -c VALUE - Taille d'un cylindre en octets, pour permettre l'affichage des valeurs - en cylindres -}}} diff --git a/doc/uconf.twp b/doc/uconf.twp deleted file mode 100644 index 14fa196..0000000 --- a/doc/uconf.twp +++ /dev/null @@ -1,56 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: uconf - -{{{ -uconf: Activer ou désactiver un paramètre dans un fichier de configuration - -USAGE - uconf [options] config name[=value]... - -OPTIONS - -e - Activer le paramètre (par défaut). Si le paramètre existe, mais est - commenté, il est décommenté. Si une valeur est spécifiée pour le - paramètre, le paramètre est modifié dans le fichier en conséquence. - -q - Cette option s'utilise avec l'option -e et le type shell. Elle permet - de s'assurer que les valeurs ayant des espaces et/ou des caractères - spéciaux sont quotées - -d - Désactiver le paramètre. Le paramètre est commenté s'il existe dans le - fichier - -a - Ajouter une valeur à la variable, ou un paramètre avec cette valeur - (suivant le type de fichier de configuration) - -A - Ajouter une valeur au tableau, ou un paramètre avec cette valeur - (suivant le type de fichier de configuration) - -t TYPE - Type de fichier de configuration. TYPE peut être sh (par défaut), apache - ou mysql. - shell - les paramètres sont de la forme 'name=value', et les commentaires - débutent par '#'. Ce type peut être utilisé pour tous les fichiers - ayant ces caractéristiques, dont les fichiers de script shell - apache - les paramètres sont de la forme 'name value', et les commentaires - débutent par '#'. Ce type peut être utilisé pour tous les fichiers - ayant ces caractéristiques, dont les fichiers de configuration - apache - mysql, php - les paramètres sont dans des sections nommées de la forme [section], - sont de la forme 'name=value', et les commentaires débutent par '#' - ou ';' - Ce type peut être utilisé pour tous les fichiers ayant ces - caractéristiques, dont les fichiers de configuration de mysql et de - php. Avec ce type, la section est obligatoire. - -s SECTION - Avec le type mysql, préciser la section dans laquelle inscrire le - paramètre. Attention! La section DOIT exister, elle n'est pas créée - automatiquement. -}}} diff --git a/doc/ucrontab.twp b/doc/ucrontab.twp deleted file mode 100644 index a077fa1..0000000 --- a/doc/ucrontab.twp +++ /dev/null @@ -1,90 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:20 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ucrontab - -{{{ -ucrontab: Ajouter/Supprimer une ligne dans crontab - -USAGE - ucrontab [options] ctline - -OPTIONS - -a Ajouter la ligne dans le fichier crontab (par défaut) - -r Enlever la ligne dans le fichier crontab - -u user - Spécifier l'utilisateur pour lequel on modifie crontab. Par défaut, - modifier le crontab de root - -H host:hosts... - Modifier le crontab sur les hôtes distants spécifiés. Avec l'hôte '.' ou - 'localhost', la modification est faite sur l'hôte local - Si l'action est -a, un script 'undo-ucrontab.sh' est créé dans le - répertoire courant, qui annule la planification. Il est possible de - lancer ce script le lendemain pour enlever les planifications - installées. - ctline - Ligne de crontab de la forme 'minutes hours days months dows command' - Si la ligne est de la forme halt[@hh:mm], la commande 'shutdown -h now' - est planifiée pour le LENDEMAIN à hh:mm. si hh:mm n'est pas spécifié, - l'arrêt est planifié pour 7:00 - -t hh:mm - Ignorer la partie 'minutes hours days months dows' de ctline, et la - remplacer par une planification à hh:mm le LENDEMAIN. - --dom dayOfMonth - --month month - Spécifier respectivement le jour du mois et le mois (1-12) auquel faire - la planification. Par défaut, les planifications sont effectuées pour le - LENDEMAIN. Il est conseillé de spécifier les deux arguments si le jour - doit être fixé. - -s cmdfile - Spécifier un fichier, dont le contenu est utilisé pour générer le script - qui est planifié. Le fichier doit contenir l'ensemble des commandes à - exécuter. Le script est modifié pour s'autodétruire à la fin de son - exécution. Si ce comportement n'est pas souhaité, il faut rajouter la - commande 'exit 0' à la fin. - -S cmd - Comme -s, mais spécifier le contenu du fichier directement sur la ligne - de commande. - -f hostsfile - Spécifier un fichier qui contient la liste des hôtes sur lesquels faire - les planifications. - Les options -s, -S, -H, -d, -n sont ignorées. L'option --add est valide - jusqu'au premier @group du fichier. Voici le format de ce fichier: - - Un groupe d'hôte débute par une ligne de la forme '@group:adelay:gdelay' - - adelay est le nombre de minutes à laisser passer entre les hôtes du - groupe (par défaut 1) - - gdelay est le nombre de minutes à laisser passer après le traitement - du groupe (par défaut 15) - Les autres lignes sont des hôtes sur lequels planifier l'opération, de - la forme 'host:cmd' - - host est un nom d'hôte pleinement qualifié, sur lequel il est possible - de se connecter par clé. - - cmd est une description de la commande à lancer pour effectuer - l'opération planifiée. Utiliser la syntaxe ' - -OPTIONS - var=value - Spécifier la valeur d'une variable ou d'un préfixe, plutôt que de - laisser uprefix l'autodétecter. Utiliser 'uprefix -l' pour avoir une - liste de préfixes valides. Utiliser 'udir --help-vars' pour avoir une - liste de variables valides pour uinst.sh. - -d /path/to/destdir - Spécifier le répertoire destination, exactement comme si la valeur - destdir avait été spécifiée, i.e destdir="/path/to/destdir" - -h, --host [user@]host - Avec la méthode de déploiement uinst:rsync, permettre de spécifier un - hôte différent. Cette option est ignorée pour les autres méthodes de - déploiement. Si host vaut localhost, un déploiement local avec ssh est - effectué. Si host vaut '.', un déploiement local *sans passer par ssh* - est effectué, comme si seul le chemin avait été spécifié. - Cette option initialise la valeur destdir_override_userhost - -S, --ssh ssh - Avec la méthode de déploiement uinst:rsync, spécifier le programme à - utiliser pour la connection par ssh. Cette option initialise la valeur - destdir_ssh - --force-remote - Avec la méthode de déploiement uinst:rsync, si un hôte est spécifié dans - la valeur de destdir, forcer le déploiement distant avec ssh+rsync, même - si l'hôte et l'utilisateur correspondent aux valeurs courantes. Cette - option initialise la valeur destdir_force_remote - -a, --auto - Si la source n'est pas spécifiée, déterminer le répertoire à déployer - automatiquement (c'est la valeur par défaut) - --no-auto - Ne pas déterminer automatiquement le répertoire à déployer. - --prefix - Corriger les chemins srcdir et destdir qui commencent par des préfixes - valides (c'est la valeur par défaut). Utiliser 'uprefix -l' pour avoir - une liste de préfixes valides - --no-prefix - Ne jamais corriger un chemin. - --include-vcs - Inclure les fichiers de VCS dans les fichiers copiés. Par défaut, les - fichiers de VCS sont exclus. - -l, --local-profiles - Installer les profils locaux comme tels - --shared-profiles - Installer les profils locaux comme des profils partagés. C'est la valeur - par défaut pour compatibilité. - -C Configurer un répertoire pour le déploiement avec uinst - Ajouter l'option --force pour forcer la reconfiguration -}}} diff --git a/doc/uinst.twp b/doc/uinst.twp deleted file mode 100644 index e2f3338..0000000 --- a/doc/uinst.twp +++ /dev/null @@ -1,61 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: uinst - -{{{ -uinst: Déployer en local un fichier, une archive, ou un répertoire - -USAGE - uinst [options] - -OPTIONS - var=value - Spécifier la valeur d'une variable ou d'un préfixe, plutôt que de - laisser uprefix l'autodétecter. Utiliser 'uprefix -l' pour avoir une - liste de préfixes valides. Utiliser 'udir --help-vars' pour avoir une - liste de variables valides pour uinst. - -d /path/to/destdir - Spécifier le répertoire destination, exactement comme si la valeur - destdir avait été spécifiée, i.e destdir="/path/to/destdir" - -h, --host [user@]host - Avec la méthode de déploiement uinst:rsync, permettre de spécifier un - hôte différent. Cette option est ignorée pour les autres méthodes de - déploiement. Si host vaut localhost, un déploiement local avec ssh est - effectué. Si host vaut '.', un déploiement local *sans passer par ssh* - est effectué, comme si seul le chemin avait été spécifié. - Cette option initialise la valeur destdir_override_userhost - -S, --ssh ssh - Avec la méthode de déploiement uinst:rsync, spécifier le programme à - utiliser pour la connection par ssh. Cette option initialise la valeur - destdir_ssh - --force-remote - Avec la méthode de déploiement uinst:rsync, si un hôte est spécifié dans - la valeur de destdir, forcer le déploiement distant avec ssh+rsync, même - si l'hôte et l'utilisateur correspondent aux valeurs courantes. Cette - option initialise la valeur destdir_force_remote - -a, --auto - Si la source n'est pas spécifiée, déterminer le répertoire à déployer - automatiquement (c'est la valeur par défaut) - --no-auto - Ne pas déterminer automatiquement le répertoire à déployer. - --prefix - Corriger les chemins srcdir et destdir qui commencent par des préfixes - valides (c'est la valeur par défaut). Utiliser 'uprefix -l' pour avoir - une liste de préfixes valides - --no-prefix - Ne jamais corriger un chemin. - --include-vcs - Inclure les fichiers de VCS dans les fichiers copiés. Par défaut, les - fichiers de VCS sont exclus. - -l, --local-profiles - Installer les profils locaux comme tels - --shared-profiles - Installer les profils locaux comme des profils partagés. C'est la valeur - par défaut pour compatibilité. - -C Configurer un répertoire pour le déploiement avec uinst - Ajouter l'option --force pour forcer la reconfiguration -}}} diff --git a/doc/ujava.twp b/doc/ujava.twp deleted file mode 100644 index 828dec2..0000000 --- a/doc/ujava.twp +++ /dev/null @@ -1,30 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ujava - -{{{ -ujava: Lancer un script après avoir sélectionné une version de java - -USAGE - ujava [options] version [args...] - -OPTIONS - -b, --bits 32|64|auto - --32 - --64 - Sélectionner une version 32 ou 64 bits de java - -e, --exact - Sélectionner la version *exacte* de java demandée, au lieu de la version - minimum correspondant à la version demandée. - Si la version requise de java n'est pas trouvée, retourner avec le code - d'erreur 254. - -La version de java attendue peut-être exprimée de l'une des façons suivantes: -1.4 1.4+ 1.5 1.5+ 1.6 1.6+ 1.7 1.7+ -Si args n'est pas spécifié, un shell est lancé dans lequel les variables -JAVA_HOME, JAVA, JAVAC et PATH sont mis à jour. -}}} diff --git a/doc/uldap.twp b/doc/uldap.twp deleted file mode 100644 index 269fd8f..0000000 --- a/doc/uldap.twp +++ /dev/null @@ -1,227 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: uldap - -{{{ -uldap: Shell pour accéder à un serveur ldap - -USAGE - uldap [options] - -OPTIONS - -C profile - Sélectionner un profil de connexion. Par défaut, si l'option -H n'est - pas spécifiée, le premier profil est sélectionné. - -x Ne pas tenter de faire une connexion sur le profil par défaut si aucun - profil n'est sélectionné. - -f script - Lire les commandes depuis le script spécifié. - -n Avec un script donné en ligne de commande ou lu depuis un fichier, ne pas - ajouter automatiquement la commande print à la fin - -i Si un script est spécifié, passer en mode interactif après l'exécution - du script. - -e Forcer l'arrêt du script si une erreur se produit. C'est l'option par - défaut pour un script spécifié avec -f. - -l input.ldif - Charger le fichier input.ldif comme espace de travail initial - -H ldapuri - -D binddn - -w password - -b searchbase - -v var=value - -COMMANDES - $ cmd - Passer directement une commande au shell. - set [options] [var=value...] - Changer des options ou des variables. set sans argument affiche la liste - des variables définies. - [set] plain - Passer en mode 'plain': indiquer que l'espace de travail contient des - données brutes. Les pré-traitements et post-traitements (uncut_on_load, - decode_on_load, encode_on_save, cut_on_save) ne sont pas appliqués sur - cet espace de travail - [set] ldif - Passer en mode 'ldif': indiquer que l'espace de travail contient des - données ldif. Les pré-traitements et post-traitements sont appliqués - normalement sur cet espace de travail - [set] append - Pour certaines opérations, spécifier si le résultat de la *prochaine* - opération remplace le contenu de l'espace de travail courant (par - défaut), ou si le résultat est ajouté à la fin. - last - Afficher en mode édition la dernière commande. Cette commande n'est - fonctionnelle qu'avec une version de bash >=4.x - profile name - Choisir le profil 'name'. Equivalent à 'set profile=name'. Sans - argument, afficher la liste des profils valides. - auth anonymous|binddn [password] - Spécifier le compte à utiliser pour se connecter. Equivalent à - 'set binddn=binddn; set password=password' - clear [-k] - Vider l'espace de travail et passer en mode 'plain'. - Avec l'option -k, supprimer aussi tout l'historique d'annulation. - load [-k] input - Charger un fichier dans l'espace de travail. Si l'extension du fichier - est .ldif, passer en mode 'ldif' - En mode append, rajouter le contenu du fichier à l'espace de travail, - puis repasser en mode replace. - Le code de retour est 0 si le fichier a été chargé, 1 sinon. - save [-a] output - Sauvegarder l'espace de travail dans un fichier. - Avec l'option -a, rajouter au fichier au lieu de l'écraser - print - Afficher l'espace de travail - alias a=rdn... - Définir un alias pour la commande cd. 'a' est l'alias, 'rdn' est le dn - correspondant, exprimé par rapport à $suffix. Sans argument, afficher - la liste des aliases définis. - cd rdn - Changer searchbase. Par défaut, il s'agit d'un rdn relatif à $searchbase - - Certains aliases sont supportés: .. pour l'objet parent, ~ pour - $suffix, / pour la racine. 'cd' sans argument équivaut à 'cd ~' - - Si le dn commence par '~/', il s'agit d'un rdn relatif à $suffix. - - Si le dn commence par /, searchbase reçoit la valeur rdn sans - modifications (sauf bien sûr enlever le '/' de tête si nécessaire). Il - faut alors que ce soit un dn absolu. - ls [-b searchbase] [filter [attrs...]] - search [-b searchbase] [filter [attrs...]] - Utiliser ldapsearch pour faire la recherche, et copier le résultat dans - l'espace de travail. 'ls' est équivalent à 'search -s one'. Si ce n'est - pas déjà le cas, passer en mode 'ldif'. - L'option -b prend une valeur avec la même syntaxe que la commande cd, - sauf que les alias ne sont pas supportés. En particulier, la valeur est - relative au $searchbase courant. Pour faire une recherche par rapport à - $suffix, il faut utiliser la syntaxe ~/searchbase. - En mode append, rajouter le résultat de la recherche à l'espace de - travail, puis repasser en mode replace. - Le code de retour est 1 si aucun enregistrement n'a été trouvé, sinon - le code de retour est celui de la commande ldapsearch. - cut Couper les lignes trop longues. Cette action est en principe effectuée - automatiquement lors de la sauvegarde. Il n'est pas conseillé - d'appliquer des méthodes de transformation après avoir utilisé cette - action. - uncut - Fusionner les lignes coupées. Cette action est en principe effectuée - automatiquement lors du chargement ou après la recherche. - encode [attrs...] - Encoder en base64 les valeurs des attributs mentionnés. - decode [attrs...] - Décoder les valeurs des attributs mentionnés si nécessaire (c'est à dire - s'ils sont encodés en base64) - keepattr attrs... - Garder uniquement les lignes des attributs mentionnés. Ensuite, - supprimer les objets ayant uniquement la ligne dn: (en d'autres termes, - keepattr sans argument supprime *tout* l'espace de travail) - keepval attr patterns... - Pour l'attribut attr, garder uniquement les lignes pour lesquelles les - valeurs correspondent aux expressions régulières. Les autres attributs - ne sont pas modifiés. Ensuite, supprimer les objets ayant uniquement la - ligne dn: - exclude attrs... - Supprimer les lignes des attributs mentionnés. Ensuite, supprimer les - objets ayant uniquement la ligne dn: - excludeval attr patterns... - Pour l'attribut attr, supprimer les lignes pour lesquelles les - valeurs correspondent aux expressions régulières. Les autres attributs - ne sont pas modifiés. Ensuite, supprimer les objets ayant uniquement la - ligne dn: - keepvalentry attr patterns... - Pour l'attribut attr, vérifier si *au moins une* valeur correspond à - l'une des expressions régulières. Si c'est le cas, garder l'entrée - entière, sinon supprimer l'entrée. - excludevalentry attr patterns... - Pour l'attribut attr, vérifier si *aucune* des valeurs ne correspond à - l'une des expressions régulières. Si c'est le cas, garder l'entrée - entière, sinon supprimer l'entrée. - setval attr values... - Remplacer toutes les valeurs de l'attribut attr par les valeurs - spécifiées. - addval attr values... - Ajouter un nouvel attribut avec les valeurs spécifiées. Si l'attribut - existe déjà, les nouvelles valeurs sont ajoutées à la fin. - sed args - Modifier l'espace de travail avec le résultat de la commande sed. - note: aucun argument n'est filtré, mais il ne faut pas utiliser les - options de sed qui provoquent la modification en place du fichier, - comme par exemple l'option -i - awk args - Modifier l'espace de travail avec le résultat de la commande awk. - grep args - Modifier l'espace de travail avec le résultat de la commande grep. - format [options] attrs... - Formater l'espace de travail en données tabulaires, et passer en mode - 'plain'. - --show-headers - Afficher les en-têtes - -F FSEP - Spécifier le séparateur pour les attributs. Par défaut, il s'agit du - caractère de tabulation. - -R VSEP - Spécifier le séparateur pour les valeurs des attributs. Par défaut, il - s'agit du point-virgule ';' - -e Retourner les valeurs comme des variables shell. Les options -F et -R - sont ignorées. Les attributs multivalués sont écrits sous forme de - tableaux. Par exemple: - attributes=('mail' 'givenName') - index=0 - mail='user@domain.fr' - givenName=('peter' 'gabriel') - --bc - Dans le mode -e, spécifier une commande à insérer avant le premier - enregistrement. Quand cette commande est lancée, index==-1 - -c Dans le mode -e, spécifier une commande à insérer après chaque - enregistrement - --ec - Dans le mode -e, spécifier une commande à insérer après le dernier - enregistrement - sort [args] - Modifier l'espace de travail avec le résultat de la commande sort. - edit - Lancer un éditeur pour modifier l'espace de travail. - diff [options] - Afficher les différences entre l'espace de travail et la version - précédente - ifok cmd - iferror cmd - Si le dernier code de retour est 0 (resp. !=0), lancer la commande cmd - skip n - Sauter les n prochaines commandes. A utiliser avec ifok et iferror - undo - Annuler la dernière modification effectuée sur l'espace de travail - -Les directives suivantes prennent le contenu de l'espace de travail, et le -transforment en une suite de commandes de modifications pour ldapmodify: - - A Créer un objet de toutes pièces avec les attributs donnés et leurs - valeurs. - a Ajouter les valeurs spécifiée à l'attribut - r Remplacer les valeurs de l'attribut par celles spécifiées - d Supprimer les valeurs spécifiées de l'attribut - D Supprimer l'attribut - delentry - Supprimer l'objet - ldapmodify - Utiliser ldapmodify pour modifier les objets sur le serveur. Il faut - utiliser au préalable l'une des méthodes de transformation parmi A, a, - r, d, D, delentry. - Le code de retour est celui de la commande ldapmodify. - ldapadd - Utiliser ldapadd pour créer les objets situés dans l'espace de travail. - Le code de retour est celui de la commande ldapadd. - ldapdelete - Utiliser ldapdelete pour supprimer la liste des dns situés dans l'espace - de travail. - Le code de retour est celui de la commande ldapdelete. - -Notes: -- les expressions régulières sont celles reconnues par awk. -- pour spécifier plusieurs actions sur une même ligne, les séparer par // -- le code de retour est 0 si ok, 255 si une erreur s'est produite (erreur de - syntaxe, de connexion, de lecture/écriture de fichier, etc.). sinon, les - opérations ldap{search,modify,delete,add} ont leur code de retour respectifs -}}} diff --git a/doc/ulib.md b/doc/ulib.md index e55c67d..9952a7d 100644 --- a/doc/ulib.md +++ b/doc/ulib.md @@ -1,70 +1,71 @@ # ulib ## Liste des librairies de ulib -* [ulib/apache](ulib_apache) -* [ulib/apache.tools](ulib_apache.tools) -* [ulib/auto](ulib_auto) -* [ulib/awk](ulib_awk) -* [ulib/base](ulib_base) -* [ulib/base.args](ulib_base.args) -* [ulib/base.array](ulib_base.array) -* [ulib/base.bool](ulib_base.bool) -* [ulib/base.compat](ulib_base.compat) -* [ulib/base.core](ulib_base.core) -* [ulib/base.init](ulib_base.init) -* [ulib/base.num](ulib_base.num) -* [ulib/base.quote](ulib_base.quote) -* [ulib/base.split](ulib_base.split) -* [ulib/base.string](ulib_base.string) -* [ulib/base.tools](ulib_base.tools) -* [ulib/base.ulib](ulib_base.ulib) -* [ulib/bash](ulib_bash) -* [ulib/cgi](ulib_cgi) -* [ulib/cgisupport](ulib_cgisupport) -* [ulib/compat](ulib_compat) -* [ulib/conf](ulib_conf) -* [ulib/crontab](ulib_crontab) -* [ulib/debian](ulib_debian) -* [ulib/DEFAULTS](ulib_DEFAULTS) -* [ulib/install](ulib_install) -* [ulib/ipcalc](ulib_ipcalc) -* [ulib/java](ulib_java) -* [ulib/javaproperties](ulib_javaproperties) -* [ulib/json](ulib_json) -* [ulib/ldap](ulib_ldap) -* [ulib/ldif](ulib_ldif) -* [ulib/legacy](ulib_legacy) -* [ulib/macosx](ulib_macosx) -* [ulib/mkcrypt](ulib_mkcrypt) -* [ulib/modeline](ulib_modeline) -* [ulib/network-manager-service](ulib_network-manager-service) -* [ulib/password](ulib_password) -* [ulib/prefixes](ulib_prefixes) -* [ulib/PREFIXES-DEFAULTS](ulib_PREFIXES-DEFAULTS) -* [ulib/pretty](ulib_pretty) -* [ulib/ptools](ulib_ptools) -* [ulib/redhat](ulib_redhat) -* [ulib/runs](ulib_runs) -* [ulib/runsmod](ulib_runsmod) -* [ulib/runsmod.defaults](ulib_runsmod.defaults) -* [ulib/semver](ulib_semver) -* [ulib/service](ulib_service) -* [ulib/sysinfos](ulib_sysinfos) -* [ulib/template](ulib_template) -* [ulib/tiddlywiki](ulib_tiddlywiki) -* [ulib/udir](ulib_udir) -* [ulib/uenv](ulib_uenv) -* [ulib/uenv_update](ulib_uenv_update) -* [ulib/uinc](ulib_uinc) -* [ulib/uinst](ulib_uinst) -* [ulib/ulib](ulib_ulib) -* [ulib/ulibsh](ulib_ulibsh) -* [ulib/vcs](ulib_vcs) -* [ulib/virsh](ulib_virsh) -* [ulib/webobjects](ulib_webobjects) -* [ulib/woinst](ulib_woinst) -* [ulib/wondermonitor](ulib_wondermonitor) -* [ulib/wosign](ulib_wosign) -* [ulib/wotaskd](ulib_wotaskd) +* [ulib/apache]() +* [ulib/apache.tools]() +* [ulib/auto]() +* [ulib/awk]() +* [ulib/base]() +* [ulib/base.args]() +* [ulib/base.array]() +* [ulib/base.bool]() +* [ulib/base.compat]() +* [ulib/base.core]() +* [ulib/base.init]() +* [ulib/base.num]() +* [ulib/base.quote]() +* [ulib/base.split]() +* [ulib/base.string]() +* [ulib/base.tools]() +* [ulib/base.ulib]() +* [ulib/bash]() +* [ulib/cgi]() +* [ulib/cgisupport]() +* [ulib/compat]() +* [ulib/conf]() +* [ulib/crontab]() +* [ulib/debian]() +* [ulib/DEFAULTS]() +* [ulib/install]() +* [ulib/ipcalc]() +* [ulib/java]() +* [ulib/javaproperties]() +* [ulib/json]() +* [ulib/ldap]() +* [ulib/ldif]() +* [ulib/legacy]() +* [ulib/macosx]() +* [ulib/mkcrypt]() +* [ulib/modeline]() +* [ulib/network-manager-service]() +* [ulib/password]() +* [ulib/prefixes]() +* [ulib/PREFIXES-DEFAULTS]() +* [ulib/pretty]() +* [ulib/ptools]() +* [ulib/redhat]() +* [ulib/runs]() +* [ulib/runsmod]() +* [ulib/runsmod.defaults]() +* [ulib/semver]() +* [ulib/service]() +* [ulib/sysinfos]() +* [ulib/template]() +* [ulib/tiddlywiki]() +* [ulib/udir]() +* [ulib/uenv]() +* [ulib/uenv_update]() +* [ulib/uinc]() +* [ulib/uinst]() +* [ulib/ulib]() +* [ulib/ulibsh]() +* [ulib/vcs]() +* [ulib/virsh]() +* [ulib/webobjects]() +* [ulib/woinst]() +* [ulib/wondermonitor]() +* [ulib/wosign]() +* [ulib/wotaskd]() +* [ulib/xmlsupport]() -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8:noeol:binary \ No newline at end of file diff --git a/doc/ulib.twp b/doc/ulib.twp deleted file mode 100644 index 014e28a..0000000 --- a/doc/ulib.twp +++ /dev/null @@ -1,74 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib - -!Liste des librairies de ulib -* [[ulib/apache]] -* [[ulib/apache.tools]] -* [[ulib/auto]] -* [[ulib/awk]] -* [[ulib/base]] -* [[ulib/base.args]] -* [[ulib/base.array]] -* [[ulib/base.bool]] -* [[ulib/base.compat]] -* [[ulib/base.core]] -* [[ulib/base.init]] -* [[ulib/base.num]] -* [[ulib/base.quote]] -* [[ulib/base.split]] -* [[ulib/base.string]] -* [[ulib/base.tools]] -* [[ulib/base.ulib]] -* [[ulib/bash]] -* [[ulib/cgi]] -* [[ulib/cgisupport]] -* [[ulib/compat]] -* [[ulib/conf]] -* [[ulib/crontab]] -* [[ulib/debian]] -* [[ulib/DEFAULTS]] -* [[ulib/install]] -* [[ulib/ipcalc]] -* [[ulib/java]] -* [[ulib/javaproperties]] -* [[ulib/json]] -* [[ulib/ldap]] -* [[ulib/ldif]] -* [[ulib/legacy]] -* [[ulib/macosx]] -* [[ulib/mkcrypt]] -* [[ulib/modeline]] -* [[ulib/network-manager-service]] -* [[ulib/password]] -* [[ulib/prefixes]] -* [[ulib/PREFIXES-DEFAULTS]] -* [[ulib/pretty]] -* [[ulib/ptools]] -* [[ulib/redhat]] -* [[ulib/runs]] -* [[ulib/runsmod]] -* [[ulib/runsmod.defaults]] -* [[ulib/semver]] -* [[ulib/service]] -* [[ulib/sysinfos]] -* [[ulib/template]] -* [[ulib/tiddlywiki]] -* [[ulib/udir]] -* [[ulib/uenv]] -* [[ulib/uenv_update]] -* [[ulib/uinc]] -* [[ulib/uinst]] -* [[ulib/ulib]] -* [[ulib/ulibsh]] -* [[ulib/vcs]] -* [[ulib/virsh]] -* [[ulib/webobjects]] -* [[ulib/woinst]] -* [[ulib/wondermonitor]] -* [[ulib/wosign]] -* [[ulib/wotaskd]] diff --git a/doc/ulib_DEFAULTS.md b/doc/ulib/DEFAULTS.md similarity index 100% rename from doc/ulib_DEFAULTS.md rename to doc/ulib/DEFAULTS.md diff --git a/doc/ulib_PREFIXES-DEFAULTS.md b/doc/ulib/PREFIXES-DEFAULTS.md similarity index 100% rename from doc/ulib_PREFIXES-DEFAULTS.md rename to doc/ulib/PREFIXES-DEFAULTS.md diff --git a/doc/ulib_apache.md b/doc/ulib/apache.md similarity index 91% rename from doc/ulib_apache.md rename to doc/ulib/apache.md index e660ba3..a902121 100644 --- a/doc/ulib_apache.md +++ b/doc/ulib/apache.md @@ -10,6 +10,7 @@ ## `get_default_apacheconf_prefix` ## `get_default_apacheavsitesdir_prefix` ## `get_default_apachesitesdir_prefix` +## `get_default_htdocsbase_prefix` ## `get_default_htdocsdir_prefix` ## `get_default_cgibindir_prefix` ## `compute_apache_prefixes` @@ -24,6 +25,7 @@ ## `get_APACHECONF_prefix` ## `get_APACHEAVSITESDIR_prefix` ## `get_APACHESITESDIR_prefix` +## `get_HTDOCSBASE_prefix` ## `get_HTDOCSDIR_prefix` ## `get_CGIBINDIR_prefix` diff --git a/doc/ulib_apache.tools.md b/doc/ulib/apache.tools.md similarity index 71% rename from doc/ulib_apache.tools.md rename to doc/ulib/apache.tools.md index 7040a06..770632f 100644 --- a/doc/ulib_apache.tools.md +++ b/doc/ulib/apache.tools.md @@ -9,5 +9,10 @@ puis initialiser les variables $3(=cert), $4(=key) et $5(=ca) ## `apache_addcert` ## `apache_autoconf` ## `apache_autoconf_localhosts` +## `apacheconfig_initvars` +## `apacheconfig_loadconf` +## `apacheconfig_sysinfos` +## `apacheconfig_deploy` +## `apacheconfig_localhosts` -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8:noeol:binary \ No newline at end of file diff --git a/doc/ulib_auto.md b/doc/ulib/auto.md similarity index 100% rename from doc/ulib_auto.md rename to doc/ulib/auto.md diff --git a/doc/ulib_awk.md b/doc/ulib/awk.md similarity index 95% rename from doc/ulib_awk.md rename to doc/ulib/awk.md index 39eba35..85ebfe3 100644 --- a/doc/ulib_awk.md +++ b/doc/ulib/awk.md @@ -34,6 +34,7 @@ caractères de long. ## `csortcsv` ## `sortcsv` ## `ldumpcsv` +## `init_fields` ## `cdumpcsv` ## `dumpcsv` ## `lprintcsv` diff --git a/doc/ulib_base.args.md b/doc/ulib/base.args.md similarity index 100% rename from doc/ulib_base.args.md rename to doc/ulib/base.args.md diff --git a/doc/ulib_base.array.md b/doc/ulib/base.array.md similarity index 100% rename from doc/ulib_base.array.md rename to doc/ulib/base.array.md diff --git a/doc/ulib_base.bool.md b/doc/ulib/base.bool.md similarity index 100% rename from doc/ulib_base.bool.md rename to doc/ulib/base.bool.md diff --git a/doc/ulib_base.compat.md b/doc/ulib/base.compat.md similarity index 100% rename from doc/ulib_base.compat.md rename to doc/ulib/base.compat.md diff --git a/doc/ulib_base.core.md b/doc/ulib/base.core.md similarity index 75% rename from doc/ulib_base.core.md rename to doc/ulib/base.core.md index 4e56d34..2112d67 100644 --- a/doc/ulib_base.core.md +++ b/doc/ulib/base.core.md @@ -142,5 +142,54 @@ testrp value == cmd1 // cmd2 ~~~ lancer la commande $@ en redirigeant la sortie d'erreur sur la sortie standard ~~~ +## `is_defined` +~~~ +tester si la variable $1 est définie +~~~ +## `is_array` +~~~ +tester si la variable $1 est un tableau +~~~ +## `upvar` +~~~ +Assign variable one scope above the caller +Usage: local "$1" && upvar $1 "value(s)" +Param: $1 Variable name to assign value to +Param: $* Value(s) to assign. If multiple values, an array is +assigned, otherwise a single value is assigned. +~~~ +## `array_upvar` +~~~ +Comme upvar() mais force la création d'un tableau +~~~ +## `upvars` +~~~ +Version modifiée par rapport à l'original. Il n'est plus nécessaire de +préfixer une variable scalaire avec -v, et -a peut être spécifié sans +argument. +Usage: +local varname [varname ...] && upvars [varname value] | [-aN varname [value ...]] ... +Options: +-a +assigns remaining values to varname as array +-aN +assigns next N values to varname as array. Returns 1 if wrong number of +options occurs +~~~ +## `array_buildcmd` +~~~ +Construire un tableau dont les éléments sont calculés à partir d'une chaine +dont les éléments sont séparés par des marqueurs ++X, e.g: +++ ou ++c[md] une chaine simple résultat de la commande +++s[split] un ensemble d'arguments résultat du split du résultat de la +commande sur espaces +++l[split] un ensemble d'arguments résultat du split du résultat de la +commande sur les lignes +++a[dd] un ensemble d'arguments donnés directement +Exemple: +array_buildcmd args echo Copie de ++ ppath "$src" ++a vers ++ ppath "$dest" +~~~ +## `buildcmd` +## `evalcmd` -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8:noeol:binary \ No newline at end of file diff --git a/doc/ulib_base.init.md b/doc/ulib/base.init.md similarity index 100% rename from doc/ulib_base.init.md rename to doc/ulib/base.init.md diff --git a/doc/ulib_base.md b/doc/ulib/base.md similarity index 97% rename from doc/ulib_base.md rename to doc/ulib/base.md index cf27957..02ec387 100644 --- a/doc/ulib_base.md +++ b/doc/ulib/base.md @@ -1158,6 +1158,25 @@ on est en mode interactif ou non. A ce moment-là, les valeurs sont décalées Si $2 vaut C, la valeur par défaut est N si on est interactif, O sinon Si $2 vaut X, la valeur par défaut est O si on est interactif, N sinon ~~~ +## `ask_any` +~~~ +Afficher le message $1 suivi du texte "[$2]" (qui vaut par défaut +Oq), puis +lire la réponse. Les lettres de la chaine de format $2 sont numérotées de 0 à +$((${#2} - 1)). Le code de retour est le numéro de la lettre qui a été +sélectionnée. Cette fonction est une généralisation de ask_yesno() pour +n'importe quel ensemble de lettres. +La première lettre en majuscule est la lettre sélectionnée par défaut. +La lettre O matche toutes les lettres qui signifient oui: o, y, 1, v, t +La lettre N matche toutes les lettres qui signifient non: n, f, 0 +Il y a des raccourcis: ++O --> On ++N --> oN ++C --> oN si on est en mode interactif, On sinon ++X --> On si on est en mode interactifn oN sinon +Si $1 est une option, elle est utilisée avec check_interaction pour savoir si +on est en mode interactif ou non. A ce moment-là, les valeurs sont décalées +($2=message, $3=format) +~~~ ## `read_value` ~~~ Afficher le message $1 suivi de la valeur par défaut [$3] si elle est non diff --git a/doc/ulib_base.num.md b/doc/ulib/base.num.md similarity index 100% rename from doc/ulib_base.num.md rename to doc/ulib/base.num.md diff --git a/doc/ulib_base.quote.md b/doc/ulib/base.quote.md similarity index 74% rename from doc/ulib_base.quote.md rename to doc/ulib/base.quote.md index c25e2cb..1caf8a4 100644 --- a/doc/ulib_base.quote.md +++ b/doc/ulib/base.quote.md @@ -17,5 +17,10 @@ Dans la chaine $* qui est de la forme "name=value", remplacer dans name et dans value '%' par '%25', '+' par '%2B', '&' par '%26', '=' par '%3D', ' ' par '+' ~~~ +## `qsql` +~~~ +Dans la chaine $*, remplacer ' par '' et afficher la chaine entourée de +quotes. Ceci est utile pour quoter des valeurs à insérer dans une requête SQL. +~~~ -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8:noeol:binary \ No newline at end of file diff --git a/doc/ulib_base.split.md b/doc/ulib/base.split.md similarity index 100% rename from doc/ulib_base.split.md rename to doc/ulib/base.split.md diff --git a/doc/ulib_base.string.md b/doc/ulib/base.string.md similarity index 61% rename from doc/ulib_base.string.md rename to doc/ulib/base.string.md index 6c13f8d..b074c99 100644 --- a/doc/ulib_base.string.md +++ b/doc/ulib/base.string.md @@ -62,6 +62,34 @@ longueur de la chaine à partir de start Remplacer dans la valeur $3* le motif $1 par la chaine $2. $1 peut commencer par l'un des caractères /, #, % pour indiquer le type de recherche ~~~ +## `strops` +~~~ +Appliquer à une chaine de caractères une suite de traitements, e.g: +'strops var deref +suffix' est équivalent à 'echo "${var}suffix"' +En commençant avec la valeur initiale $1, les arguments $2..* sont des +opérations à appliquer dans l'ordre. +Les opérations suivantes considèrent que la valeur courante est un nom de +variable: +:- := :? :+ deref dcount +Toutes les autres opérations travaillent directement avec la valeur +courante. Les opérations suivantes appliquent une transformation: +# % / : ^ , +# -# +% -% + - mid repl +Les opérations suivantes font un test sur la valeur et retournent +immédiatement: += == != < > -eq -ne -lt -le -gt -ge -n -z +La syntaxe des opérateurs standards de bash est reprise autant que possible, +i.e si on a l'habitude d'écrire ${varOP} en bash, alors la syntaxe à utiliser +à priori est 'strops var OP' ou 'strop var deref OP' suivant les opérateurs. +Autres opérateurs: +deref indirection +dcount nombre d'éléments du tableau ++#STR ajouter un préfixe +-#STR supprimer un préfixe ++%STR ou +STR ajouter un suffixe +-%STR ou -STR supprimer un suffixe +mid RANGE traiter la chaine avec strmid() +repl FROM TO traiter la chaine avec strrepl() +~~~ ## `first_char` ~~~ retourner le premier caractère de la chaine $* diff --git a/doc/ulib_base.tools.md b/doc/ulib/base.tools.md similarity index 100% rename from doc/ulib_base.tools.md rename to doc/ulib/base.tools.md diff --git a/doc/ulib_base.ulib.md b/doc/ulib/base.ulib.md similarity index 100% rename from doc/ulib_base.ulib.md rename to doc/ulib/base.ulib.md diff --git a/doc/ulib_bash.md b/doc/ulib/bash.md similarity index 100% rename from doc/ulib_bash.md rename to doc/ulib/bash.md diff --git a/doc/ulib_cgi.md b/doc/ulib/cgi.md similarity index 100% rename from doc/ulib_cgi.md rename to doc/ulib/cgi.md diff --git a/doc/ulib_cgisupport.md b/doc/ulib/cgisupport.md similarity index 100% rename from doc/ulib_cgisupport.md rename to doc/ulib/cgisupport.md diff --git a/doc/ulib_compat.md b/doc/ulib/compat.md similarity index 100% rename from doc/ulib_compat.md rename to doc/ulib/compat.md diff --git a/doc/ulib_conf.md b/doc/ulib/conf.md similarity index 100% rename from doc/ulib_conf.md rename to doc/ulib/conf.md diff --git a/doc/ulib_crontab.md b/doc/ulib/crontab.md similarity index 100% rename from doc/ulib_crontab.md rename to doc/ulib/crontab.md diff --git a/doc/ulib_debian.md b/doc/ulib/debian.md similarity index 100% rename from doc/ulib_debian.md rename to doc/ulib/debian.md diff --git a/doc/ulib_install.md b/doc/ulib/install.md similarity index 100% rename from doc/ulib_install.md rename to doc/ulib/install.md diff --git a/doc/ulib_ipcalc.md b/doc/ulib/ipcalc.md similarity index 100% rename from doc/ulib_ipcalc.md rename to doc/ulib/ipcalc.md diff --git a/doc/ulib_java.md b/doc/ulib/java.md similarity index 100% rename from doc/ulib_java.md rename to doc/ulib/java.md diff --git a/doc/ulib_javaproperties.md b/doc/ulib/javaproperties.md similarity index 100% rename from doc/ulib_javaproperties.md rename to doc/ulib/javaproperties.md diff --git a/doc/ulib_json.md b/doc/ulib/json.md similarity index 100% rename from doc/ulib_json.md rename to doc/ulib/json.md diff --git a/doc/ulib_ldap.md b/doc/ulib/ldap.md similarity index 100% rename from doc/ulib_ldap.md rename to doc/ulib/ldap.md diff --git a/doc/ulib_ldif.md b/doc/ulib/ldif.md similarity index 91% rename from doc/ulib_ldif.md rename to doc/ulib/ldif.md index e8f5fdc..42b2ec4 100644 --- a/doc/ulib_ldif.md +++ b/doc/ulib/ldif.md @@ -24,6 +24,7 @@ Supprimer les objets marqués avec --DELETE--: ## `tl_modifyattr` ## `tl_deleteattr` ## `tl_deleteentry` +## `tl_modrdn` ## `tl_touchentry` ## `tl_keepattr` ## `tl_keepval` @@ -58,6 +59,9 @@ commandes. _T_cut_after: faut-il découper automatiquement les lignes *après* avoir lancé les commandes. +_T_suffix: +suffixe de la base de données pour les commandes qui prennent des RDN, +e.g. modrdn ~~~ ## `transform` diff --git a/doc/ulib_legacy.md b/doc/ulib/legacy.md similarity index 100% rename from doc/ulib_legacy.md rename to doc/ulib/legacy.md diff --git a/doc/ulib_macosx.md b/doc/ulib/macosx.md similarity index 100% rename from doc/ulib_macosx.md rename to doc/ulib/macosx.md diff --git a/doc/ulib_mkcrypt.md b/doc/ulib/mkcrypt.md similarity index 100% rename from doc/ulib_mkcrypt.md rename to doc/ulib/mkcrypt.md diff --git a/doc/ulib_modeline.md b/doc/ulib/modeline.md similarity index 100% rename from doc/ulib_modeline.md rename to doc/ulib/modeline.md diff --git a/doc/ulib_network-manager-service.md b/doc/ulib/network-manager-service.md similarity index 100% rename from doc/ulib_network-manager-service.md rename to doc/ulib/network-manager-service.md diff --git a/doc/ulib_password.md b/doc/ulib/password.md similarity index 100% rename from doc/ulib_password.md rename to doc/ulib/password.md diff --git a/doc/ulib_prefixes.md b/doc/ulib/prefixes.md similarity index 100% rename from doc/ulib_prefixes.md rename to doc/ulib/prefixes.md diff --git a/doc/ulib_pretty.md b/doc/ulib/pretty.md similarity index 100% rename from doc/ulib_pretty.md rename to doc/ulib/pretty.md diff --git a/doc/ulib_ptools.md b/doc/ulib/ptools.md similarity index 100% rename from doc/ulib_ptools.md rename to doc/ulib/ptools.md diff --git a/doc/ulib_redhat.md b/doc/ulib/redhat.md similarity index 100% rename from doc/ulib_redhat.md rename to doc/ulib/redhat.md diff --git a/doc/ulib_runs.md b/doc/ulib/runs.md similarity index 99% rename from doc/ulib_runs.md rename to doc/ulib/runs.md index 97e6775..2fca0f7 100644 --- a/doc/ulib_runs.md +++ b/doc/ulib/runs.md @@ -127,6 +127,8 @@ Lancer la recette $1. Le fichier de recette est cherché dans les répertoires de RUNSSCRIPTSPATH. Retourner 123 si le fichier de recette n'a pas été trouvé, sinon retourner la valeur de retour de runs_recipe() ~~~ +## `runs_before_parse_args` +## `runs_after_parse_args` ## `runs_init` ## `runs_initdomains` ~~~ diff --git a/doc/ulib_runsmod.defaults.md b/doc/ulib/runsmod.defaults.md similarity index 100% rename from doc/ulib_runsmod.defaults.md rename to doc/ulib/runsmod.defaults.md diff --git a/doc/ulib_runsmod.md b/doc/ulib/runsmod.md similarity index 92% rename from doc/ulib_runsmod.md rename to doc/ulib/runsmod.md index b848629..17f39eb 100644 --- a/doc/ulib_runsmod.md +++ b/doc/ulib/runsmod.md @@ -1,5 +1,6 @@ # ulib/runsmod +## `runsmod_autoconf` ## `runsmod_checkenv` ~~~ vérifier l'environement. créer les répertoires nécessaires. @@ -25,6 +26,7 @@ all, self ou one pour un hôte spécifique $2. Ajouter les chemins dans le tableau REPO_DIRS. Mettre à jour les tableaux SCRIPTS_DIRS, MODULES_DIRS et HOSTS_DIRS ~~~ +## `runsmod_update_vars` ## `runsmod_teardown_vars` -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8:noeol:binary \ No newline at end of file diff --git a/doc/ulib/semver.md b/doc/ulib/semver.md new file mode 100644 index 0000000..12c6b39 --- /dev/null +++ b/doc/ulib/semver.md @@ -0,0 +1,72 @@ +# ulib/semver + +## `semver_parse` +~~~ +args: version majorV minorV patchlevelV preleaseV metadataV validV +~~~ +## `semver_incmajor` +~~~ +args: majorV minorV patchlevelV preleaseV metadataV maven_update setprelease +~~~ +## `semver_incminor` +~~~ +args: majorV minorV patchlevelV preleaseV metadataV maven_update setprelease +~~~ +## `semver_incpatchlevel` +~~~ +args: majorV minorV patchlevelV preleaseV metadataV maven_update setprelease +~~~ +## `semver_setversion` +~~~ +args: version majorV minorV patchlevelV preleaseV metadataV +~~~ +## `semver_setprelease` +~~~ +args: setprelease majorV minorV patchlevelV preleaseV metadataV +~~~ +## `semver_compare_prelease` +~~~ +args: prelease1 prelease2 +~~~ +## `semver_setmetadata` +~~~ +args: setmetadata majorV minorV patchlevelV preleaseV metadataV +~~~ +## `semver_addmetadata` +~~~ +args: addmetadata majorV minorV patchlevelV preleaseV metadataV +~~~ +## `semver_compare_metadata` +~~~ +args: metadata1 metadata2 +même algo que pour prelease +~~~ +## `semver_copy` +~~~ +args: majorDV minorDV patchlevelDV preleaseDV metadataDV majorSV minorSV patchlevelSV preleaseSV metadataSV +~~~ +## `semver_build` +~~~ +args: majorV minorV patchlevelV preleaseV metadataV +~~~ +## `semver_setvar` +~~~ +args: versionV majorV minorV patchlevelV preleaseV metadataV +~~~ +## `psemver_parse` +## `psemver_incmajor` +## `psemver_incminor` +## `psemver_incpatchlevel` +## `psemver_setversion` +## `psemver_setprelease` +## `psemver_compare_prelease` +## `psemver_setmetadata` +## `psemver_addmetadata` +## `psemver_compare_metadata` +## `psemver_copy` +## `psemver_build` +## `psemver_setvar` +## `psemver_setprmd` +## `psemver_incsetprmd` + +-*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8:noeol:binary \ No newline at end of file diff --git a/doc/ulib_service.md b/doc/ulib/service.md similarity index 100% rename from doc/ulib_service.md rename to doc/ulib/service.md diff --git a/doc/ulib_sysinfos.md b/doc/ulib/sysinfos.md similarity index 100% rename from doc/ulib_sysinfos.md rename to doc/ulib/sysinfos.md diff --git a/doc/ulib_template.md b/doc/ulib/template.md similarity index 100% rename from doc/ulib_template.md rename to doc/ulib/template.md diff --git a/doc/ulib_tiddlywiki.md b/doc/ulib/tiddlywiki.md similarity index 100% rename from doc/ulib_tiddlywiki.md rename to doc/ulib/tiddlywiki.md diff --git a/doc/ulib_udir.md b/doc/ulib/udir.md similarity index 100% rename from doc/ulib_udir.md rename to doc/ulib/udir.md diff --git a/doc/ulib_uenv.md b/doc/ulib/uenv.md similarity index 100% rename from doc/ulib_uenv.md rename to doc/ulib/uenv.md diff --git a/doc/ulib_uenv_update.md b/doc/ulib/uenv_update.md similarity index 100% rename from doc/ulib_uenv_update.md rename to doc/ulib/uenv_update.md diff --git a/doc/ulib_uinc.md b/doc/ulib/uinc.md similarity index 100% rename from doc/ulib_uinc.md rename to doc/ulib/uinc.md diff --git a/doc/ulib_uinst.md b/doc/ulib/uinst.md similarity index 100% rename from doc/ulib_uinst.md rename to doc/ulib/uinst.md diff --git a/doc/ulib_ulib.md b/doc/ulib/ulib.md similarity index 100% rename from doc/ulib_ulib.md rename to doc/ulib/ulib.md diff --git a/doc/ulib_ulibsh.md b/doc/ulib/ulibsh.md similarity index 100% rename from doc/ulib_ulibsh.md rename to doc/ulib/ulibsh.md diff --git a/doc/ulib_vcs.md b/doc/ulib/vcs.md similarity index 98% rename from doc/ulib_vcs.md rename to doc/ulib/vcs.md index f65731a..fbc2009 100644 --- a/doc/ulib_vcs.md +++ b/doc/ulib/vcs.md @@ -120,6 +120,7 @@ nécessaire. la branche d'origine $2 vaut par défaut refs/remotes/origin/$1 vérifier que les branches $1 et $2 ont un ancêtre commun, et que la branche $1 a été complètement fusionnée dans la branche destination $2 ~~~ +## `git_annex_use_ssh_wrapper` ## `git_annex_initial` ~~~ sur le dépôt $1 fraichement cloné, vérifier s'il faut faire git annex diff --git a/doc/ulib_virsh.md b/doc/ulib/virsh.md similarity index 100% rename from doc/ulib_virsh.md rename to doc/ulib/virsh.md diff --git a/doc/ulib_webobjects.md b/doc/ulib/webobjects.md similarity index 100% rename from doc/ulib_webobjects.md rename to doc/ulib/webobjects.md diff --git a/doc/ulib_woinst.md b/doc/ulib/woinst.md similarity index 100% rename from doc/ulib_woinst.md rename to doc/ulib/woinst.md diff --git a/doc/ulib_wondermonitor.md b/doc/ulib/wondermonitor.md similarity index 100% rename from doc/ulib_wondermonitor.md rename to doc/ulib/wondermonitor.md diff --git a/doc/ulib_wosign.md b/doc/ulib/wosign.md similarity index 100% rename from doc/ulib_wosign.md rename to doc/ulib/wosign.md diff --git a/doc/ulib_wotaskd.md b/doc/ulib/wotaskd.md similarity index 100% rename from doc/ulib_wotaskd.md rename to doc/ulib/wotaskd.md diff --git a/doc/ulib/xmlsupport.md b/doc/ulib/xmlsupport.md new file mode 100644 index 0000000..d044c4a --- /dev/null +++ b/doc/ulib/xmlsupport.md @@ -0,0 +1,5 @@ +# ulib/xmlsupport + +## `xpathtool` + +-*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8:noeol:binary \ No newline at end of file diff --git a/doc/ulib_DEFAULTS.twp b/doc/ulib_DEFAULTS.twp deleted file mode 100644 index efe61bd..0000000 --- a/doc/ulib_DEFAULTS.twp +++ /dev/null @@ -1,8 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:15 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/DEFAULTS - diff --git a/doc/ulib_PREFIXES-DEFAULTS.twp b/doc/ulib_PREFIXES-DEFAULTS.twp deleted file mode 100644 index 4450490..0000000 --- a/doc/ulib_PREFIXES-DEFAULTS.twp +++ /dev/null @@ -1,10 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/PREFIXES-DEFAULTS - -!! {{{compute_all_prefixes}}} -!! {{{recompute_all_prefixes}}} diff --git a/doc/ulib_apache.tools.twp b/doc/ulib_apache.tools.twp deleted file mode 100644 index e5ed841..0000000 --- a/doc/ulib_apache.tools.twp +++ /dev/null @@ -1,17 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/apache.tools - -!! {{{apache_resolvecert}}} -{{{ -Calculer l'emplacement des certificats correspondant aux arguments $1 et -$2 (qui correspondent aux options --conf et --dir de apache_addcert()), -puis initialiser les variables $3(=cert), $4(=key) et $5(=ca) -}}} -!! {{{apache_addcert}}} -!! {{{apache_autoconf}}} -!! {{{apache_autoconf_localhosts}}} diff --git a/doc/ulib_apache.twp b/doc/ulib_apache.twp deleted file mode 100644 index 5d7e122..0000000 --- a/doc/ulib_apache.twp +++ /dev/null @@ -1,34 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/apache - -!! {{{get_default_apachebin_prefix}}} -!! {{{get_default_apacheversion_prefix}}} -!! {{{get_default_apachectl_prefix}}} -!! {{{get_default_apachelogdir_prefix}}} -!! {{{get_default_apachesslcertsdir_prefix}}} -!! {{{get_default_apachesslkeysdir_prefix}}} -!! {{{get_default_apacheconfdir_prefix}}} -!! {{{get_default_apacheconf_prefix}}} -!! {{{get_default_apacheavsitesdir_prefix}}} -!! {{{get_default_apachesitesdir_prefix}}} -!! {{{get_default_htdocsdir_prefix}}} -!! {{{get_default_cgibindir_prefix}}} -!! {{{compute_apache_prefixes}}} -!! {{{recompute_apache_prefixes}}} -!! {{{get_APACHEBIN_prefix}}} -!! {{{get_APACHEVERSION_prefix}}} -!! {{{get_APACHECTL_prefix}}} -!! {{{get_APACHELOGDIR_prefix}}} -!! {{{get_APACHESSLCERTSDIR_prefix}}} -!! {{{get_APACHESSLKEYSDIR_prefix}}} -!! {{{get_APACHECONFDIR_prefix}}} -!! {{{get_APACHECONF_prefix}}} -!! {{{get_APACHEAVSITESDIR_prefix}}} -!! {{{get_APACHESITESDIR_prefix}}} -!! {{{get_HTDOCSDIR_prefix}}} -!! {{{get_CGIBINDIR_prefix}}} diff --git a/doc/ulib_auto.twp b/doc/ulib_auto.twp deleted file mode 100644 index c83c9d5..0000000 --- a/doc/ulib_auto.twp +++ /dev/null @@ -1,8 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/auto - diff --git a/doc/ulib_awk.twp b/doc/ulib_awk.twp deleted file mode 100644 index 9c144a0..0000000 --- a/doc/ulib_awk.twp +++ /dev/null @@ -1,47 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/awk - -!! {{{parseheaders}}} -!! {{{printheaders}}} -!! {{{resetheaders}}} -!! {{{copyall}}} -!! {{{lawkcsv}}} -!! {{{cawkcsv}}} -!! {{{awkcsv}}} -!! {{{lgrepcsv}}} -!! {{{cgrepcsv}}} -!! {{{grepcsv}}} -!! {{{lawkfsv2csv}}} -!! {{{cawkfsv2csv}}} -!! {{{awkfsv2csv}}} -!! {{{lmergecsv}}} -{{{ -Fusionner sur la sortie standard les deux fichiers csv $1 et $2. La clé du -fichier $1 est spécifiée par l'option --lkey et vaut 1 par défaut. La clé -du fichier $2 est spécifiée par l'option --rkey et vaut 1 par défaut. Les -valeurs des clés ne doivent pas faire plus de 64 caractères de long. -}}} -!! {{{readleft}}} -!! {{{readright}}} -!! {{{right2left}}} -!! {{{cmergecsv}}} -!! {{{mergecsv}}} -!! {{{lsortcsv}}} -{{{ -Trier le fichier csv $1. La clé du tri est spécifiée par l'option -k et -vaut 1 par défaut. Les valeurs des clés ne doivent pas faire plus de 64 -caractères de long. -}}} -!! {{{csortcsv}}} -!! {{{sortcsv}}} -!! {{{ldumpcsv}}} -!! {{{cdumpcsv}}} -!! {{{dumpcsv}}} -!! {{{lprintcsv}}} -!! {{{cprintcsv}}} -!! {{{printcsv}}} diff --git a/doc/ulib_base.args.twp b/doc/ulib_base.args.twp deleted file mode 100644 index 10a399a..0000000 --- a/doc/ulib_base.args.twp +++ /dev/null @@ -1,64 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/base.args - -!! {{{parse_opts}}} -{{{ -Analyser des arguments. Cette fonction doit être appelée avec une description -des options à analyser, suivie des arguments proprement dits. En fonction des -options rencontrées, certaines variables sont mises à jour. -Les arguments de cette fonction sont donc de la forme 'optdescs -- args' -}}} -!! {{{parse_args_check}}} -{{{ -Simplifier l'utilisation de parse_opts(). En entrée, le tableau args doit être -initialisé avec la liste des options. En sortie, ce tableau contient la liste -des arguments restant sur la ligne de commande. En cas d'erreur, retourner 1. -Exemple d'utilisation: -args=(...) -parse_args_check "$@" || return; set -- "${args[@]}" -}}} -!! {{{parse_args}}} -{{{ -Simplifier l'utilisation de parse_opts(). En entrée, le tableau args doit être -initialisé avec la liste des options. En sortie, ce tableau contient la liste -des arguments restant sur la ligne de commande. En cas d'erreur, quitter le -script avec die() -Exemple d'utilisation: -args=(...) -parse_args_check "$@"; set -- "${args[@]}" -}}} -!! {{{genparse}}} -{{{ -Afficher une ligne de commande à évaluer pour simplifier l'utilisation de -parse_opts(). Une fonction display_help() par défaut est définie et les -options appropriées de parse_opts sont utilisées pour reconnaître les options -spécifiées par les arguments. -Cette fonction peut être utilisée de cette manière: -HELP_DESC=... -HELP_ARG_DESC=... # pour chaque arg -eval "$(genparse [args...])" -D'autres variables peuvent être définies: HELP_USAGE, HELP_OPTIONS, -HELP_ARG_OPTION. Consulter le source pour connaitre leur utilisation -Les arguments de cette fonction sont de la forme 'sansarg' pour une option -simple qui ne prend pas d'argument ou 'avecarg=[default-value]' pour une -option qui prend un argument. Les options générées sont des options -longues. En l'occurence, les options générées sont respectivement '--sansarg' -et '--avecarg:' -Les variables et les options sont toujours en minuscule. Pour les variables, -le caractère '-' est remplacé par '_'. Si une option contient une lettre en -majuscule, l'option courte correspondante à cette lettre sera aussi reconnue. -Par exemple, la commande suivante: -genparse Force enCoding=utf-8 input= long-Option= -affichera ceci: -function display_help() { -[ -n "$HELP_USAGE" ] || HELP_USAGE="USAGE -$scriptname [options]" -[ -n "$HELP_OPTIONS" ] || HELP_OPTIONS="OPTIONS -${HELP_FORCE_OPTION:- -f, --force${HELP_FORCE_DESC:+ -$HELP_FORCE_DESC}} -}}} diff --git a/doc/ulib_base.array.twp b/doc/ulib_base.array.twp deleted file mode 100644 index aa8e645..0000000 --- a/doc/ulib_base.array.twp +++ /dev/null @@ -1,8 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/base.array - diff --git a/doc/ulib_base.bool.twp b/doc/ulib_base.bool.twp deleted file mode 100644 index 4cbfbee..0000000 --- a/doc/ulib_base.bool.twp +++ /dev/null @@ -1,38 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/base.bool - -!! {{{is_yes}}} -{{{ -retourner vrai si $1 est une valeur "oui" -}}} -!! {{{is_no}}} -{{{ -retourner vrai si $1 est une valeur "non" -}}} -!! {{{yesval}}} -{{{ -normaliser une valeur vraie: si $1 est une valeur "oui", afficher 1, sinon -afficher une chaine vide -}}} -!! {{{setb}}} -{{{ -Lancer la commande $2..@ en supprimant la sortie standard. Si la commande -retourne vrai, assigner la valeur 1 à la variable $1. Sinon, lui assigner la -valeur "" -note: en principe, la syntaxe est 'setb var cmd args...'. cependant, la -syntaxe 'setb var=cmd args...' est supportée aussi -}}} -!! {{{evalb}}} -{{{ -Lancer la commande $@ avec evalx() en supprimant la sortie standard. Si la -commande retourne vrai, afficher 1. Sinon, afficher "" -}}} -!! {{{setxb}}} -{{{ -équivalent à setx $1 evalb $2..@ -}}} diff --git a/doc/ulib_base.compat.twp b/doc/ulib_base.compat.twp deleted file mode 100644 index cae5079..0000000 --- a/doc/ulib_base.compat.twp +++ /dev/null @@ -1,22 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/base.compat - -!! {{{setx2}}} -!! {{{rawecho}}} -!! {{{rawecho_}}} -!! {{{quote_arg}}} -!! {{{quoted_arg}}} -!! {{{quoted_args}}} -!! {{{set_var}}} -!! {{{set_var_cmd}}} -!! {{{set_var_literal}}} -!! {{{quote_awk}}} -!! {{{quoted_awk}}} -!! {{{quote_seds}}} -!! {{{quote_form}}} -!! {{{quoted_form}}} diff --git a/doc/ulib_base.core.twp b/doc/ulib_base.core.twp deleted file mode 100644 index 36d82cb..0000000 --- a/doc/ulib_base.core.twp +++ /dev/null @@ -1,150 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/base.core - -!! {{{echo_}}} -{{{ -afficher la valeur $* sans passer à la ligne -}}} -!! {{{recho}}} -{{{ -afficher une valeur brute. contrairement à la commande echo, ne reconnaitre -aucune option (i.e. -e, -E, -n ne sont pas signifiants) -}}} -!! {{{recho_}}} -{{{ -afficher une valeur brute, sans passer à la ligne. contrairement à la commande -echo, ne reconnaitre aucune option (i.e. -e, -E, -n ne sont pas signifiants) -}}} -!! {{{should_quote}}} -{{{ -Tester si la chaine $* doit être mise entre quotes -}}} -!! {{{qval}}} -{{{ -Afficher la chaine $* quotée avec " -}}} -!! {{{qvalm}}} -{{{ -Afficher la chaine $* quotée si nécessaire avec " -}}} -!! {{{qvalr}}} -{{{ -Afficher la chaine $* quotée si nécessaire avec ", sauf si elle est vide -}}} -!! {{{qvals}}} -{{{ -Afficher chaque argument de cette fonction quotée le cas échéant avec " -Chaque valeur est séparée par un espace. -}}} -!! {{{qwc}}} -{{{ -Dans la chaine $*, remplacer \ par \\, " par \", $ par \$, ` par \`, puis -quoter la chaine avec ", sauf les wildcards * et ? -Cela permet de quoter une chaine permettant de glober des fichiers, e.g -eval "ls $(qwc "$value")" -Note: la protection de ! n'est pas effectuée, parce que le comportement du -shell est incohérent entre le shell interactif et les scripts. Pour une -version plus robuste, il est nécessaire d'utiliser un programme externe tel -que sed ou awk -}}} -!! {{{qlines}}} -{{{ -Traiter chaque ligne de l'entrée standard pour en faire des chaines quotées -avec ' -}}} -!! {{{setv}}} -{{{ -initialiser la variable $1 avec la valeur $2* -note: en principe, la syntaxe est 'setv var values...'. cependant, la -syntaxe 'setv var=values...' est supportée aussi -}}} -!! {{{echo_setv}}} -{{{ -Afficher la commande qui serait lancée par setv "$@" -}}} -!! {{{setx}}} -{{{ -syntaxe 1: setx var cmd -initialiser la variable $1 avec le résultat de la commande "$2..@" -note: en principe, la syntaxe est 'setx var cmd args...'. cependant, la -syntaxe 'setx var=cmd args...' est supportée aussi -syntaxe 2: setx -a array cmd -initialiser le tableau $1 avec le résultat de la commande "$2..@", chaque -ligne du résultat étant un élément du tableau -note: en principe, la syntaxe est 'setx -a array cmd args...'. cependant, la -syntaxe 'setx -a array=cmd args...' est supportée aussi -}}} -!! {{{evalx}}} -{{{ -Implémenter une syntaxe lisible et naturelle permettant d'enchainer des -traitements sur une valeur. Par exemple, la commande -evalx cmd1... // cmd2... // cmd3... -affiche le résultat de la commande "$(cmd3 $(cmd2 $(cmd1)))" -Retourner le dernier code d'erreur non nul, ou 0 si toutes les commandes se -sont exécutées sans erreur. -}}} -!! {{{setxx}}} -{{{ -équivalent à setx $1 evalx $2..@ -}}} -!! {{{evalp}}} -{{{ -Implémenter une syntaxe alternative permettant d'enchainer des traitements sur -un flux de données. Par exemple, la commande -evalp cmd1... // cmd2... // cmd3... -affiche le résultat de la commande "$(cmd1 | cmd2 | cmd3)" -Typiquement, cette fonction permet de faciliter la construction d'un -enchainement de commandes par programme, ou de faciliter l'utilisation de la -fonction setx() pour récupérer le résultat d'un enchainement. Dans les autres -cas, il est plus simple et naturel d'écrire les enchainements avec la syntaxe -de bash. -}}} -!! {{{setxp}}} -{{{ -équivalent à setx $1 evalp $2..@ -}}} -!! {{{testx}}} -{{{ -Faire un test unaire avec la commande [ sur une valeur calculée avec evalx. -Utiliser la syntaxe 'testx op cmds...' e.g. -testx -z cmd1 // cmd2 -}}} -!! {{{test2x}}} -{{{ -Faire une test binaire avec la commande [ entre une valeur spécifiée et une -valeur calculée avec evalx. Utiliser la syntaxe 'test2x value op cmds...' e.g. -test2x value == cmd1 // cmd2 -}}} -!! {{{testrx}}} -{{{ -Faire une test binaire avec la commande [[ entre une valeur spécifiée et une -valeur calculée avec evalx. Utiliser la syntaxe 'testrx value op cmds...' e.g. -testrx value == cmd1 // cmd2 -}}} -!! {{{testp}}} -{{{ -Faire un test unaire avec la commande [ sur une valeur calculée avec evalp. -Utiliser la syntaxe 'testp op cmds...' e.g. -testp -z cmd1 // cmd2 -}}} -!! {{{test2p}}} -{{{ -Faire une test binaire avec la commande [ entre une valeur spécifiée et une -valeur calculée avec evalp. Utiliser la syntaxe 'test2p value op cmds...' e.g. -test2p value == cmd1 // cmd2 -}}} -!! {{{testrp}}} -{{{ -Faire une test binaire avec la commande [[ entre une valeur spécifiée et une -valeur calculée avec evalp. Utiliser la syntaxe 'testrp value op cmds...' e.g. -testrp value == cmd1 // cmd2 -}}} -!! {{{err2out}}} -{{{ -lancer la commande $@ en redirigeant la sortie d'erreur sur la sortie standard -}}} diff --git a/doc/ulib_base.init.twp b/doc/ulib_base.init.twp deleted file mode 100644 index 6c03356..0000000 --- a/doc/ulib_base.init.twp +++ /dev/null @@ -1,8 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/base.init - diff --git a/doc/ulib_base.num.twp b/doc/ulib_base.num.twp deleted file mode 100644 index c1bd6b7..0000000 --- a/doc/ulib_base.num.twp +++ /dev/null @@ -1,21 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/base.num - -!! {{{isnum}}} -{{{ -retourner vrai si $1 est une valeur numérique entière (positive ou négative) -}}} -!! {{{ispnum}}} -{{{ -retourner vrai si $1 est une valeur numérique entière positive -}}} -!! {{{isrnum}}} -{{{ -retourner vrai si $1 est une valeur numérique réelle (positive ou négative) -le séparateur décimal peut être . ou , -}}} diff --git a/doc/ulib_base.quote.twp b/doc/ulib_base.quote.twp deleted file mode 100644 index bbe1974..0000000 --- a/doc/ulib_base.quote.twp +++ /dev/null @@ -1,25 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/base.quote - -!! {{{qawk}}} -{{{ -Dans la chaine $*, remplacer \ par \\ et " par \" et afficher la chaine -entourée de guillemets. Ceci est utile pour quoter des valeur à insérer dans -un script awk -}}} -!! {{{qseds}}} -{{{ -Quoter la chaine $*, qui doit être utilisée comme chaine de recherche ou de -remplacement de grep, sed ou awk -}}} -!! {{{qform}}} -{{{ -Dans la chaine $* qui est de la forme "name=value", remplacer dans name et -dans value '%' par '%25', '+' par '%2B', '&' par '%26', '=' par '%3D', ' ' par -'+' -}}} diff --git a/doc/ulib_base.split.twp b/doc/ulib_base.split.twp deleted file mode 100644 index 6d9c395..0000000 --- a/doc/ulib_base.split.twp +++ /dev/null @@ -1,79 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/base.split - -!! {{{splitfsep}}} -{{{ -Découper $1 de la forme "first[SEPsecond]" entre first, qui est placé dans la -variable $3(=first) et second, qui est placée dans la variable $4(=second). $2 -est la valeur SEP. Le découpage est faite sur la *première* occurence de SEP. -}}} -!! {{{splitfsep2}}} -{{{ -Découper $1 de la forme "[firstSEP]second" entre first, qui est placé dans la -variable $3(=first) et second, qui est placée dans la variable $4(=second). $2 -est la valeur SEP. Le découpage est faite sur la *première* occurence de SEP. -}}} -!! {{{splitlsep}}} -{{{ -Découper $1 de la forme "first[SEPsecond]" entre first, qui est placé dans la -variable $3(=first) et second, qui est placée dans la variable $4(=second). $2 -est la valeur SEP. Le découpage est faite sur la *dernière* occurence de SEP. -}}} -!! {{{splitlsep2}}} -{{{ -Découper $1 de la forme "[firstSEP]second" entre first, qui est placé dans la -variable $3(=first) et second, qui est placée dans la variable $4(=second). $2 -est la valeur SEP. Le découpage est faite sur la *dernière* occurence de SEP. -}}} -!! {{{splitvar}}} -{{{ -Découper $1 de la forme name[=value] entre le nom, qui est placé dans la -variable $2(=name) et la valeur, qui est placée dans la variable $3(=value) -}}} -!! {{{splitpath}}} -{{{ -Découper $1 de la forme [dir/]name entre le répertoire, qui est placé dans la -variable $2(=dir), et le nom du fichier, qui est placé dans la variable -$3(=name) -}}} -!! {{{splitname}}} -{{{ -Découper $1 de la forme basename[.ext] entre le nom de base du fichier, qui -est placé dans la variable $2(=basename) et l'extension, qui est placée dans -la variable $3(=ext) -Attention, si $1 est un chemin, le résultat risque d'être faussé. Par exemple, -'splitname a.b/c' ne donne pas le résultat escompté. -}}} -!! {{{splithost}}} -{{{ -Découper $1 de la forme hostname[.domain] entre le nom d'hôte, qui est placé -dans la variable $2(=hostname) et le domaine, qui est placée dans la variable -$3(=domain) -}}} -!! {{{splituserhost}}} -{{{ -Découper $1 de la forme [user@]host entre le nom de l'utilisateur, qui est placé -dans la variable $2(=user) et le nom d'hôte, qui est placée dans la variable -$3(=host) -}}} -!! {{{splitpair}}} -{{{ -Découper $1 de la forme first[:second] entre la première valeur, qui est placé -dans la variable $2(=src) et la deuxième valeur, qui est placée dans la variable -$3(=dest) -}}} -!! {{{splitproxy}}} -{{{ -Découper $1 de la forme http://[user:password@]host[:port]/ entre les valeurs -$2(=host), $3(=port), $4(=user), $5(=password) -}}} -!! {{{spliturl}}} -{{{ -Découper $1 de la forme scheme://[user:password@]host[:port]/path entre les -valeurs $2(=scheme), $3(=user), $4(=password), $5(=host), $6(=port), $7(=path) -}}} diff --git a/doc/ulib_base.string.twp b/doc/ulib_base.string.twp deleted file mode 100644 index 855c53f..0000000 --- a/doc/ulib_base.string.twp +++ /dev/null @@ -1,102 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/base.string - -!! {{{straddp}}} -{{{ -ajouter le préfixe $1 à $2* -}}} -!! {{{strdelp}}} -{{{ -enlever le préfixe $1 à $2* -}}} -!! {{{strdelp2}}} -{{{ -enlever le préfixe $1 le plus long à $2* -}}} -!! {{{stradds}}} -{{{ -ajouter le suffixe $1 à $2* -}}} -!! {{{strdels}}} -{{{ -enlever le suffixe $1 à $2* -}}} -!! {{{strdels2}}} -{{{ -enlever le suffixe le plus long $1 à $2* -}}} -!! {{{strlower}}} -{{{ -afficher en minuscule la valeur $* -}}} -!! {{{strlower1}}} -{{{ -afficher la valeur $* après avoir converti la première lettre en minuscule -}}} -!! {{{strlowers}}} -{{{ -afficher les valeurs $1..* après avoir converti leur première lettre en -minuscule -}}} -!! {{{strupper}}} -{{{ -afficher en majuscule la valeur $* -}}} -!! {{{strupper1}}} -{{{ -afficher la valeur $* après avoir converti la première lettre en majuscule -}}} -!! {{{struppers}}} -{{{ -afficher les valeurs $1..* après avoir converti leur première lettre en -majuscule -}}} -!! {{{strmid}}} -{{{ -Afficher la plage $1 de la valeur $2*. La plage peut être d'une des formes -'start', '[start]:length'. Si start est négatif, le compte est effectué à -partir de la fin de la chaine. Si length est négatif, il est rajouté à la -longueur de la chaine à partir de start -}}} -!! {{{strrepl}}} -{{{ -Remplacer dans la valeur $3* le motif $1 par la chaine $2. $1 peut commencer -par l'un des caractères /, #, % pour indiquer le type de recherche -}}} -!! {{{first_char}}} -{{{ -retourner le premier caractère de la chaine $* -}}} -!! {{{last_char}}} -{{{ -retourner le dernier caractère de la chaine $* -}}} -!! {{{first_chars}}} -{{{ -retourner tous les caractères de la chaine $*, excepté le dernier -}}} -!! {{{last_chars}}} -{{{ -retourner tous les caractères de la chaine $*, excepté le premier -}}} -!! {{{first_char_is}}} -{{{ -Tester si le premier caractère de la chaine $1 est $2 -}}} -!! {{{last_char_is}}} -{{{ -Tester si le dernier caractère de la chaine $1 est $2 -}}} -!! {{{beginswith}}} -{{{ -Tester si la chaine $1 commence par le wildcard $2 -}}} -!! {{{endswith}}} -{{{ -Tester si la chaine $1 se termine par le wildcard $2 -}}} diff --git a/doc/ulib_base.tools.twp b/doc/ulib_base.tools.twp deleted file mode 100644 index 177fd56..0000000 --- a/doc/ulib_base.tools.twp +++ /dev/null @@ -1,28 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/base.tools - -!! {{{base_umove}}} -{{{ -Outil de haut niveau pour déplacer un fichier ou un lien. Si c'est un lien qui -est déplacé, la destination du lien est mise à jour si elle est relative. -l'option '-d UPDATEDIR' permet de spécifier un répertoire dans lequel tous les -liens qui pointent vers le fichier déplacé sont mis à jour si le déplacement -du fichier se fait avec succès. -}}} -!! {{{base_udelete}}} -{{{ -Outil de haut niveau pour supprimer un fichier ou un lien. Si on doit -supprimer un fichier, et que l'option '-d UPDATEDIR' est spécifiée, et que des -liens du répertoire UPDATEDIR pointent vers le fichier supprimé, ces liens -sont supprimés aussi. -}}} -!! {{{base_ucopy}}} -{{{ -Outil de haut niveau pour copier un fichier ou un lien. Si c'est un lien qui -est copié, la destination du lien est mise à jour si elle est relative. -}}} diff --git a/doc/ulib_base.twp b/doc/ulib_base.twp deleted file mode 100644 index 9075f49..0000000 --- a/doc/ulib_base.twp +++ /dev/null @@ -1,1276 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/base - -!! {{{setyesval}}} -{{{ -mettre la valeur normalisée de la valeur "oui" de $2 dans la variable $1 -}}} -!! {{{normyesval}}} -{{{ -remplacer la valeur de la variable $1 par la valeur normalisée de sa valeur "oui" -Si $2 est non vide, prendre cette valeur plutôt que la valeur de la variable $1 -}}} -!! {{{normyesvals}}} -{{{ -remplacer les valeur des variables $1..* par les valeurs normalisées -respectives de leur valeur "oui" -}}} -!! {{{quote_in}}} -{{{ -Comme quote_arg pour une chaine lue sur stdin -}}} -!! {{{quote_sin}}} -{{{ -Pour la chaine lue sur stdin, remplacer ' par '\''. Cela permet de protéger une -chaine à mettre entre quotes -}}} -!! {{{quote_sarg}}} -{{{ -Dans la chaine $1, remplacer ' par '\''. Cette fonction utilise quote_sin, -puisque le shell a des difficultés à faire le rechercher/remplacer approprié -}}} -!! {{{quoted_sarg}}} -{{{ -Dans la chaine $1, remplacer ' par '\'', et afficher la chaine entourée de -quotes -}}} -!! {{{quoted_sargs}}} -{{{ -Comme quoted_sarg, mais tous les arguments sont quotés et affichés entourés de -quotes, ce qui permet de construire des arguments d'une ligne de commande -}}} -!! {{{set_array_cmd}}} -{{{ -Afficher la commande permettant d'initialiser le tableau $1 avec les valeurs: -soit du tableau $2, soit de $3..$n si $2=="@" -S'il n'y a que l'argument $1, alors afficher la commande permettant de -recréer le tableau $1 -}}} -!! {{{set_array}}} -{{{ -Soit $1 un tableau à créer. Si $2=="@", créer le tableau $1 avec les valeurs -$3..$n. Sinon, créer le tableau $1 avec les valeurs du tableau $2. -Cette fonction n'existe que comme un pendant de set_var(), mais le véritable -intérêt est la fonction set_array_cmd(). cf array_copy() pour une version plus -efficace de la copie de tableaux -}}} -!! {{{array_count}}} -{{{ -retourner le nombre d'éléments du tableau $1 -}}} -!! {{{array_isempty}}} -{{{ -tester si le tableau $1 est vide -}}} -!! {{{array_new}}} -{{{ -créer un tableau vide dont le nom est $1 -}}} -!! {{{array_add}}} -{{{ -ajouter les valeurs $2..@ au tableau dont le nom est $1 -}}} -!! {{{array_ins}}} -{{{ -insérer les valeurs $2..@ au début du tableau dont le nom est $1 -}}} -!! {{{array_del}}} -{{{ -supprimer *les* valeurs $2 du tableau dont le nom est $1 -}}} -!! {{{array_addu}}} -{{{ -ajouter la valeur $2 au tableau dont le nom est $1, si la valeur n'y est pas -déjà. Retourner vrai si la valeur a été ajoutée -}}} -!! {{{array_set}}} -!! {{{array_insu}}} -{{{ -insérer la valeur $2 au début du tableau tableau dont le nom est $1, si la -valeur n'y est pas déjà. Retourner vrai si la valeur a été ajoutée. -}}} -!! {{{array_fillrange}}} -{{{ -Initialiser le tableau $1 avec les nombres de $2(=1) à $3(=10) avec un step de $4(=1) -}}} -!! {{{array_eq}}} -{{{ -tester l'égalité des tableaux $1 et $2 -}}} -!! {{{array_contains}}} -{{{ -tester si le tableau dont le nom est $1 contient la valeur $2 -}}} -!! {{{array_icontains}}} -{{{ -tester si le tableau dont le nom est $1 contient la valeur $2, sans tenir -compte de la casse -}}} -!! {{{array_find}}} -{{{ -si le tableau $1 contient la valeur $2, retourner l'index de la valeur. Si le -tableau $3 est spécifié, retourner la valeur à l'index dans ce tableau -}}} -!! {{{array_reverse}}} -{{{ -Inverser l'ordre des élément du tableau $1 -}}} -!! {{{array_replace}}} -{{{ -dans le tableau $1, remplacer toutes les occurences de $2 par $3..* -}}} -!! {{{array_each}}} -{{{ -Pour chacune des valeurs 'v' du tableau $1, appeler la fonction $2 avec les -arguments '$v $3..$n' -}}} -!! {{{array_map}}} -{{{ -Pour chacune des valeurs 'v' du tableau $1, appeler la fonction $2 avec les -arguments '$v $3..$n', et remplacer la valeur par le résultat de la fonction -}}} -!! {{{first_value}}} -{{{ -retourner la première valeur du tableau $1 -}}} -!! {{{last_value}}} -{{{ -retourner la dernière valeur du tableau $1 -}}} -!! {{{array_copy}}} -{{{ -copier le contenu du tableau $2 dans le tableau $1 -}}} -!! {{{array_copy_firsts}}} -{{{ -copier tous les valeurs du tableau $2(=$1) dans le tableau $1, excepté la dernière -}}} -!! {{{array_del_last}}} -!! {{{array_copy_lasts}}} -{{{ -copier tous les valeurs du tableau $2(=$1) dans le tableau $1, excepté la première -}}} -!! {{{array_del_first}}} -!! {{{array_extend}}} -{{{ -ajouter le contenu du tableau $2 au tableau $1 -}}} -!! {{{array_extendu}}} -{{{ -ajouter chacune des valeurs du tableau $2 au tableau $1, si ces valeurs n'y -sont pas déjà. Retourner vrai si au moins une valeur a été ajoutée -}}} -!! {{{array_extend_firsts}}} -{{{ -ajouter toutes les valeurs du tableau $2 dans le tableau $1, excepté la dernière -}}} -!! {{{array_extend_lasts}}} -{{{ -ajouter toutes les valeurs du tableau $2 dans le tableau $1, excepté la première -}}} -!! {{{array_xsplit}}} -{{{ -créer le tableau $1 avec chaque élément de $2 (un ensemble d'éléments séparés -par $3, qui vaut ':' par défaut). -}}} -!! {{{array_split}}} -{{{ -créer le tableau $1 avec chaque élément de $2 (un ensemble d'éléments séparés -par $3, qui vaut ':' par défaut). Les éléments vides sont ignorés. par exemple -"a::b" est équivalent à "a:b" -}}} -!! {{{array_from_path}}} -!! {{{array_from_xlines}}} -{{{ -créer le tableau $1 avec chaque ligne de $2. -}}} -!! {{{array_from_lines}}} -{{{ -créer le tableau $1 avec chaque ligne de $2. Les lignes vides sont ignorés. -}}} -!! {{{array_join}}} -{{{ -afficher le contenu du tableau dont le nom est $1 sous forme d'une liste de -valeurs séparées par $2 (par défaut, une virgule) -Si $1=="@", alors les éléments du tableaux sont les arguments de la fonction à -partir de $3 -Si $1!="@" et que le tableau est vide, afficher $3 -Si $1!="@", $4 et $5 sont des préfixes et suffixes à rajouter à chaque élément -}}} -!! {{{array_mapjoin}}} -{{{ -map le tableau $1 avec la fonction $2, puis afficher le résultat en séparant -chaque élément par $3. Les arguments et la sémantique sont les mêmes que pour -array_join en tenant compte de l'argument supplémentaire $2 qui est la -fonction pour array_map (les autres arguments sont décalés en conséquence) -}}} -!! {{{array_to_lines}}} -{{{ -afficher le tableau dont le nom est $1 sous forme de lignes -}}} -!! {{{array_to_path}}} -{{{ -afficher le tableau dont le nom est $1 sous forme d'une liste de chemins -séparés par ':') -}}} -!! {{{array_fix_paths}}} -{{{ -Corriger les valeurs du tableau $1. Les valeurs contenant le séparateur -$2(=':') sont séparées en plusieurs valeurs. Par exemple avec le tableau -input=(a b:c), le résultat est input=(a b c) -}}} -!! {{{get_date_rfc822}}} -!! {{{get_date_fr}}} -!! {{{get_time_fr}}} -!! {{{parse_date}}} -!! {{{udelpath}}} -{{{ -supprimer le chemin $1 de $2(=PATH) -}}} -!! {{{uaddpath}}} -{{{ -Ajouter le chemin $1 à la fin, dans $2(=PATH), s'il n'y existe pas déjà -}}} -!! {{{uinspathm}}} -{{{ -Ajouter le chemin $1 au début, dans $2(=PATH), s'il n'y existe pas déjà -}}} -!! {{{uinspath}}} -{{{ -S'assurer que le chemin $1 soit au début de $2(=PATH) -}}} -!! {{{withpath}}} -{{{ -tester si le chemin est relatif à . ou à .., ou est absolu. i.e 'withpath a/b' -renvoie faux alors que 'withpath ./a/b' renvoie vrai -}}} -!! {{{withext}}} -{{{ -tester si le fichier a une extension -}}} -!! {{{normpath}}} -{{{ -normaliser le chemin $1, qui est soit absolu, soit relatif à $2 (qui vaut -$(pwd) par défaut) -}}} -!! {{{abspath}}} -{{{ -Retourner un chemin absolu vers $1. Si $2 est non nul et si $1 est un chemin -relatif, alors $1 est exprimé par rapport à $2, sinon il est exprimé par -rapport au répertoire courant. -Si le chemin n'existe pas, il n'est PAS normalisé. Sinon, les meilleurs -efforts sont faits pour normaliser le chemin. -}}} -!! {{{parentdirs}}} -{{{ -Obtenir la liste de tous les parents du répertoire $2 dans le tableau $1, du -répertoire $2 vers la racine. Si $3 commence par 'r' (comme reverse), l'ordre -est inversé: le tableau contient les répertoire de la racine vers $2. -}}} -!! {{{ppath}}} -{{{ -Dans un chemin *absolu*, remplacer "$HOME" par "~" et "$(pwd)/" par "", afin -que le chemin soit plus facile à lire. Le répertoire courant est spécifié par -$2 ou $(pwd) si $2 est vide -}}} -!! {{{relpath}}} -{{{ -Afficher le chemin relatif de $1 par rapport à $2. Si $2 n'est pas spécifié, -on prend le répertoire courant. Si $1 ou $2 ne sont pas des chemins absolus, -il sont transformés en chemins absolus par rapport à $3. Si $1==$2, retourner -une chaine vide -}}} -!! {{{relpathx}}} -{{{ -Comme relpath, mais pour un chemin vers un exécutable qu'il faut lancer: -s'assurer qu'il y a une spécification de chemin, e.g. ./script -}}} -!! {{{withinpath}}} -{{{ -Tester si le chemin absolu $2 se trouve dans le chemin absolu "$1" (appelée -barrière). Soit un chemin P, on considère que P est dans P. Si ce comportement -n'est pas souhaité, $3(=N) doit valoir O, auquel cas P est dans Q implique que -P != Q. -}}} -!! {{{safe_abspath}}} -{{{ -Afficher le chemin absolu de $1, par rapport à $2, si et seulement si le -chemin résultat ne se trouve pas en dehors de la barrière $3. Si $2 n'est pas -spécifié, prendre le répertoire courant. S'il est relatif, l'exprimer par -rapport au répertoire courant. Si $3 est relatif, l'exprimer par rapport à $2. -Si le chemin résultat est sité en dehors de la barrière, ne rien afficher et -retourner un code d'erreur. -Si le chemin $1 n'existe pas, il n'est PAS normalisé. Sinon, les meilleurs -efforts sont faits pour normaliser le chemin résultat. -}}} -!! {{{safe_relpath}}} -{{{ -Afficher le chemin relatif de $1 par rapport à $2 si et seulement si le chemin -résultat ne se trouve pas en dehors de la barrière $3. Si $2 n'est pas -spécifié, prendre le répertoire courant. S'il est relatif, l'exprimer par -rapport au répertoire courant. Si $3 est relatif, l'exprimer par rapport à $2. -Si le chemin résultat est sité en dehors de la barrière, ne rien afficher et -retourner un code d'erreur. -}}} -!! {{{splitwcs}}} -{{{ -Découper un nom de chemin $1 entre la partie sans wildcards, qui est placée dans -la variables $2(=basedir), et la partie avec wildcards, qui est placée dans la -variable $3(=filespec) -}}} -!! {{{deref}}} -{{{ -Retourner un chemin absolu vers le fichier $1, dans lequel toutes les -composantes "lien symbolique" ont été supprimées. -DEPRECATED: Cette fonction est dépréciée. Utiliser à la place readlinkm() -}}} -!! {{{readlinka}}} -{{{ -Afficher un chemin absolu vers la destination du fichier $1. Si $1 n'est pas -un lien, afficher simplement le chemin du fichier -}}} -!! {{{readlinkm}}} -{{{ -Retourner un chemin absolu vers le fichier $1, dans lequel toutes les -composantes "lien symbolique" ont été supprimées. Il n'est pas requis que les -composantes du chemin existent. -}}} -!! {{{path_if_test}}} -{{{ -afficher un chemin si le fichier $2 existe (en utilisant l'opérateur $1) dans -l'un des chemins absolus $4..n. si $3==relative, afficher le chemin relatif, -sinon le chemin absolu. note: $3 peut être de la forme relative:path, auquel -cas le chemin affiché est exprimé relativement à path -}}} -!! {{{update_link}}} -{{{ -mettre à jour le lien $2 pour qu'il pointe vers le fichier $1 -}}} -!! {{{update_links}}} -{{{ -Mettre à jour les liens $2..@ pour qu'ils pointent vers la nouvelle -destination $1 -}}} -!! {{{move_link}}} -{{{ -Déplacer le lien $1 vers $2, et mettre à jour la destination du lien si -elle est exprimée de façon relative -Si $1 n'est pas un lien, le déplacer normalement avec mv -}}} -!! {{{copy_link}}} -{{{ -Copier le lien $1 vers $2, et mettre à jour la destination du lien si -elle est exprimée de façon relative -Si $1 n'est pas un lien, le copier normalement avec cp -}}} -!! {{{array_find_links}}} -{{{ -Chercher dans le répertoire $3 (qui est par défaut le répertoire courant) -les liens vers le fichier $2, et ajouter leurs chemins absolus dans le -tableau $1 -}}} -!! {{{list_links}}} -{{{ -Chercher dans le répertoire $2 les liens vers le fichier $1, et les -afficher, un par ligne. -}}} -!! {{{move_file}}} -{{{ -Déplacer le fichier $1 vers $2, et mettre à jour les liens $3..@ pour -qu'ils pointent vers la nouvelle destination -}}} -!! {{{get_nblines}}} -{{{ -Afficher le nombre de lignes d'un fichier -}}} -!! {{{mktempf}}} -{{{ -générer un fichier temporaire et retourner son nom -}}} -!! {{{mktempd}}} -{{{ -générer un répertoire temporaire et retourner son nom -}}} -!! {{{mkdirof}}} -{{{ -Créer le répertoire correspondant à un fichier -}}} -!! {{{cp_a}}} -{{{ -copier des fichiers en gardant le maximum de propriétés -}}} -!! {{{cp_R}}} -{{{ -copier des fichiers récursivement, en suivant les liens symboliques -}}} -!! {{{quietgrep}}} -{{{ -tester la présence d'un pattern dans un fichier -}}} -!! {{{quietdiff}}} -{{{ -tester si deux fichiers sont identiques -}}} -!! {{{testsame}}} -{{{ -tester si deux fichiers sont identiques/différents -}}} -!! {{{testdiff}}} -!! {{{testupdated}}} -{{{ -test si $2 n'existe pas ou si $1 est différent de $2 -}}} -!! {{{testnewer}}} -{{{ -test si $2 n'existe pas ou si $1 est plus récent que $2 -}}} -!! {{{ps_all}}} -{{{ -afficher tous les processus avec le maximum d'informations -}}} -!! {{{progexists}}} -{{{ -tester l'existence d'un programme dans le PATH -}}} -!! {{{has_python}}} -{{{ -tester la présence de python -}}} -!! {{{has_gawk}}} -{{{ -tester la présence de gnuawk -}}} -!! {{{is_root}}} -{{{ -tester si on est root -}}} -!! {{{source_ifexists}}} -{{{ -sourcer un fichier s'il existe -}}} -!! {{{is_running}}} -{{{ -tester si un programme dont on donne le PID tourne -}}} -!! {{{sedi}}} -{{{ -Lancer sed sur un fichier en le modifiant en place -}}} -!! {{{csort}}} -{{{ -Lancer sort avec LANG=C pour éviter les problèmes avec la locale. en effet, -avec LANG!=C, sort utilise les règles de la locale pour le tri, et par -exemple, avec LANG=fr_FR.UTF-8, la locale indique que les ponctuations doivent -être ignorées. -}}} -!! {{{lsort}}} -!! {{{cgrep}}} -{{{ -Lancer grep avec LANG=C pour éviter les problèmes avec la locale. cf csort -pour une explication. -}}} -!! {{{lgrep}}} -!! {{{csed}}} -{{{ -Lancer sed avec LANG=C pour éviter les problèmes avec la locale. cf csort pour -une explication. -}}} -!! {{{lsed}}} -!! {{{cawk}}} -{{{ -Lancer awk avec LANG=C pour éviter les problèmes avec la locale. cf csort pour -une explication. -}}} -!! {{{lawk}}} -!! {{{cdiff}}} -{{{ -Lancer diff avec LANG=C pour éviter les problèmes avec la locale. cf csort -pour une explication. -}}} -!! {{{ldiff}}} -!! {{{fix_mode}}} -{{{ -Si le fichier $1 n'est pas writable, le rendre writable temporairement. Si -nécessaire, le fichier est créé. -Cette fonction s'utilise de cette façon: -mode="$(fix_mode file)" -... -unfix_mode file "$mode" -}}} -!! {{{unfix_mode}}} -{{{ -Restaurer le mode $2 du fichier $1 traité par fix_mode -}}} -!! {{{get_mode}}} -{{{ -Obtenir le mode du fichier $1, en le créant si nécessaire. A utiliser avec -unfix_mode pour restaurer le mode d'un fichier qui a été traité avec un -fichier temporaire intermédiaire -}}} -!! {{{rm_maybe}}} -{{{ -Supprimer les fichiers dont on donne la liste. Si aucun fichier n'est -spécifié, cette fonction est un NOP -}}} -!! {{{cpdir}}} -{{{ -copier un fichier dans un répertoire, ou le contenu d'un répertoire dans un -autre répertoire, que le répertoire source soit un lien symbolique ou -non. Cette fonction existe parce que le comportement de "cp_a src dest" n'est -pas consistant selon les plateformes, surtout si src est un lien symbolique -sur un répertoire: parfois on copie le lien, parfois on copie le contenu du -répertoire, parfois on copie le répertoire... -La copie est faite avec rsync si possible. Les options du tableau -__CPDIR_RSYNC_ARGS sont rajoutées aux options standard de rsync. -}}} -!! {{{cpnovcs}}} -{{{ -copier le fichier/répertoire $1 *dans* le *répertoire* $2 avec rsync. Les -options du tableau __CPNOVCS_RSYNC_ARGS sont rajoutées aux options standard -de rsync. -Si $1 est un répertoire, la copie est faite en ignorant les sous-répertoires -de VCS (.svn, CVS). En ce qui concerne les répertoire de VCS, git aussi est -supporté, mais uniquement s'il est à la racine du transfert. -Si $1 se termine par un '/', c'est le contenu du répertoire qui est copié, pas -le répertoire lui-même. Si rsync n'est pas trouvé sur le système, alors on -fait une copie standard qui inclue les répertoires de VCS. -}}} -!! {{{cpvcs}}} -{{{ -comme cpnovcs, mais ne pas ignorer les répertoires de VCS -}}} -!! {{{cpdirnovcs}}} -{{{ -Le pendant de cpdir, mais en ignorant les sous-répertoires de VCS: copier le -contenu du répertoire $1 dans le répertoire $2 -}}} -!! {{{doinplace}}} -{{{ -Filtrer le fichier $1 à travers la commande $2..$*, puis remplacer le fichier -s'il n'y a pas eu d'erreur. Retourner le code d'erreur de la commande. Si $1 -n'est pas spécifié ou vaut -, filtrer l'entrée standard vers la sortie -standard. -La variante doinplacef remplace le fichier quelque soit le code de retour de -la commande. A utiliser avec des commandes comme grep qui peuvent retourner -FAUX s'ils ne trouvent pas le motif -}}} -!! {{{doinplacef}}} -!! {{{stripnl}}} -{{{ -Supprimer les caractères de fin de ligne de la chaine en entrée -}}} -!! {{{nl2lf}}} -!! {{{nl2crlf}}} -!! {{{nl2cr}}} -!! {{{list_all}}} -{{{ -Lister les fichiers ou répertoires du répertoire $1, un par ligne -Les répertoires . et .. sont enlevés de la liste -$1=un répertoire dont le contenu doit être listé -$2..@=un ensemble de patterns pour le listage -}}} -!! {{{list_files}}} -{{{ -Lister les fichiers du répertoire $1, un par ligne -$1=un répertoire dont le contenu doit être listé. -$2..@=un ensemble de patterns pour le listage -}}} -!! {{{list_dirs}}} -{{{ -Lister les répertoires du répertoire $1, un par ligne -Les répertoires . et .. sont enlevés de la liste -$1=un répertoire dont le contenu doit être listé. -$2..@=un ensemble de patterns pour le listage -}}} -!! {{{array_lsall}}} -{{{ -Lister les fichiers avec `list_all $2 $3...`, et les mettre dans le -tableau $1. Le tableau contient les chemins complets, par seulement les -noms comme avec list_all -}}} -!! {{{array_lsdirs}}} -{{{ -Lister les fichiers avec `list_dirs $2 $3...`, et les mettre dans le -tableau $1. Le tableau contient les chemins complets, par seulement les -noms comme avec list_dirs -}}} -!! {{{array_lsfiles}}} -{{{ -Lister les fichiers avec `list_files $2 $3...`, et les mettre dans le -tableau $1. Le tableau contient les chemins complets, par seulement les -noms comme avec list_files -}}} -!! {{{filter_empty}}} -{{{ -Filtrer l'entrée standard en enlevant les lignes vides -}}} -!! {{{filter_vcspath}}} -{{{ -L'entrée standard étant une liste de chemins, filtrer les fichiers et -répertoire qui ont un rapport avec subversion ou git -}}} -!! {{{merge_contlines}}} -{{{ -Avec les lignes lues sur stdin, fusionner celles qui se terminent par \ avec -les suivantes. -}}} -!! {{{filter_comment}}} -{{{ -Filtrer un fichier de configuration lu sur stdin en enlevant les commentaires -et les lignes vides. -Avec $1==-m, fusionner les lignes qui se terminent par \ avec les suivantes -Comme filter_conf(), les commentaires doivent être sur une ligne à part. -Contrairement à filter_conf, il n'est pas nécessaire que le caractère '#' soit -en début de ligne: il peut apparaitre après des espaces et des tabulations. De -même, une ligne qui ne contient que des espaces et des tabulations est -considérée comme vide. -}}} -!! {{{filter_conf}}} -{{{ -filtrer un fichier de configuration lu sur stdin en enlevant les commentaires -et les lignes vides. Une ligne n'est considérée commentaire que si '#' est un -première position. Utiliser filter_comment() si les commentaire peuvent -commencer par des caractères espace et tabulation. -Si $1==-m, fusionner les lignes qui se terminent par \ avec les suivantes -}}} -!! {{{is_archive}}} -{{{ -tester si l'extension d'un fichier indique que c'est une archive -}}} -!! {{{extract_archive}}} -{{{ -Extraire le contenu de l'archive $1 dans le répertoire ${2:-.} -}}} -!! {{{get_archive_basename}}} -{{{ -Obtenir le nom de base de l'archive $1 -}}} -!! {{{get_archive_appname}}} -{{{ -Obtenir le nom probable de l'application ou du framework contenu dans -l'archive $1, e.g: -get_archive_versionsuffix app-0.1.tgz ---> app -}}} -!! {{{get_archive_versionsuffix}}} -{{{ -Obtenir la valeur probable de la version de l'application ou du framework -contenu dans l'archive $1, avec le caractère de séparation, e.g: -get_archive_versionsuffix app-0.1.tgz ---> -0.1 -}}} -!! {{{get_archive_version}}} -{{{ -Obtenir la valeur probable de la version de l'application ou du framework -contenu dans l'archive $1, e.g: -get_archive_versionsuffix app-0.1.tgz ---> 0.1 -}}} -!! {{{dump_usernames}}} -{{{ -Placer dans le tableau $1 la liste des utilisateurs du système -Cette implémentation consulte /etc/passwd et liste tous les utilisateurs dont -le homedir se trouve dans /home, et dont l'uid est >=500 -}}} -!! {{{resolv_ips}}} -{{{ -Placer dans le tableau $1(=ips) la liste des adresses ip correspondant à -l'hôte $2. La résolution est effectuée avec la commande host. -}}} -!! {{{resolv_hosts}}} -{{{ -Placer dans le tableau $1(=hosts) la liste des hôtes correspondant à -l'adresse ip $2. La résolution est effectuée avec la commande host. -}}} -!! {{{runscript_as}}} -{{{ -Utiliser bash pour lancer le script $2 avec les arguments $3..$n afin qu'il -tourne avec les droits d'un autre user $1(=root). Si $2=exec, utiliser exec -pour lancer le script et ses arguments qui commencent à partir de $3, ce qui -fait que cette fonction ne retourne pas. -Attention! cette fonction ne teste pas avec si on est déjà le user $1. Il y a -donc un risque de boucle infinie si on ne teste pas le user courant. -}}} -!! {{{runscript_as_root}}} -{{{ -Utiliser bash pour lancer le script $1 avec les arguments $2..$* avec les -droits de root. Si on est déjà en root, le script est simplement lancé. Sinon, -utiliser runscript_as pour lancer le script avec les droits de root. -}}} -!! {{{run_as}}} -{{{ -Relancer le script courant afin qu'il tourne avec les droits d'un autre user -$1(=root) -Attention! cette fonction ne teste pas avec si on est déjà ce user. Il y a -donc un risque de boucle infinie si on ne teste pas le user courant. -Il faut lancer cette fonction avec les arguments du script en cours. Par -exemple:: -run_as root "$@" -Si $2=--noexec, on n'utilise pas la fonction exec, ce qui fait que la fonction -retourne. Sinon, on peut considérer que cette fonction ne retourne jamais -}}} -!! {{{run_as_root}}} -{{{ -relancer le script courant afin qu'il tourne en root si on est pas en déjà -root. Sinon, cette fonction est un nop. -}}} -!! {{{check_user}}} -{{{ -Vérifier si le user courant est l'un des users $1..* -}}} -!! {{{ensure_user}}} -{{{ -Vérifier si le user courant est l'un des users $1..N où N est la position du -premier "--". Si ce n'est pas le cas et que l'on est root, relancer le script -avec ce user grâce à la fonction run_as() -Retourner 1 si ce n'était pas le bon user. Retourner 10 si ce n'était pas le -bon user et que l'on n'est pas root (donc impossible à priori de relancer le -script avec le bon user). Retourner 11 si l'utilisateur a choisi de ne pas -lancer le script avec le bon utilisateur -A utiliser de cette manière: -if ensure_user users... -- args; then -# ... on est avec le bon user; faire les opérations -else -# ... ce code n'est exécuté que si une erreur s'est produite, ou si ce -# n'était pas le bon user et que l'option --noexec est utilisée -fi -}}} -!! {{{check_hostname}}} -{{{ -Vérifier si le hostname courant est l'un des hôtes $1..* -localhost matche toujours -}}} -!! {{{check_userhostname}}} -{{{ -Vérifier si le hostname et éventuellement le user courant sont l'un des -arguments $1..* -Chaque argument est de la forme [user@]host, mais le test ne tient compte que -du nom de l'hôte, sans tenir compte du domaine. Si le user n'est pas spécifié, -le test ne porte que sur hostname. -}}} -!! {{{ensure_hostname}}} -{{{ -Vérifier si le hostname et le user courant sont l'un des arguments $1..* -Chaque argument est de la forme [user@]host, mais le test ne tient compte que -du nom de l'hôte, sans tenir compte du domaine. -Si user est spécifié: -- Si on est sur le bon hôte mais pas le bon user, ensure_user est lancé avec -l'argument approprié pour relancer le script -Si l'argument était de la forme userhost:path, le répertoire courant est -changé avant de lancer le script avec le bon utilisateur. -Sinon (si user n'est pas spécifié): -- Si on n'est pas sur le bon hôte, après confirmation le script est lancé avec -ssh sur l'hôte distant avec le user spécifié (qui vaut par défaut root). Ce -script DOIT exister sur l'hôte distant avec le même chemin. -Si l'argument était de la forme userhost:path, le répertoire courant distant -est changé avant de lancer le script -Si on est avec le bon user sur le bon hôte, le répertoire courant n'est jamais -changé. -Retourner 1 si ce n'était pas le bon user. Retourner 10 si ce n'était pas le -bon user et que l'on n'est pas root (donc impossible à priori de relancer le -script avec le bon user). Retourner 11 si l'utilisateur a choisi de ne pas -lancer le script sur l'hôte distant. Retourner 12 si une erreur s'est produite -avec ssh. -A utiliser de cette manière: -if ensure_hostname user@host... -- args; then -# ... on est [avec le bon user] sur le bon hôte; faire les opérations -else -# ... ce code n'est exécuté que si une erreur s'est produite, ou si ce -# n'était pas le bon user et que l'option --noexec est utilisée -fi -}}} -!! {{{sqvals}}} -!! {{{quoted_values}}} -!! {{{formatcsv}}} -!! {{{awkdef}}} -{{{ -Afficher un script à insérer au début d'un script awk. Ce script définit dans -une section BEGIN{} les variables donnés en arguments, et avec l'option -f, -des fonctions utiles. Si une valeur ne ressemble pas à une définition de -variable, l'analyse des variables s'arrête et le reste des arguments est -inséré tel quel. Cette fonction peut être utilisée de cette manière: -awk "$(awkdef -f var=value... 'script awk')" -Normalement, les variables définies sont scalaires, avec une syntaxe de la -forme var[:type]=value. type peut valoir str ou int, pour forcer le type de la -variable créée dans awk. -Il est possible d'utiliser la syntaxe awk_array[@]=bash_array ou array[@] (qui -est équivalente à array[@]=array) pour initialiser le tableau awk_array, qui -contiendra toute les valeurs du tableau nommé bash_array, avec les indices de -1 à N, N étant le nombre d'éléments du tableau bash_array. La variable -awk_array_count est aussi initialisée, et contient le nombre d'éléments du -tableau -La syntaxe "awk_array[@]=<\n..." permet de spécifier les valeurs du tableau, -une par ligne, e.g: -$'values[@]=<\nvalue1\nvalue2' -pour un tableau values qui contiendra deux valeurs: value1 et value2 -Avec l'option -f, des fonctions supplémentaires sont définies. Elles sont -décrites dans le module awk. -}}} -!! {{{lawkrun}}} -{{{ -wrapper pour lancer awk avec un script préparé par awkdef. Les définitions et -les arguments sont séparés par --, e.g. -awkrun var0=value0 var1=value1 script -- input0 input1 -}}} -!! {{{cawkrun}}} -!! {{{awkrun}}} -!! {{{lf_trylock}}} -{{{ -USAGE -lf_trylock [-h max_hours] /path/to/lockfile -OPTIONS -lockfile -fichier qui doit contenir le verrou --h max_hours -Nombre d'heures (par défaut 4) au bout duquel afficher stale -Sinon, afficher locked -Retourne 0 si le verrou a été placé correctement. Il ne faut pas oublier de -supprimer le fichier. Le mieux est de le faire supprimer automatiquement par -autoclean: -lockfile=... -case "$(lf_trylock "$lockfile")" in -locked) ...;; -stale) ...;; -esac -autoclean "$lockfile" -Sinon, retourner 1 et afficher l'une des deux valeurs suivantes: -- stale si le verrou a déjà été placé, depuis au moins max_hours heures -- locked si le verrou a déjà été placé -- retry si une erreur s'est produite pendant la pose du verrou ou sa -lecture. Cela peut se produire si les droits ne sont pas suffisants pour -écrire dans le répertoire destination, ou si le fichier a été supprimé -avant sa lecture (race-condition). Dans ce dernier cas, reessayer permettra -d'acquérir le verrou -}}} -!! {{{pidfile_set}}} -{{{ -USAGE -pidfile_set [-p pid] /path/to/pidfile -OPTIONS -pidfile -fichier qui doit contenir le pid du script --p pid -spécifier le pid. par défaut, utiliser $$ --r si pidfile existe mais que le processus ne tourne plus, faire -comme si le fichier n'existe pas. -Retourner 0 si le pid a été correctement écrit dans le fichier. Ce fichier -sera supprimé automatiquement en fin de script -Retourner 1 si le fichier existe déjà et que le processus est en train de -tourner. -Retourner 2 si le fichier existe déjà mais que le processus ne tourne plus. -Retourner 10 si autre erreur grave s'est produite (par exemple, s'il manque le -chemin vers pidfile, ou si le fichier n'est pas accessible en écriture.) -}}} -!! {{{pidfile_check}}} -{{{ -USAGE -pidfile_check /path/to/pidfile -OPTIONS -pidfile -fichier qui doit contenir le pid d'un processus -Cette fonction permet de vérifier si le processus associé à un fichier de pid -est en train de tourner. -Retourner 0 si le fichier de pid existe et que le process du pid spécifié est -en train de tourner. Retourner 1 sinon. -Retourner 10 si erreur grave s'est produite (par exemple, s'il manque le -chemin vers pidfile, ou si le fichier n'est pas accessible en lecture.) -}}} -!! {{{page_maybe}}} -{{{ -Utiliser less, si possible, pour afficher le flux en entrée. Si le terminal -n'est pas interactif ou si le nombre de lignes en entrée est inférieur au -nombre de lignes du terminal, afficher simplement le flux. -Les arguments de cette fonction sont passés à less -}}} -!! {{{utools_local}}} -{{{ -Afficher les commandes pour rendre locales certaines variables en fonction des -arguments: -- opts rend locale args, pour utiliser parse_opts() à l'intérieur d'une -fonction. -- verbosity et interaction rendent respectivement locales __verbosity et -__interaction. Ceci est utile pour pouvoir appeler sans risque de pollution -de l'environnement une fonction qui utilise parse_opts() avec les -définitions de PRETTYOPTS. -Si aucun arguments n'est fourni, toutes les définitions sont affichées. -}}} -!! {{{stdredir}}} -{{{ -Lancer la commande $4..@ en redirigeant stdin depuis $1, stdout vers $2, -stderr vers $3. Si $1 est vide ou vaut /dev/stdin, la redirection n'est -pas faite. Si $2 est vide ou vaut /dev/stdout, la redirection n'est pas -faite. Si $3 est vide ou vaut /dev/stderr, la redirection n'est pas faite. -Cette fonction existe parce que sur certaines versions de bash, il semble -que les redirections /dev/std* ne sont pas traitées de façon particulière. -De plus, sur des technologies telles que OpenVZ, les chemins /dev/std* ne -sont pas créés (parce que /proc/self/fd/* n'est pas accessible). Donc, -dans de rares cas où le script tourne sur OpenVZ avec une version de bash -qui est buggée, la redirection n'est pas faite correctement. -}}} -!! {{{isatty}}} -{{{ -tester si STDOUT n'est pas une redirection -}}} -!! {{{in_isatty}}} -{{{ -tester si STDIN n'est pas une redirection -}}} -!! {{{out_isatty}}} -{{{ -tester si STDOUT n'est pas une redirection -}}} -!! {{{err_isatty}}} -{{{ -tester si STDERR n'est pas une redirection -}}} -!! {{{die}}} -!! {{{die_unless}}} -{{{ -Afficher $-1 et quitter le script avec die() si la commande $1..-2 retourne -FAUX -}}} -!! {{{eerror_unless}}} -{{{ -Afficher $-1 avec eerror() et retourner $? si la commande $1..-2 retourne FAUX -}}} -!! {{{die_if}}} -{{{ -Afficher $-1 et quitter le script avec die() si la commande $1..-2 retourne -VRAI -}}} -!! {{{eerror_if}}} -{{{ -Afficher $-1 avec eerror() et retourner le code d'erreur 1 si la commande -$1..-2 retourne VRAI -}}} -!! {{{noerror}}} -{{{ -lancer la commande "$@" et masquer son code de retour -}}} -!! {{{noout}}} -{{{ -lancer la commande "$@" en supprimant sa sortie standard -}}} -!! {{{noerr}}} -{{{ -lancer la commande "$@" en supprimant sa sortie d'erreur -}}} -!! {{{tooenc}}} -{{{ -Transformer la valeur $1 de l'encoding $2(=$OENC) vers l'encoding de sortie -$3=($UTOOLS_OUTPUT_ENCODING) -}}} -!! {{{uecho}}} -!! {{{tooenc_}}} -{{{ -Transformer la valeur $1 de l'encoding $2(=$OENC) vers l'encoding de sortie -$3=($UTOOLS_OUTPUT_ENCODING) -}}} -!! {{{uecho_}}} -!! {{{toienc}}} -{{{ -Transformer la valeur $1 de $2(=$IENC) vers l'encoding d'entrée -$3(=$UTOOLS_INPUT_ENCODING) -}}} -!! {{{uread}}} -{{{ -Lire une valeur sur stdin et la placer dans la variable $1. On assume que la -valeur en entrée est encodée dans l'encoding d'entrée par défaut -}}} -!! {{{stooenc}}} -{{{ -Transformer la valeur lue sur stdin de $OENC vers l'encoding de sortie par -défaut ($UTOOLS_OUTPUT_ENCODING) -}}} -!! {{{stoienc}}} -{{{ -Transformer la valeur lue sur stdin de $IENC vers l'encoding d'entrée par -défaut ($UTOOLS_INPUT_ENCODING) -}}} -!! {{{elogto}}} -{{{ -Activer UTOOLS_EDATE et rediriger STDOUT et STDERR vers le fichier $1 -Si deux fichiers sont spécifiés, rediriger STDOUT vers $1 et STDERR vers $2 -Si aucun fichier n'est spécifié, ne pas faire de redirection -Si la redirection est activée, forcer l'utilisation de l'encoding UTF8 -Si UTOOLS_ELOG_OVERWRITE=1, alors le fichier en sortie est écrasé. Sinon, les -lignes en sortie lui sont ajoutées -}}} -!! {{{set_verbosity}}} -!! {{{set_interaction}}} -!! {{{show_error}}} -{{{ -tester respectivement si on doit afficher les messages d'erreur, -d'avertissement, d'information, de debug -}}} -!! {{{show_warn}}} -!! {{{show_info}}} -!! {{{show_verbose}}} -!! {{{show_debug}}} -!! {{{check_verbosity}}} -!! {{{get_verbosity_option}}} -!! {{{check_interaction}}} -!! {{{is_interaction}}} -!! {{{get_interaction_option}}} -!! {{{eflush}}} -{{{ -Afficher les messages en attente -}}} -!! {{{eclearp}}} -{{{ -Supprimer les message en attente -}}} -!! {{{eerror}}} -{{{ -Afficher un message d'erreur -}}} -!! {{{ewarn}}} -{{{ -Afficher un message d'avertissement -}}} -!! {{{enote}}} -{{{ -Afficher un message d'information de même niveau qu'un avertissement -}}} -!! {{{ebanner}}} -{{{ -Afficher un message très important encadré, puis attendre 5 secondes -}}} -!! {{{eimportant}}} -{{{ -Afficher un message très important -}}} -!! {{{eattention}}} -{{{ -Afficher un message important -}}} -!! {{{einfo}}} -{{{ -Afficher un message d'information -}}} -!! {{{eecho}}} -{{{ -Afficher un message d'information sans préfixe -}}} -!! {{{eecho_}}} -!! {{{edebug}}} -{{{ -Afficher un message de debug -}}} -!! {{{trace}}} -{{{ -Afficher la commande $1..@, la lancer, puis afficher son code d'erreur si une -erreur se produit -}}} -!! {{{trace_error}}} -{{{ -Lancer la commande $1..@, puis afficher son code d'erreur si une erreur se -produit. La différence avec trace() est que la commande n'est affichée que si -une erreur se produit. -}}} -!! {{{etitle}}} -{{{ -Afficher le titre $1, qui est le début éventuel d'une section. Les section -imbriquées sont affichées indentées. La section n'est pas terminée, et il faut -la terminer explicitement avec eend, sauf dans certains cas précis: -- Si $2..$* est spécifié, c'est une commande. Lancer la commande dans le -contexte de la section. Puis, la section est automatiquement terminée sauf si -l'option -s est spécifiée, auquel cas la section reste ouverte. Si l'option -p -est spécifiée, eclearp() est appelé pour purger les messages en attente -- Dans le cas contraire, l'option -s est ignorée: la section doit toujours -être terminée explicitement. -La fonction etitled() est comme etitle(), mais le titre n'est pas affiché -immédiatement. L'affichage effectif est effectué dès qu'une fonction e* est -utilisée. Ceci permet, avec la fonction eclearp(), de ne pas afficher de titre -pour une section vide. -}}} -!! {{{etitled}}} -!! {{{estep}}} -{{{ -Afficher la description d'une opération. Cette fonction est particulièrement -appropriée dans le contexte d'un etitle. -Les variantes e (error), w (warning), n (note), i (info) permettent d'afficher -des couleurs différentes, mais toutes sont du niveau info. -}}} -!! {{{estepe}}} -!! {{{estepw}}} -!! {{{estepn}}} -!! {{{estepi}}} -!! {{{estep_}}} -!! {{{estepe_}}} -!! {{{estepw_}}} -!! {{{estepn_}}} -!! {{{estepi_}}} -!! {{{ebegin}}} -{{{ -Afficher le message $1, qui décrit le début d'une opération. Cette fonction -débute une section, qu'il faut terminer avec eend. -Si $2..$* est spécifié, c'est une commande. Lancer la commande dans le -contexte de la section. Puis, la section est terminée automatiquement, sauf si -l'option -s est spécifiée, auquel cas la section reste ouverte. -}}} -!! {{{edot}}} -{{{ -Afficher une étape d'une opération, matérialisée par un point '.' ou une -croix 'x' en cas de succès ou d'erreur. Cette fonction est particulièrement -appropriée dans le contexte d'un ebegin. -}}} -!! {{{edotw}}} -{{{ -Afficher un avertissement comme étape d'une opération, matérialisée par une -lettre 'w' (typiquement de couleur jaune). Cette fonction est particulièrement -appropriée dans le contexte d'un ebegin. -}}} -!! {{{ewait}}} -{{{ -Afficher les étapes d'une opération qui dure, matérialisées par des '+' toutes -les secondes tant que le processus $1 tourne. -A utiliser de cette manière: -ebegin "msg" -cmd & -ewait $! -eend -}}} -!! {{{eend}}} -{{{ -Terminer une section. -Avec l'option -c, remettre à zéro toutes les informations de section -Si la section en cours est un ebegin, afficher la fin de l'opération: [ok] ou -[error] en fonction du code de retour de la dernière commande (ou de $1 si -cette valeur est donnée) -Si la section en cours est un etitle, marquer la fin de la section concernée -par le titre. -}}} -!! {{{elinedots}}} -{{{ -Afficher un message comme avec ebegin "$1", puis afficher un point '.' pour -chaque ligne lue sur stdin. Cela permet de suivre une opération. En mode -DEBUG, afficher la ligne affichée plutôt qu'un point. -Si $2..$* sont spécifiés, lancer la commande et suivre sa sortie. Ainsi, -'elinedots msg cmd args' est un raccourci pour 'cmd args | elinedots msg' -}}} -!! {{{ask_yesno}}} -{{{ -Afficher le message $1 suivi de [oN] ou [On] suivant que $2 vaut O ou N, puis -lire la réponse. Retourner 0 si la réponse est vrai, 1 sinon. -Si $1 est une option, elle est utilisée avec check_interaction pour savoir si -on est en mode interactif ou non. A ce moment-là, les valeurs sont décalées -($2=message, $3=default) -Si $2 vaut C, la valeur par défaut est N si on est interactif, O sinon -Si $2 vaut X, la valeur par défaut est O si on est interactif, N sinon -}}} -!! {{{read_value}}} -{{{ -Afficher le message $1 suivi de la valeur par défaut [$3] si elle est non -vide, puis lire la valeur donnée par l'utilisateur. Cette valeur doit être non -vide si $4(=O) est vrai. La valeur saisie est placée dans la variable -$2(=value) -Si $1 est une option, elle est utilisée avec check_interaction pour savoir si -on est en mode interactif ou non. A ce moment-là, les valeurs sont décalées -($2=message, $3=variable, $4=default, $5=required) -En mode non interactif, c'est la valeur par défaut qui est sélectionnée. Si -l'utilisateur requière que la valeur soit non vide et que la valeur par défaut -est vide, afficher un message d'erreur et retourner faux -read_password() est comme read_value(), mais la valeur saisie n'est pas -affichée, ce qui la rend appropriée pour la lecture d'un mot de passe. -}}} -!! {{{read_password}}} -!! {{{simple_menu}}} -{{{ -Afficher un menu simple dont les éléments sont les valeurs du tableau -$2(=options). L'option choisie est placée dans la variable $1(=option) --t TITLE: spécifier le titre du menu --m YOUR_CHOICE: spécifier le message d'invite pour la sélection de l'option --d DEFAULT: spécifier l'option par défaut. Par défaut, prendre la valeur -actuelle de la variable $1(=option) -}}} -!! {{{actions_menu}}} -{{{ -Afficher un menu dont les éléments sont les valeurs du tableau $4(=options), -et une liste d'actions tirées du tableau $3(=actions). L'option choisie est -placée dans la variable $2(=option). L'action choisie est placée dans la -variable $1(=action) -Un choix est saisi sous la forme [action]num_option --t TITLE: spécifier le titre du menu --m OPT_YOUR_CHOICE: spécifier le message d'invite pour la sélection de -l'action et de l'option --M ACT_YOUR_CHOICE: spécifier le message d'invite dans le cas où aucune option -n'est disponible. Dans ce cas, seules les actions vides sont possibles. --e VOID_ACTION: spécifier qu'une action est vide, c'est à dire qu'elle ne -requière pas d'être associée à une option. Par défaut, la dernière action -est classée dans cette catégorie puisque c'est l'action "quitter" --d DEFAULT_ACTION: choisir l'action par défaut. par défaut, c'est la première -action. --q QUIT_ACTION: choisir l'option "quitter" qui provoque la sortie du menu sans -choix. par défaut, c'est la dernière action. --o DEFAULT_OPTION: choisir l'option par défaut. par défaut, prendre la valeur -actuelle de la variable $2(=option) -}}} -!! {{{autoclean}}} -{{{ -Ajouter $1..$n à la liste des fichiers à supprimer à la fin du programme -}}} -!! {{{ac_cleanall}}} -{{{ -Supprimer *tous* les fichiers temporaires gérés par autoclean tout de suite. -}}} -!! {{{ac_clean}}} -{{{ -Supprimer les fichier temporaires $1..$* si et seulement s'ils ont été générés -par ac_set_tmpfile ou ac_set_tmpdir -}}} -!! {{{ac_set_tmpfile}}} -{{{ -Créer un fichier temporaire avec le motif $2, l'ajouter à la liste des -fichiers à supprimer en fin de programme, et mettre sa valeur dans la -variable $1 -En mode debug, si ($5 est vide ou ${!5} est une valeur vraie), et si $3 n'est -pas vide, prendre ce fichier au lieu de générer un nouveau fichier -temporaire. Si $4==keep, ne pas écraser le fichier $3 s'il existe. -}}} -!! {{{ac_set_tmpdir}}} -{{{ -Créer un répertoire temporaire avec le motif $2, l'ajouter à la liste des -fichiers à supprimer en fin de programme, et mettre sa valeur dans la -variable $1 -En mode debug, si ($4 est vide ou ${!4} est une valeur vraie), et si $3 n'est -pas vide, prendre ce nom de répertoire au lieu de créer un nouveau répertoire -temporaire -}}} -!! {{{debug_tee}}} -{{{ -En mode debug, passer le flux à travers la commande 'tee "$@"'. Sinon, le flux -est passé inchangé. -}}} -!! {{{get_user_defaults_file}}} -{{{ -Afficher le chemin vers le fichier utilisateur à éditer pour qu'il soit chargé -par 'set_defaults $1'. Ce fichier n'existe pas forcément; il faut peut-être le -créer. -}}} -!! {{{get_defaults_files}}} -{{{ -Initialiser le tableau $1(=defaults) avec la liste des fichiers qui seraient -chargés par la commande 'set_defaults $2..N' -}}} -!! {{{set_defaults}}} -{{{ -Pour chaque argument, sourcer /etc/default/$arg *et* (en priorité -~/etc/default.$HOSTNAME/$arg ou à défaut ~/etc/default/$arg) si ceux-ci -existent. *Sinon*, lire $scriptdir/lib/default/$arg si ce fichier existe -}}} -!! {{{myhost}}} -{{{ -Afficher le nom d'hôte pleinement qualifié, en faisant appel à la commande -hostname. Par comparaison, $MYHOST est fourni par bash. -}}} -!! {{{myhostname}}} -{{{ -Afficher le nom d'hôte sans domaine, en faisant appel à la commande -hostname. Par comparaison, $MYHOSTNAME est fourni par bash. -}}} diff --git a/doc/ulib_base.ulib.twp b/doc/ulib_base.ulib.twp deleted file mode 100644 index 064b5ad..0000000 --- a/doc/ulib_base.ulib.twp +++ /dev/null @@ -1,8 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/base.ulib - diff --git a/doc/ulib_bash.twp b/doc/ulib_bash.twp deleted file mode 100644 index a1e3fe7..0000000 --- a/doc/ulib_bash.twp +++ /dev/null @@ -1,8 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:15 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/bash - diff --git a/doc/ulib_cgi.twp b/doc/ulib_cgi.twp deleted file mode 100644 index e890043..0000000 --- a/doc/ulib_cgi.twp +++ /dev/null @@ -1,54 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/cgi - -!! {{{is_cgi}}} -{{{ -Tester si on est lancé comme un script CGI -}}} -!! {{{ctype_header}}} -{{{ -Générer une en-tête Content-Type: avec la valeur $1[=text/html] -}}} -!! {{{cdisp_header}}} -{{{ -Générer une en-tête Content-Disposition: avec le type $2[=attachment] et -le nom de fichier $1[=result] -}}} -!! {{{nocache_header}}} -{{{ -Générer des en-têtes qui désactivent la mise en cache du contenu -}}} -!! {{{cgicontent}}} -{{{ -Générer les en-têtes nécessaire avant de servir le contenu. -$1(=text/html) est le type de contenu. S'il faut servir le contenu avec -une disposition "attachment", $2 est le nom de fichier à proposer à -l'utilisateur. Si $3 est spécifié, c'est le chemin vers le fichier dont le -contenu doit être servi. -$4..* sont des en-têtes supplémentaires à rajouter -}}} -!! {{{cgicontent_nocache}}} -{{{ -Générer les en-têtes nécessaire avant de servir le contenu. Rajouter les -entêtes pour désactiver la mise en cache. -$1(=text/html) est le type de contenu. S'il faut servir le contenu avec -une disposition "attachment", $2 est le nom de fichier à proposer à -l'utilisateur. Si $3 est spécifié, c'est le chemin vers le fichier dont le -contenu doit être servi. -$4..* sont des en-têtes supplémentaires à rajouter -}}} -!! {{{cgierror}}} -{{{ -Afficher les en-têtes pour désactiver la mise en cache, puis afficher un -message d'erreur puis arrêter le script -}}} -!! {{{cgiredirect}}} -{{{ -Afficher les en-têtes pour rediriger le client vers la page $1 puis -arrêter le script -}}} diff --git a/doc/ulib_cgisupport.twp b/doc/ulib_cgisupport.twp deleted file mode 100644 index b2896cf..0000000 --- a/doc/ulib_cgisupport.twp +++ /dev/null @@ -1,11 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/cgisupport - -!! {{{cgiparams}}} -!! {{{cgilsxml}}} -!! {{{cgiupload}}} diff --git a/doc/ulib_compat.twp b/doc/ulib_compat.twp deleted file mode 100644 index aa9f721..0000000 --- a/doc/ulib_compat.twp +++ /dev/null @@ -1,8 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:15 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/compat - diff --git a/doc/ulib_conf.twp b/doc/ulib_conf.twp deleted file mode 100644 index 7befa96..0000000 --- a/doc/ulib_conf.twp +++ /dev/null @@ -1,196 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/conf - -!! {{{conf_enable}}} -{{{ -Dans le fichier de configuration $1, activer les paramètres $2..* -Chaque argument de cette fonction correspond à une directive du fichier de -configuration et doit être de la forme name[=value] -Dans tous les cas, toutes les directives de ce nom sont recherchées et -décommentées. Si value est précisée, les directives sont mises à jour. Si -la directive ne figure pas dans le fichier, elle y est rajoutée à la fin -avec la valeur spécifiée. -Retourner 0 si une modification a été faite dans le fichier, 1 sinon -}}} -!! {{{conf_enableq}}} -{{{ -Comme conf_enable(), mais s'assure que les valeurs sont quotées dans le -fichier. Ceci permet de stocker des valeurs avec des espaces ou des -caractères spéciaux. -}}} -!! {{{conf_disable}}} -{{{ -Dans le fichier de configuration $1, désactiver les paramètres $2..* -Chaque argument de cette fonction correspond à une directive du fichier de -configuration et doit être de la forme name[=value] -Toutes les directives de ce noms sont recherchées et commentées. La valeur -si elle est spécifiée, est ignorée. Si la directive ne figure pas dans le -fichier, c'est un NOP. -Retourner 0 si une modification a été faite dans le fichier, 1 sinon -}}} -!! {{{conf_append}}} -{{{ -Dans le fichier de configuration $1, augmenter les valeurs des variables -correspondant aux paramètres $2..* -Chaque argument de cette fonction correspond à une variable du fichier de -configuration, et doit être de la forme name=value -Une ligne 'name="${name:+$name:}$value"' est générée à la fin du fichier -de configuration. -Par défaut, le séparateur CONF_APPEND_SEP vaut ':', mais il est possible -de changer cette valeur, de façon globale -Retourner 0 si une modification a été faite dans le fichier, 1 sinon -}}} -!! {{{conf_array_append}}} -{{{ -Dans le fichier de configuration $1, augmenter les valeurs des variables -de tableau correspondant aux paramètres $2..* -Chaque argument de cette fonction correspond à une variable du fichier de -configuration, et doit être de la forme name=value -Une ligne name=("${name[@]}" "$value") est générée à la fin du fichier de -configuration -Retourner 0 si une modification a été faite dans le fichier, 1 sinon -}}} -!! {{{conf_check}}} -{{{ -Dans le fichier de configuration $1, tester si tous les paramètres $2..* -sont présents. -Chaque argument de cette fonction correspond à une variable du fichier de -configuration, et doit être de la forme name[=value] -Si une valeur est spécifiée, vérifier que le fichier contient la valeur -correspondante. Sinon, tester uniquement la présence de la directive. -}}} -!! {{{aconf_enable}}} -{{{ -Dans le fichier de configuration $1, activer les paramètres $2..* -Chaque argument de cette fonction correspond à une directive du fichier de -configuration et doit être de la forme name[=value] -Toutes les directives de ce nom sont recherchées et décommentées, et la -valeur mise à jour. Si la directive ne figure pas dans le fichier, elle y -est rajoutée à la fin. A cause du mode opératoire, cette fonction ne -convient pas pour les directives dont le nom peut apparaitre plusieurs -fois dans le fichier -Retourner 0 si une modification a été faite dans le fichier, 1 sinon -}}} -!! {{{aconf_disable}}} -{{{ -Dans le fichier de configuration $1, désactiver les paramètres $2..* -Chaque argument de cette fonction correspond à une directive du fichier de -configuration et doit être de la forme name[=value] -Si la valeur est précisée, la directive correspondant à ce nom et cette -valeur est recherchée et commentée. Sinon, toutes les directives de ce -noms sont recherchées et commentées. Si la directive ne figure pas dans le -fichier, c'est un NOP. -Retourner 0 si une modification a été faite dans le fichier, 1 sinon -}}} -!! {{{aconf_append}}} -{{{ -Dans le fichier de configuration $1, ajouter des directives correspondant -aux paramètres $2..* -Chaque argument de cette fonction correspond à une directive du fichier de -configuration et doit être de la forme name=value -Une ligne '$name $value' est ajoutée à la fin du fichier de configuration -Retourner 0 si une modification a été faite dans le fichier, 1 sinon -}}} -!! {{{aconf_array_append}}} -!! {{{aconf_check}}} -{{{ -Dans le fichier de configuration $1, tester si tous les paramètres $2..* -sont présents. -Chaque argument de cette fonction correspond à une variable du fichier de -configuration, et doit être de la forme name[=value] -Si une valeur est spécifiée, vérifier que le fichier contient la valeur -correspondante. Sinon, tester uniquement la présence de la directive. -}}} -!! {{{mconf_enable}}} -{{{ -Dans le fichier de configuration $1, activer les paramètres $3..* de la -section $2 -Chaque argument de cette fonction correspond à une directive du fichier de -configuration et doit être de la forme name[=value] -Toutes les directives de ce nom sont recherchées et décommentées, et la -valeur mise à jour. Si la directive ne figure pas dans le fichier, elle y -est rajoutée à la fin. A cause du mode opératoire, cette fonction ne -convient pas pour les directives dont le nom peut apparaitre plusieurs -fois dans le fichier -Retourner 0 si une modification a été faite dans le fichier, 1 sinon -Cette fonction nécessite gawk et ignore la locale -}}} -!! {{{mconf_disable}}} -{{{ -Dans le fichier de configuration $1, désactiver les paramètres $3..* de la -section $2. -Chaque argument de cette fonction correspond à une directive du fichier de -configuration et doit être de la forme name[=value] -Si la valeur est précisée, la directive correspondant à ce nom et cette -valeur est recherchée et commentée. Sinon, toutes les directives de ce -noms sont recherchées et commentées. Si la directive ne figure pas dans le -fichier, c'est un NOP. -Retourner 0 si une modification a été faite dans le fichier, 1 sinon -Cette fonction nécessite gawk et ignore la locale -}}} -!! {{{mconf_append}}} -{{{ -Dans le fichier de configuration $1, ajouter des directives correspondant -aux paramètres $3..* dans la section $2 -Chaque argument de cette fonction correspond à une directive du fichier de -configuration et doit être de la forme name=value -Une ligne '$name = $value' est ajoutée à la fin de la section, qui est -créée si nécessaire à la fin du fichier de configuration -Retourner 0 si une modification a été faite dans le fichier, 1 sinon -Cette fonction nécessite gawk et ignore la locale -}}} -!! {{{mconf_array_append}}} -!! {{{mconf_check}}} -{{{ -Dans le fichier de configuration $1, tester si tous les paramètres $3..* -sont présents dans la section $2 -Chaque argument de cette fonction correspond à une variable du fichier de -configuration, et doit être de la forme name[=value] -Si une valeur est spécifiée, vérifier que le fichier contient la valeur -correspondante. Sinon, tester uniquement la présence de la directive. -Cette fonction nécessite gawk et ignore la locale -}}} -!! {{{gconf_addline}}} -{{{ -USAGE -gconf_addline configfile -a BEGIN -z END NEWLINE -Dans le fichier de configuration $1, ajouter la ligne NEWLINE entre les lignes -BEGIN et END. --a BEGIN -Spécifier une expression pour matcher une ligne de type BEGIN. Si -cette option n'est pas spécifiée, on considère que le début de fichier -matche la ligne BEGIN: la ligne NEWLINE est ajoutée dès que possible. -Les lignes sont matchées dans l'ordre, i.e. avec '-a 1 -a 2', il faut -d'abord trouver la ligne 1 puis la ligne 2, sinon, le test n'est pas -concluant. --t LINE -Si après avoir matché toutes les lignes BEGIN, la ligne LINE est -rencontrée, alors considérer que la ligne à rajouter existe déjà et -qu'il ne faut pas la rajouter de nouveau --r LINE -Si après avoir matché toutes les lignes BEGIN, la ligne LINE est -rencontrée, alors considérer que la ligne à rajouter existe et qu'il -faut la mettre à jour. Supprimer la ligne existante et la remplacer -par la nouvelle ligne. --z END -Spécifier une expression pour matcher la ligne de type END. Que cette -option soit ou non spécifiée, on considère toujours que la fin de -fichier matche la ligne END. Ainsi, si END n'est pas trouvée, la ligne -NEWLINE est ajoutée à la fin du fichier. -Dès que la ligne END est rencontrée, et si aucun des tests -t ou -r -n'est concluant, alors ajouter la nouvelle ligne avant celle-ci --n MAX[=1] -Ajouter au plus MAX occurences de NEWLINE. Après avoir matché END, le -cycle recommence, au plus MAX-1 fois. Utiliser MAX=-1 pour désactiver -la limite -Cette fonction nécessite gawk et ignore la locale -Retourner 0 si l'ajout s'est fait correctement. Retourner 1 si BEGIN n'a -pas été trouvé, et donc aucun ajout n'a été effectué. Retourner 2 si une -erreur quelconque s'est produite -}}} -!! {{{writelines_maybe}}} diff --git a/doc/ulib_crontab.twp b/doc/ulib_crontab.twp deleted file mode 100644 index e765538..0000000 --- a/doc/ulib_crontab.twp +++ /dev/null @@ -1,21 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/crontab - -!! {{{add_to_crontab}}} -!! {{{remove_from_crontab}}} -!! {{{disable_in_crontab}}} -!! {{{enable_in_crontab}}} -!! {{{ctnow}}} -{{{ -date +"%-M %-H %-d %-m %u" -}}} -!! {{{ctresolve}}} -!! {{{get_default_crontabdir_prefix}}} -!! {{{compute_crontab_prefixes}}} -!! {{{recompute_crontab_prefixes}}} -!! {{{get_CRONTABDIR_prefix}}} diff --git a/doc/ulib_debian.twp b/doc/ulib_debian.twp deleted file mode 100644 index 76f13f0..0000000 --- a/doc/ulib_debian.twp +++ /dev/null @@ -1,179 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/debian - -!! {{{pkg_check}}} -{{{ -Vérifier que les packages sont installés sur le système -}}} -!! {{{pkg_update}}} -{{{ -Mettre à jour la liste des packages silencieusement sans confirmation -}}} -!! {{{pkg_upgrade}}} -{{{ -Mettre à jour la liste des packages silencieusement sans confirmation -}}} -!! {{{pkg_install}}} -{{{ -Installer les packages silencieusement et sans confirmation -}}} -!! {{{pkg_installm}}} -{{{ -Installer les packages silencieusement et sans confirmation -Retourner 0 si au moins un des packages a été installé. Sinon, les -packages n'ont pas été installés, soit parce qu'ils sont déjà installé, -soit parce qu'il y a eu une erreur. -}}} -!! {{{pkg_check_install}}} -{{{ -Si le programme $1 n'existe pas, alors installer les packages $2..$@ -S'il n'y a pas d'arguments $2..$@ utiliser $1 comme nom de package -Retourner 0 si au moins un des packages a été installé -}}} -!! {{{service_disable}}} -{{{ -Désactiver le service $1 pour qu'il ne se lance pas automatiquement au -démarrage -}}} -!! {{{service_enable}}} -{{{ -Activer le service $1 pour qu'il se lance automatiquement au démarrage -}}} -!! {{{network_parse_confbr}}} -{{{ -network_parse_confbr "$confbr" br ifaces -}}} -!! {{{network_format_confbr}}} -{{{ -network_format_confbr "$br" ifaces --> "br:ifaces" -}}} -!! {{{network_parse_confip}}} -{{{ -network_parse_confip "$confip" iface gateway ipsuffixes -}}} -!! {{{network_parse_ipsuffix}}} -{{{ -network_parse_ipsuffix "$ipsuffix" ip suffix -}}} -!! {{{network_format_confip}}} -{{{ -network_format_confip "$iface" "$gateway" ipsuffixes --> "iface//gateway:ipsuffixes" -}}} -!! {{{network_format_ipsuffix}}} -{{{ -network_format_ipsuffix "$ip" "$suffix" --> "ip/suffix" -}}} -!! {{{network_fix_confbrs}}} -{{{ -normaliser le tableau $1(=confbrs): fusionner les doublons -}}} -!! {{{network_fix_confips}}} -{{{ -normaliser le tableau $1(=confips): fusionner les doublons, spécifier le -suffixe /24 par défaut, etc. $2 est le cas échéant l'interface associée -aux adresses ip non qualifiées -}}} -!! {{{network_fix_mainiface}}} -{{{ -A partir des valeurs des tableaux $1(=confbrs) et $2(=confips), et de -l'interface principale $3, déterminer l'interface principale. Si $3 est -spécifié, c'est la valeur sélectionnée. Sinon, si un bridge existe, c'est -le premier bridge qui est sélectionné. Sinon, la première interface est -sélectionnée. Sinon, on prend eth0. -Ensuite, réorganiser les tableaux de façon que confips[0] devienne la -configuration ip de l'interface principale. -}}} -!! {{{network_fix_confs}}} -!! {{{network_set_confbrs}}} -{{{ -initialiser $1(=confbrs) avec l'état des bridges sur le système courant -}}} -!! {{{network_set_confips}}} -{{{ -initialiser le tableau $1(=confips) avec l'état des interfaces sur le -système courant -}}} -!! {{{network_interfaces_check_confbr}}} -{{{ -Vérifier que la configuration du bridge $1, dont les membres sont les -interfaces du tableau $2(=ifaces) est faite dans le fichier -$3(=/etc/network/interfaces) -}}} -!! {{{network_interfaces_check_confip}}} -{{{ -Vérifier que la configuration de l'interface $1, avec la passerelle $2, -avec les adresses IP du tabbleau $3(=ipsuffixes) est faite dans le fichier -$4(=/etc/network/interfaces) -}}} -!! {{{network_interfaces_remove_iface}}} -{{{ -Supprimer dans le fichier $2(=/etc/network/interfaces) toute la -configuration qui concerne l'interface $1 -}}} -!! {{{network_interfaces_remove_ifaces}}} -{{{ -Supprimer dans le fichier $2(=/etc/network/interfaces) toute la -configuration qui concerne les interfaces du tableau $1=(ifaces) -}}} -!! {{{network_interfaces_remove_confbr}}} -{{{ -Supprimer dans le fichier $3(=/etc/network/interfaces) toute la -configuration qui concerne le bridge $1, et dont les interfaces sont -listées dans le tableau $2(=ifaces) -}}} -!! {{{network_interfaces_add_confip}}} -{{{ -ajouter dans le fichier $4(=/etc/network/interfaces) la configuration pour -l'interface $1, avec éventuellement la passerelle $2, et les adresses ips -telles qu'elles sont définies dans le table $3(=ipsuffixes) -}}} -!! {{{network_interfaces_add_confbr}}} -{{{ -ajouter dans le fichier $4(=/etc/network/interfaces) la configuration pour -le bridge $1, avec la liste des interfaces dans le tableau $2(=ifaces) et -la liste des configurations des adresses des interfaces dans le tableau -$3(=confips) -}}} -!! {{{network_fix_hostname}}} -!! {{{network_fix_mailname}}} -!! {{{network_fix_exim4}}} -!! {{{network_fix_postfix}}} -!! {{{network_fix_hosts}}} -!! {{{network_config}}} -{{{ -(Re)configurer le réseau sur l'hôte courant. -$1 (host) est le nom d'hôte. -$2 (confips) est le nom d'un tableau contenant la configuration des -adresses ips pour les interfaces. -$3 (confbrs) est le nom d'un tableau contenant la configuration des -bridges à créer/mettre à jour. -$4 (mainiface) est le nom de l'interface principale, c'est à dire -l'interface qui est sélectionnée si une adresse ip n'est pas préfixée de -son interface. En principe, l'interface principale est le premier bridge -défini ou la première interface définie. -$5 (reset_interfaces) spécifie de ne pas chercher à mettre à jour le -fichier /etc/network/interfaces, mais de le recréer depuis zéro. -$6 (oldhost) est le nom d'hôte actuel, avant la modification -Si un des arguments n'est pas spécifié, il est ignoré. -Le tableau confips doit contenir des définitions d'une des formes -suivantes: -[[iface][//gateway]:]address[/suffix],... -[iface:]dhcp -La deuxième forme est pour spécifier qu'une interface est configurée par -DHCP. iface vaut par défaut eth0, sauf si une définition de bridge -existe, auquel cas il s'agit du premier bridge défini. Pour chaque -interface, seule la première spécification d'adresse IP tient compte de -l'argument gateway. Les autres spécifications définissent des adresses IP -supplémentaires pour l'interface. -Le tableau brs doit contenir des définitions de la forme suivante: -br:ifaces,... -br est le nom du bridge, e.g. br0. ifaces est une liste d'interfaces -séparées par une virgule. e.g. br0:eth0,eth1 -Bien que ce soit techniquement possible, ce script interdit que l'on -définisse une adresse IP pour une interface faisant partie d'un bridge. -}}} diff --git a/doc/ulib_install.twp b/doc/ulib_install.twp deleted file mode 100644 index e453709..0000000 --- a/doc/ulib_install.twp +++ /dev/null @@ -1,46 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/install - -!! {{{ensure_exists}}} -{{{ -Créer le fichier vide "$1" s'il n'existe pas déjà, avec les permissions -$2(=644). retourner vrai si le fichier a été créé sans erreur -}}} -!! {{{copy_replace}}} -{{{ -Copier de façon inconditionnelle le fichier $1 vers le fichier $2, en -réinitialisation les permissions à la valeur $3 -}}} -!! {{{copy_new}}} -{{{ -Copier le fichier "$1" vers le fichier "$2", avec les permissions $3(=644) -Ne pas écraser le fichier destination s'il existe déjà -Retourner vrai si le fichier a été copié sans erreur -}}} -!! {{{copy_update}}} -{{{ -Copier le fichier "$1" vers le fichier "$2", si $2 n'existe pas, ou si $1 -a été modifié par rapport à $2. Réinitialiser le cas échéant les -permissions à la valeur $3 -Retourner vrai si le fichier a été copié sans erreur. -}}} -!! {{{copy_update_ask}}} -{{{ -Copier ou mettre à jour le fichier $1 vers le fichier $2. -Si le fichier existe déjà, la différence est affichée, et une confirmation -est demandée pour l'écrasement du fichier. -Retourner vrai si le fichier a été copié sans erreur. -}}} -!! {{{copy_tree}}} -{{{ -Copier de façon inconditionnelle l'arborescence $1 dans l'arborescence $2 -}}} -!! {{{link_new}}} -{{{ -Si $2 n'existe pas, créer le lien symbolique $2 pointant vers $1 -}}} diff --git a/doc/ulib_ipcalc.twp b/doc/ulib_ipcalc.twp deleted file mode 100644 index 0fee9e0..0000000 --- a/doc/ulib_ipcalc.twp +++ /dev/null @@ -1,72 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/ipcalc - -!! {{{get_random_kvm_macaddr}}} -{{{ -Obtenir une adresse mac au hasard commençant par 52:54:00 pour KVM -}}} -!! {{{ipcalc_splitipmask}}} -{{{ -Découper $1 de la forme ip[/mask] entre l'adresse ip, qui est placé dans -la variable $2(=ip) et le masque, qui est placée dans la variable -$3(=mask) -}}} -!! {{{ipcalc_checkip}}} -{{{ -Vérifier l'adresse ip $1 pour voir si elle est valide. Si l'adresse est -valide, l'afficher. Sinon, retourner 1 -}}} -!! {{{ipcalc_checkmask}}} -{{{ -vérifier le masque de sous-réseau $1 pour voir si elle est valide. Si oui, -afficher le suffixe (0, 8, 16, 24, 32) associé. Sinon retourner 1 -}}} -!! {{{ipcalc_netmask}}} -{{{ -à partir d'un suffixe (0, 8, 16, 24, 32) ou d'un masque de sous-réseau, -afficher le masque de sous-réseau. si le suffixe ou le masque ne sont pas -reconnus, retourner 1 -}}} -!! {{{ipcalc_broadcast}}} -{{{ -Calculer l'adresse de broadcast correspondant à l'adresse ip $1. Le masque -de sous-réseau peut-être indiqué dans l'adresse ip avec le suffixe /n ou -/x.x.x.x ou donné dans l'argument $2. Seuls les suffixes 0, 8, 16, 24, 32 -sont supportés. -Retourner 1 si un erreur s'est produite, par exemple si l'adresse ou le -suffixe sont invalides ou non supportés. -}}} -!! {{{ipcalc_gateway}}} -{{{ -Calculer l'adresse du gateway correspondant à l'adresse ip $1, en -considérant que le gateway est la première adresse du réseau. Le masque de -sous-réseau peut-être indiqué dans l'adresse ip avec le suffixe /n ou -/x.x.x.x ou donné dans l'argument $2. Seuls les suffixes 0, 8, 16, 24, 32 -sont supportés. -Retourner 1 si un erreur s'est produite, par exemple si l'adresse ou le -suffixe sont invalides ou non supportés. -}}} -!! {{{ipcalc_match}}} -{{{ -Vérifier si l'adresse $1 correspond au modèle $2, e.g.: -ipcalc_match 10.75.0.23 10/8 --> TRUE -ipcalc_match 10.75.0.23 10.75.0.0/24 --> TRUE -ipcalc_match 10.75.0.23 10.75.0.28 --> FALSE -}}} -!! {{{ipcalc_fqdn}}} -{{{ -Calculer si possible le nom pleinement qualifié correspondant à l'hôte $1. -Dans tous les cas, afficher l'hôte, mais retourner 1 si la calcul n'a pas -pu être effectué. -}}} -!! {{{ipcalc_fqdn_maybe}}} -{{{ -Si $1 *semble* déjà être un nom d'hôte pleinement qualifié, l'afficher tel -quel. Sinon utiliser ipcalc_fqdn() pour afficher le nom d'hôte pleinement -qualifié correspondant. -}}} diff --git a/doc/ulib_java.twp b/doc/ulib_java.twp deleted file mode 100644 index 859037c..0000000 --- a/doc/ulib_java.twp +++ /dev/null @@ -1,41 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 13/05/2016 09:36 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/java - -!! {{{select_java}}} -{{{ -sélectionner la version *minimum* de java correspondant à $1 -$1== 1.3|1.3+|1.4|1.4+|1.5|1.5+|1.6|1.6+|1.7|1.7+|1.8|1.8+ -Si $2 est défini, il peut s'agit de 32 ou 64 selon que l'on requière la -version 32bits ou 64 bits -}}} -!! {{{select_java_exact}}} -{{{ -sélectionner la version *exacte* de java correspondant à $1 -$1== 1.3|1.4|1.5|1.6|1.7|1.8 pour une correspondance exacte -$1== 1.3+|1.4+|1.5+|1.6+|1.7+|1.8+ pour une version minimum -Si $2 est défini, il peut s'agit de 32 ou 64 selon que l'on requière la -version 32bits ou 64 bits -}}} -!! {{{select_java_any}}} -{{{ -Sélectionner la version exacte de java correspondant aux arguments, dans -l'ordre, jusqu'à ce qu'un argument corresponde. DEFAULT correspond à la -valeur actuelle de JAVA_HOME, si elle est définie. -Si aucun argument n'est défini, on assume "DEFAULT 5 6 7 8 1.4" -}}} -!! {{{get_java_version}}} -{{{ -Afficher la version de java qui installée dans $1(=$JAVA_HOME) -En cas d'erreur, ne rien afficher. -}}} -!! {{{get_default_javahome_prefix}}} -!! {{{get_javaextensions_prefix}}} -!! {{{compute_java_prefixes}}} -!! {{{recompute_java_prefixes}}} -!! {{{get_JAVA_HOME_prefix}}} -!! {{{get_JAVAEXTENSIONS_prefix}}} diff --git a/doc/ulib_javaproperties.twp b/doc/ulib_javaproperties.twp deleted file mode 100644 index 0a82e0e..0000000 --- a/doc/ulib_javaproperties.twp +++ /dev/null @@ -1,35 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/javaproperties - -!! {{{read_property}}} -{{{ -Lire la propriété $2 dans le fichier $1, et placer la valeur dans la -variable $3. Si la propriété n'existe pas, prendre la valeur par défaut -$4. Si $3=="", elle est construite à partir de $2 en remplaçant les '.' -par '_' -Retourner 1 si une erreur s'est produite (par exemple si le fichier -n'existe pas ou n'est pas accessible en lecture) -}}} -!! {{{write_property}}} -{{{ -Ecrire la propriété $2 dans le fichier $1 avec la valeur $3. -Retourner 1 si une erreur s'est produite (par exemple si le fichier -n'existe pas ou n'est pas accessible en écriture) -}}} -!! {{{write_properties}}} -{{{ -Ecrire les propriétés $2..* dans le fichier $1. Les propriétés sont de la -forme "name=value" -}}} -!! {{{norm_properties}}} -{{{ -Normaliser un fichier de propriété: Les commentaires sont supprimés, les -valeurs sont triées par ordre alphabétique, les caractères accentués sont -remplacés par des caractères unicode \\uxxxx, les séquences unicodes sont -transformées en minuscule. -}}} diff --git a/doc/ulib_json.twp b/doc/ulib_json.twp deleted file mode 100644 index e2b6f2e..0000000 --- a/doc/ulib_json.twp +++ /dev/null @@ -1,14 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/json - -!! {{{json_filter}}} -{{{ -traiter un flux json pour que chaque valeur soit sur une ligne séparée, -facilitant le traitement par un script bash -}}} -!! {{{awkjson}}} diff --git a/doc/ulib_ldap.twp b/doc/ulib_ldap.twp deleted file mode 100644 index 27953f6..0000000 --- a/doc/ulib_ldap.twp +++ /dev/null @@ -1,80 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/ldap - -!! {{{get_default_ldapconfdir_prefix}}} -{{{ -Calculer et afficher la valeur par défaut de LDAPCONFDIR, ou une chaine -vide si l'on n'a pas pu le détecter automatiquement. -}}} -!! {{{get_default_ldapowner_prefix}}} -{{{ -Calculer et afficher la valeur par défaut de LDAPOWNER, ou une chaine -vide si l'on n'a pas pu le détecter automatiquement. -}}} -!! {{{compute_ldap_prefixes}}} -!! {{{recompute_ldap_prefixes}}} -!! {{{get_LDAPCONFDIR_prefix}}} -!! {{{get_LDAPOWNER_prefix}}} -!! {{{split_ldapuri}}} -{{{ -spliter le ldapuri $1 en $2(=proto), $3(=host) et $4(=port) -}}} -!! {{{get_suffixes}}} -{{{ -obtenir les suffixes de connexion du serveur avec l'uri $1, un par ligne -retourner 1 si la valeur n'a pas pu être obtenue -}}} -!! {{{get_anysuffix}}} -{{{ -obtenir le *premier* suffixe du serveur avec l'uri $1 -retourner 1 si la valeur n'a pas pu être obtenue -}}} -!! {{{get_dcsuffix}}} -{{{ -obtenir le *premier* suffixe du serveur avec l'uri $1 qui se termine par -dc=TLD où TLD est une valeur quelconque. A priori, c'est un suffixe d'une -base de donnée non administrative. -retourner 1 si la valeur n'a pas pu être obtenue -}}} -!! {{{get_suffix}}} -{{{ -obtenir le *premier* suffixe du serveur avec l'uri $1 qui se termine si -possible par dc=TLD où TLD est une valeur quelconque. Dans le cas normal, -le suffixe affiché est celui d'une base non administrative. -retourner 1 si la valeur n'a pas pu être obtenue -}}} -!! {{{reldn}}} -!! {{{absdn}}} -{{{ -obtenir le dn absolu correspondant au dn $1, le dn de base étant -$2(=$SUFFIX) -}}} -!! {{{subof}}} -{{{ -tester si le dn absolu $1 est $2 ou un enfant de $2 -}}} -!! {{{rabsdn}}} -{{{ -comme absdn, mais tient compte de la valeur de $3(=$SEARCHBASE) -Si le dn commence par "~/", le dn est relatif à $2(=$SUFFIX) -Si le dn commence par "/", le dn est absolu -Sinon, le dn est relatif à $3 -}}} -!! {{{pdn}}} -{{{ -corriger pour *affichage* un dn *absolu*. pour la racine "", afficher -'/'. pour $2(=$SUFFIX), afficher '~'. sinon, afficher le dn relativement à -$2 -}}} -!! {{{filter_slapdconf}}} -{{{ -Traiter un fichier de configuration slapd.conf en fusionnant les lignes -qui sont découpées. Ceci permet de faire des traitements sur le contenu. -Ce filtre s'utilisera normalement avec filter_conf, e.g.: -result.conf -}}} diff --git a/doc/ulib_ldif.twp b/doc/ulib_ldif.twp deleted file mode 100644 index a0db719..0000000 --- a/doc/ulib_ldif.twp +++ /dev/null @@ -1,68 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/ldif - -!! {{{def_match_attr}}} -!! {{{def_match_value}}} -!! {{{uncut_lines}}} -{{{ -reformer les lignes qui sont coupées -}}} -!! {{{cut_lines}}} -{{{ -couper les lignes trop longues -}}} -!! {{{ensure_complete_objects}}} -{{{ -S'assurer que le ldif ne contient que des objets complets (éliminant ainsi -les groupes ayant seulement dn:) -}}} -!! {{{delete_marked_objects}}} -{{{ -Supprimer les objets marqués avec --DELETE--: -}}} -!! {{{dump_ldif}}} -!! {{{tl_addattr}}} -!! {{{tl_modifyattr}}} -!! {{{tl_deleteattr}}} -!! {{{tl_deleteentry}}} -!! {{{tl_touchentry}}} -!! {{{tl_keepattr}}} -!! {{{tl_keepval}}} -!! {{{tl_excludeattr}}} -!! {{{tl_excludeval}}} -!! {{{tl_keepvalentry}}} -!! {{{tl_excludevalentry}}} -!! {{{tl_replval}}} -!! {{{tl_addval}}} -!! {{{tl_defval}}} -!! {{{print_values}}} -!! {{{tl_ensureval}}} -!! {{{print_ensure_values}}} -!! {{{tl_decode}}} -!! {{{tl_encode}}} -!! {{{tl_format}}} -!! {{{dump_headers}}} -!! {{{tl_formatcsv}}} -!! {{{tl_parsecsv}}} -!! {{{tl_parsecsvmod}}} -!! {{{get_transform_cmd}}} -{{{ -Créer une liste de commandes bash à évaluer en fonction des arguments: une -suite de commandes séparées par // -Les variables suivantes peuvent être définies en entrée: -_T_inputfile: -Si cette variable est non vide, lire à partir du fichier $_T_inputfile -au lieu de stdin -_T_uncut_before: -faut-il fusionner automatiquement les lignes *avant* de lancer les -commandes. -_T_cut_after: -faut-il découper automatiquement les lignes *après* avoir lancé les -commandes. -}}} -!! {{{transform}}} diff --git a/doc/ulib_legacy.twp b/doc/ulib_legacy.twp deleted file mode 100644 index d190e06..0000000 --- a/doc/ulib_legacy.twp +++ /dev/null @@ -1,50 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:15 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/legacy - -!! {{{file_get_vars}}} -{{{ -lire les variables dans un fichier -}}} -!! {{{file_set_vars}}} -{{{ -écrire les variables dans un fichier. Le fichier *doit exister* -}}} -!! {{{write_all_remaining_vars}}} -!! {{{file_get_properties}}} -{{{ -lire les propriétés d'un fichier de propriété java ou xml -}}} -!! {{{file_set_properties}}} -{{{ -écrire les propriétés d'un fichier de propriété java ou xml -}}} -!! {{{file_get_java_properties}}} -{{{ -lire les propriétés d'un fichier de propriétés java. note: les noms de -propriété java peuvent contenir le caractère "." mais pas les noms de -variable bash. La conversion est faite automatiquement. Par exemple:: -file_get_properties build.properties path.to.package "default value" -charge la valeur de la propriété dans la variable path_to_package -}}} -!! {{{file_set_java_properties}}} -{{{ -écrire des propriétés dans un fichier de propriétés java. -}}} -!! {{{write_all_remaining_vars}}} -!! {{{file_get_xml_properties}}} -{{{ -lire les propriétés d'un fichier de propriétés xml. Limitation: les -propriétés ne doivent pas être continuées sur plusieurs lignes. Les -propriétés doivent être écrites sous la forme:: -propvalue -}}} -!! {{{file_set_xml_properties}}} -{{{ -écrire des propriétés dans un fichier de propriétés java. -}}} -!! {{{write_all_remaining_vars}}} diff --git a/doc/ulib_macosx.twp b/doc/ulib_macosx.twp deleted file mode 100644 index a110d1d..0000000 --- a/doc/ulib_macosx.twp +++ /dev/null @@ -1,24 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 02/06/2012 09:54 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/macosx - -!! {{{local_shellfix}}} -{{{ -Modifier le compte local $1 pour qu'il utilise bash au lieu de sh -}}} -!! {{{local_usercheck}}} -{{{ -Vérifier si le user local $1 existe -}}} -!! {{{local_useradd}}} -{{{ -Créer le user local $1 -USAGE: local_useradd username [gecos [passwd]] -OPTIONS --s Créer l'utilisateur avec les droits d'administrateur --m Créer le home directory -}}} diff --git a/doc/ulib_mkcrypt.twp b/doc/ulib_mkcrypt.twp deleted file mode 100644 index 66d9a19..0000000 --- a/doc/ulib_mkcrypt.twp +++ /dev/null @@ -1,9 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:15 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/mkcrypt - -!! {{{mkcrypt}}} diff --git a/doc/ulib_modeline.twp b/doc/ulib_modeline.twp deleted file mode 100644 index c250911..0000000 --- a/doc/ulib_modeline.twp +++ /dev/null @@ -1,10 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:15 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/modeline - -!! {{{printml}}} -!! {{{addml}}} diff --git a/doc/ulib_network-manager-service.twp b/doc/ulib_network-manager-service.twp deleted file mode 100644 index fdb9199..0000000 --- a/doc/ulib_network-manager-service.twp +++ /dev/null @@ -1,18 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:15 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/network-manager-service - -!! {{{SERVICE_OVERRIDE_network_manager_stopx}}} -{{{ -désactiver network-manager avant de l'arrêter, ce qui permet de s'assurer -que chaque chaque connexion est arrêtée proprement -}}} -!! {{{SERVICE_OVERRIDE_network_manager_startx}}} -{{{ -cette fonction est le pendant de stopx: penser à relancer network-manager -après avoir démarré le service -}}} diff --git a/doc/ulib_password.twp b/doc/ulib_password.twp deleted file mode 100644 index 676ca5b..0000000 --- a/doc/ulib_password.twp +++ /dev/null @@ -1,24 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/password - -!! {{{random_index}}} -{{{ -Afficher un index au hasard dans le tableau $1 -}}} -!! {{{random_value}}} -{{{ -Afficher une valeur au hasard dans le tableau $1 -}}} -!! {{{random_char}}} -{{{ -Afficher un caractère au hasard dans la chaine $1 -}}} -!! {{{genpass}}} -{{{ -Générer un mot de passe au hasard avec les paramètres GENPASS_* -}}} diff --git a/doc/ulib_pkg.twp b/doc/ulib_pkg.twp deleted file mode 100644 index af586c9..0000000 --- a/doc/ulib_pkg.twp +++ /dev/null @@ -1,20 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:15 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/pkg - -!! {{{pkg_check}}} -{{{ -Vérifier que les packages sont installés sur le système -Retourner 123 si le système n'est pas supporté, et donc qu'aucune commande -d'installation de package n'est disponible. -}}} -!! {{{pkg_install}}} -{{{ -Installer les packages sans confirmation -Retourner 123 si le système n'est pas supporté, et donc qu'aucune commande -d'installation de package n'est disponible. -}}} diff --git a/doc/ulib_prefixes.twp b/doc/ulib_prefixes.twp deleted file mode 100644 index 5ce1ae0..0000000 --- a/doc/ulib_prefixes.twp +++ /dev/null @@ -1,14 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/prefixes - -!! {{{get_USER_prefix}}} -!! {{{get_HOME_prefix}}} -!! {{{has_prefix}}} -!! {{{expand_prefix}}} -!! {{{list_prefixes}}} -!! {{{dump_prefixes}}} diff --git a/doc/ulib_pretty.twp b/doc/ulib_pretty.twp deleted file mode 100644 index d10a426..0000000 --- a/doc/ulib_pretty.twp +++ /dev/null @@ -1,21 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/pretty - -!! {{{get_color}}} -!! {{{set_verbosity}}} -!! {{{set_interaction}}} -!! {{{show_error}}} -!! {{{show_warn}}} -!! {{{show_info}}} -!! {{{show_verbose}}} -!! {{{show_debug}}} -!! {{{check_verbosity}}} -!! {{{get_verbosity_option}}} -!! {{{check_interaction}}} -!! {{{is_interaction}}} -!! {{{get_interaction_option}}} diff --git a/doc/ulib_ptools.twp b/doc/ulib_ptools.twp deleted file mode 100644 index 147394e..0000000 --- a/doc/ulib_ptools.twp +++ /dev/null @@ -1,18 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/ptools - -!! {{{is_any_branch}}} -!! {{{is_master_branch}}} -!! {{{is_develop_branch}}} -!! {{{is_release_branch}}} -!! {{{is_hotfix_branch}}} -!! {{{is_feature_branch}}} -!! {{{list_release_branches}}} -!! {{{list_hotfix_branches}}} -!! {{{list_feature_branches}}} -!! {{{pver}}} diff --git a/doc/ulib_redhat.twp b/doc/ulib_redhat.twp deleted file mode 100644 index 600ac67..0000000 --- a/doc/ulib_redhat.twp +++ /dev/null @@ -1,44 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/redhat - -!! {{{pkg_check}}} -{{{ -Vérifier que les packages sont installés sur le système -}}} -!! {{{pkg_update}}} -{{{ -Mettre à jour la liste des packages silencieusement sans confirmation -}}} -!! {{{pkg_upgrade}}} -{{{ -Mettre à jour la liste des packages silencieusement sans confirmation -}}} -!! {{{pkg_install}}} -{{{ -Installer les packages silencieusement et sans confirmation -}}} -!! {{{pkg_installm}}} -{{{ -Installer les packages silencieusement et sans confirmation -Retourner 0 si au moins un des packages a été installé. Sinon, les -packages n'ont pas été instllés, soit parce qu'ils sont déjà installé, -soit parce qu'il y a eu une erreur. -}}} -!! {{{service_disable}}} -{{{ -Désactiver le service $1 pour qu'il ne se lance pas automatiquement au -démarrage -}}} -!! {{{service_enable}}} -{{{ -Activer le service $1 pour qu'il se lance automatiquement au démarrage -}}} -!! {{{create_bridge}}} -{{{ -Créer un nouveau pont nommé $1 avec les paramètres $2 -}}} diff --git a/doc/ulib_runs.twp b/doc/ulib_runs.twp deleted file mode 100644 index a3fd072..0000000 --- a/doc/ulib_runs.twp +++ /dev/null @@ -1,242 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/runs - -!! {{{runs_initdir}}} -{{{ -Initialiser le répertoire d'hôte. $1 est un nom d'hôte pleinement -qualifié, et les fichiers sont créés dans le premier répertoire de -RUNSHOSTSDIRS qui convient: si un fichier .udir existe avec un tableau -runs_domains qui contient le domaine de l'hôte spécifié, alors c'est ce -répertoire qui est sélectionné. Sinon, on prend le premier répertoire de -RUNSHOSTSDIRS. -$2 spécifie si le fichier doit être créé avec de l'aide (yes) ou avec le -script minimum (no) -$3 est le contenu à placer dans le fichier sysinfos.conf, s'il n'a pas -déjà été provisionné. -Il faut lancer __runs_setpath avant d'utiliser cette fonction et -RUNSHOSTDIRS ne doit pas être vide -}}} -!! {{{runs_create_rscript}}} -{{{ -Créer un modèle de script. Si $2 est spécifié, c'est un nom d'hôte -pleinement qualifié. Le répertoire d'hôte correspondant *doit* exister. -$3 spécifie si le fichier doit être créé avec de l'aide (yes) ou avec le -script minimum (no) -Si $2!="", il faut lancer __runs_setpath avant d'utiliser cette fonction -et RUNSHOSTDIRS ne doit pas être vide -Le chemin du nouveau script est ajouté au tableau new_rscripts -}}} -!! {{{runs_unsupported_system}}} -{{{ -Afficher un message d'erreur indiquant que le système actuel n'est pas -supporté, et quitter le script -}}} -!! {{{runs_require_sysinfos}}} -{{{ -Vérifier le système actuel avec check_sysinfos(), et afficher un message -d'erreur avec runs_unsupported_system() s'il ne correspond pas à la -requête -}}} -!! {{{runs_find_host}}} -!! {{{runs_add_domain}}} -{{{ -Si $1 est nom d'hôte pleinement qualifié, retourner cette valeur -Sinon, lui rajouter le domaine RUNSDOMAIN -}}} -!! {{{runs_find_hostfile}}} -{{{ -Trouver et afficher le fichier d'hôte $1 dans les répertoires du tableau -$3(=RUNSHOSTSDIRS), pour l'hôte $2(=$RUNSHOST). Retourner 0 en cas de -succès, 1 en cas d'échec. -Si host=$2 est une valeur non vide, la recherche est effectuée dans -{$RUNSHOSTSDIRS}/$host et {$RUNSHOSTSDIRS}/$domain/$hostname. Sinon, -retourner 1, car il faut spécifier un nom d'hôte. -}}} -!! {{{runs_find_datafile}}} -{{{ -Trouver et afficher le fichier de données $1 dans le répertoire $3 s'il -est non vide puis dans les répertoires des tableaux $4(=RUNSSCRIPTSDIRS), -$5(=RUNSMODULESDIRS) et $6(=RUNSHOSTSDIRS), pour l'hôte -$2(=$RUNSHOST). Retourner 0 en cas de succès, 1 en cas d'échec. -- D'abord, si $1 *n'est pas* de la forme "./path" ou "../path", chercher -dans $3. -- Puis si l'hôte est spécifié, chercher dans {$RUNSHOSTSDIRS}/$host et -{$RUNSHOSTSDIRS}/$domain/$hostname. -- Puis chercher dans {$RUNSSCRIPTSDIRS} puis {$RUNSMODULESDIRS}. -- Puis, si $1 est de la forme "./path" ou "../path", chercher dans $3. -- Sinon, retourner 1 -}}} -!! {{{runs_initvars}}} -{{{ -Initialiser les variables RUNSDIR, RUNSSCRIPT, RUNSDIRPATH, -RUNSSCRIPTPATH, RUNSSCRIPTDIR et RUNSSCRIPTNAME pour le script $1. -Les valeurs sont initialisées comme suit: -RUNSSCRIPT="$(abspath "$1")" -RUNSDIR="$2" (le répertoire de $RUNS*PATH dans lequel a été trouvé le -script) -Si $3!="", RUNSDIRPATH="$3" et RUNSSCRIPTPATH="$4" -Sinon, RUNSDIRPATH="$RUNSSCRIPTDIR" et RUNSSCRIPTPATH="$RUNSSCRIPTNAME" -}}} -!! {{{runs_find_scriptfile}}} -{{{ -Trouver sans l'afficher le script $1 dans les répertoires des tableaux -$3(=RUNSSCRIPTSDIRS), $4(=RUNSMODULESDIRS) et $5(=RUNSHOSTSDIRS), en -considérant que le script sera lancé sur l'hôte $2(=$RUNSHOST), et -initialiser les variables RUNSDIR, RUNSSCRIPT, RUNSSCRIPTDIR, -RUNSSCRIPTNAME, RUNSDIRPATH et RUNSSCRIPTPATH. Retourner 0 en cas de -succès, 1 en cas d'échec. -$6 vaut ".rs" par défaut est c'est une extension à rajouter au nom -spécifié si le fichier sans l'extension n'existe pas -RUNSDIR est le répertoire dans lequel a été trouvé le script (parmi les -valeurs fournies dans les tableaux RUNSSCRIPTSDIRS, RUNSMODULESDIRS, -RUNSHOSTSDIRS), RUNSDIRPATH est le répertoire à partir duquel est exprimé -le chemin du script (i.e RUNSDIRPATH + RUNSSCRIPTPATH == RUNSSCRIPT), -RUNSSCRIPT contient le chemin absolu vers le script, RUNSSCRIPTPATH -contient le chemin du script dans RUNSDIRPATH, RUNSSCRIPTDIR le répertoire -du script, et RUNSSCRIPTNAME le nom du script. -D'abord, si l'hôte est spécifié, chercher dans {$RUNSHOSTSDIRS}/$host et -{$RUNSHOSTSDIRS}/$domain/$hostname. Puis chercher dans {$RUNSSCRIPTSDIRS} -}}} -!! {{{runs_find_scriptfile_reverse}}} -{{{ -Soit le fichier de script $1, exprimée de façon absolue, trouver le -fichier parmi les tableaux $3(=RUNSSCRIPTSDIRS), $4(=RUNSMODULESDIRS) -et $5(=RUNSHOSTSDIRS), en considérant que le script sera lancé sur l'hôte -$2(=$RUNSHOST), puis initialiser les variables RUNSDIR, RUNSSCRIPT, -RUNSSCRIPTDIR, RUNSSCRIPTNAME, RUNSDIRPATH et RUNSSCRIPTPATH. Retourner 0 -en cas de succès, 1 en cas d'échec. -}}} -!! {{{runs_rscript}}} -{{{ -Lancer le fichier $1 comme un script avec les arguments $2..$*. Retourner -la valeur de retour du script. -}}} -!! {{{runs_recipe}}} -{{{ -Lancer les scripts de la recette contenue dans le fichier $1. Arrêter au -premier script qui est en erreur -}}} -!! {{{runs_rscriptpath}}} -{{{ -Lancer le script $1 avec les arguments $2..$*. Le script est cherché dans -les répertoires de RUNSSCRIPTSPATH. Retourner 123 si le script n'est pas -trouvé, sinon retourner la valeur de retour du script. -}}} -!! {{{runs_recipepath}}} -{{{ -Lancer la recette $1. Le fichier de recette est cherché dans les -répertoires de RUNSSCRIPTSPATH. Retourner 123 si le fichier de recette n'a -pas été trouvé, sinon retourner la valeur de retour de runs_recipe() -}}} -!! {{{runs_init}}} -!! {{{runs_initdomains}}} -{{{ -Si ce n'est pas déjà le cas, initialiser RUNSDOMAINS en fonction de -/etc/resolv.conf -}}} -!! {{{runs_inithost}}} -!! {{{runs_initsysinfos}}} -!! {{{runs_initworkdir}}} -!! {{{runs_after_export}}} -{{{ -après l'export, initialiser varsfile avec les valeurs qu'il faut garder -entre le déploiement local et le déploiement distant. -}}} -!! {{{runs_check_runsscript}}} -!! {{{runs_var}}} -{{{ -Initialiser les variables selon les directives données en ligne de -commande. -Les arguments peuvent être une suite de définitions de la forme -'scalar=value', 'scalar!=name', 'array+=value', 'array-=value' ou -'array@=name'. -Sinon, le *dernier* argument peut-être de l'une des formes suivantes: -'array value0 [value1...]' pour initialiser un tableau, -'array+ value0 [value1...]' pour ajouter des valeurs à un tableau, -'array- value0 [value1...]' pour enlever des valeurs à un tableau. -Les formes 'scalar!=value' et 'array@=value' sont des indirections et -permettent d'initialiser la variable avec la valeur d'une autre -variable. L'avantage est que la résolution de la valeur est faite -uniquement lors de l'appel de cette fonction, ce qui est utile avec des -fonction comme 'after -r' -}}} -!! {{{runs_conf}}} -{{{ -Activer les flags $* -}}} -!! {{{runs_indref}}} -{{{ -fonction de convenance pour créer des références $3..* avec le fichier de -configuration $1 et les variables $2 -}}} -!! {{{runs_refcerts}}} -{{{ -fonction de convenance pour créer une référence à un répertoire contenant -des certificats mentionnés dans le fichier de configuration $1. Si les -références $2..* ne sont pas mentionnées, la variable certsdir dans le -fichier de configuration est utilisée. -}}} -!! {{{runs_refapacheconfig}}} -{{{ -fonction de convenance pour créer les références à un répertoire de -configuration pour apache. -USAGE: refapacheconfig autoconfdir=path/to/autoconfdir [certsdir=[path/to/certsdir]] -- autoconfdir= est requis et permet de définir à la fois la variable qui -contiendra la référence ainsi que le répertoire à référencer. -- certsdir= est optionel. Si cet argument est spécifié sous la forme -certsdir=path/to/certsdir, il permet de définir à la fois la variable qui -contiendra la référence ainsi que le répertoire à référencer. Si -l'argument est spécifié sous la forme certsdir=, il permet de définir la -variable qui contiendra la référence. C'est cette variable qui sera lue -dans les fichiers de configuration. Si l'argument n'est pas spécifié, on -considère que l'argument 'certsdir=' a été utilisé. -}}} -!! {{{runs_set_lang}}} -{{{ -Charger la valeur de LANG depuis l'environnement. La variable LANG est -initialisée -}}} -!! {{{runs_set_proxy}}} -{{{ -Charger la valeur du proxy depuis l'environnement. Les variables -http_proxy, ftp_proxy et no_proxy sont initialisées -}}} -!! {{{runs_check_confs}}} -{{{ -Vérifier l'état courant par rapport aux flags -}}} -!! {{{runs_after}}} -{{{ -Vérifier que ce script est lancé après le scriptpath $1, par rapport à -RUNSSTORY -}}} -!! {{{runs_clvars}}} -{{{ -Traiter les spécifications de variables données en ligne de commande ou -dans un fichier de recettes -}}} -!! {{{runs_indvars}}} -{{{ -Résoudre les valeurs effectives des variables qui sont des indirections -}}} -!! {{{runs_clvars_cmd}}} -{{{ -écrire la ligne de recette correspondant au script $1 et aux variables -$2..$* -}}} -!! {{{runs_loadconfs}}} -!! {{{runs_clearvars}}} -!! {{{runs_action_desc}}} -!! {{{runs_action_dump}}} -!! {{{runs_action_run}}} -!! {{{runs_action_export}}} -!! {{{shouldrun}}} -!! {{{checkdone}}} -!! {{{requiredone}}} -!! {{{setdone}}} -!! {{{resetdone}}} diff --git a/doc/ulib_runsmod.defaults.twp b/doc/ulib_runsmod.defaults.twp deleted file mode 100644 index 09ea60a..0000000 --- a/doc/ulib_runsmod.defaults.twp +++ /dev/null @@ -1,8 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/runsmod.defaults - diff --git a/doc/ulib_runsmod.twp b/doc/ulib_runsmod.twp deleted file mode 100644 index 20a4f62..0000000 --- a/doc/ulib_runsmod.twp +++ /dev/null @@ -1,34 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/runsmod - -!! {{{runsmod_checkenv}}} -{{{ -vérifier l'environement. créer les répertoires nécessaires. -}}} -!! {{{runsmod_should_update_repolists}}} -{{{ -tester s'il faut mettre à jour au moins un des fichiers contenant les -listes des dépôts -}}} -!! {{{runsmod_update_repolists}}} -{{{ -mettre à jour si nécessaire les fichiers contenant les listes des dépôts. -Si $1 n'est pas vide, forcer la mise à jour de tous les fichiers -}}} -!! {{{runsmod_setup_vars}}} -{{{ -récupérer configuration statique pour la mettre à jour -}}} -!! {{{runsmod_clone_or_pull}}} -{{{ -Chercher les modules $3..@, pour l'hôte $1 qui est le mode d'hôte: none, -all, self ou one pour un hôte spécifique $2. Ajouter les chemins dans le -tableau REPO_DIRS. Mettre à jour les tableaux SCRIPTS_DIRS, MODULES_DIRS -et HOSTS_DIRS -}}} -!! {{{runsmod_teardown_vars}}} diff --git a/doc/ulib_semver.md b/doc/ulib_semver.md deleted file mode 100644 index 268e795..0000000 --- a/doc/ulib_semver.md +++ /dev/null @@ -1,33 +0,0 @@ -# ulib/semver - -## `semver_parse` -## `semver_incmajor` -## `semver_incminor` -## `semver_incpatchlevel` -## `semver_setversion` -## `semver_setprelease` -## `semver_compare_prelease` -## `semver_setmetadata` -## `semver_addmetadata` -## `semver_compare_metadata` -~~~ -même algo que pour prelease -~~~ -## `semver_copy` -## `semver_build` -## `semver_setvar` -## `psemver_parse` -## `psemver_incmajor` -## `psemver_incminor` -## `psemver_incpatchlevel` -## `psemver_setversion` -## `psemver_setprelease` -## `psemver_compare_prelease` -## `psemver_setmetadata` -## `psemver_addmetadata` -## `psemver_compare_metadata` -## `psemver_copy` -## `psemver_build` -## `psemver_setvar` - --*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8:noeol:binary \ No newline at end of file diff --git a/doc/ulib_semver.twp b/doc/ulib_semver.twp deleted file mode 100644 index 2289d1e..0000000 --- a/doc/ulib_semver.twp +++ /dev/null @@ -1,37 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/semver - -!! {{{semver_parse}}} -!! {{{semver_incmajor}}} -!! {{{semver_incminor}}} -!! {{{semver_incpatchlevel}}} -!! {{{semver_setversion}}} -!! {{{semver_setprelease}}} -!! {{{semver_compare_prelease}}} -!! {{{semver_setmetadata}}} -!! {{{semver_addmetadata}}} -!! {{{semver_compare_metadata}}} -{{{ -même algo que pour prelease -}}} -!! {{{semver_copy}}} -!! {{{semver_build}}} -!! {{{semver_setvar}}} -!! {{{psemver_parse}}} -!! {{{psemver_incmajor}}} -!! {{{psemver_incminor}}} -!! {{{psemver_incpatchlevel}}} -!! {{{psemver_setversion}}} -!! {{{psemver_setprelease}}} -!! {{{psemver_compare_prelease}}} -!! {{{psemver_setmetadata}}} -!! {{{psemver_addmetadata}}} -!! {{{psemver_compare_metadata}}} -!! {{{psemver_copy}}} -!! {{{psemver_build}}} -!! {{{psemver_setvar}}} diff --git a/doc/ulib_service.twp b/doc/ulib_service.twp deleted file mode 100644 index aac011e..0000000 --- a/doc/ulib_service.twp +++ /dev/null @@ -1,33 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:15 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/service - -!! {{{service}}} -!! {{{service_start}}} -{{{ -démarrer le service $1 de façon inconditionnelle -}}} -!! {{{service_startm}}} -{{{ -démarrer le service $1 s'il n'est pas déjà démarré -}}} -!! {{{service_stop}}} -{{{ -arrêter le service $1 de façon inconditionnelle -}}} -!! {{{service_stopm}}} -{{{ -arrêter le service $1 s'il n'est pas déjà arrêté -}}} -!! {{{service_reload}}} -{{{ -recharger le service $1 -}}} -!! {{{service_status}}} -{{{ -tester/afficher le status du service $1 -}}} diff --git a/doc/ulib_sysinfos.twp b/doc/ulib_sysinfos.twp deleted file mode 100644 index 00fa623..0000000 --- a/doc/ulib_sysinfos.twp +++ /dev/null @@ -1,66 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/sysinfos - -!! {{{read_data}}} -!! {{{dump_data}}} -!! {{{compute_local_sysinfos}}} -!! {{{compute_remote_sysinfos}}} -!! {{{ensure_sysinfos}}} -{{{ -Essayer de déterminer les valeurs des variables $1(=SYSNAME), $2(=SYSDIST) -et $3(=SYSVER) en fonction des valeurs des autres. Cette fonction est à -utiliser quand on récupère cette information de la part de l'utilisateur, -et qu'il faut compléter -}}} -!! {{{get_sysinfos_desc}}} -{{{ -Afficher une chaine de la forme SYSNAME/SYSDIST/SYSVER qui décrit le -système actuel -}}} -!! {{{check_sysinfos}}} -{{{ -Tester si le système courant ($MYSYSNAME, $MYSYSDIST, $MYSYSVER, $MYBITS) -correspond à au moins un des arguments. -Il est possible de spécifier des variables différentes pour tester le -système courant avec l'option --vars qui doit être spécifiée en premier: -check_sysinfos --vars sysname sysdist sysver bits -d debian -Les options -s, -d, -v, -b permettent respectivement de vérifier le -système, la distribution, la version et le nombre de bits. Il est possible -de spécifier plusieurs tests à effectuer, e.g.: -check_sysinfos -d debian ubuntu -b 64 -pour tester si l'on est sur une distribution debian ou ubuntu *et* sur un -système 64 bits -Note: avec l'option --vars, il peut arriver que sysname, sysdist ou sysver -ne soient pas des tableaux mais des variables scalaires, surtout si elles -sont fournies par l'utilisateur. Il est conseillé dans ce cas de tester -toutes les possibilités quand on vérifie une valeur, e.g.: -check_sysinfos --vars sysname sysdist sysver bits -s linux64 linux32 linux -pour tester si on est sur un système linux -Avec l'option -v, il est possible de suffixer la valeur avec + ou - selon -que l'on veut toutes les versions situées après ou avant la version -spécifiée. Attention, à cause d'une limitation de l'implémentation, il -faut alors impérativement filtrer aussi sur la distribution, e.g: -check_sysinfo -d debian -v lenny+ -pour tester si on est en lenny ou en squeeze. -De même, l'option -d accepte aussi de suffixer la valeur avec + ou -, mais -cela n'a actuellement de sens qu'avec les version de MacOS X. Il faut -aussi impérativement filtrer sur le système, e.g: -check_sysinfos -s macosx -d 10.5+ -}}} -!! {{{on_debian}}} -{{{ -Tester si on est sur debian. charger le module debian si c'est le cas. -Si une commande $1..@ est spécifiée, la lancer, mais il n'est alors plus -possible de lancer des tests plus spécifiques avec __on_debian() -}}} -!! {{{on_debian:}}} -!! {{{on_stretch}}} -!! {{{on_jessie}}} -!! {{{on_wheezy}}} -!! {{{on_squeeze}}} -!! {{{on_default}}} diff --git a/doc/ulib_template.twp b/doc/ulib_template.twp deleted file mode 100644 index af28d99..0000000 --- a/doc/ulib_template.twp +++ /dev/null @@ -1,101 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/template - -!! {{{template_list}}} -{{{ -Soit $N le séparateur --, lister les fichiers des répertoires sources -$2..$(N-1) qui seraient fusionnés avec template_merge() ou supprimés avec -template_unmerge() du répertoire destination $1. Si des chemins sont spécifiés -avec les arguments $(N+1)..@, ne traiter que les fichiers qui correspondent à -ces spécifications. Exemple: -template_list destdir srcdirs... -- specs... -}}} -!! {{{template_merge}}} -{{{ -Soit $N le séparateur --, copier dans le répertoire destination $1 les -fichiers des répertoires sources $2..$(N-1) correspondant aux spécifications -$(N+1)..@, si ces fichiers n'ont pas été modifiés dans le répertoire de -destination. -Les fichiers sources ayant l'extension .template sont ignorés par défaut, sauf -s'ils sonts demandés explicitement. Exemple: -template_merge destdir srcdirs... -- specs... -}}} -!! {{{template_unmerge}}} -{{{ -Soit $N le séparateur --, supprimer du répertoire destination $1 les fichiers -provenant des répertoires sources $2..$(N-1) et qui n'ont pas été modifiés. Si -des chemins sont spécifiés avec les arguments $(N+1)..@, ne traiter que les -fichiers qui correspondent à ces spécifications. Exemple: -template_unmerge destdir srcdirs... -- specs... -}}} -!! {{{template_cleandest}}} -{{{ -Supprimer dans le répertoire de destination $1 tous les répertoires vides. -Cette fonction est habituellement utilisée après template_unmerge() -Ignorer les chemins qui contiennent .git/ et .svn/ -}}} -!! {{{template_diff}}} -{{{ -Afficher les différences entre les fichiers du répertoire de destination $1 et -les fichiers des répertoires sources $2..@ -}}} -!! {{{template_srcdir}}} -{{{ -Obtenir le chemin vers le répertoire source de templates $1, situé dans -ULIBDIR/templates -}}} -!! {{{templatectl_config}}} -{{{ -Obtenir le chemin vers le fichier de configuration pour le répertoire $1 -Si $2==nohideconfig, utiliser le nom CONFIG.conf, sinon utiliser par défaut -.CONFIG sauf si le fichier CONFIG.conf existe -}}} -!! {{{templatectl_loadvars}}} -{{{ -Charger les valeurs des variables depuis le fichier $1 -Les variables suivantes doivent être définies: -- Le tableau TEMPLATECTL_DEFAULTS permet de donner une valeur par défaut aux -variables mentionnées dans TEMPLATE_STATIC_VARS. C'est une liste de valeurs -de la forme 'name=value' -- Le tableau TEMPLATECTL_VARS contient des variables supplémentaires -spécifiées par l'utilisateur. C'est une liste de valeurs de la forme -'name=value' -- TEMPLATE_STATIC_VARS doit contenir une liste de noms de variables qui -peuvent être remplacés dans les fichiers de template. -- TEMPLATE_DYNAMIC_VARS contient une liste de noms de variables valides, mais -qui ne doivent pas être remplacés, en effet, ils sont utilisés pour le -déploiement des fichiers. -- TEMPLATE_NOWRITE_VARS contient une liste de noms de variables qui ne -devraient pas être écrits dans le fichier des variables, sauf si elles -reçoivent une valeur explicite de la part de l'utilisateur. Ce tableau est -mis à jour lors de l'analyse du tableau TEMPLATECTL_VARS -}}} -!! {{{templatectl_writevars}}} -{{{ -Ecrire les variables dans le fichier $1 -}}} -!! {{{templatectl_list_vars}}} -{{{ -Afficher les valeurs des variables -}}} -!! {{{templatectl}}} -{{{ -Fonction de haut niveau qui facilite l'utilisation des fonctions template_* -définir la fonction __display_templatectl_help() pour l'affichage de l'aide -- Le tableau TEMPLATECTL_SRCDIRS doit contenir la liste des répertoires -sources pour les templates. Alternativement, il est possible de définir la -variable TEMPLATECTL_SRCDIR s'il n'y a qu'un seul répertoire source pour le -template -- TEMPLATECTL_CONFIG est le nom de base du fichier à partir duquel sont -chargées les variables et dans lequel sont écrites les variables avec -l'option --write-vars -Si le nom de base est CONFIG, le fichier s'appelera .CONFIG si l'option ---hide-config est utilisée (par défaut) ou CONFIG.conf si l'option ---no-hide-config est utilisée -Les variables de template_loadvars() sont aussi prises en compte -}}} diff --git a/doc/ulib_tiddlywiki.twp b/doc/ulib_tiddlywiki.twp deleted file mode 100644 index db55550..0000000 --- a/doc/ulib_tiddlywiki.twp +++ /dev/null @@ -1,115 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:15 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/tiddlywiki - -!! {{{twget_version}}} -{{{ -lire le numéro de version dans le fichier $1 -}}} -!! {{{twdump_header}}} -{{{ -lire et afficher le contenu avant-storeArea du tiddlywiki $1 -}}} -!! {{{twdump_footer}}} -{{{ -lire et afficher le contenu après-storeArea du tiddlywiki $1 -}}} -!! {{{twdump_storeArea}}} -{{{ -lire et afficher le storeArea dans le tiddlywiki $1 -}}} -!! {{{twreplace_storeArea}}} -{{{ -dans le tiddlywiki $1, remplacer le storeArea par le fichier $2 (par défaut, lu sur stdin) -}}} -!! {{{twupgrade}}} -{{{ -mettre à jour le tiddlywiki $1 sur la base du tiddlywiki plus récent $2 -}}} -!! {{{twdate_curtwp}}} -{{{ -obtenir la date courante dans le format "dd/mm/YYYY HH:MM" exprimée dans -l'heure locale -$1 est éventuellement la date exprimée en nombre de secondes depuis -l'epoch, exprimée dans l'heure locale -}}} -!! {{{twdate_tid2twp}}} -{{{ -Transformer $1, une date de la forme "YYYYmmddHHMM" exprimée dans le -timezone UTC en une chaine "dd/mm/YYYY HH:MM" exprimée dans l'heure locale -Si $1 n'est pas dans le bon format, ne rien afficher -}}} -!! {{{twdate_curtid}}} -{{{ -obtenir la date courante dans le format "YYYYmmddHHMM" exprimée dans le -timezone UTC -$1 est éventuellement la date exprimée en nombre de secondes depuis -l'epoch, exprimée dans l'heure locale -}}} -!! {{{twdate_twp2tid}}} -{{{ -Transformer $1, une date de la forme "dd/mm/YYYY HH:MM" exprimée en heure -locale en une chaine "YYYYmmddHHMM" exprimée dans le timezone UTC -Si $1 n'est pas dans le bon format, ne rien afficher -}}} -!! {{{twdump_tiddlers}}} -{{{ -dumper les tiddlers du fichier $1 généré avec twdump_storeArea() sous -forme d'une liste d'appel de fonction '__tiddler_data title creator -modifier created modified tags changecount content' -Les arguments de la fonction sont les valeurs brutes du tiddler, qui ont -simplement été corrigées avec unquote_html() -}}} -!! {{{dump_tiddler}}} -!! {{{twdump_twpage}}} -{{{ -Dumper le contenu de la twpage $1 sous forme d'un appel à une function -'__twpage_data title creator modifier created modified tags changecount -content' -Les arguments de la fonction sont les valeurs brutes de la twpage, sauf -que le champ modified contient toujours la date de dernière modification -du fichier. -}}} -!! {{{twwrite_tiddler}}} -{{{ -Ecrire sur STDOUT le tiddler correspondant aux paramètres sont spécifiés -sur la ligne de commande. Les arguments sont les valeurs brutes prises de -la twpage, telles qu'elles sont générées par twdump_twpage() -}}} -!! {{{twcheck_twpage_modified}}} -{{{ -Vérifier si la twpage $1 peut être écrasée par un tiddler dont la date de -modification est $2, de format "YYYYmmddHHMM" exprimée dans le timezone -UTC -C'est le cas si le fichier $1 n'existe pas, ou a une date de modification -antérieure à $2 -}}} -!! {{{twcheck_twpage_newtwpage}}} -{{{ -Vérifier si la twpage $1 peut être écrasée par la twpage $2 -C'est le cas si le fichier $1 n'existe pas, ou a une date de modification -antérieure à $2 -}}} -!! {{{twwrite_twpage}}} -{{{ -Ecrire dans le répertoire courant le fichier correspondant au tiddler dont -les paramètres sont spécifiés sur la ligne de commande. Les arguments sont -les valeurs brutes prises du tiddler, telles qu'elles sont générées par -twdump_tiddlers() -Retourner 0 si le fichier a été écrasé, 1 s'il n'a pas été écrasé parce -qu'il n'a pas été modifié, 2 s'il n'a pas été écrasé parce qu'il est plus -récent. -Si TW_VERBOSE=1, afficher un message informatif lors de l'export -}}} -!! {{{export_to_twpages}}} -{{{ -Exporter tous les tiddlers du tiddlywiki $1 dans le répertoire $2 -}}} -!! {{{import_from_twpages}}} -{{{ -Remplacer les tiddlers du tiddlywiki $1 par les twpages du répertoire $2 -}}} diff --git a/doc/ulib_udir.twp b/doc/ulib_udir.twp deleted file mode 100644 index b722924..0000000 --- a/doc/ulib_udir.twp +++ /dev/null @@ -1,61 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:15 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/udir - -!! {{{udir_check}}} -{{{ -Vérifier si le fichier $1 existe -Si $1 est un répertoire, prendre $1/.udir -}}} -!! {{{udir_create_maybe}}} -{{{ -Si le fichier $1 n'existe pas, le créer comme un template .udir -Si $1 est un répertoire, prendre $1/.udir -}}} -!! {{{udir_dump}}} -{{{ -Dumper toutes les variables définies pour le fichier $1 -Si $1 est un répertoire, prendre $1/.udir -}}} -!! {{{udir_eval}}} -{{{ -Evaluer la commande "$2..$*" dans le contexte des variables définies pour -le répertoire $1. La commande est évaluée dans un sous-shell pour ne pas -polluer l'espace de noms courant. -}}} -!! {{{udir_dump_all}}} -{{{ -Dumper toutes les variables définies pour le répertoire $1 et *tous ses -parents* jusqu'à la racine -}}} -!! {{{udir_eval_all}}} -{{{ -Evaluer la commande "$2..$*" dans le contexte des variables définies pour -le répertoire $1 et *tous ses parents* jusqu'à la racine -}}} -!! {{{udir_parse}}} -{{{ -Dans le fichier $1, lire les noms des variables -Si $1 est un répertoire, prendre $1/.udir -Les noms des variables sont placés dans le tableau $2(=UDIR_VARS), et les noms -des tableaux sont placés dans le tableau $3(=UDIR_ARRAYS) -note: les regex qui sont entre "" au lieu de // le sont à cause d'un bug -de awk sous macosx -}}} -!! {{{udir_update}}} -{{{ -Dans le fichier $1, mettre à jour les variables $2..* -Si $1 est un répertoire, prendre $1/.udir -Chaque argument de cette fonction est de la forme name[=value] -Si value n'est pas précisée, la variable obtient une valeur nulle -(i.e. var=) -Si la variable ne figure pas dans le fichier, elle est rajoutée à la fin -du fichier. -Cette fonction nécessite gawk. -}}} -!! {{{write_unseen}}} -!! {{{udir_edit}}} diff --git a/doc/ulib_uenv.twp b/doc/ulib_uenv.twp deleted file mode 100644 index 6254f29..0000000 --- a/doc/ulib_uenv.twp +++ /dev/null @@ -1,8 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:15 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/uenv - diff --git a/doc/ulib_uenv_update.twp b/doc/ulib_uenv_update.twp deleted file mode 100644 index 954c69f..0000000 --- a/doc/ulib_uenv_update.twp +++ /dev/null @@ -1,29 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/uenv_update - -!! {{{uenv_update_dir}}} -{{{ -Mettre à jour l'ordre de chargement pour le répertoire $1 qui contient des -fichiers de profil pour le shell. L'ordre dans lequel le fichiers de -profil doivent être chargé est écrit dans le fichier $1/.source_in_order -Si $2 est spécifié, il s'agit d'un fichier temporaire utilisé pour les -calculs de l'ordre des chargements. -$3(=$1) est le répertoire de destination. Si $1 est un répertoire de -préparation temporaire, on peut spécifier grâce à $3 quel est le -répertoire final après préparation. -S'ils sont spécifiés, les arguments $4..* sont des répertoires contenant -des fichiers de profils supplémentaires qu'il faut considérer aussi. Dans -ce cas, $3 est ignoré. -}}} -!! {{{uenv_set_destdirs}}} -!! {{{uenv_sourced_in}}} -{{{ -vérifier que l'un des fichiers $2..$* est sourcé dans $1 -}}} -!! {{{uenv_configure_profiles}}} -!! {{{uenv_install_profiles}}} diff --git a/doc/ulib_uinc.twp b/doc/ulib_uinc.twp deleted file mode 100644 index 79106f5..0000000 --- a/doc/ulib_uinc.twp +++ /dev/null @@ -1,9 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:15 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/uinc - -!! {{{uinc}}} diff --git a/doc/ulib_uinst.twp b/doc/ulib_uinst.twp deleted file mode 100644 index baa25be..0000000 --- a/doc/ulib_uinst.twp +++ /dev/null @@ -1,19 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/uinst - -!! {{{uinst}}} -{{{ -lancer uinst en déclarant les variables locales, de façon à ne pas polluer -l'environnement de l'appelant. -}}} -!! {{{uinst_nolocal}}} -{{{ -Interface en mode ligne de commande pour uinst. Appeler cette fonction -avec les paramètres de la ligne de commande, e.g.: -uinst_nolocal "$@" -}}} diff --git a/doc/ulib_ulib.twp b/doc/ulib_ulib.twp deleted file mode 100644 index 33986f8..0000000 --- a/doc/ulib_ulib.twp +++ /dev/null @@ -1,41 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/ulib - -!! {{{eerror}}} -!! {{{die}}} -!! {{{uprovided}}} -{{{ -Tester si le module $1 a déjà été chargé par urequire -}}} -!! {{{uprovide}}} -{{{ -Spécifier que le module $1 a été sourcée, ou prétendre que c'est le cas. -Retourner 1 si le module était déjà pourvu, 0 si c'est la première fois -qu'on le pourvoit -}}} -!! {{{urequire}}} -{{{ -Sourcer un module recherché dans ULIBDIRS -Le module DEFAULTS est traité de façon particulière: si le fichier associé -n'est pas trouvé, charger base, pretty, sysinfos et compat à la place -Si un module n'est pas trouvé, quitter le script avec die() -}}} -!! {{{ulibadd}}} -{{{ -Ajouter $1 au chemin de recherche de urequire -}}} -!! {{{ulibsync}}} -{{{ -Synchroniser les modules de ulib dans le répertoire $1 -}}} -!! {{{ulibver}}} -{{{ -Vérifier que la version actuelle de ulib est au moins à la version $1 -(inclue) et éventuellement au plus à la version $2 (exclue) -}}} -!! {{{ulibver_require}}} diff --git a/doc/ulib_ulibsh.twp b/doc/ulib_ulibsh.twp deleted file mode 100644 index 5ac59be..0000000 --- a/doc/ulib_ulibsh.twp +++ /dev/null @@ -1,17 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/ulibsh - -!! {{{eerror}}} -!! {{{die}}} -!! {{{uprovided}}} -!! {{{uprovide}}} -!! {{{urequire}}} -!! {{{ulibadd}}} -!! {{{ulibsync}}} -!! {{{ulibver}}} -!! {{{ulibver_require}}} diff --git a/doc/ulib_vcs.twp b/doc/ulib_vcs.twp deleted file mode 100644 index fba8f5e..0000000 --- a/doc/ulib_vcs.twp +++ /dev/null @@ -1,161 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/vcs - -!! {{{vcs_getvcs_help}}} -!! {{{vcs_getvcs}}} -!! {{{vcs_getroot_help}}} -!! {{{vcs_getroot}}} -!! {{{vcs_getrepos_help}}} -!! {{{vcs_getrepos}}} -!! {{{vcs_geturl_help}}} -!! {{{vcs_geturl}}} -!! {{{vcs_vcs_help}}} -!! {{{vcs_vcs}}} -!! {{{vcs_add_help}}} -!! {{{vcs_add}}} -{{{ -le répertoire de référence est le répertoire du premier fichier ajouté -}}} -!! {{{vcs_remove_help}}} -!! {{{vcs_remove}}} -{{{ -le répertoire de référence est le répertoire du premier fichier supprimé -}}} -!! {{{vcs_copy_help}}} -!! {{{vcs_copy}}} -{{{ -le répertoire de référence est le répertoire de destination -}}} -!! {{{vcs_move_help}}} -!! {{{vcs_move}}} -{{{ -le répertoire de référence est le répertoire de destination -}}} -!! {{{vcs_mkdir_help}}} -!! {{{vcs_mkdir}}} -{{{ -le répertoire de référence est le répertoire du premier répertoire créé -}}} -!! {{{vcs_commit_help}}} -!! {{{vcs_commit}}} -!! {{{vcs_status_help}}} -!! {{{vcs_status}}} -!! {{{vcs_update_help}}} -!! {{{vcs_update}}} -!! {{{vcs_push_help}}} -!! {{{vcs_push}}} -!! {{{vcs_diff_help}}} -!! {{{vcs_diff}}} -!! {{{vcs_tag_help}}} -!! {{{vcs_tag}}} -!! {{{git_getrepos}}} -!! {{{git_geturl}}} -!! {{{git_have_annex}}} -!! {{{git_add}}} -!! {{{git_remove}}} -!! {{{git_copy}}} -!! {{{git_move}}} -!! {{{git_mkdir}}} -!! {{{git_commit}}} -!! {{{git_status}}} -!! {{{git_update}}} -!! {{{git_push}}} -!! {{{git_diff}}} -!! {{{git_tag}}} -!! {{{git_check_gitvcs}}} -!! {{{git_ensure_gitvcs}}} -!! {{{git_list_branches}}} -!! {{{git_list_rbranches}}} -!! {{{git_list_pbranches}}} -{{{ -lister les branches locales et celles qui existent dans l'origine -$1(=origin) et qui pourraient devenir une branche locale avec la commande -git checkout -b -}}} -!! {{{git_have_branch}}} -!! {{{git_have_rbranch}}} -!! {{{git_get_branch}}} -!! {{{git_get_branch_remote}}} -!! {{{git_get_branch_merge}}} -!! {{{git_get_branch_rbranch}}} -!! {{{git_is_branch}}} -!! {{{git_have_remote}}} -!! {{{git_track_branch}}} -!! {{{git_ensure_branch}}} -{{{ -retourner 0 si la branche a été créée, 1 si elle existait déjà, 2 en cas d'erreur -}}} -!! {{{git_check_cleancheckout}}} -{{{ -vérifier qu'il n'y a pas de modification locales dans le dépôt -correspondant au répertoire courant. -}}} -!! {{{git_ensure_cleancheckout}}} -!! {{{git_is_ancestor}}} -{{{ -vérifier que la branche $1 est un ancêtre direct de la branche $2, qui -vaut par défaut refs/remotes/${3:-origin}/$1 -note: cette fonction retourne vrai si $1 et $2 identifient le même commit -}}} -!! {{{git_should_ff}}} -{{{ -vérifier si la branche $1 devrait être fast-forwardée à partir de la -branche d'origine $2, qui vaut par défaut refs/remotes/${3:-origin}/$1 -note: cette fonction est similaire à git_is_ancestor(), mais retourne -false si $1 et $2 identifient le même commit -}}} -!! {{{git_should_push}}} -{{{ -vérifier si la branche $1 devrait être poussée vers la branche de même nom -dans l'origine $2(=origin), parce que l'origin peut-être fast-forwardée à -partir de cette branche. -}}} -!! {{{git_fast_forward}}} -{{{ -vérifier que la branche courante est bien $1, puis tester s'il faut la -fast-forwarder à partir de la branche d'origine $2, puis le faire si c'est -nécessaire. la branche d'origine $2 vaut par défaut refs/remotes/origin/$1 -}}} -!! {{{git_is_merged}}} -{{{ -vérifier que les branches $1 et $2 ont un ancêtre commun, et que la -branche $1 a été complètement fusionnée dans la branche destination $2 -}}} -!! {{{git_annex_initial}}} -{{{ -sur le dépôt $1 fraichement cloné, vérifier s'il faut faire git annex -init. Si oui, l'initialiser avec le nom d'hôte, et récupérer tous les -fichiers annexés -retourner 1 si une erreur s'est produite -}}} -!! {{{svn_getrepos}}} -!! {{{svn_geturl}}} -!! {{{svn_add}}} -!! {{{svn_remove}}} -!! {{{svn_copy}}} -!! {{{svn_move}}} -!! {{{svn_mkdir}}} -!! {{{svn_commit}}} -!! {{{svn_status}}} -!! {{{svn_update}}} -!! {{{svn_push}}} -!! {{{svn_diff}}} -!! {{{svn_tag}}} -!! {{{cvs_getrepos}}} -!! {{{cvs_geturl}}} -!! {{{cvs_add}}} -!! {{{cvs_remove}}} -!! {{{cvs_copy}}} -!! {{{cvs_move}}} -!! {{{cvs_mkdir}}} -!! {{{cvs_commit}}} -!! {{{cvs_status}}} -!! {{{cvs_update}}} -!! {{{cvs_push}}} -!! {{{cvs_diff}}} -!! {{{cvs_tag}}} diff --git a/doc/ulib_virsh.twp b/doc/ulib_virsh.twp deleted file mode 100644 index e852823..0000000 --- a/doc/ulib_virsh.twp +++ /dev/null @@ -1,22 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 30/03/2012 04:43 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/virsh - -!! {{{virsh_filter}}} -{{{ -filtrer une sortie liste de virsh. En pratique, ne prendre que les lignes -non vides à partir de la ligne "----*" -}}} -!! {{{virsh_list}}} -!! {{{virsh_pool_list}}} -!! {{{guess_vm_type}}} -{{{ -Afficher hn, kvm, vmware, virtualbox ou openvz suivant que l'on est -*probablement* respectivement sur une machine physique, une machine -virtuelle kvm, vmware, virtualbox, openvz -XXX pour le moment, seuls openvz, kvm et hn sont supportés -}}} diff --git a/doc/ulib_webobjects.twp b/doc/ulib_webobjects.twp deleted file mode 100644 index f8aa045..0000000 --- a/doc/ulib_webobjects.twp +++ /dev/null @@ -1,180 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:15 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/webobjects - -!! {{{compute_webobjects_prefixes}}} -!! {{{recompute_webobjects_prefixes}}} -!! {{{get_NEXT_ROOT_prefix}}} -!! {{{get_WOROOT_prefix}}} -!! {{{get_LOCALROOT_prefix}}} -!! {{{get_SYSTEMFRAMEWORKS_prefix}}} -!! {{{get_WOEXTENSIONS_prefix}}} -!! {{{get_WOFRAMEWORKS_prefix}}} -!! {{{get_WOAPPLICATIONS_prefix}}} -!! {{{get_WOCONFIGURATION_prefix}}} -!! {{{get_WOAUTOSTART_prefix}}} -!! {{{get_WOLOGS_prefix}}} -!! {{{get_WOVERSION_prefix}}} -!! {{{is_wobundle}}} -{{{ -Tester si $1 a un nom de bundle valide, c'est à dire avec l'extension .woa -ou .framework -}}} -!! {{{is_woappdir}}} -{{{ -Tester si $1 est un répertoire d'application webobjects. Le test est -effectué sur le contenu du bundle, pas sur le nom (utiliser is_wobundle() -pour cela) -}}} -!! {{{is_wofwkdir}}} -{{{ -Tester si $1 est un répertoire de framework webobjects. Le test est -effectué sur le contenu du bundle, pas sur le nom (utiliser is_wobundle() -pour cela) -}}} -!! {{{get_app_winclspth}}} -{{{ -calculer la valeur de Contents/Windows/CLSSPATH.txt pour l'application $1 -}}} -!! {{{get_infofile}}} -{{{ -Obtenir le chemin vers le fichier Info.plist dans le répertoire de -resource du bundle $1 -}}} -!! {{{read_infofile}}} -{{{ -Lire la version et le numéro de release dans le fichier $1 (chemin vers -Info.plist) et les placer dans les variables $2(=version) et $3(=release) -Retourner 1 si un erreur s'est produite, par exemple si le fichier $1 -n'existe pas ou n'est pas accessible en lecture -}}} -!! {{{write_infofile}}} -{{{ -Ecrire $2 (la version) et $3 (le numéro de release) dans le fichier $1 -(chemin vers Info.plist) -Retourner 1 si un erreur s'est produite, par exemple si le fichier $1 -n'existe pas -}}} -!! {{{get_jawotoolsfile}}} -{{{ -Obtenir le chemin vers le fichier jawotools.properties dans le bundle $1 -}}} -!! {{{read_jawotoolsfile}}} -{{{ -lire le fichier de propriété $1 et placer les valeurs dans les variables -$2(=version), $3(=releaseDate), $4(=description) -}}} -!! {{{save_jawotoolsfile}}} -{{{ -écrire le fichier de propriété $1 avec les valeurs version ($2), -releaseDate ($3) et description ($4) -}}} -!! {{{get_versionfile}}} -{{{ -Obtenir le chemin vers le fichier VERSION.txt dans le répertoire de -resource du bundle $1 -}}} -!! {{{get_configfile}}} -{{{ -obtenir le chemin vers le fichier de configuration du répertoire de -resource du bundle -$1=bundle ou resdir (appdir/Contents/Resources ou fwkdir/Resources) -}}} -!! {{{searchreplace_classpath}}} -{{{ -Dans les fichiers classpath de l'application $1, remplacer $2 par $3. Si -$3 est vide, la ligne est supprimée -}}} -!! {{{dump_jars}}} -{{{ -Afficher les jars des frameworks utilisés par l'application $1 -}}} -!! {{{dump_frameworks}}} -{{{ -Afficher les frameworks utilisés par l'application $1 -}}} -!! {{{remove_framework}}} -{{{ -supprimer le framework $2 (nom de base) des fichiers de classpath du -bundle d'application $1 -}}} -!! {{{add_framework}}} -{{{ -s'il n'y existe pas déjà, ajouter le framework $2 (nom de base ou chemin -absolu) aux fichiers de classpath du bundle d'application $1 -}}} -!! {{{fix_jars_case}}} -{{{ -Vérifier que la casse des jars de tous les frameworks utilisés par -l'application $1 est conforme au système de fichier -}}} -!! {{{verifix_bundle}}} -{{{ -vérifier et corriger le bundle $1. Pour une application, on vérifie que le -script est exécutable. Pour un framework, on vérifie que le framework est -conforme au modèle des framework générés par WebObjects. -}}} -!! {{{compute_fapps}}} -{{{ -Placer dans le tableau $1(=fappnames) la liste des noms de bundle -d'applications qui dépendent du framework $2 -Cette opération est faite à partir des informations sur le système de -fichier. Elle ne peut donc concerner qu'une installation locale. -}}} -!! {{{woraurl}}} -{{{ -Faire une requête avec la méthode $1 sur l'url $2 avec le payload $3 (par -exemple pour la méthode POST). la réponse est disponible dans le fichier -$WORAURL_DATA, $4(=http_code) contient le code de réponse. -Retourner 0 en cas de succès, ou une valeur différente de zéro si un -erreur se produit (typiquement, 3 pour une erreur du serveur, 1 pour une -réponse applicative, comme par exemple si l'application n'existe pas) -Les codes de réponse 2xx et 417 sont des succès -Les autres codes (à priori 4xx ou 5xx) sont des erreurs -note: le code 417 est utilisé par le moniteur pour répondre "Non", par -opposition à 200 utilisé pour répondre "OUI" -}}} -!! {{{wogeturl}}} -!! {{{splitins}}} -{{{ -Analyser le nom $1, qui peut être de forme '', 'Name.woa', -'Name.framework', 'App' ou 'Instance-N' (où N est un nombre), et -initialiser les variables $2(=type) et $3(=name) -Si $1=="", type=all et name="" -Si $1==Name.woa, type=woa et name=Name.woa -Si $1==Name.framework, type=fwk et name=Name.framework -Si $1==App, type=app et name=App -si $1==App-N, type=ins et name=App-N -}}} -!! {{{create_wodirs_maybe}}} -!! {{{check_autostart}}} -{{{ -vérifier la présence du fichier $WOAUTOSTART. Si ce n'est pas le cas, le -créer avec le contenu du tableau $1 -}}} -!! {{{get_autostart_order}}} -{{{ -Initialiser le tableau $1 avec la liste donnée dans le fichier -$WOAUTOSTART -}}} -!! {{{apply_autostart_order}}} -{{{ -Réordonner les valeurs $3..* selon la liste donnée dans le tableau $2, -puis placer le résultat dans le tableau $1. $2 doit être construit avec -get_autostart_order(). Si $2 n'est pas spécifié, la liste est construite -localement. -Si le tableau contient des lignes de délai @N, replacer les délais après -les applications appropriées -}}} -!! {{{wotaskd_stop}}} -!! {{{wotaskd_start}}} -!! {{{javamonitor_stop}}} -!! {{{womonitor_stop}}} -!! {{{javamonitor_start}}} -!! {{{womonitor_start}}} -!! {{{woservices_stop}}} -!! {{{woservices_start}}} diff --git a/doc/ulib_woinst.twp b/doc/ulib_woinst.twp deleted file mode 100644 index 4d5fa0e..0000000 --- a/doc/ulib_woinst.twp +++ /dev/null @@ -1,12 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:15 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/woinst - -!! {{{date2version}}} -!! {{{woconf}}} -!! {{{wotag}}} -!! {{{woinst}}} diff --git a/doc/ulib_wondermonitor.twp b/doc/ulib_wondermonitor.twp deleted file mode 100644 index 54aac8b..0000000 --- a/doc/ulib_wondermonitor.twp +++ /dev/null @@ -1,219 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:15 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/wondermonitor - -!! {{{wom__statistics}}} -{{{ -Afficher les statistiques pour le serveur $1, avec éventuellement le mot -de passe $2 -}}} -!! {{{wom__info}}} -{{{ -Contacter le moniteur sur l'hôte $2, avec éventuellement le mot de passe -$3, et afficher des informations sur l'application $1 (par défaut, all) -}}} -!! {{{wom__info_filter}}} -{{{ -filtrer le résultat de wom__info en ne gardant que les tags -name, state, activeSessions, autoRecover, deaths, host, port -}}} -!! {{{wom_info}}} -{{{ -Contacter le moniteur sur l'hôte $3, avec éventuellement le mot de passe -$4, et initialiser le tableau $1 avec une liste de valeurs quotés de la -forme: -"'name' 'state' 'activeSessions' 'autoRecover' 'deaths' 'host' 'port'" -concernant l'application $2 (par défaut, toutes les applications). Notez -qu'il y a une ligne par instance d'application -Ces valeurs peuvent être utilisées comme arguments d'une fonction. par -exemple: -wom_info appinfos "" host pw -for args in "${appinfos[@]}"; do -eval "userfunc $args" -done -}}} -!! {{{wom_getValidAndRunning}}} -{{{ -Placer la liste des applications valides dans le tableau $1(=valid_apps) -et la liste des applications qui tournent dans le tableau -$2=(running_apps), en contactant le moniteur sur l'hôte $3, avec -éventuellement le mot de passe $4. -}}} -!! {{{show_appinfo}}} -{{{ -Afficher des informations sur une application. Les arguments doivent être -le résultat de la fonction wom_info() -}}} -!! {{{wom_running}}} -{{{ -Contacter le moniteur sur l'hôte $2, avec éventuellement le mot de passe -$3, et tester si l'application $1 (par défaut, all) tourne actuellement -}}} -!! {{{wom_start}}} -{{{ -Contacter le moniteur sur l'hôte $2, avec éventuellement le mot de passe -$3, et démarrer l'application $1 (par défaut, all) -}}} -!! {{{wom_stopped}}} -{{{ -Contacter le moniteur sur l'hôte $2, avec éventuellement le mot de passe -$3, et tester si l'application $1 (par défaut, all) est actuellement arrêtée -}}} -!! {{{wom_stop}}} -{{{ -Contacter le moniteur sur l'hôte $2, avec éventuellement le mot de passe -$3, et arrêter l'application $1 (par défaut, all) -}}} -!! {{{wom_forceQuit}}} -{{{ -Contacter le moniteur sur l'hôte $2, avec éventuellement le mot de passe -$3, et forcer l'arrêt de l'application $1 (par défaut, all) -}}} -!! {{{wom_turnScheduledOn}}} -{{{ -Contacter le moniteur sur l'hôte $2, avec éventuellement le mot de passe -$3, et activer le flag scheduled sur l'application $1 (par défaut, all) -}}} -!! {{{wom_turnScheduledOff}}} -{{{ -Contacter le moniteur sur l'hôte $2, avec éventuellement le mot de passe -$3, et désactiver le flag scheduled sur l'application $1 (par défaut, all) -}}} -!! {{{wom_turnRefuseNewSessionOn}}} -{{{ -Contacter le moniteur sur l'hôte $2, avec éventuellement le mot de passe -$3, et activer le flag refuseNewSession sur l'application $1 (par défaut, -all) -}}} -!! {{{wom_turnRefuseNewSessionOff}}} -{{{ -Contacter le moniteur sur l'hôte $2, avec éventuellement le mot de passe -$3, et désactiver le flag refuseNewSession sur l'application $1 (par -défaut, all) -}}} -!! {{{wom_turnAutoRecoverOn}}} -{{{ -Contacter le moniteur sur l'hôte $2, avec éventuellement le mot de passe -$3, et activer le flag autoRecover sur l'application $1 (par défaut, all) -}}} -!! {{{wom_turnAutoRecoverOff}}} -{{{ -Contacter le moniteur sur l'hôte $2, avec éventuellement le mot de passe -$3, et désactiver le flag autoRecover sur l'application $1 (par défaut, -all) -}}} -!! {{{wom_bounce}}} -{{{ -Contacter le moniteur sur l'hôte $2, avec éventuellement le mot de passe -$3, et redémarrer l'application $1 (par défaut, all) en mode bounce -}}} -!! {{{wom_clearDeaths}}} -{{{ -Contacter le moniteur sur l'hôte $2, avec éventuellement le mot de passe -$3, et effacer le compte des morts suspectes pour l'application $1 (par -défaut, all) -}}} -!! {{{wom__getApplications}}} -{{{ -Obtenir des information sur la définition de l'application $1 (ou de -toutes les applications si $1=="") en contactant le moniteur sur l'hôte $2 -avec éventuellement le mot de passe $3. Le résultat est un flux xml, -chaque application étant défini dans un tag . Si un erreur -se produit, l'erreur est dans un tag -}}} -!! {{{wom__getApplications_filter}}} -{{{ -filtrer le résultat de wom__getApplications en ne gardant que les tags -name, unixPath, macPath, winPath -}}} -!! {{{wom_getApplications}}} -{{{ -Obtenir la liste des applications définies en contactant le moniteur sur -l'hôte $3 avec éventuellement le mot de passe $4, et initialiser le -tableau $1 avec une liste de valeurs quotées de la forme: -"'name' 'unixPath' 'macPath' 'winPath'" -concernant l'application $2 (par défaut, toutes les applications) -Ces valeurs peuvent être utilisées comme arguments d'une fonction. par -exemple: -wom_getApplications appinfos "" host pw -for args in "${appinfos[@]}"; do -eval "userfunc $args" -done -}}} -!! {{{wom_addApplication}}} -{{{ -Ajouter une application nommée $1 en contactant le moniteur sur l'hôte $2, -avec éventuellement le mot de passe $3. -Soit le nom Name, par défaut l'exécutable se trouve dans -WOAPPLICATIONS/Name.woa/Name et les logs dans /var/log/WebObjects, et le -flag autoRecover est activé -XXX supporter la possibilité de modifier les valeurs par défaut -}}} -!! {{{wom_addInstance}}} -{{{ -Ajouter une instance sur localhost pour l'application nommée $1 en -contactant le moniteur sur l'hôte $2, avec éventuellement le mot de passe -$3. -XXX supporter la possibilité de modifier les valeurs par défaut -}}} -!! {{{check_compute_apps_localhost}}} -{{{ -si les arguments de compute_apps contiennent des bundles de framework, il -faut avoir accès au système de fichier local. vérifier si l'un des -arguments $2..* est un framework. si c'est le cas, vérifier que l'hôte $1 -est localhost. -retourner 0 si c'est ok, 1 s'il y a des frameworks et que host n'est pas -localhost -}}} -!! {{{compute_apps}}} -{{{ -Remplir le tableau $1(=apps) avec la liste des applications correspondant -aux arguments $3...* -Un bundle de framework (Name.framework) est remplacé par la liste des -bundles d'applications qui dépendent de ce framework. Cette information -est obtenue en consultant le système de fichier local. -Un bundle d'application est remplacé par la liste des applications qui -sont définies pour ce bundle. Cette information est obtenue en consultant -le tableau généré par wom_getApplications(), dont le nom est $2 -Les arguments de la forme @N sont ignorés, ils correspondent à des délais -à respecter lors du démarrage de l'application -}}} -!! {{{get_error_msg}}} -!! {{{start_apps}}} -{{{ -Démarrer les applications $3..$* en contactant le moniteur sur l'hôte $1 -avec le mot de passe éventuel $2 -Les variables globales enable_autorecover et force_enable_autorecover -permettent respectivement d'activer l'autoRecover après le démarrage de -l'application et de forcer l'activation de l'autoRecover même si -l'instance tournait déjà. -Un argument de la forme @N provoque une attente de N secondes. Ceci permet -de placer un temps d'attente entre le démarrage de certaines applications. -}}} -!! {{{stop_apps}}} -{{{ -Arrêter les applications $3..$* en contactant le moniteur sur l'hôte $1 -avec le mot de passe éventuel $2 -Les variables globales disable_autorecover et force_disable_autorecover -permettent respectivement de désactiver l'autoRecover après l'arrêt de -l'application et de forcer la désactivation de l'autoRecover même si -l'instance ne tournait pas. -L'option {-a ARRAY} permet de remplir ARRAY avec la liste des applications -qui ont été effectivement arrêtées. Cette option si elle est spécifiée -doit être en premier -Pour compatibilité avec start_apps, les arguments de la forme @N sont -ignorés. Il n'y a pas de temps d'attente entre les applications lors de -l'arrêt. -}}} -!! {{{bounce_apps}}} -{{{ -Redémarrer les applications $3..$* en mode bounce en contactant le -moniteur sur l'hôte $1 avec le mot de passe éventuel $2 -Pour compatibilité avec start_apps, les arguments de la forme @N sont -ignorés. Il n'y a pas de temps d'attente entre les applications lors du -redémarrage. -}}} diff --git a/doc/ulib_wosign.twp b/doc/ulib_wosign.twp deleted file mode 100644 index 692f067..0000000 --- a/doc/ulib_wosign.twp +++ /dev/null @@ -1,19 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:15 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/wosign - -!! {{{wosign_setup_maybe}}} -!! {{{wosign_jar}}} -!! {{{wosignable}}} -!! {{{wosign}}} -{{{ -Signer un bundle, les jars d'un répertoire, ou un jar -L'option -f force la resignature des jars d'un répertoire ou d'un -bundle. Elle force aussi la signature d'un jar, même s'il semble qu'il -soit la version signée d'un autre jar -on présuppose que wosignable a retourné true -}}} diff --git a/doc/ulib_wotaskd.twp b/doc/ulib_wotaskd.twp deleted file mode 100644 index be9dcc8..0000000 --- a/doc/ulib_wotaskd.twp +++ /dev/null @@ -1,12 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:15 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulib/wotaskd - -!! {{{wot_config}}} -{{{ -Afficher la configuration de wotaskd -}}} diff --git a/doc/ulibshell.twp b/doc/ulibshell.twp deleted file mode 100644 index 6b5e3ce..0000000 --- a/doc/ulibshell.twp +++ /dev/null @@ -1,23 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:20 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulibshell - -{{{ -ulibshell: Lancer un shell après avoir chargé des modules de ulib - -USAGE - ulibshell [options] [args...] - -OPTIONS - -r module - Spécifier un module à charger avec urequire. Plusieurs modules peuvent - être spécifiés en les séparant par ':' - -Un shell est lancé dans lequel les modules spécifiés sont chargés. Par défaut, -seul le module DEFAULTS est chargé. Les arguments sont passés inchangés au -shell. -}}} diff --git a/doc/ulibsync.twp b/doc/ulibsync.twp deleted file mode 100644 index b8b8fa6..0000000 --- a/doc/ulibsync.twp +++ /dev/null @@ -1,18 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:20 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulibsync - -{{{ -ulibsync: Copier les librairies ulib et/ou pyulib - -USAGE - ulibsync [options] destdir - -OPTIONS - -u Copier ulib - -p Copier pyulib -}}} diff --git a/doc/ulink.twp b/doc/ulink.twp deleted file mode 100644 index 89734a8..0000000 --- a/doc/ulink.twp +++ /dev/null @@ -1,24 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ulink - -{{{ -ulink: déplacer, supprimer, copier un fichier ou un lien - -Quand on déplace ou qu'on copie un lien, la destination du lien est mise à jour - -USAGE - ulink mv files... dest - ulink cp files... dest - ulink rm files... - -OPTIONS - -d UPDATEDIR - Chercher dans UPDATEDIR tous les liens qui pointent vers le fichier - concerné, et mettre à jour ces liens après avoir déplacé le fichier, ou - supprimer ces liens si le fichier est supprimé. -}}} diff --git a/doc/umatch.twp b/doc/umatch.twp deleted file mode 100644 index 01fef0f..0000000 --- a/doc/umatch.twp +++ /dev/null @@ -1,55 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: umatch - -{{{ -umatch: Afficher le résultat d'une recherche par regexp et compter -éventuellement leurs occurences - -USAGE - umatch [options] [regexp] - -Chaque ligne *entière* de stdin est mise en correspondance avec l'expression -regulière qui doit avoir la syntaxe de awk. S'il y a correspondance, afficher -soit toute l'expression matchée, soit chaque groupe s'il y a des expressions -parenthésées, chacun des groupes étant séparé par le caractère sep. - -Si l'expression régulière n'est pas spécifiée, elle vaut par défaut '.*' ce qui -fait que toutes les lignes correspondent. Ceci peut être utile avec les options --s et -c. - -Certaines expressions régulières sont prédéfinies. regexp peut avoir l'une des -valeurs prédéfinies suivantes: - - ip --> [0-9]+\.[0-9]+\.[0-9]+\.[0-9]+ - -OPTIONS - -F sep - Spécifier le caractère séparateur en sortie s'il faut afficher des - champs multiples. Par défaut, utiliser le caractère ':' - Si un séparateur vide est spécifié, le séparateur standard de awk est - utilisé. - -s Trier le résultat - -C FIELDNUM - -c, --count - Compter les occurences successives de la valeur du champ FIELDNUM, et - afficher une ligne de la forme 'countlast_line' pour chaque groupe, - last_line étant la dernière occurence du groupe. L'option -c correspond - à '-C 0', c'est à dire compter les occurences successives de toute les - lignes. - Le séparateur utilisé pour calculer le numéro de champ est sep, spécifié - avec l'option -F. - -a, --all-lines - Avec les options -c/-C, afficher toutes les lignes des occurences - successives au lieu de seulement la ligne de la dernière occurence. Ceci - est utile surtout avec l'option -C, pour voir les différences avec les - différentes lignes. - -m, --multiple - Avec les options -c/-C, n'afficher que les lignes dont le compte est - supérieur à 1. Avec l'option -a, les groupes contigus sont séparés par - une ligne '--' -}}} diff --git a/doc/umirror.twp b/doc/umirror.twp deleted file mode 100644 index effcaab..0000000 --- a/doc/umirror.twp +++ /dev/null @@ -1,18 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: umirror - -{{{ -umirror: faire un miroir d'un site web - -USAGE - umirror [options] url [wget_options] - -OPTIONS - -l - Convertir les liens pour consultation locale -}}} diff --git a/doc/upassword.twp b/doc/upassword.twp deleted file mode 100644 index f202734..0000000 --- a/doc/upassword.twp +++ /dev/null @@ -1,70 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: upassword - -{{{ -USAGE: - upassword -p [-f aeskeyfile] [clear [salts...]] - upassword -p [-f aeskeyfile] -j JKEY codetu [salts...] - upassword -p -f aeskeyfile -k crypted [salts...] - upassword -f aeskeyfile -G [password [salt]] - upassword -f aeskeyfile -s - upassword -f aeskeyfile -e clear - upassword -f aeskeyfile -d crypted - upassword --batch - -OPTIONS - -p, --hash-password - Crypter un mot de passe (option par défaut). Si le mot de passe en clair - et/ou le salt ne sont pas spécifiés, ils sont choisis au hasard. - -j, --clear-is-codetu JKEY - Indiquer que l'argument clear est un numéro d'étudiant, à partir duquel - il faut générer le mot de passe. Cette option n'est valide qu'avec -p - -k, --clear-is-crypted - Indiquer que l'argument clear doit d'abord être décrypté avec la clé AES - spécifiée avant utilisation. Cette option n'est valide qu'avec -p - -G, --aes-genkey - Générer une clé AES pour utilisation avec les options -s, -e, -d - -s, --aes-showkey - Afficher encodée en base64 la clé AES contenue dans le fichier spécifié - -e, --aes-encrypt - Crypter un mot de passe avec la clé AES spécifiée - -d, --aes-decrypt - Décrypter un mot de passe avec la clé AES spécifiée - -f, --aes-keyfile - Spécifier le fichier contenant la clé AES. Cette option est obligatoire - avec les options -G, -s, -e et -d - --shell - Afficher les valeurs pour évaluation par le shell - -MODE BATCH -Utiliser l'option --batch active le mode batch. Dans ce mode, chaque ligne est -un ensemble d'arguments, comme si on avait lancé le script à plusieurs reprises. -L'analyseur est limité: le découpage des arguments est fait sur les espaces. -Les lignes commençant par # sont ignorées. -Si une ligne commence par --batch-after, alors cette ligne est affichée après -chaque résultat. Ceci permet de générer un script qui peut être évalué. - -Voici un exemple: - upassword --batch <"$newcontent" for ulibname in "${ulibnames[@]}"; do - echo "* [ulib/$ulibname](ulib_$ulibname)" >>"$newcontent" + echo "* [ulib/$ulibname]()" >>"$newcontent" done write_mdpage "$oldcontent" ulib "$newcontent" ulib.md # faire les pages for ulibname in "${ulibnames[@]}"; do ulib="../lib/ulib/$ulibname" - mdpage="ulib_$ulibname.md" + mdpage="ulib/$ulibname.md" title="ulib/$ulibname" dump_content "$mdpage" "$oldcontent" awkrun 'BEGIN { diff --git a/doc/update-nutools.md b/doc/update-nutools.md deleted file mode 100644 index 517410d..0000000 --- a/doc/update-nutools.md +++ /dev/null @@ -1,7 +0,0 @@ -# update-nutools - -~~~ -update-nutools: mettre à jour nutools -~~~ - --*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8:noeol:binary \ No newline at end of file diff --git a/doc/update-nutools.twp b/doc/update-nutools.twp deleted file mode 100644 index df35959..0000000 --- a/doc/update-nutools.twp +++ /dev/null @@ -1,11 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: update-nutools - -{{{ -update-nutools: mettre à jour nutools -}}} diff --git a/doc/update-twp b/doc/update-twp deleted file mode 100755 index 0fc5012..0000000 --- a/doc/update-twp +++ /dev/null @@ -1,156 +0,0 @@ -#!/bin/bash -# -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -source "$(dirname "$0")/../lib/ulib/ulib" || exit 1 -urequire DEFAULTS - -function display_help() { - uecho "$scriptname: Mettre à jour la documentation pour les outils de nutools - -USAGE - $scriptname [options] - -OPTIONS - -t, --tools - Ne générer la documentation que pour les outils - -l, --ulib - Ne générer la documentation que pour ulib - -s, --sync - Synchroniser avec nutools.html après la génération de la documentation -Par défaut, la documentation est (re)générée pour les outils et pour ulib" -} - -function dump_content() { - local twpage="$1" content="$2" - if [ -f "$twpage" ]; then - awk ' -BEGIN { dump = 0 } -!dump && ($0 == "" || $0 ~ /^[^#]/) { dump = 1 } -dump { print }' <"$twpage" >"$content" - else - >"$content" - fi -} - -function write_twpage() { - local oldcontent="$1" title="$2" newcontent="$3" twpage="$4" - if testdiff "$oldcontent" "$newcontent"; then - local created="$(date +"%d/%m/%Y %H:%M")" - echo "# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: $USER -##@created: $created -##@modifier: $USER -##@changecount: 1 -##@tags: -##@title: $title" >"$twpage" - cat "$newcontent" >>"$twpage" - fi -} - -auto=1 -tools= -ulib= -sync= -force= -parse_opts "${PRETTYOPTS[@]}" \ - --help '$exit_with display_help' \ - -t,--tools '$auto=; tools=1' \ - -l,--ulib '$auto=; ulib=1' \ - -s,--sync '$auto=; sync=1' \ - --force force=1 \ - @ args -- "$@" && set -- "${args[@]}" || die "$args" - -[ -n "$auto" ] && { - tools=1 - ulib=1 - sync=1 -} -ac_set_tmpfile oldcontent -ac_set_tmpfile newcontent -cd "$scriptdir" - -if [ -n "$tools" ]; then - if [ -n "$*" ]; then - cmds=("$@") - else - array_lsfiles cmds .. - fi - - for cmd in "${cmds[@]}"; do - cmdname="$(basename "$cmd")" - twpage="$cmdname.twp" - [ -x "$cmd" ] || continue - estep "$cmdname" - - dump_content "$twpage" "$oldcontent" - echo " -{{{ -$("$cmd" --help) -}}}" >"$newcontent" - - write_twpage "$oldcontent" "$cmdname" "$newcontent" "$twpage" - done -fi - -if [ -n "$ulib" ]; then - array_from_lines ulibnames "$(list_files ../lib/ulib)" - # faire l'entête - dump_content ulib.twp "$oldcontent" - echo " -!Liste des librairies de ulib" >"$newcontent" - for ulibname in "${ulibnames[@]}"; do - echo "* [[ulib/$ulibname]]" >>"$newcontent" - done - write_twpage "$oldcontent" ulib "$newcontent" ulib.twp - # faire les pages - for ulibname in "${ulibnames[@]}"; do - ulib="../lib/ulib/$ulibname" - twpage="ulib_$ulibname.twp" - title="ulib/$ulibname" - dump_content "$twpage" "$oldcontent" - awkrun 'BEGIN { - in_func = 0 - dump_doc = 0 - dumped_doc = 0 - print -} -!in_func && $0 ~ /^function / { - if (match($0, /function +([^ ]+)\(\)/, vs)) { - funcname = vs[1] - if (funcname !~ /^_/) { - in_func = 1 - dump_doc = 1 - dumped_doc = 0 - print "!! {{{" funcname "}}}" - if ($0 ~ /}$/) { - in_func = 0 - dump_doc = 0 - dumped_doc = 0 - } - next - } - } -} -in_func && dump_doc && $0 !~ /^ *#/ { - dump_doc = 0 -} -in_func && dump_doc && $0 ~ /^ *#/ { - if (!dumped_doc) print "{{{" - gsub(/^ *#+ */, "") - print - dumped_doc = 1 -} -in_func && $0 ~ /}$/ { - if (dumped_doc) print "}}}" - in_func = 0 - dump_doc = 0 - dumped_doc = 0 -} -END { if (in_func) print "}}}" } -' <"$ulib" >"$newcontent" - write_twpage "$oldcontent" "$title" "$newcontent" "$twpage" - done -fi - -if [ -n "$sync" ]; then - ../twsync ${force:+--force} -fi diff --git a/doc/uprefix.twp b/doc/uprefix.twp deleted file mode 100644 index bbef41f..0000000 --- a/doc/uprefix.twp +++ /dev/null @@ -1,22 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: uprefix - -{{{ -uprefix: Afficher les préfixes valides pour uinst - -USAGE - uprefix -l|--dump|prefix... - -OPTIONS - -l - Afficher la liste des préfixes valides - --dump - Afficher la liste des préfixes valides et leurs valeurs - prefix - Afficher la valeur du préfixe spécifié -}}} diff --git a/doc/uproject.twp b/doc/uproject.twp deleted file mode 100644 index 3a5abfe..0000000 --- a/doc/uproject.twp +++ /dev/null @@ -1,125 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: uproject - -{{{ -uproject: Outil pour gérer des projets - -USAGE - uproject cmd [args] - -COMMANDS - getvcs [dir] - Afficher le type de VCS pour dir. - getroot [dir] - Si dir est un répertoire versionné, retourner le répertoire racine du - projet versionné. - getrepos [dir] - Si dir est un répertoire versionné, retourner l'url du repository du - projet versionné. - geturl [dir] - Si dir est un répertoire versionné, retourner son url dans le - repository. - fold [dir] - unfold [dir] - Utiliser uinc pour défaire (resp. refaire) toutes les inclusions des - fichiers de dir. Cela nécessite qu'un fichier .udir soit configuré à la - racine du projet avec uinc=true - vcs [args] - Appeler le gestionnaire de gestion approprié avec les arguments donnés. - add files... - Ajouter les fichiers files dans le gestionnaire de version. - remove files... - Supprimer les fichiers versionnés files. - copy from to - Copier le fichier versionné from vers le fichier to. - move from to - Renommer le fichier versionné from vers le fichier to. - mkdir dir - Créer un nouveau répertoire versionné. - commit message [files...] - Enregistrer les modifications (par défaut sur tous les fichiers - modifiés) avec le commentaire message. - status - Afficher l'état des fichiers versionnés et non versionnés. - update [-x] - Mettre à jour la copie locale avec la copie sur le serveur. - -x Ne pas mettre à jour les références externes (si appliquable) - -n, --no-autoff - Ne pas faire de fast-forward automatique pour toutes les branches - traquées. Par défaut, s'il n'y a pas de modifications locales, - essayer de fast-fowarder toutes les branches locales traquées. - diff [options] - Afficher les différences. - -l Afficher les différences non commitées (par défaut) - -c Afficher les différences en passe d'être commitées (si appliquable) - -r REV - Afficher les différences depuis la révision REV. - -R Afficher les modifications effectuées depuis la dernière release. - - clone git@host:path/to/repo [destdir] - Cloner un dépôt distant. Initialiser git annex si le dépôt contient des - fichiers annexés. Récupérer aussi ces fichiers avec 'git annex get' - - crone git@host:path/to/repo [destdir] - Créer un dépôt distant sur gitolite, puis le cloner - - develop - release - hotfix - Démarrer le travail sur une branche respectivement de développement, de - release, ou de correction de bugs. Lancer chaque commande avec --help - pour les détails. Nécessite git. - - archive - Créer une archive du projet courant. Nécessite git. - - annex [args] - Lancer git annex avec les arguments spécifiés. - xadd - xunlock - xdrop - xwhereis - xwebapp - Chacune de ces commandes est un raccourci vers la commande - correspondante de git annex, sans le préfixe 'x' - xsync - Sur un dépot où git-annex est activé, lancer 'git annex sync' si on est - en mode indirect ou 'git annex sync --content' si on est en mode direct. - Sur un dépôt où git-annex n'est pas activé, faire l'équivalent des - commandes 'git add -A && git commit && git pull && git push' - xcopy - xmove - xget - Comme ci-dessus, mais si la commande s'exécute sans erreur, lancer - aussi 'git annex sync' - xinitial - Sur un dépôt fraichement cloné, initialiser le dépôt avec 'annex init' - s'il contient des fichiers annexés. Récupérer aussi ces fichiers avec - 'annex get' - xconfig-export [dir] - Installer des hooks pour qu'un dépôt puisse être utilisé pour servir des - fichiers, par exemple avec un serveur web. Plus précisément, un hook - post-receive est créé avec la commande 'git annex merge', et un hook - post-update est créé avec la commande 'git update-server-info' - - printml [-t TYPE] - Afficher le modeline pour un fichier du type spécifié - addml [-t TYPE] file - Ajouter un modele pour le fichier spécifié, s'il n'en a pas déjà un. - Si nécessaire, forcer le type du fichier au lieu de l'autodétecter - new [options] file [template options] - Créer un nouveau fichier à partir d'un modèle. - Avant le nom du fichier, les options suivantes sont valides: - -t TEMPLATE - Spécifier le modèle de fichier à utiliser. Par défaut, le modèle - à utiliser est déduit de l'extension ou du nom du fichier. - -e Editer le fichier après l'avoir créé. - Après le nom du fichier, toutes les options sont spécifiques au modèle - utilisé pour créer le nouveau fichier. Utiliser l'option --help pour - avoir une description des options disponibles. -}}} diff --git a/doc/uscrontab.twp b/doc/uscrontab.twp deleted file mode 100644 index 1e166e0..0000000 --- a/doc/uscrontab.twp +++ /dev/null @@ -1,292 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: uscrontab - -{{{ -uscrontab: lancer une suite de commande en respectant une planification de type cron - -USAGE - uscrontab [options] [/path/to/uscrontab] [var=value...] - uscrontab -e [/path/to/uscrontab] - uscrontab -l - -La première forme du script doit normalement être lancé toutes les minutes par -une tâche cron. Utiliser l'option --install pour ajouter automatique la ligne -dans la crontab de l'utilisateur. - -Avec la première forme du script, le fichier spécifié est traité. Si aucun -fichier n'est spécifié, fusionner s'il existe le fichier - /var/local/uscrontab/users/jclain -avec chacun des fichiers du répertoire - /var/local/uscrontab/users.d/jclain -dans un fichier temporaire, puis exécuter le fichier résultat avec le nom -virtuel - /var/local/uscrontab/jclain -note: le nom virtuel est utilisé pour le verrouillage avec --lock - -A chaque lancement de ce script, le fichier /path/to/uscrontab spécifié est -examiné pour déterminer quels commandes doivent être exécutées. Ce fichier est -composé de lignes dans un format particulier, qui sont analysées et traitées -dans l'ordre. - -Quelles que soient les lignes qui sont sélectionnées pour l'exécution, elles -sont garanties de s'exécuter dans l'ordre du fichier, l'une après l'autre. - -Les définitions var=value mentionnées sur la ligne de commande sont des -définitions de variables à effectuer avant de lancer les commandes. - -Les lignes commençant par # sont des commentaires et sont ignorées - -== Définitions de variables et exécution de commandes == - - Les lignes de la forme suivante sont des définitions de variable: - - [export] var="valeur de la variable" - - Ces lignes sont des définitions de variable bash qui sont exécutées telles - quelles. Il n'est donc pas autorisé de mettre des espaces autour de =. Par - exemple, les lignes suivantes sont des erreurs de syntaxe: - - var = bad - var=pas de quotes autour de la valeur - - alors que celles-ci sont correctes: - - var=ok - var="valeur avec des espaces" - var='on peut utiliser des quotes aussi' - - Il est possible de manipuler les variables de type PATH avec une syntaxe - particulière de l'opérateur d'assignation. Les opérateurs += et %= utilisent - uaddpath(), #= utilise uinspath() et -= utilise udelpath(). Par exemple, les - lignes suivantes ajoutent respectivement /usr/local/nutools puis enlèvent - /opt/rogue au PATH: - - PATH+=/usr/local/nutools - PATH-=/opt/rogue - - Bien sûr, il ne faut pas oublier de quoter les espaces: - - PATH+="/path/to/dir with spaces" - - La syntaxe ?= permet de définir la valeur d'une variable si elle n'est pas - déjà définie: - - var?=default - - Les lignes de la forme suivante permettent d'exécuter une commande qui est - exécutée systématiquement et ignore la planification: - - $one-line-command - - Une variante permet de spécifier des commandes sur plusieurs lignes. - ATTENTION! ${ et $} doivent être tous seuls sur la ligne. - - ${ - several - commands - ... - $} - - Ces commandes sont exécutées systématiquement et ignorent la planification. - On peut s'en servir notamment pour lire un fichier de configuration qui - définit des variables ou des fonctions: - - $source path/to/file - - Le code d'erreur de ces commandes est ignoré, contrairement à ce qui se - passe pour les commandes qui font l'objet d'une planification. - -== Planification de commandes == - - Les autres lignes doivent être au format d'une ligne de crontab: - - minutes hours days months dows command-line - - command-line peut être n'importe quelle ligne de commande bash, pourvu - qu'elle soit sur une seule ligne. - - Certaines extensions par rapport à la syntaxe de crontab sont autorisées. Il - est en particulier possible de spécifier plusieurs planifications pour une - seule commande. Par exemple, les lignes suivantes permettent d'exécuter - 'command' toutes les heures ET à 1h05: - - 0 * * * * - 5 1 * * * command - - Il est aussi possible d'utiliser la même planification pour plusieurs - commandes sans devoir répéter la définition de la planification. Les lignes - suivantes planifient command1 et command2 toutes les heures: - - 0 * * * * command1 - command2 - - Pour être prise en compte, la ligne command2 doit commencer par au moins un - espace ou une tabulation. Pour la lisibilité, la syntaxe suivante est - supportée aussi: - - 0 * * * * - command1 - command2 - - Les deux formats peuvent être utilisés ensemble. Par exemple les lignes - suivantes exécutent command1 et command2 toutes les heures ET à 1h05: - - 0 * * * * - 5 1 * * * command1 - command2 - - Par défaut, le script s'arrête à la première commande planifiée qui retourne - avec un code d'erreur. Il est possible d'ignorer le code d'erreur d'une - commande avec nostop, e.g: - - 0 * * * * nostop command - - Cf aussi l'option --continuous pour modifier le comportement par défaut - -== Fonctions disponibles == - - La fonction check_pidfile() est disponible, et permet de vérifier qu'une - opération n'est pas déjà en cours. Si cette fonction est utilisée, il ne - faut pas modifier la valeur de -k. Par exemple: - - 0 1 * * * - check_pidfile /path/to/pid [args] - long-running-script - - check_pidfile() doit être utilisée toute seule sur la ligne et s'utilise - avec les argument suivants: - - check_pidfile PIDFILE [DESC] [BARRIER] - - - PIDFILE est le fichier de PID qui est vérifié - - DESC est la description du traitement qui est effectué. La valeur par - défaut est "Une synchronisation". Si le fichier de PID est présent, le - message suivant est affiché: - DESC est en cours. - Si vous pensez que c'est une erreur, veuillez vérifier le process de pid PID - puis supprimez le cas échéant le fichier PIDFILE - - BARRIER est un fichier qui est créé avec le contenu 'PID' s'il n'existe - pas encore, et si la vérification du fichier de PID est faite avec succès. - La présence de ce fichier peut-être vérifiée par un processus externe pour - empêcher par exemple de mettre à jour les scripts pendant qu'il sont en - train de tourner. - Son contenu peut être examiné pour connaître le PID du processus qui l'a - créé initialement. Le fichier est automatiquement supprimé à la fin de ce - script. - Attention: ce fichier n'est pas un verrou, il peut être supprimé à tout - moment. Notamment, si deux scripts sont configurés pour créer le même - fichier barrière, le premier script supprimera le fichier barrière avant - la fin de l'exécution du second script. - - La fonction remove_pidfile() permet de supprimer un fichier de pid pour - spécifier qu'une opération est terminée. Considérons l'exemple suivant: - - 0 1 * * * - check_pidfile /path/to/pid - script1 - script2 - remove_pidfile /path/to/pid - script3 - - Dans cet exemple, il ne faut pas qu'une autre occurence de script1 tourne - pendant que script2 tourne. Par contre, plusieurs occurences de script3 - peuvent tourner en parallèle. - - La fonction elogto() permet de spécifier un fichier vers lequel toutes les - sorties sont redirigées. - -OPTIONS - -A, --install - Installer une planification toutes les minutes du script dans la crontab - de l'utilisateur. Si l'argument /path/to/uscrontab n'est pas spécifié, - c'est une planification générique qui exécute les fichiers par défaut - qui est installée. - -R, --uninstall - Désinstaller la planification toutes les minutes du script de la crontab - de l'utilisateur. Si l'argument /path/to/uscrontab est spécifié, cette - instance est désinstallée. Sinon, ne désinstaller que la planification - générique. - -d, --disable-only - Avec l'option -R, désactiver la planification au lieu de la supprimer. - -e, --edit - Lancer un editeur pour modifier l'uscrontab spécifiée. Si aucun fichier - n'est spécifié, éditer /var/local/uscrontab/users/jclain - -a, --add - Installer un script uscrontab dans le répertoire approprié. L'argument - doit être de la forme [name:]/path/to/uscrontab - Si name n'est pas spécifié, le nom de base du fichier spécifié est - utilisé. Si name est vide ou vaut $USER (soit jclain en l'occurence), - copier le fichier spécifié vers le chemin /var/local/uscrontab/users/jclain - Sinon, copier le fichier spécifié vers /var/local/uscrontab/users.d/jclain/name - -r, --remove - Supprimer le script uscrontab spécifié. L'argument doit être le nom du - script à supprimer. Si l'argument n'est pas spécifié ou vaut $USER - (soit jclain en l'occurence), supprimer le fichier /var/local/uscrontab/users/jclain - s'il existe - -l, --list - Si l'argument /path/to/crontab est spécifié, afficher le contenu de ce - fichier. Sinon, lister les contenus des fichiers crontab qui sont - exécutés avec la planification actuelle. Si une planification générique - est installée, ou si aucune planification n'est en cours, afficher le - contenu du fichier - /var/local/uscrontab/users/jclain - et chacun des fichiers du répertoire - /var/local/uscrontab/users.d/jclain - -n, --fake - Afficher au lieu de les exécuter les commandes qui doivent être lancées - -P, --pause-for NBMINS - Désactiver les planifications pendant NBMINS minutes. Utiliser -1 pour - désactiver les planifications sans limite de durée. Pendant la période - de pause, toutes les invocations de uscrontab n'ont aucun effet, sauf si - on utilise l'option --force - -Y, --unpause - Réactiver les planifications après une mise en pause - -p, --pause - Désactiver les planifications pendant 1 journée. Equivalent à -P 1440 - -f, --force - Forcer l'exécution de la planification, même si elle a été mise en pause - avec l'option --pause - -OPTIONS AVANCEES - --lock LOCKFILE - Inscrire dans le fichier spécifié des informations permettant d'éviter - les invocations simultanées de ce script. Si selon ce fichier, le script - tourne depuis plus de 8 heures, un message d'erreur - est consigné et un message d'avertissement est affiché au plus une fois. - Utiliser --lock '' pour désactiver cette fonctionnalité - Par défaut, si ce script est lancé en root, le fichier utilisé pour le - verrouillage est de la forme /var/run/uscrontab/abspath/to/crontab - Si le script est lancé avec un compte utilisateur, aucun verrouillage - n'est effectué. - --lockdelay LOCKDELAY[=8] - Changer le nombre d'heures pendant lesquelles on autorise le script a - verrouiller l'exécution avant d'afficher un avertissement. - -c, --continuous - Par défaut, ce script s'arrête à la première commande planifiée qui - retourne avec un code d'erreur. Notez que les codes d'erreur des - commandes sans planification sont toujours ignorés. Avec cette option, - ce script ne s'arrête jamais, bien qu'il retourne toujours un code - d'erreur si une erreur s'est produite. Il est possible d'ignorer le - code d'erreur pour une commande en particulier avec le préfixe nostop - -k, --stopec EXITCODE[=101] - Spécifier un code d'erreur spécial qui arrête ce script sans erreur, ou - '' pour désactiver cette fonctionnalité. Ceci permet en début de script - de faire des tests par exemple sur l'environnement avant de lancer les - scripts planifiés. Si l'environnement ne convient pas, il suffit au - script de contrôle de retourner le code d'erreur spécifique pour arrêter - le traitement. - --show-ctnow - Afficher l'heure de référence au format crontab 'min hou day mon dow' - Cette valeur peut être utilisée avec l'option --force-ctnow dans des - tests pour reproduire une condition spécifique. - --force-ctnow 'min hou day mon dow' - Pour le développement ou des tests, forcer la valeur de l'heure de - référence. Il faut respecter le format, sinon les résultats ne sont pas - garantis. Le mieux est de reprendre le résultat de l'option --show-ctnow - en le modifiant un peu si nécessaire. -}}} diff --git a/doc/ussh.twp b/doc/ussh.twp deleted file mode 100644 index 1644e2c..0000000 --- a/doc/ussh.twp +++ /dev/null @@ -1,80 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: ussh - -{{{ -ussh: se connecter par ssh à un ou plusieurs hôtes - -USAGE - ussh [options] hosts - ussh [options] @hostsfile - ussh -r hosts - ussh --parse hosts - -OPTIONS - hosts - @hostsfile - Spécifier un ou plusieurs hôtes distants sur lequels faire la connexion. - Pour spécifier plusieurs hôtes, il faut les séparer par un espace ou le - caractère ':', e.g. 'host1 host2' ou 'host1:host2'. Si la spécification - contient les caractères { et }, l'expansion est effectuée, e.g - 'root@{host1,host2}.univ.run' - La forme @hostsfile permet de lire la liste des hôtes depuis le fichier - hostsfile, à raison d'un hôte par ligne. - -Toutes les options de ssh sont reconnues. Les options longues suivantes sont -reconnues comme alias de certaines options courtes de ssh: - --quiet - alias de -q, activer le mode non verbeux - --tty - alias de -t, forcer l'allocation d'un TTY - --login USER - alias de -l, spécifier le user avec lequel se connecter - --port PORT - alias de -p, spécifier le port sur lequel se connecter - -Les options suivantes sont exclusives à ce script: - -d, --domain DOMAIN - Spécifier un domaine par défaut pour les hôtes qui sont spécifiés sans - domaine. - -z, --ssh SSH - Spécifier l'exécutable à utiliser pour lancer ssh. - -r, --remove - Lancer 'ssh-keygen -R' pour chacun des hôtes spécifiés avant de s'y - connecter. Par exemple: - ussh -r host.tld - est équivalent à: - ssh-keygen -R host.tld - ssh-keygen -R host - ssh-keygen -R 10.10.1.5 - ssh host.tld - si l'adresse ip de host.tld est 10.10.1.5 - Quand cette option est spécifié, l'option -j est reconnue et permet de - NE PAS se reconnecter à l'hôte juste après avoir nettoyé les clés. Avec - l'option -j, TOUS les arguments sont des noms d'hôte puisqu'aucune - connexion n'est effectuée. - --exec - --no-exec - Avec --exec, si un seul hôte est spécifié, lancer le processus ssh avec - exec, pour éviter d'encombrer la mémoire. C'est l'option par défaut. - Avec --no-exec, ne jamais utiliser exec pour lancer ssh. - --parse - Afficher la définition des variables ssh, options, hosts et args qui - permettent d'effectuer la connexion à partir d'un autre script. Exemple: - eval "$(ussh --parse args...)" - for host in "${hosts[@]}"; do - ${exec:+exec} "$ssh" "${options[@]}" "$host" "${args[@]}" - done - --cc - Assumer que nutools est installé sur l'hôte distant, et y lancer uwatch - avec l'option --cc, pour permettre de garder la connexion active dans le - cadre d'une redirection de port. - -Si la variable UTOOLS_USSH_RSYNC_SUPPORT contient une valeur non vide, l'analyse -des arguments s'arrête à la première valeur qui n'est pas une option, afin de -permettre l'utilisation de ce script avec l'option -e de rsync. -}}} diff --git a/doc/usysinfos.twp b/doc/usysinfos.twp deleted file mode 100644 index 2502411..0000000 --- a/doc/usysinfos.twp +++ /dev/null @@ -1,19 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:20 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: usysinfos - -{{{ -usysinfos: Afficher les informations sur le système - -USAGE - usysinfos [query] - -Si la requête est spécifiée, tester si le système courant correspond à la -requête. Voir la doc de check_sysinfos() pour le format de la requête. - -Sinon, afficher les informations sur le système courant. -}}} diff --git a/doc/utempl.twp b/doc/utempl.twp deleted file mode 100644 index 4854620..0000000 --- a/doc/utempl.twp +++ /dev/null @@ -1,28 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: utempl - -{{{ -utempl: Créer un nouveau fichier à partir d'un modèle - -USAGE - utempl [options] file [template options] - -OPTIONS -Avant le nom du nouveau fichier, les options suivantes peuvent être utilisées: - -t TEMPLATE - Spécifier le modèle de fichier à utiliser. Par défaut, le modèle - à utiliser est déduit de l'extension ou du nom du fichier. - -e, --edit - Editer le fichier après l'avoir créé - -g, --no-edit - Ne pas éditer le fichier après l'avoir créé - -Après le nom du fichier, toutes les options sont spécifiques au modèle -utilisé pour créer le nouveau fichier. Utiliser l'option --help pour -avoir une description des options disponibles. -}}} diff --git a/doc/utrigger.twp b/doc/utrigger.twp deleted file mode 100644 index 2050029..0000000 --- a/doc/utrigger.twp +++ /dev/null @@ -1,53 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: utrigger - -{{{ -utrigger: lancer une commande en différé - -USAGE - utrigger [options] -- command [args] - -La commande est lancée après un certain temps, sauf si ce script est rappelé -(auquel cas le compte est réinitialisé), ou si l'opération est annulée. -Attention! La commande est lancée en tâche de fond, et son entrée standard est -connectée à un fichier qui peut être provisionné avec l'option -a - -note: ce script ne fonctionne que sous Linux puisqu'il utilise la commande flock - -OPTIONS - -n, --name NAME - Spécifier un nom identifiant la tâche. Par défaut, le nom est généré à - partir des détails de la tâche à lancer. Ce nom est utilisé pour - identifier les invocations successives. - -f, --cmdfile CMDFILE - Spécifier un fichier contenant les commandes à lancer. Le fichier est - sourcé dans un sous-shell. Utiliser - pour lire les commandes depuis - l'entrée standard. - --rundelay RUNDELAY[=5] - Nombre de secondes au bout desquelles la commande est lancée. Si ce - script est relancé avant la fin de ce décompte, le compte est remis à - zéro. - Utiliser --rundelay '' pour désactiver cette fonctionnalité, auquel cas - la commande est lancée immédiatement. - -s, --sudo - Forcer l'exécution de la commande avec l'utilisateur root si ce n'est - pas déjà le cas - -a, --datafile DATAFILE - Accumuler des données à fournir à la commande. Les informations du - fichier DATAFILE (utiliser - pour l'entrée standard) sont ajoutées à un - fichier temporaires, et sont fournies en une seule fois à la commande - sur son entrée standard. - -A, --data DATA - Variante de --datafile où les données sont fournies sur la ligne de - commande au lieu d'un fichier externe. Si les deux options -a et -A sont - spécifiées, les données sont accumulées dans l'ordre --datafile puis - --data - -k, --cancel - Annuler le lancement planifié d'une commande. Si la commande est déjà en - train de tourner, cette option n'a aucun effet. -}}} diff --git a/doc/uwatch.twp b/doc/uwatch.twp deleted file mode 100644 index dafc8c4..0000000 --- a/doc/uwatch.twp +++ /dev/null @@ -1,35 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: uwatch - -{{{ -uwatch: afficher l'heure - -USAGE - uwatch [options] - -OPTIONS - -t, --time - Afficher l'heure (par défaut) - -c, --count - Afficher le temps écoulé depuis le lancement de ce script - -u, --units - Avec l'option --count, afficher l'unité: sec., min. ou heures - -o, --offset NBSEC - Avec l'option --count, spécifier un nombre de secondes à partir duquel - compter - -s, --step NBSECS[=1] - Spécifier la période de rafraichissement de l'affichage - -a, --prefix PREFIX - Spécifier une chaine à afficher avant l'heure - -z, --suffix SUFFIX - Spécifier une chaine à afficher après l'heure - --cc - Equivalent à -c -s 5 -a 'Connecté sur $MYHOST depuis ' -z '...' - Permet de garantir une activité sur une connexion SSH utilisée - uniquement pour faire une redirection de port -}}} diff --git a/doc/vzusage.twp b/doc/vzusage.twp deleted file mode 100644 index f39b7cd..0000000 --- a/doc/vzusage.twp +++ /dev/null @@ -1,25 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:20 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: vzusage - -{{{ -vzusage: afficher des informations sur une machine virtuelle OpenVZ - -USAGE - vzusage [options] [params...]d - -OPTIONS - -b Afficher les informations de /proc/user_beancounters - -f N'afficher que les valeurs pour lesquelles failcnt > 0. - Implique -b - -z coef - Afficher les instructions à utiliser pour augmenter de coef% les - valeurs pour lesquelles failcnt > 0. Implique -f - -c config|veid - Afficher les informations du fichier de configuration plutôt que les - beancounters -}}} diff --git a/doc/woArchive.twp b/doc/woArchive.twp deleted file mode 100644 index 0285875..0000000 --- a/doc/woArchive.twp +++ /dev/null @@ -1,21 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:20 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: woArchive - -{{{ -woArchive: créer une archive de la distribution WebObjects en cours -USAGE - woArchive [-n name] [-f files] - -OPTIONS - -n NAME - Nom de base de l'archive. Par défaut il s'agit de WebObjects- - - -f FILES - Nom de la liste des fichiers de l'archives. Par défaut il s'agit de - $NAME.files -}}} diff --git a/doc/woSwitch.twp b/doc/woSwitch.twp deleted file mode 100644 index 75c42c1..0000000 --- a/doc/woSwitch.twp +++ /dev/null @@ -1,33 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:20 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: woSwitch - -{{{ -woSwitch: Changer la version de WebObjects pour le système en cours -USAGE - woSwitch [-f from.files] to-archive.tar.gz - -OPTIONS - -f from.files - Spécifier la liste des fichiers pour la version de WebObjects - installée. Par défaut, il s'agit de WebObjects-.files - La liste doit correspondre à la version en cours. - - -F Forcer l'installation, même si la version en cours ne correspond pas à ce - qui est inscrit dans from.files - - to-archive.tar.gz - Nom de l'archive qui contient la version à installer. - -Ce script ne fonctionne que sur MacOS X -Le contenu des répertoires suivants est sauvegardé avant le changement: - /Library/WebObject/Applications - /Library/WebObject/Configuration - /Library/WebObject/Extensions -Ensuite, les répertoires Applications et Configuration sont restaurés. Il faudra -restaurer Extensions manuellement. -}}} diff --git a/doc/woctl.twp b/doc/woctl.twp deleted file mode 100644 index a775af2..0000000 --- a/doc/woctl.twp +++ /dev/null @@ -1,60 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: woctl - -{{{ -woctl: Contrôler des applications WebObjects - -USAGE - woctl [options] action args - wostart args... - wostop args... - wobounce args... - worestart args... - -OPTIONS - -h HOST - Spécifier l'hôte qui fait tourner le moniteur sous la forme host[:port] - -p PASSWORD - Spécifier le mot de passe pour le moniteur - -ACTIONS - Dans les arguments des actions ci-dessous, une application peut être - spécifiée sous la forme App ou App.woa. Spécifier une application revient à - spécifier toutes les instances configurées pour cette application. - Si on spécifie un framework sous la forme Fwk.framework, cela revient à - spécifier toutes les applications qui dépendent de ce framework. - Sinon, une instance individuelle est de la forme App-N, où N est un entier - positif. - - status - afficher l'état des instances qui tournent actuellement - version - afficher la version de WebObjects installée - wotaskd - javamonitor - woservices - piloter wotaskd/javamonitor - _create - créer une instance par défaut dans javamonitor - configure - configurer un bundle - tag - ajouter une information de version à un bundle - run - lancer une application localement en mode debug - download - télécharger une application ou un framework - start apps... - démarrer une ou plusieurs applications - stop apps... - arrêter une ou plusieurs applications - restart apps... - relancer une ou plusieurs applications - bounce apps... - relancer une ou plusieurs applications en mode bounce -}}} diff --git a/doc/woinst.twp b/doc/woinst.twp deleted file mode 100644 index 3795a83..0000000 --- a/doc/woinst.twp +++ /dev/null @@ -1,29 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 15/03/2012 22:20 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: woinst - -{{{ -woinst: Déployer un bundle (application ou framework) de WebObjects - -USAGE - woinst [options] ... - -OPTIONS - PREFIX=value - Spécifier une valeur pour un préfixe, plutôt que de laisser uprefix - l'autodétecter. Utiliser uprefix -l pour une liste de préfixes valides. - -b Redémarrer les instances en mode bounce. - Par défaut, les instances sont arrêtées avant le déploiement, et - redémarrées après - -W Ne déployer que les resources web. Implique -n - -n Ne pas tagger les bundles déployés avec un numéro de version. Par - défaut, l'utilisateur est invité à compléter des informations telles - que n° de version et date de release si ces informations ne sont pas - disponible. - -x CMD - Exécuter la commande CMD après avoir effectué le déploiement -}}} diff --git a/doc/wosign.twp b/doc/wosign.twp deleted file mode 100644 index bfd6e7e..0000000 --- a/doc/wosign.twp +++ /dev/null @@ -1,24 +0,0 @@ -# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -##@creator: jclain -##@created: 27/04/2016 03:19 -##@modifier: jclain -##@changecount: 1 -##@tags: -##@title: wosign - -{{{ -wosign: signer les jars d'un bundle - -USAGE - wosign - -OPTIONS - -f Forcer la (re)signature des jars - -d Enlever la signature des jars originaux - -s Signer les jar du bundle [PAR DEFAUT] - --init - Initialiser les fichiers de configuration pour la signature des bundles. - --sudo - Si le répertoire de destination des fichiers de configuration n'est - accessible en écriture, relancer le script en root. -}}} diff --git a/foreach b/foreach index 34e3b1f..af4e14c 100755 --- a/foreach +++ b/foreach @@ -8,11 +8,16 @@ function display_help() { USAGE $scriptname [options] [VAR=]expr cmd... + $scriptname [options] [VAR=]items... -- cmd... La commande est lancée avec la variable 'VAR', qui vaut par défaut 'item', définie à la valeur courante de l'énumération. De plus, la variable 'index' reçoit une valeur incrémentale commençant à 0. +La deuxième syntaxe appelée syntaxe alternative permet de spécifier un ensemble +d'éléments directement, mais nécessite l'utilisation du séparateur '--' pour +identifier où s'arrête la liste des éléments. + En plus de VAR, les variables file, dir, name, basename, ext et dotext sont définies. Elle valent respectivement le chemin absolu du fichier, le répertoire absolu du fichier, le nom du fichier, le nom de base sans extension, l'extension @@ -20,22 +25,32 @@ sans le point et l'extension avec le point, e.g pour item=dir/file.ext on a file=/path/to/dir/file.ext, dir=/path/to/dir, name=file.ext, basename=file, ext=ext, dotext=.ext -Exemple: +Les 3 exemples suivants sont équivalents: $scriptname '*.c' cp %item dest/dir -Equivalent à: $scriptname item='*.c' cp %item dest/dir + $scriptname *.c -- cp %item dest/dir OPTIONS -b, --basedir BASEDIR Chercher les expressions -d, -f, -a à partir de BASEDIR au lieu du répertoire courant. -d, --dir - Faire la correspondance de l'expression sur les répertoires uniquement -f, --file - Faire la correspondance de l'expression sur les fichier uniquement -a, --all - Faire la correspondance de l'expression sur les répertoires et les - fichiers + -s, --string + Ces options permettent de spécifier le type d'expression et la façon de + les traiter. Avec -d, faire la correspondance de l'expression sur les + répertoires uniquement. Avec -f, faire la correspondance sur les fichier + uniquement. Avec -a, faire la correspondance sur les répertoires et les + fichiers. Avec -s, évaluer l'expression avec la fonction 'eval' du + shell. + Si la syntaxe alternative est utilisée, le premier élément est évalué + conformément à ces options *si et seulement s'il* est précédé d'une + chaine 'VAR='. Les autres éléments sont pris tels-quels. e.g: + cette commande affiche uniquement la chaine '*.c': + $scriptname '*.c' -- + alors que celle-ci liste les fichiers qui ont l'extension '.c': + $scriptname 'item=*.c' -- -p, --parent Pour chaque fichier/répertoire, se placer dans le répertoire parent avant de lancer la commande. item est aussi modifié pour ne plus @@ -50,14 +65,12 @@ OPTIONS la cible, soit '.' pour le répertoire courant, soit le nom du fichier dans le répertoire courant. Si cette option est mentionnée seule, elle implique --dir - -s, --string - Evaluer l'expression avec la fonction 'eval' du shell. -x, --expand -n, --no-expand Reconnaitre et traiter (resp. ne pas reconnaitre) la syntaxe %var dans les arguments. C'est le cas par défaut, ce qui permet de simplifier l'écriture d'une ligne de commande. Pour écrire le caractère '%', il - suffit de le double e.g %%item + suffit de le doubler e.g %%item Si l'expansion est désactivée, il faut protéger le caractère \$ pour qu'il soit traité, e.g, avec les examples ci-dessus: $scriptname -n '*.c' 'cp \"\$item\" dest/dir' @@ -97,10 +110,58 @@ if [ "$match" == auto ]; then fi fi +alt_syntax= +for sep in "$@"; do + if [ "$sep" == -- ]; then + alt_syntax=1 + break + fi +done +suppl_items=() varexpr="$1"; shift +if [ -n "$alt_syntax" ]; then + while [ $# -gt 0 ]; do + [ "$1" == -- ] && break + array_add suppl_items "$1" + shift + done + [ "$1" == -- ] && shift +fi splitfsep2 "$varexpr" = varname expr -[ -n "$varname" ] || varname=item -[ -n "$expr" ] || expr="*" +if [ -n "$alt_syntax" ]; then + if [ -n "$varname" ]; then + [ -n "$expr" ] || expr="*" + elif [[ "$varexpr" == *=* ]]; then + [ -n "$varname" ] || varname=item + [ -n "$expr" ] || expr="*" + else + items=("$varexpr") + varname=item + expr= + fi +else + [ -n "$varname" ] || varname=item + [ -n "$expr" ] || expr="*" +fi +if [ -n "$expr" ]; then + if [ -n "$basedir" ]; then + case "$match" in + all) array_lsall items "$basedir" "$expr";; + dir) array_lsdirs items "$basedir" "$expr";; + file) array_lsfiles items "$basedir" "$expr";; + string) eval "items=($expr)";; + esac + else + basedir=. + case "$match" in + all) array_from_lines items "$(list_all "$basedir" "$expr")";; + dir) array_from_lines items "$(list_dirs "$basedir" "$expr")";; + file) array_from_lines items "$(list_files "$basedir" "$expr")";; + string) eval "items=($expr)";; + esac + fi +fi +array_extend items suppl_items cmd=("$@") if [ ${#cmd[*]} -eq 0 ]; then @@ -111,33 +172,20 @@ if [ ${#cmd[*]} -eq 0 ]; then fi fi -if [ -n "$basedir" ]; then - case "$match" in - all) array_lsall items "$basedir" "$expr";; - dir) array_lsdirs items "$basedir" "$expr";; - file) array_lsfiles items "$basedir" "$expr";; - string) eval "items=($expr)";; - esac -else - basedir=. - case "$match" in - all) array_from_lines items "$(list_all "$basedir" "$expr")";; - dir) array_from_lines items "$(list_dirs "$basedir" "$expr")";; - file) array_from_lines items "$(list_files "$basedir" "$expr")";; - string) eval "items=($expr)";; - esac -fi - [ -n "$title" ] && einfo "${#items[@]} correspondance(s) trouvée(s)" let index=0 for item in "${items[@]}"; do [ -n "$title" ] && etitle "$item" + i="$item" setx file=abspath "$item" setx dir=dirname -- "$file" setx name=basename -- "$file" splitname "$name" basename ext [[ "$name" == *.* ]] && dotext=".$ext" || dotext= - export file dir name basename ext dotext + # ne pas changer les noms des variables sans modifier le script awk + # ci-dessous + __VARS=(i file dir name basename ext dotext) + export "${__VARS[@]}" ( if [ -n "$changedir" ]; then if [ -f "$item" ]; then @@ -154,13 +202,17 @@ for item in "${items[@]}"; do cd "$item" item=. fi + i="$item" + + __VALUES=() + for __VALUE in "${__VARS[@]}"; do + array_add __VALUES "$__VALUE=${!__VALUE}" + done + if [ -n "$expand" ]; then - array_from_lines cmd "$(awkrun -f \ -file="$file" dir="$dir" name="$name" basename="$basename" ext="$ext" dotext="$dotext" \ -xitem="$index" item="$item" varname="$varname" cmd[@] \ -' + array_from_lines cmd "$(awkrun -f "${__VALUES[@]}" xitem="$index" item="$item" varname="$varname" cmd[@] ' function replace_vars(src, re, vs, dest) { - re = "(%(file|dir|name|basename|ext|dotext|index|" varname "))" + re = "(%(" varname "|i|file|dir|name|basename|ext|dotext|index))" while (src != "") { if (match(src, "%%") != 0) { dest = dest substr(src, 1, RSTART) @@ -175,14 +227,15 @@ function replace_vars(src, re, vs, dest) { break } var = vs[2] - if (var == "file") dest = dest file + if (var == varname) dest = dest item + else if (var == "i") dest = dest item + else if (var == "file") dest = dest file else if (var == "dir") dest = dest dir else if (var == "name") dest = dest name else if (var == "basename") dest = dest basename else if (var == "ext") dest = dest ext else if (var == "dotext") dest = dest dotext else if (var == "index") dest = dest xitem - else if (var == varname) dest = dest item } if (src != "") dest = dest src return dest diff --git a/lib/chrono.wav b/lib/chrono.wav new file mode 100644 index 0000000..077ae85 Binary files /dev/null and b/lib/chrono.wav differ diff --git a/lib/init.d/install-kill-ssh-user-sessions b/lib/init.d/install-kill-ssh-user-sessions new file mode 100755 index 0000000..f41df24 --- /dev/null +++ b/lib/init.d/install-kill-ssh-user-sessions @@ -0,0 +1,10 @@ +#!/bin/bash +# -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 +source "$(dirname "$0")/../../lib/ulib/ulib" || exit 1 +urequire DEFAULTS + +[ -d /etc/systemd ] || exit 0 +run_as_root "$@" + +cp "$scriptdir/kill-ssh-user-sessions.service" /etc/systemd/system +systemctl enable kill-ssh-user-sessions.service diff --git a/lib/init.d/install-kvm-stop-all b/lib/init.d/install-kvm-stop-all index 31ef516..48ccde7 100755 --- a/lib/init.d/install-kvm-stop-all +++ b/lib/init.d/install-kvm-stop-all @@ -1,6 +1,6 @@ #!/bin/bash # -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -. "$(dirname "$0")/../../lib/ulib/ulib" || exit 1 +source "$(dirname "$0")/../../lib/ulib/ulib" || exit 1 urequire DEFAULTS check_sysinfos -s linux -d debian || exit 0 diff --git a/lib/init.d/install-openvz-fix-etchosts b/lib/init.d/install-openvz-fix-etchosts index f89fdbb..589ff8a 100755 --- a/lib/init.d/install-openvz-fix-etchosts +++ b/lib/init.d/install-openvz-fix-etchosts @@ -1,6 +1,6 @@ #!/bin/bash # -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -. "$(dirname "$0")/../../lib/ulib/ulib" || exit 1 +source "$(dirname "$0")/../../lib/ulib/ulib" || exit 1 urequire DEFAULTS check_sysinfos -s linux -d debian || exit 0 diff --git a/lib/init.d/kill-ssh-user-sessions.service b/lib/init.d/kill-ssh-user-sessions.service new file mode 100644 index 0000000..d310625 --- /dev/null +++ b/lib/init.d/kill-ssh-user-sessions.service @@ -0,0 +1,11 @@ +[Unit] +Description=Shutdown all ssh sessions before network +DefaultDependencies=no +Before=network.target shutdown.target + +[Service] +Type=oneshot +ExecStart=/bin/sh -c "/usr/bin/killall sshd; sleep 2; :" + +[Install] +WantedBy=poweroff.target halt.target reboot.target diff --git a/lib/profile.d/nutools.shared b/lib/profile.d/nutools.shared index 33ed097..d9e670d 100644 --- a/lib/profile.d/nutools.shared +++ b/lib/profile.d/nutools.shared @@ -105,6 +105,15 @@ __uaddpath "@@dest@@/legacy" UINCPATH [ -z "$UTOOLS_LANG" ] && UTOOLS_LANG="$LANG" export LANG UTOOLS_LANG +if [ -z "$PYTHONIOENCODING" ]; then + __shopt="$(shopt -p nocasematch)"; shopt -s nocasematch + case "$LANG" in + *.utf8|*.utf-8) export PYTHONIOENCODING=utf-8;; + *@euro) export PYTHONIOENCODING=latin1;; + esac + eval "$__shopt"; unset __shopt +fi + # Le fichier nutoolsrc doit être chargé systématiquement [ -f /etc/nutoolsrc ] && . /etc/nutoolsrc [ -f ~/.nutoolsrc ] && . ~/.nutoolsrc diff --git a/lib/profile.d/nutools.userconf b/lib/profile.d/nutools.userconf index af0fa61..676a470 100644 --- a/lib/profile.d/nutools.userconf +++ b/lib/profile.d/nutools.userconf @@ -1,7 +1,7 @@ # -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 ##@before nutools -# Valeur de LANG à forcer +# Valeur de LANG à initialiser, si elle n'est pas déjà définie #export UTOOLS_LANG=fr_FR.UTF-8 # Valeur de LESSCHARSET s'il faut la forcer. Normalement, less détecte @@ -15,6 +15,10 @@ #export UTOOLS_INPUT_ENCODING=utf-8 #export UTOOLS_EDITOR_ENCODING=utf-8 +# Encoding pour Python. Cette valeur est automatiquement initialisée si LANG est +# de la forme *.UTF-8 ou *@euro +#export PYTHONIOENCODING=utf-8 + # Ne pas utiliser la librairie readline pour la saisie des informations #export UTOOLS_NO_READLINE=1 diff --git a/lib/pyulib/src/ulib/ext/xpath/README.rst b/lib/pyulib/src/ulib/ext/xpath/README.rst index 6b260ef..0425286 100644 --- a/lib/pyulib/src/ulib/ext/xpath/README.rst +++ b/lib/pyulib/src/ulib/ext/xpath/README.rst @@ -217,7 +217,7 @@ Expression Context Objects The context contains the following attributes and methods: .. attribute:: default_namespace - + The default namespace URI. .. attribute:: namespaces diff --git a/lib/pyulib/src/ulib/ext/xpath/__init__.py b/lib/pyulib/src/ulib/ext/xpath/__init__.py index 6cfabb2..71c2778 100644 --- a/lib/pyulib/src/ulib/ext/xpath/__init__.py +++ b/lib/pyulib/src/ulib/ext/xpath/__init__.py @@ -1,23 +1,2 @@ -import exceptions - -from _xpath import api, XPathContext, XPath -from exceptions import * - -__all__ = ['find', 'findnode', 'findvalue', 'findvalues', 'XPathContext', 'XPath'] -__all__.extend((x for x in dir(exceptions) if not x.startswith('_'))) - -@api -def find(expr, node, **kwargs): - return XPath.get(expr).find(node, **kwargs) - -@api -def findnode(expr, node, **kwargs): - return XPath.get(expr).findnode(node, **kwargs) - -@api -def findvalue(expr, node, **kwargs): - return XPath.get(expr).findvalue(node, **kwargs) - -@api -def findvalues(expr, node, **kwargs): - return XPath.get(expr).findvalues(node, **kwargs) +from main import __all__ +from main import * diff --git a/lib/pyulib/src/ulib/ext/xpath/exceptions.py b/lib/pyulib/src/ulib/ext/xpath/exceptions.py index 1597670..7ce017a 100644 --- a/lib/pyulib/src/ulib/ext/xpath/exceptions.py +++ b/lib/pyulib/src/ulib/ext/xpath/exceptions.py @@ -15,7 +15,7 @@ class XPathParseError(XPathError): XPathError.__init__(self) self.expr = expr self.pos = pos - self.message = message + self.err = message def __str__(self): return ("Syntax error:\n" + diff --git a/lib/pyulib/src/ulib/ext/xpath/expr.py b/lib/pyulib/src/ulib/ext/xpath/expr.py index b681a0d..a6a1611 100644 --- a/lib/pyulib/src/ulib/ext/xpath/expr.py +++ b/lib/pyulib/src/ulib/ext/xpath/expr.py @@ -21,6 +21,8 @@ def string_value(node): for n in axes['descendant'](node): if n.nodeType == n.TEXT_NODE: s += n.data + elif n.nodeType == n.CDATA_SECTION_NODE: + s += n.nodeValue return s elif node.nodeType == node.ATTRIBUTE_NODE: @@ -31,9 +33,12 @@ def string_value(node): node.nodeType == node.TEXT_NODE): return node.data + elif node.nodeType == node.CDATA_SECTION_NODE: + return node.nodeValue + def document_order(node): """Compute a document order value for the node. - + cmp(document_order(a), document_order(b)) will return -1, 0, or 1 if a is before, identical to, or after b in the document respectively. @@ -100,10 +105,10 @@ def string(v): return u'Infinity' elif v == float('-inf'): return u'-Infinity' - elif int(v) == v and v <= 0xffffffff: - v = int(v) elif str(v) == 'nan': return u'NaN' + elif int(v) == v and v <= 0xffffffff: + v = int(v) return unicode(v) elif booleanp(v): return u'true' if v else u'false' @@ -747,7 +752,7 @@ class PathExpr(Expr): class PredicateList(Expr): """A list of predicates. - + Predicates are handled as an expression wrapping the expression filtered by the predicates. @@ -883,7 +888,8 @@ class CommentTest(object): class TextTest(object): def match(self, node, axis, context): - return node.nodeType == node.TEXT_NODE + return (node.nodeType == node.TEXT_NODE or + node.nodeType == node.CDATA_SECTION_NODE) def __str__(self): return 'text()' diff --git a/lib/pyulib/src/ulib/ext/xpath/main.py b/lib/pyulib/src/ulib/ext/xpath/main.py new file mode 100644 index 0000000..bd8d839 --- /dev/null +++ b/lib/pyulib/src/ulib/ext/xpath/main.py @@ -0,0 +1,169 @@ +from exceptions import * +import exceptions +import expr +import parser +import yappsrt + +class MODULE: pass +XPATH = MODULE() +XPATH.exceptions = exceptions +XPATH.expr = expr +XPATH.parser = parser +XPATH.yappsrt = yappsrt + +__all__ = ['find', 'findnode', 'findvalue', 'XPathContext', 'XPath'] +__all__.extend((x for x in dir(XPATH.exceptions) if not x.startswith('_'))) + +def api(f): + """Decorator for functions and methods that are part of the external + module API and that can throw XPathError exceptions. + + The call stack for these exceptions can be very large, and not very + interesting to the user. This decorator rethrows XPathErrors to + trim the stack. + + """ + def api_function(*args, **kwargs): + try: + return f(*args, **kwargs) + except XPathError, e: + raise e + api_function.__name__ = f.__name__ + api_function.__doc__ = f.__doc__ + return api_function + +class XPathContext(object): + def __init__(self, document=None, **kwargs): + self.default_namespace = None + self.namespaces = {} + self.variables = {} + + if document is not None: + if document.nodeType != document.DOCUMENT_NODE: + document = document.ownerDocument + if document.documentElement is not None: + attrs = document.documentElement.attributes + for attr in (attrs.item(i) for i in xrange(attrs.length)): + if attr.name == 'xmlns': + self.default_namespace = attr.value + elif attr.name.startswith('xmlns:'): + self.namespaces[attr.name[6:]] = attr.value + + self.update(**kwargs) + + def clone(self): + dup = XPathContext() + dup.default_namespace = self.default_namespace + dup.namespaces.update(self.namespaces) + dup.variables.update(self.variables) + return dup + + def update(self, default_namespace=None, namespaces=None, + variables=None, **kwargs): + if default_namespace is not None: + self.default_namespace = default_namespace + if namespaces is not None: + self.namespaces = namespaces + if variables is not None: + self.variables = variables + self.variables.update(kwargs) + + @api + def find(self, expr, node, **kwargs): + return XPATH.find(expr, node, context=self, **kwargs) + + @api + def findnode(self, expr, node, **kwargs): + return XPATH.findnode(expr, node, context=self, **kwargs) + + @api + def findvalue(self, expr, node, **kwargs): + return XPATH.findvalue(expr, node, context=self, **kwargs) + + @api + def findvalues(self, expr, node, **kwargs): + return XPATH.findvalues(expr, node, context=self, **kwargs) + +class XPath(): + _max_cache = 100 + _cache = {} + + def __init__(self, expr): + """Init docs. + """ + try: + parser = XPATH.parser.XPath(XPATH.parser.XPathScanner(str(expr))) + self.expr = parser.XPath() + except XPATH.yappsrt.SyntaxError, e: + raise XPathParseError(str(expr), e.pos, e.msg) + + @classmethod + def get(cls, s): + if isinstance(s, cls): + return s + try: + return cls._cache[s] + except KeyError: + if len(cls._cache) > cls._max_cache: + cls._cache.clear() + expr = cls(s) + cls._cache[s] = expr + return expr + + @api + def find(self, node, context=None, **kwargs): + if context is None: + context = XPathContext(node, **kwargs) + elif kwargs: + context = context.clone() + context.update(**kwargs) + return self.expr.evaluate(node, 1, 1, context) + + @api + def findnode(self, node, context=None, **kwargs): + result = self.find(node, context, **kwargs) + if not XPATH.expr.nodesetp(result): + raise XPathTypeError("expression is not a node-set") + if len(result) == 0: + return None + return result[0] + + @api + def findvalue(self, node, context=None, **kwargs): + result = self.find(node, context, **kwargs) + if XPATH.expr.nodesetp(result): + if len(result) == 0: + return None + result = XPATH.expr.string(result) + return result + + @api + def findvalues(self, node, context=None, **kwargs): + result = self.find(node, context, **kwargs) + if not XPATH.expr.nodesetp(result): + raise XPathTypeError("expression is not a node-set") + return [XPATH.expr.string_value(x) for x in result] + + def __repr__(self): + return '%s.%s(%s)' % (self.__class__.__module__, + self.__class__.__name__, + repr(str(self.expr))) + + def __str__(self): + return str(self.expr) + +@api +def find(expr, node, **kwargs): + return XPath.get(expr).find(node, **kwargs) + +@api +def findnode(expr, node, **kwargs): + return XPath.get(expr).findnode(node, **kwargs) + +@api +def findvalue(expr, node, **kwargs): + return XPath.get(expr).findvalue(node, **kwargs) + +@api +def findvalues(expr, node, **kwargs): + return XPath.get(expr).findvalues(node, **kwargs) diff --git a/lib/pyulib/src/ulib/ext/xpath/parser.g b/lib/pyulib/src/ulib/ext/xpath/parser.g deleted file mode 100644 index df75bb1..0000000 --- a/lib/pyulib/src/ulib/ext/xpath/parser.g +++ /dev/null @@ -1,252 +0,0 @@ -import expr as X -from yappsrt import * - -%% - -parser XPath: - option: 'no-support-module' - - ignore: r'\s+' - token END: r'$' - - token FORWARD_AXIS_NAME: - r'child|descendant-or-self|attribute|self|descendant|following-sibling|following|namespace' - token REVERSE_AXIS_NAME: - r'parent|preceding-sibling|preceding|ancestor-or-self|ancestor' - - # Dire hack here, since yapps2 has only one token of lookahead: NCNAME - # does not match when followed by a open paren. - token NCNAME: r'[a-zA-Z_][a-zA-Z0-9_\-\.\w]*(?!\()' - token FUNCNAME: r'[a-zA-Z_][a-zA-Z0-9_\-\.\w]*' - - token DQUOTE: r'\"(?:[^\"])*\"' - token SQUOTE: r"\'(?:[^\'])*\'" - token NUMBER: r'((\.[0-9]+)|([0-9]+(\.[0-9]*)?))([eE][\+\-]?[0-9]+)?' - token EQ_COMP: r'\!?\=' - token REL_COMP: r'[\<\>]\=?' - token ADD_COMP: r'[\+\-]' - token MUL_COMP: r'\*|div|mod' - - rule XPath: - Expr END {{ return Expr }} - - rule Expr: - OrExpr {{ return OrExpr }} - - rule OrExpr: - AndExpr {{ Expr = AndExpr }} - ( - r'or' AndExpr - {{ Expr = X.OrExpr('or', Expr, AndExpr) }} - )* {{ return Expr }} - - rule AndExpr: - EqualityExpr {{ Expr = EqualityExpr }} - ( - r'and' EqualityExpr - {{ Expr = X.AndExpr('and', Expr, EqualityExpr) }} - )* {{ return Expr }} - - rule EqualityExpr: - RelationalExpr {{ Expr = RelationalExpr }} - ( - EQ_COMP - RelationalExpr - {{ Expr = X.EqualityExpr(EQ_COMP, Expr, RelationalExpr) }} - )* {{ return Expr }} - - rule RelationalExpr: - AdditiveExpr {{ Expr = AdditiveExpr }} - ( - REL_COMP - AdditiveExpr - {{ Expr = X.EqualityExpr(REL_COMP, Expr, AdditiveExpr) }} - )* {{ return Expr }} - - rule AdditiveExpr: - MultiplicativeExpr {{ Expr = MultiplicativeExpr }} - ( - ADD_COMP - MultiplicativeExpr - {{ Expr = X.ArithmeticalExpr(ADD_COMP, Expr, MultiplicativeExpr) }} - )* {{ return Expr }} - - rule MultiplicativeExpr: - UnionExpr {{ Expr = UnionExpr }} - ( - MUL_COMP - UnionExpr - {{ Expr = X.ArithmeticalExpr(MUL_COMP, Expr, UnionExpr) }} - )* {{ return Expr }} - - rule UnionExpr: - UnaryExpr {{ Expr = UnaryExpr }} - ( - '\|' UnaryExpr - {{ Expr = X.UnionExpr('|', Expr, UnaryExpr) }} - )* {{ return Expr }} - - rule UnaryExpr: - r'\-' ValueExpr {{ return X.NegationExpr(ValueExpr) }} - | ValueExpr {{ return ValueExpr }} - - rule ValueExpr: - PathExpr {{ return PathExpr }} - - rule PathExpr: - r'\/' {{ path = None }} - [ - RelativePathExpr {{ path = RelativePathExpr }} - ] {{ return X.AbsolutePathExpr(path) }} - | r'\/\/' RelativePathExpr - {{ step = X.AxisStep('descendant-or-self') }} - {{ RelativePathExpr.steps.insert(0, step) }} - {{ return X.AbsolutePathExpr(RelativePathExpr) }} - | RelativePathExpr {{ return RelativePathExpr }} - - rule RelativePathExpr: - StepExpr {{ steps = [StepExpr] }} - ( - ( - r'\/' - | r'\/\/' - {{ steps.append(X.AxisStep('descendant-or-self')) }} - ) - StepExpr {{ steps.append(StepExpr) }} - )* - {{ return X.PathExpr(steps) }} - - rule StepExpr: - AxisStep {{ return AxisStep }} - | FilterExpr {{ return FilterExpr }} - - rule AxisStep: - ( - ForwardStep {{ step = ForwardStep }} - | ReverseStep {{ step = ReverseStep }} - ) {{ expr = X.AxisStep(*step) }} - [ - PredicateList - {{ expr = X.PredicateList(expr, PredicateList, step[0]) }} - ] - {{ return expr }} - - rule ForwardStep: - ForwardAxis NodeTest {{ return [ForwardAxis, NodeTest] }} - | AbbrevForwardStep {{ return AbbrevForwardStep }} - - rule ForwardAxis: - FORWARD_AXIS_NAME r'::' {{ return FORWARD_AXIS_NAME }} - - rule AbbrevForwardStep: - {{ axis = 'child' }} - [ - r'@' {{ axis = 'attribute' }} - ] - NodeTest {{ return [axis, NodeTest] }} - - rule ReverseStep: - ReverseAxis NodeTest {{ return [ReverseAxis, NodeTest] }} - | AbbrevReverseStep {{ return AbbrevReverseStep }} - - rule ReverseAxis: - REVERSE_AXIS_NAME r'::' {{ return REVERSE_AXIS_NAME }} - - rule AbbrevReverseStep: - r'\.\.' {{ return ['parent', None] }} - - rule NodeTest: - KindTest {{ return KindTest }} - | NameTest {{ return NameTest }} - - rule NameTest: - # We also support the XPath 2.0 :*. - {{ prefix = None }} - WildcardOrNCName {{ localpart = WildcardOrNCName }} - [ - r':' WildcardOrNCName {{ prefix = localpart }} - {{ localpart = WildcardOrNCName }} - ] - {{ return X.NameTest(prefix, localpart) }} - - rule WildcardOrNCName: - r'\*' {{ return '*' }} - | NCNAME {{ return NCNAME }} - - rule FilterExpr: - PrimaryExpr - [ - PredicateList - {{ PrimaryExpr = X.PredicateList(PrimaryExpr,PredicateList) }} - ] {{ return PrimaryExpr }} - - rule PredicateList: - Predicate {{ predicates = [Predicate] }} - ( - Predicate {{ predicates.append(Predicate) }} - )* {{ return predicates }} - - rule Predicate: - r'\[' Expr r'\]' {{ return Expr }} - - rule PrimaryExpr: - Literal {{ return X.LiteralExpr(Literal) }} - | VariableReference {{ return VariableReference }} - | r'\(' Expr r'\)' {{ return Expr }} - | ContextItemExpr {{ return ContextItemExpr }} - | FunctionCall {{ return FunctionCall }} - - rule VariableReference: - r'\$' QName - {{ return X.VariableReference(*QName) }} - - rule ContextItemExpr: - r'\.' {{ return X.AxisStep('self') }} - - rule FunctionCall: - FUNCNAME r'\(' {{ args = [] }} - [ - Expr {{ args.append(Expr) }} - ( - r'\,' Expr {{ args.append(Expr) }} - )* - ] r'\)' {{ return X.Function(FUNCNAME, args) }} - - rule KindTest: - PITest {{ return PITest }} - | CommentTest {{ return CommentTest }} - | TextTest {{ return TextTest }} - | AnyKindTest {{ return AnyKindTest }} - - rule PITest: - r'processing-instruction' {{ name = None }} - r'\(' [ - NCNAME {{ name = NCNAME }} - | StringLiteral {{ name = StringLiteral }} - ] r'\)' {{ return X.PITest(name) }} - - rule CommentTest: - r'comment' r'\(' r'\)' {{ return X.CommentTest() }} - - rule TextTest: - r'text' r'\(' r'\)' {{ return X.TextTest() }} - - rule AnyKindTest: - r'node' r'\(' r'\)' {{ return X.AnyKindTest() }} - - rule Literal: - NumericLiteral {{ return NumericLiteral }} - | StringLiteral {{ return StringLiteral }} - - rule NumericLiteral: - NUMBER {{ return float(NUMBER) }} - - rule StringLiteral: - DQUOTE {{ return DQUOTE[1:-1] }} - | SQUOTE {{ return SQUOTE[1:-1] }} - - rule QName: - NCNAME {{ name = NCNAME }} - [ - r'\:' NCNAME {{ return (name, NCNAME) }} - ] {{ return (None, name) }} diff --git a/lib/pyulib/src/ulib/ext/xpath/parser.py b/lib/pyulib/src/ulib/ext/xpath/parser.py index bb673f9..2fd7b4f 100644 --- a/lib/pyulib/src/ulib/ext/xpath/parser.py +++ b/lib/pyulib/src/ulib/ext/xpath/parser.py @@ -8,10 +8,10 @@ import re class XPathScanner(Scanner): patterns = [ ("r'\\:'", re.compile('\\:')), - ("r'node'", re.compile('node')), - ("r'text'", re.compile('text')), - ("r'comment'", re.compile('comment')), - ("r'processing-instruction'", re.compile('processing-instruction')), + ("r'node\\s*\\('", re.compile('node\\s*\\(')), + ("r'text\\s*\\('", re.compile('text\\s*\\(')), + ("r'comment\\s*\\('", re.compile('comment\\s*\\(')), + ("r'processing-instruction\\s*\\('", re.compile('processing-instruction\\s*\\(')), ("r'\\,'", re.compile('\\,')), ("r'\\.'", re.compile('\\.')), ("r'\\$'", re.compile('\\$')), @@ -121,7 +121,7 @@ class XPath(Parser): return Expr def UnaryExpr(self): - _token_ = self._peek("r'\\-'", "r'\\/'", "r'\\/\\/'", "r'\\('", 'FORWARD_AXIS_NAME', "r'@'", 'REVERSE_AXIS_NAME', "r'\\.\\.'", "r'\\$'", "r'\\.'", 'FUNCNAME', 'NUMBER', 'DQUOTE', 'SQUOTE', "r'processing-instruction'", "r'comment'", "r'text'", "r'node'", "r'\\*'", 'NCNAME') + _token_ = self._peek("r'\\-'", "r'\\/'", "r'\\/\\/'", "r'\\('", 'FORWARD_AXIS_NAME', "r'@'", 'REVERSE_AXIS_NAME', "r'\\.\\.'", "r'\\$'", "r'\\.'", 'FUNCNAME', 'NUMBER', 'DQUOTE', 'SQUOTE', "r'processing-instruction\\s*\\('", "r'comment\\s*\\('", "r'text\\s*\\('", "r'node\\s*\\('", "r'\\*'", 'NCNAME') if _token_ == "r'\\-'": self._scan("r'\\-'") ValueExpr = self.ValueExpr() @@ -135,11 +135,11 @@ class XPath(Parser): return PathExpr def PathExpr(self): - _token_ = self._peek("r'\\/'", "r'\\/\\/'", "r'\\('", 'FORWARD_AXIS_NAME', "r'@'", 'REVERSE_AXIS_NAME', "r'\\.\\.'", "r'\\$'", "r'\\.'", 'FUNCNAME', 'NUMBER', 'DQUOTE', 'SQUOTE', "r'processing-instruction'", "r'comment'", "r'text'", "r'node'", "r'\\*'", 'NCNAME') + _token_ = self._peek("r'\\/'", "r'\\/\\/'", "r'\\('", 'FORWARD_AXIS_NAME', "r'@'", 'REVERSE_AXIS_NAME', "r'\\.\\.'", "r'\\$'", "r'\\.'", 'FUNCNAME', 'NUMBER', 'DQUOTE', 'SQUOTE', "r'processing-instruction\\s*\\('", "r'comment\\s*\\('", "r'text\\s*\\('", "r'node\\s*\\('", "r'\\*'", 'NCNAME') if _token_ == "r'\\/'": self._scan("r'\\/'") path = None - if self._peek("r'\\('", 'FORWARD_AXIS_NAME', "r'@'", 'REVERSE_AXIS_NAME', "r'\\.\\.'", "r'\\$'", "r'\\.'", 'FUNCNAME', 'NUMBER', 'DQUOTE', 'SQUOTE', "r'processing-instruction'", "r'comment'", "r'text'", "r'node'", "r'\\*'", 'NCNAME', "'\\|'", 'MUL_COMP', 'ADD_COMP', 'REL_COMP', 'EQ_COMP', "r'and'", "r'or'", 'END', "r'\\]'", "r'\\)'", "r'\\,'") not in ["'\\|'", 'MUL_COMP', 'ADD_COMP', 'REL_COMP', 'EQ_COMP', "r'and'", "r'or'", 'END', "r'\\]'", "r'\\)'", "r'\\,'"]: + if self._peek("r'\\('", 'FORWARD_AXIS_NAME', "r'@'", 'REVERSE_AXIS_NAME', "r'\\.\\.'", "r'\\$'", "r'\\.'", 'FUNCNAME', 'NUMBER', 'DQUOTE', 'SQUOTE', "r'processing-instruction\\s*\\('", "r'comment\\s*\\('", "r'text\\s*\\('", "r'node\\s*\\('", "r'\\*'", 'NCNAME', "'\\|'", 'MUL_COMP', 'ADD_COMP', 'REL_COMP', 'EQ_COMP', "r'and'", "r'or'", 'END', "r'\\]'", "r'\\)'", "r'\\,'") not in ["'\\|'", 'MUL_COMP', 'ADD_COMP', 'REL_COMP', 'EQ_COMP', "r'and'", "r'or'", 'END', "r'\\]'", "r'\\)'", "r'\\,'"]: RelativePathExpr = self.RelativePathExpr() path = RelativePathExpr return X.AbsolutePathExpr(path) @@ -168,7 +168,7 @@ class XPath(Parser): return X.PathExpr(steps) def StepExpr(self): - _token_ = self._peek("r'\\('", 'FORWARD_AXIS_NAME', "r'@'", 'REVERSE_AXIS_NAME', "r'\\.\\.'", "r'\\$'", "r'\\.'", 'FUNCNAME', 'NUMBER', 'DQUOTE', 'SQUOTE', "r'processing-instruction'", "r'comment'", "r'text'", "r'node'", "r'\\*'", 'NCNAME') + _token_ = self._peek("r'\\('", 'FORWARD_AXIS_NAME', "r'@'", 'REVERSE_AXIS_NAME', "r'\\.\\.'", "r'\\$'", "r'\\.'", 'FUNCNAME', 'NUMBER', 'DQUOTE', 'SQUOTE', "r'processing-instruction\\s*\\('", "r'comment\\s*\\('", "r'text\\s*\\('", "r'node\\s*\\('", "r'\\*'", 'NCNAME') if _token_ not in ["r'\\('", "r'\\$'", "r'\\.'", 'FUNCNAME', 'NUMBER', 'DQUOTE', 'SQUOTE']: AxisStep = self.AxisStep() return AxisStep @@ -177,7 +177,7 @@ class XPath(Parser): return FilterExpr def AxisStep(self): - _token_ = self._peek('FORWARD_AXIS_NAME', "r'@'", 'REVERSE_AXIS_NAME', "r'\\.\\.'", "r'processing-instruction'", "r'comment'", "r'text'", "r'node'", "r'\\*'", 'NCNAME') + _token_ = self._peek('FORWARD_AXIS_NAME', "r'@'", 'REVERSE_AXIS_NAME', "r'\\.\\.'", "r'processing-instruction\\s*\\('", "r'comment\\s*\\('", "r'text\\s*\\('", "r'node\\s*\\('", "r'\\*'", 'NCNAME') if _token_ not in ['REVERSE_AXIS_NAME', "r'\\.\\.'"]: ForwardStep = self.ForwardStep() step = ForwardStep @@ -191,7 +191,7 @@ class XPath(Parser): return expr def ForwardStep(self): - _token_ = self._peek('FORWARD_AXIS_NAME', "r'@'", "r'processing-instruction'", "r'comment'", "r'text'", "r'node'", "r'\\*'", 'NCNAME') + _token_ = self._peek('FORWARD_AXIS_NAME', "r'@'", "r'processing-instruction\\s*\\('", "r'comment\\s*\\('", "r'text\\s*\\('", "r'node\\s*\\('", "r'\\*'", 'NCNAME') if _token_ == 'FORWARD_AXIS_NAME': ForwardAxis = self.ForwardAxis() NodeTest = self.NodeTest() @@ -207,7 +207,7 @@ class XPath(Parser): def AbbrevForwardStep(self): axis = 'child' - if self._peek("r'@'", "r'processing-instruction'", "r'comment'", "r'text'", "r'node'", "r'\\*'", 'NCNAME') == "r'@'": + if self._peek("r'@'", "r'processing-instruction\\s*\\('", "r'comment\\s*\\('", "r'text\\s*\\('", "r'node\\s*\\('", "r'\\*'", 'NCNAME') == "r'@'": self._scan("r'@'") axis = 'attribute' NodeTest = self.NodeTest() @@ -233,7 +233,7 @@ class XPath(Parser): return ['parent', None] def NodeTest(self): - _token_ = self._peek("r'processing-instruction'", "r'comment'", "r'text'", "r'node'", "r'\\*'", 'NCNAME') + _token_ = self._peek("r'processing-instruction\\s*\\('", "r'comment\\s*\\('", "r'text\\s*\\('", "r'node\\s*\\('", "r'\\*'", 'NCNAME') if _token_ not in ["r'\\*'", 'NCNAME']: KindTest = self.KindTest() return KindTest @@ -315,7 +315,7 @@ class XPath(Parser): FUNCNAME = self._scan('FUNCNAME') self._scan("r'\\('") args = [] - if self._peek("r'\\,'", "r'\\)'", "r'\\-'", "r'\\/'", "r'\\/\\/'", "r'\\('", 'FORWARD_AXIS_NAME', "r'@'", 'REVERSE_AXIS_NAME', "r'\\.\\.'", "r'\\$'", "r'\\.'", 'FUNCNAME', 'NUMBER', 'DQUOTE', 'SQUOTE', "r'processing-instruction'", "r'comment'", "r'text'", "r'node'", "r'\\*'", 'NCNAME') not in ["r'\\,'", "r'\\)'"]: + if self._peek("r'\\,'", "r'\\)'", "r'\\-'", "r'\\/'", "r'\\/\\/'", "r'\\('", 'FORWARD_AXIS_NAME', "r'@'", 'REVERSE_AXIS_NAME', "r'\\.\\.'", "r'\\$'", "r'\\.'", 'FUNCNAME', 'NUMBER', 'DQUOTE', 'SQUOTE', "r'processing-instruction\\s*\\('", "r'comment\\s*\\('", "r'text\\s*\\('", "r'node\\s*\\('", "r'\\*'", 'NCNAME') not in ["r'\\,'", "r'\\)'"]: Expr = self.Expr() args.append(Expr) while self._peek("r'\\,'", "r'\\)'") == "r'\\,'": @@ -326,24 +326,23 @@ class XPath(Parser): return X.Function(FUNCNAME, args) def KindTest(self): - _token_ = self._peek("r'processing-instruction'", "r'comment'", "r'text'", "r'node'") - if _token_ == "r'processing-instruction'": + _token_ = self._peek("r'processing-instruction\\s*\\('", "r'comment\\s*\\('", "r'text\\s*\\('", "r'node\\s*\\('") + if _token_ == "r'processing-instruction\\s*\\('": PITest = self.PITest() return PITest - elif _token_ == "r'comment'": + elif _token_ == "r'comment\\s*\\('": CommentTest = self.CommentTest() return CommentTest - elif _token_ == "r'text'": + elif _token_ == "r'text\\s*\\('": TextTest = self.TextTest() return TextTest - else:# == "r'node'" + else:# == "r'node\\s*\\('" AnyKindTest = self.AnyKindTest() return AnyKindTest def PITest(self): - self._scan("r'processing-instruction'") + self._scan("r'processing-instruction\\s*\\('") name = None - self._scan("r'\\('") if self._peek('NCNAME', "r'\\)'", 'DQUOTE', 'SQUOTE') != "r'\\)'": _token_ = self._peek('NCNAME', 'DQUOTE', 'SQUOTE') if _token_ == 'NCNAME': @@ -356,20 +355,17 @@ class XPath(Parser): return X.PITest(name) def CommentTest(self): - self._scan("r'comment'") - self._scan("r'\\('") + self._scan("r'comment\\s*\\('") self._scan("r'\\)'") return X.CommentTest() def TextTest(self): - self._scan("r'text'") - self._scan("r'\\('") + self._scan("r'text\\s*\\('") self._scan("r'\\)'") return X.TextTest() def AnyKindTest(self): - self._scan("r'node'") - self._scan("r'\\('") + self._scan("r'node\\s*\\('") self._scan("r'\\)'") return X.AnyKindTest() diff --git a/lib/pyulib/src/ulib/ext/xpath/yappsrt.py b/lib/pyulib/src/ulib/ext/xpath/yappsrt.py index 6dff734..c8d8933 100644 --- a/lib/pyulib/src/ulib/ext/xpath/yappsrt.py +++ b/lib/pyulib/src/ulib/ext/xpath/yappsrt.py @@ -51,14 +51,14 @@ class Scanner: raise NotImplementedError("Unimplemented: restriction set changed") return self.tokens[i] raise NoMoreTokens() - + def __repr__(self): """Print the last 10 tokens that have been scanned in""" output = '' for t in self.tokens[-10:]: output = '%s\n (@%s) %s = %s' % (output,t[0],t[2],repr(t[3])) return output - + def scan(self, restrict): """Should scan another token and add it to the list, self.tokens, and add the restriction to self.restrictions""" @@ -77,7 +77,7 @@ class Scanner: # We got a match that's better than the previous one best_pat = p best_match = len(m.group(0)) - + # If we didn't find anything, raise an error if best_pat == '(error)' and best_match < 0: msg = "Bad Token" @@ -105,13 +105,13 @@ class Parser: def __init__(self, scanner): self._scanner = scanner self._pos = 0 - + def _peek(self, *types): """Returns the token type for lookahead; if there are any args then the list of args is the set of token types to allow""" tok = self._scanner.token(self._pos, types) return tok[2] - + def _scan(self, type): """Returns the matched text, and moves to the next token""" tok = self._scanner.token(self._pos, [type]) diff --git a/lib/uinst/conf b/lib/uinst/conf index b0a5061..6d11c96 100644 --- a/lib/uinst/conf +++ b/lib/uinst/conf @@ -14,6 +14,10 @@ rm -f .nutools-devel # supprimer fichiers de développement rm -rf lib/pyulib/{build,devel,migrate,test} +# compiler les modules python de support +estep "Compilation des modules python" +python -m compileall lib/ulib/support/python + # liens pour les scripts python for i in plver plbck uencdetect urandomize umail uxpath wofixsql; do ln -s lib/pywrapper "$i" diff --git a/lib/uinst/rootconf b/lib/uinst/rootconf index 76fd5a1..f58a8aa 100644 --- a/lib/uinst/rootconf +++ b/lib/uinst/rootconf @@ -66,13 +66,17 @@ if [ -n "$rm_utools" ]; then fi [ -n "$kvm_service" ] && -etitle "Installation de /etc/init.d/kvm-stop-all" \ +etitle "Installation du service kvm-stop-all" \ "$scriptdir/../init.d/install-kvm-stop-all" [ -n "$openvz_service" ] && -etitle "Installation de /etc/init.d/openvz-fix-etchosts" \ +etitle "Installation du service openvz-fix-etchosts" \ "$scriptdir/../init.d/install-openvz-fix-etchosts" +[ -n "$ksus_service" ] && +etitle "Installation du service kill-ssh-user-sessions" \ + "$scriptdir/../init.d/install-kill-ssh-user-sessions" + etitle "Installation des répertoires pour uscrontab" if [ -d /var/uscrontab -a ! -d /var/local/uscrontab ]; then eimportant "Migration du répertoire /var/uscrontab vers /var/local/uscrontab" diff --git a/lib/ulib/.ulibver b/lib/ulib/.ulibver index a56eaf2..aa19da0 100644 --- a/lib/ulib/.ulibver +++ b/lib/ulib/.ulibver @@ -1 +1 @@ -013003000 +014000000 diff --git a/lib/ulib/apache.tools b/lib/ulib/apache.tools index a5b12d9..eaa8d8e 100644 --- a/lib/ulib/apache.tools +++ b/lib/ulib/apache.tools @@ -5,28 +5,101 @@ ##@require sysinfos ##@require apache uprovide apache.tools -urequire base sysinfos apache +urequire base sysinfos template apache -function __apache_resolvcert() { +function __apache_rc_destdir() { + [ -z "$3" ] && set_var "${1:-certsdir}" "$(get_APACHESSLCERTSDIR_prefix)" + [ -z "$4" ] && set_var "${2:-keysdir}" "$(get_APACHESSLKEYSDIR_prefix)" +} + +function __apache_rc_loadconf() { [ -n "$__rc_dir" ] || __rc_dir="$(dirname "$__rc_conf")" eval "$( source "$__rc_conf" - set_var_cmd __rc_cert "$cert" - set_var_cmd __rc_key "$key" - set_var_cmd __rc_ca "$ca" + echo_setv __rc_cert "$cert" + echo_setv __rc_key "$key" + echo_setv __rc_ca "$ca" )" [ -n "$__rc_cert" ] && __rc_cert="$(abspath "$__rc_cert" "$__rc_dir")" [ -n "$__rc_key" ] && __rc_key="$(abspath "$__rc_key" "$__rc_dir")" [ -n "$__rc_ca" ] && __rc_ca="$(abspath "$__rc_ca" "$__rc_dir")" } -function __apache_checkvars() { +function __apache_rc_resolveprefix() { + local __prefix __cert __key + local __certsdir="$1" __keysdir="$2" + __apache_rc_destdir __certsdir __keysdir "$__certsdir" "$__keysdir" + + if [ -z "$__rc_cert" ]; then + # si pas de certificat, alors générer un préfixe pour chercher les + # fichiers + setx __prefix=basename "$__rc_conf" + __prefix="${__prefix%certs.conf}" + elif [ ! -f "$__rc_cert" ]; then + # si le fichier source n'existe pas, vérifier s'il existe dans la + # destination + setx __cert=basename "$__rc_cert" + setx __key=basename "$__rc_key" + if [ -f "$__certsdir/$__cert" -a -f "$__keysdir/$__key" ]; then + # parfait, les fichiers existent déjà à l'endroit prévu + : + else + # construire un préfixe avec le nom du fichier + __prefix="$__cert" + if [ "${__prefix%.pem}" != "$__prefix" ]; then + __prefix="${__prefix%.pem}" + elif [ "${__prefix%.crt}" != "$__prefix" ]; then + __prefix="${__prefix%.crt}" + fi + if [ -n "${__prefix//[0-9]/}" ]; then + # enlever le suffixe numérique, uniquement si le nom ne contient + # pas que des chiffres + while [ -n "$__prefix" -a "${__prefix%[0-9]}" != "$__prefix" ]; do + __prefix="${__prefix%[0-9]}" + done + fi + fi + fi + + if [ -n "$__prefix" ]; then + local -a __certs + array_from_lines __certs "$(list_files "$__certsdir" "$__prefix*" | LANG=C sort -r)" + if [ ${#__certs[*]} -gt 0 ]; then + __cert="${__certs[0]}" + __key="${__cert%.*}.key" + __rc_cert="$__rc_dir/$__cert" + __rc_key="$__rc_dir/$__key" + fi + fi +} + +function __apache_rc_checkfiles() { + local destdir="$1"; shift + local file + for file in "$@"; do + [ -n "$file" ] || continue + [ -f "$file" ] && continue + if [ -n "$destdir" -a -f "$destdir/$(basename "$file")" ]; then + [ -z "$__apache_rc_quiet" ] && ewarn "$file: fichier introuvable +Le fichier existant $destdir/$(basename "$file") sera utilisé" + continue + fi + eerror "$file: fichier introuvable" + return 1 + done + return 0 +} + +function __apache_rc_checkvars() { + local __certsdir="$1" __keysdir="$2" + __apache_rc_destdir __certsdir __keysdir "$__certsdir" "$__keysdir" + if [ -n "$__rc_cert" -a -z "$__rc_key" ]; then local __rc_name __rc_ext splitname "$__rc_cert" __rc_name __rc_ext if [ "$__rc_ext" == "crt" -o "$__rc_ext" == "pem" ]; then __rc_key="$__rc_name.key" - enote "La clé privée n'a pas été spécifiée. La valeur $(ppath "$__rc_key") sera utilisée" + [ -z "$__apache_rc_quiet" ] && enote "La clé privée n'a pas été spécifiée. La valeur $(ppath "$__rc_key") sera utilisée" else eerror "Impossible de trouver la clé privée correspondant au certificat $(ppath "$__rc_cert")" return 1 @@ -36,30 +109,31 @@ function __apache_checkvars() { eerror "Vous devez spécifier le certificat à installer" return 1 elif [ -z "$__rc_cert" ]; then - eattention "Seul le certificat autorité a été spécifié." + [ -z "$__apache_rc_quiet" ] && eattention "Seul le certificat autorité a été spécifié." elif [ -z "$__rc_ca" ]; then - ewarn "Aucun certificat autorité n'a pas été spécifié. Cela ne peut marcher que si le certificat est autosigné" + [ -z "$__apache_rc_quiet" ] && ewarn "Aucun certificat autorité n'a pas été spécifié. Cela ne peut marcher que si le certificat est autosigné" fi - local i - for i in "$__rc_cert" "$__rc_key" "$__rc_ca"; do - [ -n "$i" ] || continue - [ -f "$i" ] || { - eerror "$i: Fichier introuvable" - return 1 - } - done + __apache_rc_checkfiles "$__certsdir" "$__rc_ca" "$__rc_cert" || return 1 + __apache_rc_checkfiles "$__keysdir" "$__rc_key" || return 1 + return 0 } function apache_resolvecert() { # Calculer l'emplacement des certificats correspondant aux arguments $1 et # $2 (qui correspondent aux options --conf et --dir de apache_addcert()), # puis initialiser les variables $3(=cert), $4(=key) et $5(=ca) + # Si ces valeurs sont déjà calculées, on peut fournir $6=certsdir et + # $7=keysdir local __rc_conf="$1" __rc_dir="$2" local __rc_cert __rc_key __rc_ca - __apache_resolvcert - __apache_checkvars || return 1 + local __certsdir="$6" __keysdir="$7" + __apache_rc_destdir __certsdir __keysdir "$__certsdir" "$__keysdir" + + __apache_rc_loadconf + __apache_rc_resolveprefix "$__certsdir" "$__keysdir" + __apache_rc_checkvars "$__certsdir" "$__keysdir" || return 1 set_var "${3:-cert}" "$__rc_cert" set_var "${4:-key}" "$__rc_key" set_var "${5:-ca}" "$__rc_ca" @@ -93,29 +167,33 @@ OPTIONS eval "$(utools_local)" local action=install - local certsconf certsdir cert key ca + local certsconf certssrcdir cert key ca local __out_cert __out_key __out_ca parse_opts "${PRETTYOPTS[@]}" \ --help '$exit_with __apache_addcert_display_help' \ -C:,--conf: certsconf= \ - -d:,--dir: certsdir= \ + -d:,--dir: certssrcdir= \ --out-cert: '$set@ __out_cert; action=dump' \ --out-key: '$set@ __out_key; action=dump' \ --out-ca: '$set@ __out_ca; action=dump' \ @ args -- "$@" && set -- "${args[@]}" || die "$args" + local certsdir keysdir + __apache_rc_destdir certsdir keysdir + local __rc_conf __rc_dir local __rc_cert __rc_key __rc_ca if [ -n "$certsconf" ]; then __rc_conf="$certsconf" - __rc_dir="$certsdir" - __apache_resolvconf - __apache_checkvars || return 1 + __rc_dir="$certssrcdir" + __apache_rc_loadconf + __apache_rc_resolveprefix "$certsdir" "$keysdir" + __apache_rc_checkvars "$certsdir" "$keysdir" || return 1 else __rc_cert="$1" __rc_key="$2" __rc_ca="$3" - __apache_checkvars || return 1 + __apache_rc_checkvars "$certsdir" "$keysdir" || return 1 fi cert="$__rc_cert" key="$__rc_key" @@ -129,9 +207,7 @@ OPTIONS ask_yesno "Voulez-vous continuer?" O || return 1 urequire install - etitle "Installation des certificats" - certsdir="$(get_APACHESSLCERTSDIR_prefix)" - keysdir="$(get_APACHESSLKEYSDIR_prefix)" + etitled "Copie des fichiers" if [ ! -d "$certsdir" ]; then mkdir -p "$certsdir" || return 1 chmod 755 "$certsdir" || return 1 @@ -140,38 +216,36 @@ OPTIONS mkdir -p "$keysdir" || return 1 chmod 710 "$keysdir" || return 1 fi - if [ -n "$cert" ]; then - copy_replace "$cert" "$certsdir" || return 1 - chmod 644 "$certsdir/$(basename "$cert")" || return 1 - copy_replace "$key" "$keysdir" || return 1 - chmod 640 "$keysdir/$(basename "$key")" || return 1 + if [ -n "$cert" -a -f "$cert" ]; then + if copy_update "$cert" "$certsdir"; then + chmod 644 "$certsdir/$(basename "$cert")" || return 1 + fi + if copy_update "$key" "$keysdir"; then + chmod 640 "$keysdir/$(basename "$key")" || return 1 + fi fi - if [ -n "$ca" ]; then - copy_replace "$ca" "$certsdir" || return 1 - chmod 644 "$certsdir/$(basename "$ca")" || return 1 + if [ -n "$ca" -a -f "$ca" ]; then + if copy_update "$ca" "$certsdir"; then + chmod 644 "$certsdir/$(basename "$ca")" || return 1 + fi fi eend return 0 } -__APACHE_AUTOCONF_SUFFIXES=(d8 d) -__APACHE_AUTOCONF_SUFFIX_d8=(-d debian -v jessie+) -__APACHE_AUTOCONF_SUFFIX_d=(-d debian) -function __apache_autoconf_check_suffix() { - array_contains __APACHE_AUTOCONF_SUFFIXES "$1" || return 1 - local sysinfos="__APACHE_AUTOCONF_SUFFIX_${1}[@]" - check_sysinfos --vars sysname sysdist sysver bits "${!sysinfos}" -} -function __apache_autoconf_filter_suffix_files() { - grep -vF .. -} function __apache_autoconf_setup() { if ! check_sysinfos --vars sysname sysdist sysver bits -s linux64 linux32 linux -d debian; then - eerror "apache_autoconf n'est supporté que sur Debian linux" + eerror "$(get_sysinfos_desc): système non supporté. debian linux est requis" return 1 fi - urequire install + urequire debian install + if [ -z "$__apache_autoconf_no_require_apache" ]; then + pkg_check apache2 || { + eerror "apache2 non installé. impossible de continuer" + return 1 + } + fi compute_apache_prefixes return 0 } @@ -193,24 +267,8 @@ function __apache_autoconf_fillcopy() { # script sed $FILLSCRIPT. Le fichier temporaire $FILLTEMP est utilisé pour # le remplacement des valeurs. $3 contient le cas échéant des commandes sed # supplémentaires - # Si des fichiers suffixes existent, ne faire la copie que si un fichier - # approprié correspondant au système courant est trouvé local src="$1" dest="$2" sedscript="$3" perms="${4:-go+rX}" - # vérifier les fichiers suffixe - local suffix have_suffix found_suffix - for suffix in "${__APACHE_AUTOCONF_SUFFIXES[@]}"; do - if [ -f "$src..$suffix" ]; then - have_suffix=1 - if __apache_autoconf_check_suffix "$suffix"; then - found_suffix=1 - src="$src..$suffix" - break - fi - fi - done - [ -n "$have_suffix" -a -z "$found_suffix" ] && return 1 - # valeurs à remplacer dans le fichier local var found_var for var in "${FILLVARS[@]}"; do @@ -225,14 +283,16 @@ $sedscript" <"$src" >"$FILLTEMP" src="$FILLTEMP" fi - copy_update "$src" "$dest" "$perms" + copy_update "$src" "$dest" "$perms" && return + estepn "$(basename -- "$dest")" + return 1 } __APACHE_AUTOCONF_HELP="\ --confdir CONFDIR Spécifier l'emplacement des fichiers de configuration apache ainsi que des - fichiers 'confs.conf', 'modules.conf' et 'sites.conf'. Par défaut, prendre - le répertoire local DESTDIR. + fichiers 'syspkgs.conf', 'confs.conf', 'modules.conf' et 'sites.conf'. Par + défaut, prendre le répertoire local DESTDIR. --confsdir CONFSDIR Spécifier l'emplacement des fichiers des configuration. Par défaut, utiliser DESTDIR/confs si ce répertoire existe. @@ -264,7 +324,7 @@ function apache_autoconf() { local autoconfdir certsdir confdir confsdir oneconf modulesdir onemodule local sitesdir onesite cgibindir wwwdir certsconfdir rrdir onecms local sysname sysdist sysver bits - local destconfsdir a2xconf + local netconf destconfsdir a2xconf local restart=1 parse_opts "${PRETTYOPTS[@]}" \ --help '$exit_with __display_apache_autoconf_help' \ @@ -288,6 +348,7 @@ function apache_autoconf() { -7,--wheezy sysver=wheezy \ -8,--jessie sysver=jessie \ --bits: bits= \ + --network-config netconf=1 \ @ args -- "$@" && set -- "${args[@]}" || die "$args" if [ -n "$sysname" -o -n "$sysdist" -o -n "$sysver" ]; then @@ -298,13 +359,13 @@ function apache_autoconf() { sysver=("${MYSYSVER[@]}") bits="$MYBITS" fi - __apache_autoconf_setup || return 1 - if __apache_autoconf_check_suffix d8; then + __apache_autoconf_no_require_apache= __apache_autoconf_setup || return 1 + if check_sysinfos --vars sysname sysdist sysver bits -d debian -v jessie+; then confdefault=000-default.conf confdefaultssl=default-ssl.conf destconfsdir="$APACHECONFDIR/conf-available" a2xconf=1 - elif __apache_autoconf_check_suffix d; then + elif check_sysinfos --vars sysname sysdist sysver bits -d debian; then confdefault=default confdefaultssl=default-ssl destconfsdir="$APACHECONFDIR/conf.d" @@ -340,6 +401,19 @@ function apache_autoconf() { local -a FILLVARS; local FILLSCRIPT FILLTEMP __apache_autoconf_fillxxx "$@" + # Installation des packages système + if [ -f "$confdir/syspkgs.conf" ]; then + local -a syspkgs + local syspkg + array_from_lines syspkgs "$(<"$confdir/syspkgs.conf" filter_conf)" + if ! pkg_check "${syspkgs[@]}"; then + etitle "Installation de paquets système" + estep "${syspkgs[@]}" + pkg_install "${syspkgs[@]}" || return 1 + eend + fi + fi + # Copie des certificats local modified rehash conf if [ -d "$certsconfdir" ]; then @@ -350,17 +424,10 @@ function apache_autoconf() { array_addu FILLVARS ca etitle "Installation des certificats" + [ -n "$certsdir" -a ! -d "$certsdir" ] && ewarn "$certsdir: répertoire invalide" array_lsfiles certsconfs "$certsconfdir" "*.conf" for certsconf in "${certsconfs[@]}"; do - if [ -z "$certsdir" ]; then - eerror "CERTSDIR est requis si --certsconfdir est spécifié" - return 1 - elif [ ! -d "$certsdir" ]; then - eerror "$certsdir: répertoire invalide" - return 1 - fi - apache_resolvecert "$certsconf" "$certsdir" cert key ca || return 1 - apache_addcert -y "$cert" "$key" "$ca" + apache_addcert -y -C "$certsconf" -d "$certsdir" "$cert" "$key" "$ca" || return 1 modified=1 done array_lsfiles certspems "$certsconfdir" "*.crt" "*.pem" @@ -378,11 +445,9 @@ function apache_autoconf() { local -a confs local conf etitle "Installation des configurations" - array_from_lines confs "$(list_files "$confsdir" "*.conf" | __apache_autoconf_filter_suffix_files)" + array_from_lines confs "$(list_files "$confsdir" "*.conf")" for conf in "${confs[@]}"; do [ -z "$oneconf" -o "$conf" == "$oneconf" ] || continue - - estep "$conf" __apache_autoconf_fillcopy \ "$confsdir/$conf" \ "$destconfsdir/$conf" && modified=1 @@ -395,11 +460,9 @@ function apache_autoconf() { local -a confs local conf etitle "Installation des configurations des modules" - array_from_lines confs "$(list_files "$modulesdir" "*.conf" | __apache_autoconf_filter_suffix_files)" + array_from_lines confs "$(list_files "$modulesdir" "*.conf")" for conf in "${confs[@]}"; do [ -z "$onemodule" -o "$conf" == "$onemodule" ] || continue - - estep "$conf" __apache_autoconf_fillcopy \ "$modulesdir/$conf" \ "$APACHECONFDIR/mods-available/$conf" && modified=1 @@ -409,12 +472,12 @@ function apache_autoconf() { # Règles de réécriture if [ -d "$rrdir" -a -z "$onecms" ]; then + # legacy... remplacé par des fichiers de règles directement dans le répertoire de configuration local -a confs local conf etitle "Installation des règles de réécriture" array_from_lines confs "$(list_files "$rrdir" "RewriteRules*.conf")" for conf in "${confs[@]}"; do - estep "$conf" __apache_autoconf_fillcopy \ "$rrdir/$conf" \ "$APACHECONFDIR/$conf" && modified=1 @@ -426,19 +489,21 @@ function apache_autoconf() { local -a enablesites disablesites if [ -d "$sitesdir" -a \( -z "$onecms" -o -n "$onesite" \) ]; then local -a confs - local conf confname destconf certsconf + local conf confname destconf certsconf sedscript copied etitle "Installation des sites" - array_from_lines confs "$(list_files "$sitesdir" "*.conf" | __apache_autoconf_filter_suffix_files)" + array_from_lines confs "$(list_files "$sitesdir" "*.conf")" for confname in "${confs[@]}"; do conf="$sitesdir/$confname" [ -z "$onesite" -o "$confname" == "$onesite" ] || continue certsconf= if [ "${confname%.ssl.conf}" != "$confname" ]; then - if [ -d "$certsconfdir" ]; then - certsconf="${confname%.ssl.conf}-certs.conf" - else - ewarn "$conf: fichier ignoré parce que --certsconfdir n'a pas été spécifié" + if quietgrep -E '^[^#]*@@(cert|key|ca)@@' "$conf"; then + if [ -d "$certsconfdir" ]; then + certsconf="${confname%.ssl.conf}-certs.conf" + else + ewarn "$conf: fichier ignoré parce que --certsconfdir n'a pas été spécifié" + fi fi fi case "$confname" in @@ -447,27 +512,44 @@ function apache_autoconf() { *) destconf="$confname";; esac + copied= if [ -n "$certsconf" ]; then certsconf="$certsconfdir/$certsconf" if [ -f "$certsconf" ]; then - apache_resolvecert "$certsconf" "$certsdir" cert key ca || return 1 - __apache_autoconf_fillcopy \ - "$conf" \ - "$APACHEAVSITESDIR/$destconf" "\ + __apache_rc_quiet=1 apache_resolvecert "$certsconf" "$certsdir" cert key ca || return 1 + if [ -n "$cert" -a -n "$key" ]; then + sedscript="\ s#@@cert@@#$APACHESSLCERTSDIR/$(basename "$cert")#g -s#@@key@@#$APACHESSLKEYSDIR/$(basename "$key")#g -s#@@ca@@#$APACHESSLCERTSDIR/$(basename "$ca")#g -" +s#@@key@@#$APACHESSLKEYSDIR/$(basename "$key")#g" + if [ -n "$ca" ]; then + sedscript="$sedscript +s#@@ca@@#$APACHESSLCERTSDIR/$(basename "$ca")#g" + else + sedscript="$sedscript +/@@ca@@/s/^/#/g" + fi + __apache_autoconf_fillcopy \ + "$conf" \ + "$APACHEAVSITESDIR/$destconf" "$sedscript" + copied=1 + else + eerror "$(ppath "$certsconf"): définition des certificats introuvable +Le fichier de configuration $confname a été ignoré" + fi else - eerror "$(ppath "$certsconf"): fichier introuvable. Il a été ignoré" + eerror "$(ppath "$certsconf"): fichier introuvable +Le fichier de configuration $confname a été ignoré" fi else __apache_autoconf_fillcopy \ "$conf" \ "$APACHEAVSITESDIR/$destconf" + copied=1 + fi + if [ -n "$copied" ]; then + enablesites=("${enablesites[@]}" "$destconf") + modified=1 fi - enablesites=("${enablesites[@]}" "$destconf") - modified=1 done eend fi @@ -476,16 +558,28 @@ s#@@ca@@#$APACHESSLCERTSDIR/$(basename "$ca")#g if [ -d "$confdir" -a -z "$onecms" ]; then local -a confs local conf + etitle "Configuration de base" - array_add ignores confs.conf modules.conf sites.conf - array_from_lines confs "$(list_files "$confdir" | __apache_autoconf_filter_suffix_files)" + array_add ignores syspkgs.conf confs.conf modules.conf sites.conf network.conf + array_from_lines confs "$(list_files "$confdir")" for conf in "${confs[@]}"; do array_contains ignores "$conf" && continue - estep "$conf" __apache_autoconf_fillcopy \ "$confdir/$conf" \ "$APACHECONFDIR/$conf" && modified=1 done + + array_from_lines confs "$(list_files "$confdir" "*rewrite*.rules")" + if [ ${#confs[*]} -gt 0 ]; then + etitle "Règles de réécriture" + for conf in "${confs[@]}"; do + [ -f "$APACHECONFDIR/$conf" ] || continue + estep "$conf" + legacy_mkRewriteRules "$APACHECONFDIR/$conf" && modified=1 + done + eend + fi + if [ -f "$confdir/confs.conf" -a -n "$a2xconf" ]; then local -a confs local conf @@ -562,9 +656,30 @@ s#@@ca@@#$APACHESSLCERTSDIR/$(basename "$ca")#g fi # Contenu web - if [ -d "$wwwdir" -a -z "$onecms" ]; then - etitle "Installation des fichiers du serveur web" - cpdirnovcs "$wwwdir" "$HTDOCSDIR" + if [ -z "$onecms" ]; then + etitled "Installation des fichiers du serveur web" + if is_defined HTDMAPPINGS; then + local htdmapping src dest + for htdmapping in "${HTDMAPPINGS[@]}"; do + splitpair "$htdmapping" dest src + [ -n "$dest" ] || dest=html + case "$dest" in + html) [ -n "$src" ] || src=www;; + *) [ -n "$src" ] || src="$dest";; + esac + withpath "$src" || src="$confdir/$src" + withpath "$dest" || dest="$HTDOCSBASE/$dest" + estep "$src --> $dest" + cpdirnovcs "$src" "$dest" + # par défaut, le propriétaire est root. est-ce nécessaire? + #chown -R www-data: "$dest" + done + elif [ -d "$wwwdir" ]; then + estep "$wwwdir --> $HTDOCSDIR" + cpdirnovcs "$wwwdir" "$HTDOCSDIR" + # par défaut, le propriétaire est root. est-ce nécessaire? + #chown -R www-data: "$HTDOCSDIR" + fi eend fi @@ -585,6 +700,30 @@ s#@@ca@@#$APACHESSLCERTSDIR/$(basename "$ca")#g eend fi + # Mettre à jour la configuration réseau + if [ -z "$onecms" -a -n "$netconf" -a -f "$confdir/network.conf" ]; then + local -a ips brs; local host etc_networks + eval "$( + source "$confdir/network.conf" + set_array_cmd ips + set_array_cmd brs + echo_setv host "$host" + echo_setv etc_networks "$etc_networks" + )" + etitled "Vérification de la configuration du réseau" + if [ -n "$FULLCONF" ]; then + if [ ${#ips[*]} -gt 0 -o ${#brs[*]} -gt 0 -o -n "$hosts" ]; then + network_config "$host" ips brs && modified=1 + fi + [ -n "$etc_networks" ] && network_update_etc_networks "$etc_networks" + else + if [ ${#ips[*]} -gt 0 ]; then + network_config_partial ips && modified=1 + fi + fi + eend + fi + if [ -n "$modified" ]; then [ -n "$rehash" ] && elinedots "Hashage des certificats" c_rehash if [ -n "$restart" ]; then @@ -602,7 +741,7 @@ function apache_autoconf_localhosts() { --one-site: onesite= \ @ args -- "$@" && set -- "${args[@]}" || die "$args" - __apache_autoconf_setup || return 1 + __apache_autoconf_no_require_apache=1 __apache_autoconf_setup || return 1 # Configuration autoconfdir="$1"; shift @@ -709,27 +848,48 @@ function __template_updatef_dhost() { [ -n "$ips" ] || __template_set_var ips "" } -# toujours placer une variable dépendante AVANT la variable maitre +# syntaxe: var[:depvars,...][=desc] APACHECONFIG_TEMPLATE_STATIC_VARS=( - hostname aliases host - certsdir caname + host:hostname,aliases="hôte pour lequel ce template a été créé. +# les variables hostname et aliases sont automatiquement générées. +# utiliser @@dhost@@ pour déployer dynamiquement avec le nom d'hôte courant." + certsdir="répertoire par défaut contenant les certificats à déployer" + caname="nom de l'autorité par défaut" ) APACHECONFIG_TEMPLATE_DYNAMIC_VARS=( - ips_namevirtualhosts ips_listens ips - dhostname daliases dhost - admin configdir + ips:ips_namevirtualhosts,ips_listens="liste d'adresses de la forme ip[:port], séparées par un espace. +# ces adresses sont celles sur lesquelles apache doit écouter. ce paramètre n'a +# de sens que sur squeeze. en effet, la configuration par défaut sur jessie rend +# ce paramétrage inutile." + dhost:dhostname,daliases="hôte pour lequel les fichiers doivent être déployés. +# les variables dhostname et daliases sont automatiquement générées. +# cette variable n'a besoin d'être modifiée que si host=@@dhost@@ ci-dessous" + admin="mail de l'administrateur du serveur" + configdir="répertoire dans lequel le template a été généré" +) +APACHECONFIG_TEMPLATE_NOWRITE_VARS=(configdir) +APACHECONFIG_TEMPLATE_USER_VARS=( + FULLCONF="Est-on en mode configuration complète?" + HTDMAPPINGS="Mapping des répertoires destination dans /var/www vers le répertoire local, e.g. html:www" ) -APACHECONFIG_TEMPLATE_NOWRITE_VARS=(hostname aliases dhostname daliases configdir) +function __apacheconfig_initsrcdirs() { + if check_sysinfos "$@" -d debian -v jessie+; then + TEMPLATECTL_SRCDIRS=(apacheconfig.d8) + else + TEMPLATECTL_SRCDIRS=(apacheconfig) + fi +} function apacheconfig_initvars() { DEFAULT_ADMIN=supervision-gdrsi@listes.univ-reunion.fr DEFAULT_CERTSDIR=1507-renater DEFAULT_CANAME=1507-DigiCertCA.crt set_defaults apacheconfig - TEMPLATE_STATIC_VARS=("${APACHECONFIG_TEMPLATE_STATIC_VARS[@]}") - TEMPLATE_DYNAMIC_VARS=("${APACHECONFIG_TEMPLATE_DYNAMIC_VARS[@]}") TEMPLATE_NOWRITE_VARS=("${APACHECONFIG_TEMPLATE_NOWRITE_VARS[@]}") + template_build_vars TEMPLATE_STATIC_VARS TEMPLATE_NOWRITE_VARS "${APACHECONFIG_TEMPLATE_STATIC_VARS[@]}" + template_build_vars TEMPLATE_DYNAMIC_VARS TEMPLATE_NOWRITE_VARS "${APACHECONFIG_TEMPLATE_DYNAMIC_VARS[@]}" + template_build_vars TEMPLATE_USER_VARS "" "${APACHECONFIG_TEMPLATE_USER_VARS[@]}" __TEMPLATE_DEFAULTF_host=__template_defaultf_host __TEMPLATE_UPDATEF_host=__template_updatef_host __TEMPLATE_DEFAULTF_ips=__template_defaultf_ips @@ -738,7 +898,7 @@ function apacheconfig_initvars() { __TEMPLATE_UPDATEF_dhost=__template_updatef_dhost TEMPLATECTL_NAME=apacheconfig - TEMPLATECTL_SRCDIRS=(apacheconfig) + __apacheconfig_initsrcdirs TEMPLATECTL_CONFIG="$TEMPLATECTL_NAME" TEMPLATECTL_DEFAULTS=( admin="$DEFAULT_ADMIN" @@ -749,15 +909,19 @@ function apacheconfig_initvars() { } function apacheconfig_loadconf() { - local config modified - local destdir="$1" + local config modified autocreate + local destdir="$1" nohideconfig="$2" + + # valeurs par défaut + is_defined HTDMAPPINGS || HTDMAPPINGS=(html:www) __template_set_destdir destdir autocreate "$TEMPLATECTL_NAME" || return 1 - setx config=templatectl_config "$destdir" + setx config=templatectl_config "$destdir" ${nohideconfig:+nohideconfig} modified= templatectl_loadvars "$config" && modified=1 - upvar config "$config" + upvars config "$config" modified "$modified" \ + destdir "$destdir" autocreate "$autocreate" } function apacheconfig_sysinfos() { @@ -776,7 +940,8 @@ function apacheconfig_sysinfos() { __template_set_var sysname "$sysname" __template_set_var sysdist "$sysdist" __template_set_var sysver "$sysver" - #check_sysinfos --vars sysname sysdist sysver bits "${templatectl_suffix[@]} + # mettre à jour la source en fonction du système cible + __apacheconfig_initsrcdirs --vars sysname sysdist sysver bits upvars sysname "$sysname" sysdist "$sysdist" sysver "$sysver" bits "$bits" \ custom_sysinfos "$custom_sysinfos" @@ -786,6 +951,7 @@ function apacheconfig_deploy() { local destdir="$1" certsdir="$2"; shift; shift local config="$1" oneconf="$2" onemodule="$3"; onesite="$4"; shift; shift; shift; shift local custom_sysinfos="$1" sysname="$2" sysdist="$3" sysver="$4" bits="$5"; shift; shift; shift; shift; shift + local netconf="$1"; shift local -a args args=(--ignore "$(basename -- "$config")") @@ -793,6 +959,7 @@ function apacheconfig_deploy() { [ -n "$onemodule" ] && array_add args --one-module "$(basename -- "$onemodule")" [ -n "$onesite" ] && array_add args --one-site "$(basename -- "$onesite")" [ -n "$custom_sysinfos" ] && array_add args --sysname "$sysname" --sysdist "$sysdist" --sysver "$sysver" --bits "$bits" + [ -n "$netconf" ] && array_add args --network-config array_add args "$destdir" "$certsdir" for __name in "${TEMPLATE_DYNAMIC_VARS[@]}"; do array_add args "$__name=${!__name}" @@ -800,6 +967,21 @@ function apacheconfig_deploy() { apache_autoconf "${args[@]}" "$@" } +function apacheconfig_qs() { + # fonction pour simplifier l'utilisation de apacheconfig_deploy pour un + # répertoire spécifique + # $1=destdir $2=certsdir $3=netconf + local destdir="$1" certsdir="$2" netconf="$3" + local config modified destdir autocreate + apacheconfig_initvars + apacheconfig_loadconf "$1" + apacheconfig_deploy \ + "$destdir" "$2" \ + "$config" "" "" "" \ + "" "" "" "" "" \ + "$3" +} + function apacheconfig_localhosts() { local destdir="$1" certsdir="$2"; shift; shift local onesite="$1"; shift @@ -812,3 +994,241 @@ function apacheconfig_localhosts() { done apache_autoconf_localhosts "${args[@]}" "$@" } + +function __mrr_joinurl() { + # joindre chaque élément de $1..@ par /, en évitant les slashes en double + local i url + for i in "$@"; do + [ -n "$i" ] || continue + if [ -n "$url" ]; then + url="${url%/}/${i#/}" + else + url="$i" + fi + done + [ -n "$url" ] && echo "$url" +} +function __mrr_has_proxy() { + # vérifier que les options $1 contiennent 'P' + local -a options + array_split options "$1" "," + array_contains options P +} +function legacy_mkRewriteRules() { + # $1=infile, $2=thishost, $3=outfile, $4=htmlfile, $5=proxy_enabled? + local infile="$1" thishost="$2" outfile="$3" htmlfile="$4" proxy_enabled="$5" + local -a rules; local rule prefix index done current + local tmpinfile tmpoutfile + local src dest host suffix options prot proxy_acls usrc trail noslash proxy_url proxy_use + + if [ -z "$infile" -o "$infile" == - ]; then + infile=/dev/stdin + elif [ -z "$outfile" ]; then + local outdir="$(dirname -- "$infile")" + outfile="$(basename -- "$infile")" + if [[ "$outfile" == *rewrite*.rules ]]; then + outfile="${outfile/rewrite/RewriteRules}" + outfile="${outfile/.rules/.conf}" + else + outfile="$outfile-RewriteRules.conf" + fi + outfile="$outdir/$outfile" + fi + [ -n "$outfile" -a "$outfile" != - ] || outfile=/dev/stdout + + if [ -z "$thishost" -o -z "$proxy_enabled" ]; then + # le cas échéant, lire les paramètres manquant depuis le fichier + if [ "$infile" == /dev/stdin ]; then + ac_set_tmpfile tmpinfile + cat >"$tmpinfile" + infile="$tmpinfile" + fi + eval "$(awkrun -f <"$infile" ' +/^[^#]/ { exit 0 } +/^#+ *host *=/ { sub(/^#+ *host *= */, ""); sub(/ *$/, ""); print "thishost=" qval($0); next } +/^#+ *enable_proxy *=/ { sub(/^#+ *enable_proxy *= */, ""); sub(/ *$/, ""); print "proxy_enabled=" qval($0); next } +')" + fi + [ -n "$thishost" ] || thishost="$(myhost)" + normyesval proxy_enabled + + if [ -n "$htmlfile" ]; then + echo ' + + + + +'"$thishost + + +

$thishost

+
    " >"$htmlfile" + fi + + ac_set_tmpfile tmpoutfile + array_from_lines rules "$(<"$infile" filter_comment)" + prefix= + for rule in "${rules[@]}"; do + if beginswith "$rule" ^; then + # Collecter les préfixe pour la règle suivante + prefix="${prefix:+$prefix +}${rule#^}" + continue + elif beginswith "$rule" =; then + # ligne litérale + echo "${rule#=}" >>"$tmpoutfile" + continue + fi + + local IFS=:; set -- $rule; unset IFS + index=1 + done= + while [ -z "$done" ]; do + current="$1"; shift + while [ "${current%\\}" != "$current" ]; do + current="${current%\\}:$1"; shift + done + case $index in + 1) src="$current";; + 2) dest="$current";; + 3) host="$current";; + 4) suffix="$current";; + 5) options="$current";; + 6) prot="${current:-http}";; + 7) proxy_acls="$current";; + *) done=1;; + esac + index=$(($index + 1)) + done + + # mettre en forme prefix s'il est défini + [ -n "$prefix" ] && prefix="$prefix +" + + [ "$thishost" == "$host" ] && host= + + usrc="$src" + + trail=1 + if endswith "$src" '$'; then + trail= + usrc="${src%$}" + fi + + noslash= + if endswith "$suffix" '$'; then + noslash=1 + suffix="${suffix%$}" + fi + if endswith "$dest" '$'; then + noslash=1 + dest="${dest%$}" + fi + + proxy_url= + proxy_use= + + if endswith "$dest" .woa; then + # lien vers une application + if [ -n "$host" ]; then + # sur un autre hôte + if [ -n "$noslash" ]; then + echo "${prefix}RewriteRule ^/$src${trail:+(.*)} $(__mrr_joinurl "$prot://$host/cgi-bin/WebObjects" "$dest" "$suffix")${trail:+\$1} [L${options:+,$options}]" >>"$tmpoutfile" + setx url __mrr_joinurl "http://$thishost" "$usrc" + setx proxy_url __mrr_joinurl "$prot://$host/cgi-bin/WebObjects" "$dest" "$suffix" + else + echo "${prefix}RewriteRule ^/$src\$ /$src/" >>"$tmpoutfile" + echo "${prefix}RewriteRule ^/$src/(.*) $(__mrr_joinurl "$prot://$host/cgi-bin/WebObjects" "$dest" "$suffix" "\$1") [L${options:+,$options}]" >>"$tmpoutfile" + setx url __mrr_joinurl "http://$thishost" "$usrc/" + setx proxy_url __mrr_joinurl "$prot://$host/cgi-bin/WebObjects" "$dest" "$suffix/" + fi + else + # sur le même hôte + if [ -n "$noslash" ]; then + echo "${prefix}RewriteRule ^/$src${trail:+(.*)} $(__mrr_joinurl /cgi-bin/WebObjects "$dest" "$suffix")${trail:+\$1} [L,P${options:+,$options}]" >>"$tmpoutfile" + setx url __mrr_joinurl "http://$thishost" "$usrc" + setx proxy_url __mrr_joinurl "$prot://$thishost/cgi-bin/WebObjects" "$dest" "$suffix" + proxy_use=1 + else + echo "${prefix}RewriteRule ^/$src\$ /$src/" >>"$tmpoutfile" + echo "${prefix}RewriteRule ^/$src/(.*) $(__mrr_joinurl /cgi-bin/WebObjects "$dest" "$suffix" "\$1") [L,P${options:+,$options}]" >>"$tmpoutfile" + setx url __mrr_joinurl "http://$thishost" "$usrc/" + setx proxy_url __mrr_joinurl "$prot://$thishost/cgi-bin/WebObjects" "$dest" "$suffix/" + proxy_use=1 + fi + fi + else + # lien vers une url + if [ -n "$host" ]; then + # sur un autre hôte + if [ -n "$noslash" ]; then + echo "${prefix}RewriteRule ^/$src${trail:+(.*)} $(__mrr_joinurl "$prot://$host" "$dest" "$suffix")${trail:+\$1} [L${options:+,$options}]" >>"$tmpoutfile" + setx url __mrr_joinurl "http://$thishost" "$usrc" + setx proxy_url __mrr_joinurl "$prot://$host" "$dest" "$suffix" + else + echo "${prefix}RewriteRule ^/$src\$ /$src/" >>"$tmpoutfile" + echo "${prefix}RewriteRule ^/$src/(.*) $(__mrr_joinurl "$prot://$host" "$dest" "$suffix" "\$1") [L${options:+,$options}]" >>"$tmpoutfile" + setx url __mrr_joinurl "http://$thishost" "$usrc/" + setx proxy_url __mrr_joinurl "$prot://$host" "$dest" "$suffix/" + fi + else + # sur le même hôte + if [ -n "$noslash" ]; then + echo "${prefix}RewriteRule ^/$src${trail:+(.*)} $(__mrr_joinurl / "$dest" "$suffix")${trail:+\$1}${options:+ [$options]}" >>"$tmpoutfile" + setx url __mrr_joinurl "http://$thishost" "$usrc" + setx proxy_url __mrr_joinurl "http://$thishost" "$dest" "$suffix" + else + echo "${prefix}RewriteRule ^/$src\$ /$src/" >>"$tmpoutfile" + echo "${prefix}RewriteRule ^/$src/(.*) $(__mrr_joinurl / "$dest" "$suffix" "\$1")${options:+ [$options]}" >>"$tmpoutfile" + setx url __mrr_joinurl "http://$thishost" "$usrc/" + setx proxy_url __mrr_joinurl "http://$thishost" "$dest" "$suffix/" + fi + fi + fi + __mrr_has_proxy "$options" && proxy_use=1 + if [ -n "$proxy_enabled" -a -n "$proxy_use" ]; then + if [ "$proxy_acls" == "None" ]; then + : + elif [ -z "$proxy_acls" ]; then + echo "\ + + AddDefaultCharset off + Order Deny,Allow + Allow from all +" >>"$tmpoutfile" + else + echo "\ + + AddDefaultCharset off + Order Allow,Deny + Allow from $proxy_acls +" >>"$tmpoutfile" + fi + fi + + echo "" >>"$tmpoutfile" + if [ -n "$htmlfile" ]; then + echo "
  • $url
    • " >>"$htmlfile" + fi + + # Réinitialiser les préfixes pour chaque règle + prefix= + done + + local modified + if testupdated "$tmpoutfile" "$outfile"; then + cat "$tmpoutfile" >"$outfile" + modified=1 + fi + + if [ -n "$htmlfile" ]; then + echo '
+ +' >>"$htmlfile" + fi + + [ -n "$tmpinfile" ] && ac_clean "$tmpinfile" + ac_clean "$tmpoutfile" + [ -n "$modified" ] +} diff --git a/lib/ulib/base b/lib/ulib/base index ee0fccd..1987ab1 100644 --- a/lib/ulib/base +++ b/lib/ulib/base @@ -2464,6 +2464,7 @@ function awkdef() { # pour un tableau values qui contiendra deux valeurs: value1 et value2 # Avec l'option -f, des fonctions supplémentaires sont définies. Elles sont # décrites dans le module awk. + [ -z "$__ULIB_NO_DISABLE_SET_X" ] && [[ $- == *x* ]] && { set +x; local __ULIB_AWKDEF_SET_X=1; } # désactiver set -x pour cette fonction if [ "${1:0:3}" == "-f" ]; then shift @@ -2541,6 +2542,8 @@ function awkdef() { rawecho "$__ad_arg" done fi + + [ -n "$__ULIB_AWKDEF_SET_X" ] && set -x; return 0 } function lawkrun() { # wrapper pour lancer awk avec un script préparé par awkdef. Les définitions et @@ -3533,6 +3536,79 @@ function ask_yesno() { is_yes "$default" fi } +function ask_any() { +# Afficher le message $1 suivi du texte "[$2]" (qui vaut par défaut +Oq), puis +# lire la réponse. Les lettres de la chaine de format $2 sont numérotées de 0 à +# $((${#2} - 1)). Le code de retour est le numéro de la lettre qui a été +# sélectionnée. Cette fonction est une généralisation de ask_yesno() pour +# n'importe quel ensemble de lettres. +# La première lettre en majuscule est la lettre sélectionnée par défaut. +# La lettre O matche toutes les lettres qui signifient oui: o, y, 1, v, t +# La lettre N matche toutes les lettres qui signifient non: n, f, 0 +# Il y a des raccourcis: +# +O --> On +# +N --> oN +# +C --> oN si on est en mode interactif, On sinon +# +X --> On si on est en mode interactifn oN sinon +# Si $1 est une option, elle est utilisée avec check_interaction pour savoir si +# on est en mode interactif ou non. A ce moment-là, les valeurs sont décalées +# ($2=message, $3=format) + local interactive=1 + if [[ "$1" == -* ]]; then + if [ "$1" != -- ]; then + check_interaction "$1" || interactive= + fi + shift + else + check_interaction -c || interactive= + fi + local format="${2:-+Oq}" + format="${format/+O/On}" + format="${format/+N/oN}" + if [ -n "$interactive" ]; then + format="${format/+C/oN}" + format="${format/+X/On}" + else + format="${format/+C/On}" + format="${format/+X/oN}" + fi + local i count="${#format}" + + if [ -n "$interactive" ]; then + eflush + local message="${1:-Voulez-vous continuer?}" + local prompt="[$format]" + local r f lf defi + while true; do + __eecho_ "$message $prompt " 1>&2 + uread r + r="$(strlower "${r:0:1}")" + i=0; defi= + while [ $i -lt $count ]; do + f="${format:$i:1}" + lf="$(strlower "$f")" + [ "$r" == "$lf" ] && return $i + if [ -z "$defi" ]; then + [[ "$f" =~ [A-Z] ]] && defi="$i" + fi + if [ "$lf" == o ]; then + case "$r" in o|y|1|v|t) return $i;; esac + elif [ "$lf" == n ]; then + case "$r" in n|f|0) return $i;; esac + fi + i=$(($i + 1)) + done + [ -z "$r" ] && return ${defi:-0} + done + else + i=0 + while [ $i -lt $count ]; do + [[ "${format:$i:1}" =~ [A-Z] ]] && return $i + i=$(($i + 1)) + done + return 0 + fi +} function read_value() { # Afficher le message $1 suivi de la valeur par défaut [$3] si elle est non # vide, puis lire la valeur donnée par l'utilisateur. Cette valeur doit être non diff --git a/lib/ulib/base.args b/lib/ulib/base.args index 40f816c..44f971c 100644 --- a/lib/ulib/base.args +++ b/lib/ulib/base.args @@ -288,6 +288,8 @@ function parse_opts() { # flags_ contient la liste des flags pour les options: '' pour une option # simple, ':' pour option avec argument obligatoire, '::' pour option avec # argument facultatif + [ -z "$__ULIB_NO_DISABLE_SET_X" ] && [[ $- == *x* ]] && { set +x; local __ULIB_PARSE_OPTS_SET_X=1; } # désactiver set -x pour cette fonction + local -a options_ names_ flags_ destargs_ local opts_ longopts_ __po_parse_optdescs "$@" || shift $? @@ -297,8 +299,11 @@ function parse_opts() { __po_process_options "$@" else [ -n "$destargs_" ] && setv "$destargs_" "$args_" + [ -n "$__ULIB_SET_X" ] && set -x return 1 fi + + [ -n "$__ULIB_PARSE_OPTS_SET_X" ] && set -x; return 0 } function parse_args_check() { @@ -308,9 +313,15 @@ function parse_args_check() { # Exemple d'utilisation: # args=(...) # parse_args_check "$@" || return; set -- "${args[@]}" - parse_opts "${PRETTYOPTS[@]}" "${args[@]}" @ args -- "$@" && return 0 - eerror "$args" - return 1 + [ -z "$__ULIB_NO_DISABLE_SET_X" ] && [[ $- == *x* ]] && { set +x; local __ULIB_PARSE_ARGS_SET_X=1; } # désactiver set -x pour cette fonction + if parse_opts "${PRETTYOPTS[@]}" "${args[@]}" @ args -- "$@"; then + [ -n "$__ULIB_PARSE_ARGS_SET_X" ] && set -x + return 0 + else + eerror "$args" + [ -n "$__ULIB_PARSE_ARGS_SET_X" ] && set -x + return 1 + fi } function parse_args() { # Simplifier l'utilisation de parse_opts(). En entrée, le tableau args doit être @@ -320,7 +331,9 @@ function parse_args() { # Exemple d'utilisation: # args=(...) # parse_args_check "$@"; set -- "${args[@]}" + [ -z "$__ULIB_NO_DISABLE_SET_X" ] && [[ $- == *x* ]] && { set +x; local __ULIB_PARSE_ARGS_SET_X=1; } # désactiver set -x pour cette fonction parse_opts "${PRETTYOPTS[@]}" "${args[@]}" @ args -- "$@" || die "$args" + [ -n "$__ULIB_PARSE_ARGS_SET_X" ] && set -x; return 0 } HELP_DESC= diff --git a/lib/ulib/base.core b/lib/ulib/base.core index 9a540f5..d3c4484 100644 --- a/lib/ulib/base.core +++ b/lib/ulib/base.core @@ -377,6 +377,16 @@ function err2out() { "$@" 2>&1 } +function is_defined() { +# tester si la variable $1 est définie + [ -n "$(declare -p "$1" 2>/dev/null)" ] +} +function is_array() { +# tester si la variable $1 est un tableau + case "$(declare -p "$1" 2>/dev/null)" in declare\ -a*) return 0;; esac + return 1 +} + # cf http://www.fvue.nl/wiki/Bash:_Passing_variables_by_reference function upvar() { # Assign variable one scope above the caller diff --git a/lib/ulib/base.num b/lib/ulib/base.num index a07c96a..9725806 100644 --- a/lib/ulib/base.num +++ b/lib/ulib/base.num @@ -6,24 +6,22 @@ uprovide base.num function isnum() { # retourner vrai si $1 est une valeur numérique entière (positive ou négative) [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//[0-9]/}" [ -z "$v" ] } function ispnum() { # retourner vrai si $1 est une valeur numérique entière positive [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v//[0-9]/}" - [ -z "$v" ] + [ -z "${1//[0-9]/}" ] } function isrnum() { # retourner vrai si $1 est une valeur numérique réelle (positive ou négative) # le séparateur décimal peut être . ou , [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//./}" v="${v//,/}" v="${v//[0-9]/}" diff --git a/lib/ulib/base.string b/lib/ulib/base.string index 288a867..9a7fba3 100644 --- a/lib/ulib/base.string +++ b/lib/ulib/base.string @@ -6,6 +6,10 @@ uprovide base.string urequire base.core +# IMPORTANT: aucune des fonctions suivantes ne met en échappement les valeur des +# patterns. Ainsi, si un pattern contient des caractères interdits comme \ ou $, +# il faut d'abord le traiter avec _qval() + function straddp() { # ajouter le préfixe $1 à $2* local p="$1"; shift @@ -116,6 +120,65 @@ function strrepl() { eval "$cmd" } +function strops() { +# Appliquer à une chaine de caractères une suite de traitements, e.g: +# 'strops var deref +suffix' est équivalent à 'echo "${var}suffix"' +# En commençant avec la valeur initiale $1, les arguments $2..* sont des +# opérations à appliquer dans l'ordre. +# Les opérations suivantes considèrent que la valeur courante est un nom de +# variable: +# :- := :? :+ deref dcount +# Toutes les autres opérations travaillent directement avec la valeur +# courante. Les opérations suivantes appliquent une transformation: +# # % / : ^ , +# -# +% -% + - mid repl +# Les opérations suivantes font un test sur la valeur et retournent +# immédiatement: +# = == != < > -eq -ne -lt -le -gt -ge -n -z +# La syntaxe des opérateurs standards de bash est reprise autant que possible, +# i.e si on a l'habitude d'écrire ${varOP} en bash, alors la syntaxe à utiliser +# à priori est 'strops var OP' ou 'strop var deref OP' suivant les opérateurs. +# Autres opérateurs: +# deref indirection +# dcount nombre d'éléments du tableau +# +#STR ajouter un préfixe +# -#STR supprimer un préfixe +# +%STR ou +STR ajouter un suffixe +# -%STR ou -STR supprimer un suffixe +# mid RANGE traiter la chaine avec strmid() +# repl FROM TO traiter la chaine avec strrepl() + local -a __s_tmp + local __s_value="$1"; shift + while [ $# -gt 0 ]; do + case "$1" in + # l'argument est le nom de la variable + :-*|:=*|:\?*|:+*) eval '__s_value="${'"${__s_value}$1"'}"';; + d|deref) __s_value="${!__s_value}";; + dc|dcount|ds|dsize) + __s_value="${__s_value}[@]" + __s_tmp=("${!__s_value}") + __s_value="${#__s_tmp[@]}" + ;; + # l'argument est la valeur de la variable + \#*|%*|/*|:*|^*|,*) eval '__s_value="${__s_value'"$1"'}"';; + l|length) __s_value="${#__s_value}";; + =|==|!=|\<|\>|-eq|-ne|-lt|-le|-gt|-ge) + __s_tmp=(\[ "$__s_value" "$@" ]); "${__s_tmp[@]}"; return $?;; + -n|-z) __s_tmp=(\[ "$1" "$__s_value" ]); "${__s_tmp[@]}"; return $?;; + +#*) eval '__s_value="'"${1#+#}"'$__s_value"';; + -#*) eval '__s_value="${__s_value'"${1#-}"'}"';; + +%*) eval '__s_value="$__s_value"'"${1#+%}";; + +*) eval '__s_value="$__s_value"'"${1#+}";; + -%*) eval '__s_value="${__s_value'"${1#-}"'}"';; + -*) eval '__s_value="${__s_value%'"${1#-}"'}"';; + mid|strmid) eval '__s_value="$(strmid "$2" "$__s_value")"'; shift;; + repl|strrepl) eval '__s_value="$(strrepl "$2" "$3" "$__s_value")"'; shift; shift;; + *) echo 1>&2 "strops: unknown operator: $1";; + esac + shift + done + echo "$__s_value" +} + function first_char() { # retourner le premier caractère de la chaine $* local str="$*" diff --git a/lib/ulib/debian b/lib/ulib/debian index 1e9d06a..52e3605 100644 --- a/lib/ulib/debian +++ b/lib/ulib/debian @@ -176,20 +176,40 @@ function network_fix_confbrs() { function __network_fix_confips() { local -a confips ipsuffixes ifaces ips - local confip iface gateway ip suffix mainip + local confip iface gateway network ip suffix mainip local mainiface="$1" # recenser les interfaces et créer les tableaux __IFACE_ipspecs for confip in "${__nfc_confips[@]}"; do network_parse_confip "$confip" iface gateway ipsuffixes - [ -n "$iface" ] || iface="$mainiface" - array_addu ifaces "$iface" - eval "local ${iface}_gateway; local -a ${iface}_ipsuffixes" + if [ -n "$iface" ]; then + network="${iface}_network" + if ! array_contains ifaces "$iface"; then + array_add ifaces "$iface" + eval "local ${iface}_gateway $network; local -a ${iface}_ipsuffixes" + fi + if [ -z "${!network}" -a -n "${ipsuffixes[0]}" ]; then + setv "$network" "$(ipcalc_network "${ipsuffixes[0]}")" + fi + fi done # puis construire la liste des adresses IP associées à chaque interface for confip in "${__nfc_confips[@]}"; do network_parse_confip "$confip" iface gateway ipsuffixes + # si aucune interface n'est spécifiée, sélectionner celle correspondant + # à la même adresse de réseau. sinon prendre $mainiface + if [ -z "$iface" ]; then + network="$(ipcalc_network "${ipsuffixes[0]}")" + local ip_iface ip_network + for ip_iface in "${ifaces[@]}"; do + ip_network="${ip_iface}_network" + if [ "${!ip_network}" == "$network" ]; then + iface="$ip_iface" + break + fi + done + fi [ -n "$iface" ] || iface="$mainiface" # si la passerelle a déjà été spécifiée, la récupérer local tmpgw="${iface}_gateway" @@ -356,6 +376,7 @@ function __network_set_confips() { array_from_lines ifaces "$(__network_valid_ifaces)" for iface in "${ifaces[@]}"; do __network_set_gateway "$iface" + [ -n "$gateway" ] || gateway=- __network_set_confip "$iface" "$gateway" || continue array_add confips "$confip" done @@ -462,6 +483,7 @@ BEGIN { have_iface = 0 have_method = 0 # static ou dhcp have_gateway = ipsuffixes[1] == "dhcp" || gateway == "" + if (gateway == "none" || gateway == "-") gateway = "" array_new(have_ips) array_new(have_ip_ups) array_new(have_ip_downs) @@ -692,6 +714,8 @@ function network_interfaces_add_confip() { local nifile="${4:-$__DEBIAN_NETWORK_INTERFACES}" local mainip netmask method + [ "$gateway" == "none" -o "$gateway" == "-" ] && gateway= + network_parse_ipsuffix "${ipsuffixes[0]}" mainip netmask if [ "$mainip" == "dhcp" ]; then mainip= @@ -928,7 +952,9 @@ $ip$TAB$host $hostname" "$tmpfile" } function network_config() { - # (Re)configurer le réseau sur l'hôte courant. + # (Re)configurer le réseau sur l'hôte courant. Des efforts sont faits pour + # ne mettre à jour les fichiers que si c'est nécessaire. Si un des arguments + # $1..$6 n'est pas spécifié, il est ignoré. # $1 (host) est le nom d'hôte. # $2 (confips) est le nom d'un tableau contenant la configuration des # adresses ips pour les interfaces. @@ -939,9 +965,12 @@ function network_config() { # son interface. En principe, l'interface principale est le premier bridge # défini ou la première interface définie. # $5 (reset_interfaces) spécifie de ne pas chercher à mettre à jour le - # fichier /etc/network/interfaces, mais de le recréer depuis zéro. + # fichier /etc/network/interfaces, mais de le recréer depuis zéro. la valeur + # 'force' spécifie de recréer le fichier même si ce n'est pas nécessaire à + # priori. # $6 (oldhost) est le nom d'hôte actuel, avant la modification - # Si un des arguments n'est pas spécifié, il est ignoré. + # $7(=/etc/network/interfaces) est le fichier à mettre à jour + # # Le tableau confips doit contenir des définitions d'une des formes # suivantes: # [[iface][//gateway]:]address[/suffix],... @@ -952,6 +981,7 @@ function network_config() { # interface, seule la première spécification d'adresse IP tient compte de # l'argument gateway. Les autres spécifications définissent des adresses IP # supplémentaires pour l'interface. + # # Le tableau brs doit contenir des définitions de la forme suivante: # br:ifaces,... # br est le nom du bridge, e.g. br0. ifaces est une liste d'interfaces @@ -967,6 +997,7 @@ function network_config() { local -a confbrs; array_copy confbrs __nc_confbrs local mainiface="$4" reset_interfaces="$5" oldhost="$6" local modified + local nifile="${7:-$__DEBIAN_NETWORK_INTERFACES}" network_fix_confs confbrs confips "$mainiface" @@ -1001,13 +1032,16 @@ function network_config() { # vérifier si une modification est nécessaire local modify - for confbr in "${confbrs[@]}"; do - network_parse_confbr "$confbr" br ifaces - if ! network_interfaces_check_confbr "$br" iface; then - modify=1 - break - fi - done + [ "$reset_interfaces" == force ] && modify=1 + if [ -z "$modify" ]; then + for confbr in "${confbrs[@]}"; do + network_parse_confbr "$confbr" br ifaces + if ! network_interfaces_check_confbr "$br" iface; then + modify=1 + break + fi + done + fi if [ -z "$modify" ]; then for confip in "${confips[@]}"; do network_parse_confip "$confip" iface gateway ipsuffixes @@ -1022,13 +1056,17 @@ function network_config() { if [ -n "$modify" ]; then # faire une copie de travail local interfaces; ac_set_tmpfile interfaces - cat "$__DEBIAN_NETWORK_INTERFACES" >"$interfaces" + cat "$nifile" >"$interfaces" if [ -n "$reset_interfaces" ]; then + local source_itfd + check_sysinfos -d debian -v jessie+ && source_itfd=1 echo >"$interfaces" "\ # This file describes the network interfaces available on your system # and how to activate them. For more information, see interfaces(5). - +${source_itfd:+ +source /etc/network/interfaces.d/* +} # The loopback network interface auto lo iface lo inet loopback @@ -1059,21 +1097,21 @@ iface lo inet loopback # Fin de traitement if [ -n "$__DEBIAN_NETWORK_DEVEL_SHOW_MODIFS" ]; then - if testdiff "$interfaces" "$__DEBIAN_NETWORK_INTERFACES"; then - uecho "Setting $__DEBIAN_NETWORK_INTERFACES to:" + if testdiff "$interfaces" "$nifile"; then + uecho "Setting $nifile to:" cat "$interfaces" | sed 's/^/ /g' 1>&2 else - uecho "$__DEBIAN_NETWORK_INTERFACES: pas de modifications" + uecho "$nifile: pas de modifications" fi - elif testdiff "$interfaces" "$__DEBIAN_NETWORK_INTERFACES"; then - __network_backup "$__DEBIAN_NETWORK_INTERFACES" + elif testdiff "$interfaces" "$nifile"; then + __network_backup "$nifile" if show_debug; then - edebug "Setting $__DEBIAN_NETWORK_INTERFACES to:" + edebug "Setting $nifile to:" cat "$interfaces" | sed 's/^/ /g' 1>&2 else - estep "$__DEBIAN_NETWORK_INTERFACES" + estep "$nifile" fi - cat "$interfaces" >"$__DEBIAN_NETWORK_INTERFACES" + cat "$interfaces" >"$nifile" modified=1 fi ac_clean "$interfaces" @@ -1112,3 +1150,68 @@ iface lo inet loopback [ -z "$modified" ] && return 10 return 0 } + +function network_config_partial() { + # une version allégée de network_config() qui ne permet que de rajouter des + # adresses IPs en plus de celles qui sont déjà configurées. + # $1(=confips) est le nom d'un tableau contenant la configuration des + # adresses ips pour les interfaces. + # $2(=/etc/network/interfaces) est le fichier à mettre à jour + local -a __ncp_newconfips; array_copy __ncp_newconfips "${1:-confips}" + local nifile="${2:-$__DEBIAN_NETWORK_INTERFACES}" + + local -a confips confbrs + network_set_confips + network_set_confbrs + network_fix_confs + + array_extend confips __ncp_newconfips + network_config "" confips confbrs "" "" "" "$nifile" || return + + # des modifications ont eu lieu, tenter de configurer les nouvelles adresses + # d'abord calculer les adresses ips qui sont activées + network_set_confips + local -a ips + local ipsuffix ip suffix + for confip in "${confips[@]}"; do + network_parse_confip "$confip" iface gateway ipsuffixes + for ipsuffix in "${ipsuffixes[@]}"; do + network_parse_ipsuffix "$ipsuffix" ip suffix + array_addu ips "$ip" + done + done + # puis lister les commandes correspondant aux adresses ips non activées + local -a ups; local up + array_from_lines ups "$(awkrun <"$nifile" -f ips[@] ' +$1 == "up" && $2 == "ip" && $3 == "addr" && $4 == "add" { + ip = $5; sub(/(\/[0-9.]+)?$/, "", ip) # enlever suffixe + if (! in_array(ip, ips)) { + $1 = "" + print + } +}')" + if [ ${#ups[*]} -gt 0 ]; then + etitle "Configuration des nouvelles adresses" + for up in "${ups[@]}"; do + estep "$up" + eval "$up" + done + eend + fi + + return 0 +} + +function network_update_etc_networks() { + # écraser le contenu du fichier /etc/networks avec la chaine $1 + # si $1 est vide, initialiser le fichier avec un contenu par défaut. + local contents="$1" TAB=$'\t' + [ -n "$contents" ] || contents="\ +default${TAB}${TAB}0.0.0.0 +loopback${TAB}127.0.0.0 +link-local${TAB}169.254.0.0" + if [ "$(/etc/networks + fi +} diff --git a/lib/ulib/ipcalc b/lib/ulib/ipcalc index 9616095..61ca049 100644 --- a/lib/ulib/ipcalc +++ b/lib/ulib/ipcalc @@ -83,6 +83,32 @@ function ipcalc_netmask() { return 0 } +function ipcalc_network() { + # Calculer l'adresse de réseau correspondant à l'adresse ip $1. Le masque + # de sous-réseau peut-être indiqué dans l'adresse ip avec le suffixe /n ou + # /x.x.x.x ou donné dans l'argument $2. Seuls les suffixes 0, 8, 16, 24, 32 + # sont supportés. + # Retourner 1 si un erreur s'est produite, par exemple si l'adresse ou le + # suffixe sont invalides ou non supportés. + [ -n "$1" ] || return + local ip mask + + ipcalc_splitipmask "$1" ip mask + [ -n "$mask" ] || mask="$2" + [ -n "$mask" ] || mask=24 + + ip="$(ipcalc_checkip "$ip")" || return + mask="$(ipcalc_checkmask "$mask")" || return + + case "$mask" in + 0) echo "0.0.0.0";; + 8) ip="${ip%.*.*.*}"; echo "$ip.0.0.0";; + 16) ip="${ip%.*.*}"; echo "$ip.0.0";; + 24) ip="${ip%.*}"; echo "$ip.0";; + 32) echo "$ip";; + esac +} + function ipcalc_broadcast() { # Calculer l'adresse de broadcast correspondant à l'adresse ip $1. Le masque # de sous-réseau peut-être indiqué dans l'adresse ip avec le suffixe /n ou diff --git a/lib/ulib/ptools b/lib/ulib/ptools index 2205179..4f9d74b 100644 --- a/lib/ulib/ptools +++ b/lib/ulib/ptools @@ -3,8 +3,9 @@ ##@cooked nocomments ##@include vcs ##@include semver +##@include xmlsupport uprovide ptools -urequire vcs semver +urequire vcs semver xmlsupport function is_any_branch() { local branch="$1"; shift @@ -99,43 +100,97 @@ function list_feature_branches() { ################################################################################ # Outils de haut niveau -function __pom_get_version() { - # obtenir la version dans le pom $1(=pom.xml) - local pom="${1:-pom.xml}" - awk <"$pom" '/^[ \t]*/ { - sub(/^.*/, "") - sub(/<\/version>.*$/, "") - print - exit -}' +__pver_perror() { + local r="$1"; shift + [ $# -gt 0 ] || set "Une erreur s'est produite" + local m=$r + [ $m -gt $# ] && m=$# + [ $m -gt 0 ] && eerror "${!m}" + return $r } -function __pom_set_version() { - # modifier la version du le fichier $1(=pom.xml) à la valeur - # $2(=1.0.0-SNAPSHOT) + +__pver_unless() { + local r m + if [[ "$1" == -* ]]; then + [ "${@:1:2}" ] 2>/dev/null; r=$? + shift; shift + else + [ "${@:1:3}" ] 2>/dev/null; r=$? + shift; shift; shift + fi + __pver_perror $r "$@" +} + +function __pver_get_prel_version() { + # retourner la version correspondant à la branche courante si c'est une + # branche de release. retourner 1 si la branche courante n'est pas une + # branche de release, 2 si on n'est pas dans un dépôt git + local branch + branch="$(git_get_branch)" || return 2 + if [[ "$branch" == release-* ]]; then + echo "${branch#release-}" + return 0 + else + return 1 + fi +} +function __pver_pom_get_vpath() { + # pour le fichier $1(=pom.xml), retourner le chemin dans lequel se trouve la + # version du projet + local pom="${1:-pom.xml}" + if xpathtool -tf "$pom" /project/version 2>/dev/null; then + echo /project/version + elif xpathtool -tf "$pom" /project/parent/version 2>/dev/null; then + echo /project/parent/version + else + echo /project/version + fi +} + +function __pver_pom_get_version() { + # obtenir la version dans le pom $1(=pom.xml) à partir du chemin $2, qui est + # déterminé automatiquement s'il n'est pas spécifié. + local pom="${1:-pom.xml}" + local vpath="$2" + local version + if [ -n "$vpath" ]; then + xpathtool -f "$pom" -g "$vpath" + return + fi + version="$(xpathtool -f "$pom" -g /project/version 2>/dev/null)" + if [ -n "$version" ]; then + echo "$version" + return + fi + version="$(xpathtool -f "$pom" -g /project/parent/version 2>/dev/null)" + if [ -n "$version" ]; then + echo "$version" + return + fi +} + +function __pver_pom_set_version() { + # modifier la version dans le pom $1(=pom.xml) à la valeur + # $2(=1.0.0-SNAPSHOT) en utilisant le chemin xpath $3, qui est déterminé + # automatiquement s'il n'est pas spécifié. + # retourner 0 si la version a été mise à jour dans le chemin /project/version + # retourner 1 si la version a été mise à jour dans le chemin /project/parent/version + # retourner 2 si la version a été mise à jour dans un autre chemin + # retourner 3 si une erreur s'est produite local pom="${1:-pom.xml}" local version="${2:-1.0.0-SNAPSHOT}" - local tmpfile; ac_set_tmpfile tmpfile - awk <"$pom" >"$tmpfile" ' -BEGIN { - version = '"$(qawk "$version")"' - found = 0 -} -!found && $0 ~ /^[ \t]*/ { - prefix = "" - if (match($0, /^.*/)) { - prefix = substr($0, RSTART, RLENGTH) - } - suffix = "" - if (match($0, /<\/version>.*$/)) { - suffix = substr($0, RSTART, RLENGTH) - } - print prefix version suffix - found = 1 - next -} -{ print }' - cat "$tmpfile" >"$pom" - ac_clean "$tmpfile" + local vpath="$3" + case "$vpath" in + D) vpath=/project/version;; + P) vpath=/project/parent/version;; + esac + [ -n "$vpath" ] || vpath="$(__pver_pom_get_vpath "$pom")" + xpathtool -f "$pom" -s "$vpath" "$version" || return 3 + case "$vpath" in + /project/version) return 0;; + /project/parent/version) return 1;; + *) return 2;; + esac } function pver() { @@ -145,92 +200,170 @@ function pver() { local -a args local action=auto local source=auto - local file= - local git= - local version= - local allow_empty= - local convert=auto - local operator= - local oversion= - local setversion= - local incversion= - local setprelease= - local setalpha= - local setbeta= - local setrc= - local setrelease= - local setmetadata= addmetadata= - local vcsmetadata= + local file git version operator oversion + local setversion incversion + local setpr setprelease setsnapshot setalpha setbeta setrc setrelease + local setmd resetmetadata setmetadata addmetadata vcsmetadata + local vpath setmapfile mapfile allow_empty convert=auto maven_update parse_opts "${PRETTYOPTS[@]}" \ --help '$exit_with pver_display_help' \ - -f:,--file: '$set@ file; source=file' \ - -e:,--maven:,--pom: '$set@ file; source=pom' \ - -F:,--file-string: '$set@ file; source=file-string' \ - -g:,--git-string: '$set@ git; source=git-string' \ - -s:,--string: '$set@ version; source=string' \ + -w:,--w:,--fw:,--auto-file: '$set@ file; source=auto-file' \ + --sw:,--auto-string: '$set@ file; source=auto-string' \ + --gw:,--auto-git-string: '$set@ git; source=auto-git-string' \ + -e:,--e:,--pom:,--maven: '$set@ file; source=pom' \ + -E:,--E:,--pom-string:,--maven-string: '$set@ file; source=pom-string' \ + -f:,--f:,--file: '$set@ file; source=file' \ + -F:,--F:,--file-string: '$set@ file; source=file-string' \ + -g:,--g:,--git-file-string:,--git-string: '$set@ git; source=git-file-string' \ + -G:,--G:,--git-pom-string: '$set@ git; source=git-pom-string' \ + --git-prel-string source=git-prel-string \ + -s:,--s:,--string: '$set@ version; source=string' \ --show action=show \ - --allow-empty allow_empty=1 \ + --show-source action=show-source \ --check action=check \ - --convert convert=1 \ - --no-convert convert= \ --eq: '$action=compare; operator=eq; set@ oversion' \ --ne: '$action=compare; operator=ne; set@ oversion' \ --lt: '$action=compare; operator=lt; set@ oversion' \ --le: '$action=compare; operator=le; set@ oversion' \ --gt: '$action=compare; operator=gt; set@ oversion' \ --ge: '$action=compare; operator=ge; set@ oversion' \ - -v:,--set-version: '$action=update; set@ setversion; incversion=' \ - --prel '$action=update; setversion=prel; incversion=' \ -u,--update '$action=update; [ -z "$incversion" ] && incversion=auto' \ --menu '$action=update; incversion=menu' \ + -v:,--set-version: '$action=update; set@ setversion; incversion=' \ + --prel '$action=update; setversion=prel; incversion=' \ -x,--major '$action=update; incversion=major' \ -z,--minor '$action=update; incversion=minor' \ -p,--patchlevel '$action=update; incversion=patchlevel' \ - -l:,--prelease:,--prerelease: '$action=update; set@ setprelease; [ -z "$setprelease" ] && { setalpha=; setbeta=; setrc=; setrelease=1; }' \ - -a,--alpha '$action=update; setalpha=1; setbeta=; setrc=; setrelease=' \ - -b,--beta '$action=update; setalpha=; setbeta=1; setrc=; setrelease=' \ - -r,--rc '$action=update; setalpha=; setbeta=; setrc=1; setrelease=' \ - -R,--release,--final '$action=update; setalpha=; setbeta=; setrc=; setrelease=1' \ - -m:,--metadata:,--set-metadata: '$action=update; set@ setmetadata' \ - --add-metadata: '$action=update; set@ addmetadata' \ - -M,--vcs-metadata '$action=update; vcsmetadata=1' \ + -k,--keep '$action=update; incversion=' \ + -l:,--prelease:,--prerelease: '$action=update; setpr=1; setsnapshot=; setalpha=; setbeta=; setrc=; setrelease=; set@ setprelease; [ -z "$setprelease" ] && setrelease=1' \ + -S,--snapshot '$action=update; setpr=1; setsnapshot=1; setalpha=; setbeta=; setrc=; setrelease=' \ + -a,--alpha '$action=update; setpr=1; setsnapshot=; setalpha=1; setbeta=; setrc=; setrelease=' \ + -b,--beta '$action=update; setpr=1; setsnapshot=; setalpha=; setbeta=1; setrc=; setrelease=' \ + -r,--rc '$action=update; setpr=1; setsnapshot=; setalpha=; setbeta=; setrc=1; setrelease=' \ + -R,--release,--final '$action=update; setpr=1; setsnapshot=; setalpha=; setbeta=; setrc=; setrelease=1' \ + -m:,--metadata:,--set-metadata: '$action=update; setmd=1; resetmetadata=1; set@ setmetadata' \ + --add-metadata: '$action=update; setmd=1; set@ addmetadata' \ + -M,--vcs-metadata '$action=update; setmd=1; vcsmetadata=1' \ + --vpath: vpath= \ + --map: '$setmapfile=1; set@ mapfile' \ + --allow-empty allow_empty=1 \ + --convert convert=1 \ + --no-convert convert= \ + -t,--maven-update maven_update=1 \ @ args -- "$@" && set -- "${args[@]}" || { eerror "$args"; return 1; } # Calculer la source + if [ "$source" == auto-file -o "$source" == auto-string ]; then + [ -n "$file" ] || file=. + if [ -d "$file" ]; then + if [ -f "$file/$DEFAULT_POM" ]; then + file="$file/$DEFAULT_POM" + elif [ -f "$file/$DEFAULT_FILE" ]; then + file="$file/$DEFAULT_FILE" + elif [ -f "$file/version.txt" ]; then + file="$file/version.txt" + else + file="$file/$DEFAULT_FILE" + fi + fi + if [ "$source" == auto-file ]; then + if [[ "$file" == *.xml ]]; then source=pom + else source=file + fi + elif [ "$source" == auto-string ]; then + if [[ "$file" == *.xml ]]; then source=pom-string + else source=file-string + fi + fi + edebug "Auto-sélection de $(ppath "$file")" + + elif [ "$source" == auto-git-string ]; then + git_check_gitvcs || return 2 + splitfsep2 "$git" : branch name + [ -n "$branch" ] || branch=master + if [ "$(git cat-file -t "$branch:$name" 2>/dev/null)" == tree ]; then + if git rev-parse --verify --quiet "$branch:${name:+$name/}$DEFAULT_POM" >/dev/null; then + name="${name:+$name/}$DEFAULT_POM" + elif git rev-parse --verify --quiet "$branch:${name:+$name/}$DEFAULT_FILE" >/dev/null; then + name="${name:+$name/}$DEFAULT_FILE" + elif git rev-parse --verify --quiet "$branch:${name:+$name/}version.txt" >/dev/null; then + name="${name:+$name/}version.txt" + fi + fi + if git rev-parse --verify --quiet "$branch:$name" >/dev/null; then + if [[ "$name" == *.xml ]]; then source=git-pom-string + else source=git-file-string + fi + git="$branch:$name" + edebug "Auto-sélection de $git" + else + eerror "$name: fichier introuvable sur la branche $branch" + return 1 + fi + fi + if [ "$source" == auto ]; then source=file - for i in "$DEFAULT_FILE" version.txt "$DEFAULT_POM"; do + for i in "$DEFAULT_POM" "$DEFAULT_FILE" version.txt; do if [ -f "$i" ]; then case "$i" in - "$DEFAULT_POM") - source=pom - file="$i" - break - ;; - *) - source=file - file="$i" - break - ;; + "$DEFAULT_POM") source=pom; file="$i"; break;; + *) source=file; file="$i"; break;; esac fi done - elif [ "$source" == file ]; then + elif [ "$source" == file -o "$source" == pom ]; then [ "$action" == auto ] && action=update fi [ "$source" == file -a -z "$file" ] && file="$DEFAULT_FILE" [ "$source" == pom -a -z "$file" ] && file="$DEFAULT_POM" [ "$action" == auto ] && action=show + if [[ "$source" == auto* ]]; then + eerror "bug: impossible de déterminer la source" + return 1 + fi + + if [ "$action" == show-source ]; then + echo "$source" + return 0 + fi + # Lire la version + local -a maprules + if [ "$source" == file -o "$source" == pom ]; then + local mapdir="$(dirname -- "$file")" + if [ -z "$setmapfile" ]; then + local tmpfile + tmpfile="$mapdir/.pver-map" + [ -f "$tmpfile" ] && mapfile="$tmpfile" + fi + if [ -n "$mapfile" ]; then + __pver_unless -f "$mapfile" "$mapfile: fichier introuvable" || return + + mapdir="$(dirname -- "$mapfile")" + array_from_lines maprules "$(<"$mapfile" filter_conf)" + local maprule filespec filevpath filename + local -a filenames + for maprule in "${maprules[@]}"; do + splitpair "$maprule" filespec filevpath + [ "$filevpath" != - ] || continue + array_lsfiles filenames "$mapdir" "$filespec" + [ ${#filenames[*]} -gt 0 ] || continue + file="${filenames[0]}" + if [[ "$file" == *.xml ]]; then source=pom + else source=file + fi + edebug "Sélection de $file comme fichier de référence" + break + done + fi + fi + [ "$source" == pom ] && maven_update=1 + if [ "$source" == file ]; then [ -f "$file" ] && version="$(<"$file")" - elif [ "$source" == pom ]; then - [ -f "$file" ] || { - eerror "$file: fichier introuvable" - return 1 - } - version="$(__pom_get_version "$file")" + elif [ "$source" == file-string ]; then if [ -z "$file" ]; then file="$DEFAULT_FILE" @@ -239,14 +372,51 @@ function pver() { fi [ -f "$file" ] && version="$(<"$file")" file= - elif [ "$source" == git-string ]; then + + elif [ "$source" == git-file-string ]; then + git_check_gitvcs || return 2 splitfsep2 "$git" : branch name [ -n "$branch" ] || branch=master [ -n "$name" ] || name="$DEFAULT_FILE" if git rev-parse --verify --quiet "$branch:$name" >/dev/null; then version="$(git cat-file blob "$branch:$name" 2>/dev/null)" fi + + elif [ "$source" == pom ]; then + __pver_unless -f "$file" "$file: fichier introuvable" || return + [ -n "$vpath" ] || vpath="$(__pver_pom_get_vpath "$file")" + version="$(__pver_pom_get_version "$file" "$vpath")" + + elif [ "$source" == pom-string ]; then + if [ -z "$file" ]; then file="$DEFAULT_POM" + elif [ -d "$file" ]; then file="$file/$DEFAULT_POM" + fi + __pver_unless -f "$file" "$file: fichier introuvable" || return + + [ -n "$vpath" ] || vpath="$(__pver_pom_get_vpath "$file")" + version="$(__pver_pom_get_version "$file" "$vpath")" + file= + + elif [ "$source" == git-pom-string ]; then + git_check_gitvcs || return 2 + splitfsep2 "$git" : branch name + [ -n "$branch" ] || branch=master + [ -n "$name" ] || name="$DEFAULT_POM" + if git rev-parse --verify --quiet "$branch:$name" >/dev/null; then + local tmpfile; ac_set_tmpfile tmpfile + git cat-file blob "$branch:$name" >"$tmpfile" 2>/dev/null + [ -n "$vpath" ] || vpath="$(__pver_pom_get_vpath "$tmpfile")" + version="$(__pver_pom_get_version "$tmpfile" "$vpath")" + ac_clean "$tmpfile" + else + eerror "$name: fichier introuvable sur la branche $branch" + return 1 + fi + + elif [ "$source" == git-prel-string ]; then + version="$(__pver_get_prel_version)" || return fi + [ -n "$version" -o -n "$allow_empty" ] || version=0.0.0 # Conversion éventuelle du numéro de version @@ -285,7 +455,7 @@ BEGIN { version = version ".0" } # afficher la version migrée au format semver - if (metadata != "") print version "+" metadata + if (metadata != "") print version "+r" metadata else print version ### maven, pom.xml @@ -339,7 +509,7 @@ BEGIN { fi if [ "$action" == check ]; then - [ -n "$valid" ] || { eerror "Numéro de version invalide: $version"; return 1; } + __pver_unless -n "$valid" "Numéro de version invalide: $version" || return elif [ "$action" == compare ]; then psemver_parse "$oversion" o @@ -423,101 +593,107 @@ BEGIN { elif [ "$action" == update ]; then [ -z "$version" -a -n "$allow_empty" ] && return 1 - [ -n "$valid" ] || { eerror "Numéro de version invalide: $version"; return 1; } + __pver_unless -n "$valid" "Numéro de version invalide: $version" || return if [ -n "$file" ]; then if [ -f "$file" ]; then - if isatty; then - estepi "La version actuelle est $version" - fi + isatty && estepi "La version actuelle est $version" elif [ "$source" == pom ]; then eerror "$file: fichier introuvable" return 1 - else - if isatty; then - ask_yesno "Le fichier $(ppath "$file") n'existe pas. Faut-il le créer?" O || return 1 - fi + elif isatty; then + ask_yesno "Le fichier $(ppath "$file") n'existe pas. Faut-il le créer?" O || return 1 fi fi # forcer le numéro de version if [ -n "$setversion" ]; then if [ "$setversion" == prel ]; then - local branch; branch="$(git_get_branch)" || return 2 - if [[ "$branch" == release-* ]]; then - setversion="${branch#release-}" - else - eerror "$branch: n'est pas une release branch" - return 1 - fi + setversion="$(__pver_get_prel_version)" + __pver_perror $? \ + "$(git_get_branch): n'est pas une release branch" \ + "Dépôt git introuvable" || return fi - psemver_setversion "$setversion" "" || { eerror "Numéro de version invalide: $setversion"; return 1; } + psemver_setversion "$setversion" "" || { + eerror "Numéro de version invalide: $setversion" + return 1 + } fi # Calculer metadata if [ -n "$vcsmetadata" ]; then + resetmetadata=1 setmetadata="$(git rev-parse --short HEAD)" || return 1 fi # incrémenter les numéros de version - if [ "$incversion" == auto ]; then - if [ -n "$setrelease" -o -n "$setprelease" -o -n "$setmetadata" -o -n "$addmetadata" ]; then - incversion= - else - incversion=menu + if [ -n "$maven_update" -a -n "$incversion" ]; then + # il y a des règles particulières pour maven + if [ -n "$setrelease" -a -z "$prelease" ]; then + # on est déjà en release, faire le traitement normal + maven_update= + elif [ -n "$setsnapshot" -a "$prelease" == SNAPSHOT ]; then + # on est déjà en snapshot, faire le traitement normal, mais garder le préfixe SNAPSHOT + maven_update= + if [ "$incversion" == auto ]; then + [ -n "$setmd" ] && incversion= || incversion=menu + fi + elif [ -z "$prelease" ]; then + # on est en release, passer en snapshot + setsnapshot=1 + setrelease= + if [ "$incversion" == auto ]; then + [ -n "$setmd" ] && incversion= || incversion=menu + fi + elif [ "$prelease" == SNAPSHOT ]; then + # on est en snapshot, passer en release + setsnapshot= + setrelease=1 + if [ "$incversion" == auto ]; then + [ -n "$setmd" ] && incversion= || incversion=menu + fi fi fi + if [ "$incversion" == auto ]; then + [ -n "$setpr" -o -n "$setmd" ] && incversion= || incversion=menu + fi + if [ -z "$incversion" -a -n "$maven_update" ]; then + # on doit incrémenter avec les règles maven, mais aucune des options + # -[xzp] n'est spécifiée + if [ -n "$setrelease" ]; then + incversion=patchlevel + elif [ -n "$setsnapshot" ]; then + incversion=patchlevel + fi + fi + + if [ -n "$setrelease" ]; then setprelease= + elif [ -n "$setsnapshot" ]; then setprelease=SNAPSHOT + fi if [ "$incversion" == menu ]; then - psemver_copy x; { - psemver_incmajor x - psemver_setprelease "$setprelease" x - if [ -n "$addmetadata" ]; then - [ -n "$setmetadata" ] && psemver_setmetadata "$setmetadata" x - psemver_addmetadata "$addmetadata" x - else - psemver_setmetadata "$setmetadata" x - fi - psemver_setvar versionx x - } - psemver_copy z; { - psemver_incminor z - psemver_setprelease "$setprelease" z - if [ -n "$addmetadata" ]; then - [ -n "$setmetadata" ] && psemver_setmetadata "$setmetadata" z - psemver_addmetadata "$addmetadata" z - else - psemver_setmetadata "$setmetadata" z - fi - psemver_setvar versionz z - } - psemver_copy p; { - psemver_incpatchlevel p - psemver_setprelease "$setprelease" p - if [ -n "$addmetadata" ]; then - [ -n "$setmetadata" ] && psemver_setmetadata "$setmetadata" p - psemver_addmetadata "$addmetadata" p - else - psemver_setmetadata "$setmetadata" p - fi - psemver_setvar versionp p - } - psemver_copy k; { - psemver_setprelease "$setprelease" k - if [ -n "$addmetadata" ]; then - [ -n "$setmetadata" ] && psemver_setmetadata "$setmetadata" k - psemver_addmetadata "$addmetadata" k - else - psemver_setmetadata "$setmetadata" k - fi - psemver_setvar versionk k - } + psemver_copy x + psemver_incsetprmd major x "$setprelease" 1 "$setmetadata" "$addmetadata" "$maven_update" + psemver_setvar versionx x + psemver_copy z + psemver_incsetprmd minor z "$setprelease" 1 "$setmetadata" "$addmetadata" "$maven_update" + psemver_setvar versionz z + psemver_copy p + psemver_incsetprmd patchlevel p "$setprelease" 1 "$setmetadata" "$addmetadata" "$maven_update" + psemver_setvar versionp p + psemver_copy k + psemver_incsetprmd "" k "$setprelease" "$resetmetadata" "$setmetadata" "$addmetadata" "$maven_update" + psemver_setvar versionk k nextvs=( "$versionx : maj incompatibles de l'API (-x)" "$versionz : maj compatibles de l'API (-z)" "$versionp : correction de bugs (-p)" "$versionk : ne pas incrémenter la version" ) - nextv="${nextvs[1]}" + if [ -z "$maven_update" ]; then + nextv="${nextvs[1]}" + else + nextv="${nextvs[2]}" + fi simple_menu nextv nextvs \ -t "Incrémenter le numéro de version" \ -m "Veuillez choisir la prochaine version" @@ -528,49 +704,78 @@ BEGIN { *) incversion=;; esac fi + + local r if [ -n "$incversion" ]; then - case "$incversion" in - major) psemver_incmajor;; - minor) psemver_incminor;; - patchlevel) psemver_incpatchlevel;; - esac - # Quand on incrémente, réinitialiser la valeur de prérelease et metadata - psemver_setprelease - [ -z "$addmetadata" ] && psemver_setmetadata - fi - - # spécifier prerelease - if [ -n "$setrelease" ]; then - psemver_setprelease "" - elif [ -n "$setprelease" ]; then - psemver_setprelease "$setprelease" || { eerror "Identifiant de pre-release invalide: $setprelease"; return 1; } - fi - if [ -n "$setalpha" ]; then - : #XXX - elif [ -n "$setbeta" ]; then - : #XXX - elif [ -n "$setrc" ]; then - : #XXX - fi - - # spécifier metadata - if [ -n "$setmetadata" ]; then - psemver_setmetadata "$setmetadata" || { eerror "Identifiant de build invalide: $setmetadata"; return 1; } - fi - if [ -n "$addmetadata" ]; then - psemver_addmetadata "$addmetadata" || { eerror "Identifiant de build invalide: $addmetadata"; return 1; } + psemver_incsetprmd "$incversion" "" "$setprelease" 1 "$setmetadata" "$addmetadata" "$maven_update" + r=$? + else + psemver_setprmd "" "$setprelease" "$resetmetadata" "$setmetadata" "$addmetadata" + r=$? fi + case $r in + 2) eerror "Identifiant de pre-release invalide: $setprelease"; return 1;; + 3) eerror "Identifiant de build invalide: $setmetadata"; return 1;; + 4) eerror "Identifiant de build invalide: $addmetadata"; return 1;; + esac # afficher le résultat final + local -a depfiles regfiles psemver_setvar version if [ -n "$file" ]; then - case "$source" in - file) echo "$version" >"$file";; - pom) __pom_set_version "$file" "$version";; - esac + if [ "$source" == file ]; then + echo "$version" >"$file" + elif [ "$source" == pom ]; then + __pver_pom_set_version "$file" "$version" + [ $? -eq 3 ] && return 1 + fi + if [ ${#maprules[*]} -gt 0 ]; then + # mettre à jour les fichiers mentionnés dans mapfile + local -a donefiles + for maprule in "${maprules[@]}"; do + splitpair "$maprule" filespec filevpath + array_lsfiles filenames "$mapdir" "$filespec" + for file in "${filenames[@]}"; do + file="$(abspath "$file")" + edebug "Examen de $file" + # si c'est un wildcard, ne traiter que si le fichier n'a + # pas encore été traité + case "$filespec" in *\**|*\?*) array_contains donefiles "$file" && break;; esac + if [ "$filevpath" != - ]; then + if [[ "$file" == *.xml ]]; then + edebug "Maj version de $file au chemin XPATH ${filevpath:-par défaut}" + __pver_pom_set_version "$file" "$version" "$filevpath" + case $? in + 0|1) array_addu regfiles "$file";; + 2) array_addu depfiles "$file";; + *) return 1;; + esac + else + edebug "Maj version de $file" + echo "$version" >"$file" + fi + else + edebug "Fichier $file ignoré" + fi + array_addu donefiles "$file" + done + done + fi fi if isatty; then estepn "La nouvelle version est $version" + if [ ${#depfiles[*]} -gt 0 ]; then + local msg + for file in "${depfiles[@]}"; do + array_contains regfiles "$file" && continue + if [ -z "$msg" ]; then + msg="Les fichiers suivants ont été modifiés, et leur version doit être mise à jour:" + fi + msg="$msg + $(qvals pver -uw "$file" -R -p)" + done + [ -n "$msg" ] && eimportant "$msg" + fi else echo "$version" fi diff --git a/lib/ulib/runs b/lib/ulib/runs index 4fa2f06..1f9aa55 100644 --- a/lib/ulib/runs +++ b/lib/ulib/runs @@ -888,8 +888,7 @@ function runs_initworkdir() { >"$RUNSEXPORTDIR/varsfile" >"$RUNSEXPORTDIR/localuser" >"$RUNSEXPORTDIR/localroot" - >"$RUNSEXPORTDIR/remoteuser" - >"$RUNSEXPORTDIR/remoteroot" + >"$RUNSEXPORTDIR/remote" # synchronisation ulib # comme on copie runs et uinst, il faut copier ulib et pyulib comme pour nutools: dans le répertoire lib/ @@ -917,6 +916,7 @@ exit 0 cd "$(dirname "$0")" '"$args_def"' if [ -s remote ]; then + export RUNS_REMOTE_SET_Y=1 [ -f remote-needs-root ] && args=("${args[@]}" -s) "${args[@]}" -r remote || exit 1 fi @@ -1628,6 +1628,13 @@ function runs_action_run() { __vars=("${__vars[@]}" "$(set_var_cmd "$__name" "$__value")") done + if [ -n "$RUNS_REMOTE_SET_Y" ]; then + # par défaut, sur l'hôte distant, utiliser un niveau + # d'interaction plus bas que runs + # ainsi, (rruns) ==> (uinst -y) et (rruns -i) ==> (uinst) + set_interaction -y + fi + urequire uinst udir prefixes uinc # Il faut définir UINST, chemin vers le script uinst. UINST="$RUNSSRCDIR/uinst" diff --git a/lib/ulib/semver b/lib/ulib/semver index 94c63e0..eaa69aa 100644 --- a/lib/ulib/semver +++ b/lib/ulib/semver @@ -10,6 +10,7 @@ function __semver_check_prelease() { [ -z "${1//[a-zA-Z0-9.-]/}" ]; } function __semver_check_metadata() { [ -z "${1//[a-zA-Z0-9.-]/}" ]; } function semver_parse() { + # args: version majorV minorV patchlevelV preleaseV metadataV validV local __p_ver="$1" local __p_ma="${2:-major}" __p_mi="${3:-minor}" __p_pl="${4:-patchlevel}" local __p_pr="${5:-prelease}" __p_md="${6:-metadata}" __p_va="${7:-valid}" @@ -84,34 +85,79 @@ function semver_parse() { } function semver_incmajor() { - setv "$1" $((${!1} + 1)) - setv "$2" 0 - setv "$3" 0 - array_new "$4" + # args: majorV minorV patchlevelV preleaseV metadataV maven_update setprelease + if [ -z "$6" ]; then + setv "$1" $((${!1} + 1)) + setv "$2" 0 + setv "$3" 0 + array_new "$4" + elif [ -z "$7" ]; then + # maven snapshot --> release + if [ ${!2} -ne 0 -o ${!3} -ne 0 ]; then + setv "$1" $((${!1} + 1)) + setv "$2" 0 + setv "$3" 0 + fi + array_new "$4" + else + # maven release --> snapshot + setv "$2" $((${!2} + 1)) + setv "$3" 0 + array_split "$4" "$setprelease" . + fi } function semver_incminor() { - setv "$2" $((${!2} + 1)) - setv "$3" 0 - array_new "$4" + # args: majorV minorV patchlevelV preleaseV metadataV maven_update setprelease + if [ -z "$6" ]; then + setv "$2" $((${!2} + 1)) + setv "$3" 0 + array_new "$4" + elif [ -z "$7" ]; then + # maven snapshot --> release + if [ ${!3} -ne 0 ]; then + setv "$2" $((${!2} + 1)) + setv "$3" 0 + fi + array_new "$4" + else + # maven release --> snapshot + setv "$2" $((${!2} + 1)) + setv "$3" 0 + array_split "$4" "$setprelease" . + fi } function semver_incpatchlevel() { - setv "$3" $((${!3} + 1)) - array_new "$4" + # args: majorV minorV patchlevelV preleaseV metadataV maven_update setprelease + if [ -z "$6" ]; then + setv "$3" $((${!3} + 1)) + array_new "$4" + elif [ -z "$7" ]; then + # maven snapshot --> release + : + else + # maven release --> snapshot + setv "$3" $((${!3} + 1)) + array_split "$4" "$setprelease" . + fi } function semver_setversion() { + # args: version majorV minorV patchlevelV preleaseV metadataV local __sv_ma __sv_mi __sv_svl __sv_svr __sv_md __sv_va semver_parse "$1" __sv_ma __sv_mi __sv_pl __sv_pr __sv_md __sv_va [ -n "$__sv_va" ] || return 1 setv "$2" "$__sv_ma" setv "$3" "$__sv_mi" setv "$4" "$__sv_pl" + array_copy "$5" __sv_pr + array_copy "$6" __sv_md return 0 } function semver_setprelease() { + # args: setprelease majorV minorV patchlevelV preleaseV metadataV if [ -n "$1" ]; then __semver_check_prelease "$1" || return 1 array_split "$5" "$1" . @@ -122,6 +168,7 @@ function semver_setprelease() { } function semver_compare_prelease() { + # args: prelease1 prelease2 local -a __cp_pr1 __cp_pr2 __cp_len i __cp_v1 __cp_v2 array_copy __cp_pr1 "$1" array_copy __cp_pr2 "$2" @@ -179,6 +226,7 @@ function semver_compare_prelease() { } function semver_setmetadata() { + # args: setmetadata majorV minorV patchlevelV preleaseV metadataV if [ -n "$1" ]; then __semver_check_metadata "$1" || return 1 array_split "$6" "$1" . @@ -189,6 +237,7 @@ function semver_setmetadata() { } function semver_addmetadata() { + # args: addmetadata majorV minorV patchlevelV preleaseV metadataV if [ -n "$1" ]; then __semver_check_metadata "$1" || return 1 local -a __sam_metadata @@ -199,11 +248,13 @@ function semver_addmetadata() { } function semver_compare_metadata() { + # args: metadata1 metadata2 # même algo que pour prelease semver_compare_prelease "$@" } function semver_copy() { + # args: majorDV minorDV patchlevelDV preleaseDV metadataDV majorSV minorSV patchlevelSV preleaseSV metadataSV setv "$1" "${!6}" setv "$2" "${!7}" setv "$3" "${!8}" @@ -212,6 +263,7 @@ function semver_copy() { } function semver_build() { + # args: majorV minorV patchlevelV preleaseV metadataV echo_ "${!1}.${!2}.${!3}" array_isempty "$4" || recho_ "-$(array_join "$4" .)" array_isempty "$5" || recho_ "+$(array_join "$5" .)" @@ -219,6 +271,7 @@ function semver_build() { } function semver_setvar() { + # args: versionV majorV minorV patchlevelV preleaseV metadataV setv "$1" "$(semver_build "$2" "$3" "$4" "$5" "$6")" } @@ -228,9 +281,9 @@ function semver_setvar() { # uniquement un préfixe pour les noms de variable function psemver_parse() { semver_parse "$1" "${2}major" "${2}minor" "${2}patchlevel" "${2}prelease" "${2}metadata" "${2}valid"; } -function psemver_incmajor() { semver_incmajor "${1}major" "${1}minor" "${1}patchlevel" "${1}prelease" "${1}metadata"; } -function psemver_incminor() { semver_incminor "${1}major" "${1}minor" "${1}patchlevel" "${1}prelease" "${1}metadata"; } -function psemver_incpatchlevel() { semver_incpatchlevel "${1}major" "${1}minor" "${1}patchlevel" "${1}prelease" "${1}metadata"; } +function psemver_incmajor() { semver_incmajor "${1}major" "${1}minor" "${1}patchlevel" "${1}prelease" "${2}metadata" "$2" "$3"; } +function psemver_incminor() { semver_incminor "${1}major" "${1}minor" "${1}patchlevel" "${1}prelease" "${2}metadata" "$2" "$3"; } +function psemver_incpatchlevel() { semver_incpatchlevel "${1}major" "${1}minor" "${1}patchlevel" "${1}prelease" "${2}metadata" "$2" "$3"; } function psemver_setversion() { semver_setversion "$1" "${2}major" "${2}minor" "${2}patchlevel" "${2}prelease" "${2}metadata"; } function psemver_setprelease() { semver_setprelease "$1" "${2}major" "${2}minor" "${2}patchlevel" "${2}prelease" "${2}metadata"; } function psemver_compare_prelease() { semver_compare_prelease "${1}prelease" "${2}prelease"; } @@ -240,3 +293,32 @@ function psemver_compare_metadata() { semver_compare_metadata "${1}metadata" "${ function psemver_copy() { semver_copy "${1}major" "${1}minor" "${1}patchlevel" "${1}prelease" "${1}metadata" "${2}major" "${2}minor" "${2}patchlevel" "${2}prelease" "${2}metadata"; } function psemver_build() { semver_build "${1}major" "${1}minor" "${1}patchlevel" "${1}prelease" "${1}metadata"; } function psemver_setvar() { semver_setvar "$1" "${2}major" "${2}minor" "${2}patchlevel" "${2}prelease" "${2}metadata"; } + +function psemver_setprmd() { + local setprelease="$2" resetmetadata="$3" setmetadata="$4" addmetadata="$5" + + psemver_setprelease "$setprelease" "$1" || return 2 + # XXX pas encore implémenté + local setalpha setbeta setrc + if [ -n "$setalpha" ]; then : + elif [ -n "$setbeta" ]; then : + elif [ -n "$setrc" ]; then : + fi + + [ -n "$resetmetadata" ] && psemver_setmetadata "" "$1" + if [ -n "$setmetadata" ]; then + psemver_setmetadata "$setmetadata" "$1" || return 3 + fi + if [ -n "$addmetadata" ]; then + psemver_addmetadata "$addmetadata" "$1" || return 4 + fi + + return 0 +} + +function psemver_incsetprmd() { + local setprelease="$3" resetmetadata="$4" setmetadata="$5" addmetadata="$6" maven_update="$7" + [ -n "$1" ] && "psemver_inc$1" "$2" "$maven_update" "$setprelease" + shift + psemver_setprmd "$@" +} diff --git a/lib/ulib/support/install-pubkeys.sh b/lib/ulib/support/install-pubkeys.sh index efe0c41..40fc73c 100755 --- a/lib/ulib/support/install-pubkeys.sh +++ b/lib/ulib/support/install-pubkeys.sh @@ -62,6 +62,7 @@ export TMPDIR="${TMPDIR:-${TMP:-${TEMP:-/tmp}}}" [ -z "$USER" -a -n "$LOGNAME" ] && export USER="$LOGNAME" +[ -f /etc/debian_chroot ] && UTOOLS_CHROOT=1 [ -f /etc/nutoolsrc ] && . /etc/nutoolsrc [ -f ~/.nutoolsrc ] && . ~/.nutoolsrc true @@ -357,12 +358,91 @@ function testrp() { function err2out() { "$@" 2>&1 } + +function is_defined() { + [ -n "$(declare -p "$1" 2>/dev/null)" ] +} +function is_array() { + case "$(declare -p "$1" 2>/dev/null)" in declare\ -a*) return 0;; esac + return 1 +} + +function upvar() { + if unset -v "$1"; then + if [ $# -eq 2 ]; then + eval "$1=\"\$2\"" + else + eval "$1=(\"\${@:2}\")" + fi + fi +} +function array_upvar() { + unset -v "$1" && eval "$1=(\"\${@:2}\")" +} +function upvars() { + while [ $# -gt 0 ]; do + case "$1" in + -a) + unset -v "$2" && eval "$2=(\"\${@:3}\")" + break + ;; + -a*) + unset -v "$2" && eval "$2=(\"\${@:3:${1#-a}}\")" + shift $((${1#-a} + 2)) || return 1 + ;; + *) + unset -v "$1" && eval "$1=\"\$2\"" + shift; shift + ;; + esac + done +} + +function __ab_process_pending() { + local -a values + case "$mode" in + cmd) values="$("${pending[@]}")";; + ssplit) eval "values=($("${pending[@]}"))";; + lsplit) eval "values=($("${pending[@]}" | qlines))";; + add) values=("${pending[@]}");; + esac + cmd=("${cmd[@]}" "${values[@]}") + pending=() +} +function array_buildcmd() { + local desta="$1"; shift; local "$desta" + local mode=add + local -a pending cmd + while [ $# -gt 0 ]; do + case "$1" in + ++c|++cmd|++) __ab_process_pending; mode=cmd;; + ++s|++ssplit) __ab_process_pending; mode=ssplit;; + ++l|++lsplit) __ab_process_pending; mode=lsplit;; + ++a|++add) __ab_process_pending; mode=add;; + *) pending=("${pending[@]}" "$1");; + esac + shift + done + __ab_process_pending + array_upvar "$desta" "${cmd[@]}" +} +function buildcmd() { + local -a args + array_buildcmd args "$@" + qvals "${args[@]}" +} +function evalcmd() { + local -a args + array_buildcmd args "$@" + "${args[@]}" +} ##@inc]base.core ##@inc[base.string ## Fonctions de base: gestion des valeurs scalaires uprovide base.string urequire base.core + function straddp() { local p="$1"; shift echo "$p$*" @@ -453,6 +533,38 @@ function strrepl() { eval "$cmd" } +function strops() { + local -a __s_tmp + local __s_value="$1"; shift + while [ $# -gt 0 ]; do + case "$1" in + :-*|:=*|:\?*|:+*) eval '__s_value="${'"${__s_value}$1"'}"';; + d|deref) __s_value="${!__s_value}";; + dc|dcount|ds|dsize) + __s_value="${__s_value}[@]" + __s_tmp=("${!__s_value}") + __s_value="${#__s_tmp[@]}" + ;; + \#*|%*|/*|:*|^*|,*) eval '__s_value="${__s_value'"$1"'}"';; + l|length) __s_value="${#__s_value}";; + =|==|!=|\<|\>|-eq|-ne|-lt|-le|-gt|-ge) + __s_tmp=(\[ "$__s_value" "$@" ]); "${__s_tmp[@]}"; return $?;; + -n|-z) __s_tmp=(\[ "$1" "$__s_value" ]); "${__s_tmp[@]}"; return $?;; + +#*) eval '__s_value="'"${1#+#}"'$__s_value"';; + -#*) eval '__s_value="${__s_value'"${1#-}"'}"';; + +%*) eval '__s_value="$__s_value"'"${1#+%}";; + +*) eval '__s_value="$__s_value"'"${1#+}";; + -%*) eval '__s_value="${__s_value'"${1#-}"'}"';; + -*) eval '__s_value="${__s_value%'"${1#-}"'}"';; + mid|strmid) eval '__s_value="$(strmid "$2" "$__s_value")"'; shift;; + repl|strrepl) eval '__s_value="$(strrepl "$2" "$3" "$__s_value")"'; shift; shift;; + *) echo 1>&2 "strops: unknown operator: $1";; + esac + shift + done + echo "$__s_value" +} + function first_char() { local str="$*" echo "${str:0:1}" @@ -490,21 +602,19 @@ uprovide base.num function isnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//[0-9]/}" [ -z "$v" ] } function ispnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v//[0-9]/}" - [ -z "$v" ] + [ -z "${1//[0-9]/}" ] } function isrnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//./}" v="${v//,/}" v="${v//[0-9]/}" @@ -519,21 +629,19 @@ uprovide base.num function isnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//[0-9]/}" [ -z "$v" ] } function ispnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v//[0-9]/}" - [ -z "$v" ] + [ -z "${1//[0-9]/}" ] } function isrnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//./}" v="${v//,/}" v="${v//[0-9]/}" @@ -628,6 +736,8 @@ function qseds() { local s="$*" s="${s//\\/\\\\}" s="${s//\//\\/}" + s="${s// +/\\n}" recho "$s" } function _qform() { @@ -651,6 +761,14 @@ function qform() { echo fi } +function _qsql() { + local q="'" qq="''" + echo "${*//$q/$qq}" +} +function qsql() { + local q="'" qq="''" + echo "'${*//$q/$qq}'" +} ##@inc]base.quote ##@inc[base.split ## Fonctions de base: analyse et découpage de valeurs @@ -1051,12 +1169,91 @@ function testrp() { function err2out() { "$@" 2>&1 } + +function is_defined() { + [ -n "$(declare -p "$1" 2>/dev/null)" ] +} +function is_array() { + case "$(declare -p "$1" 2>/dev/null)" in declare\ -a*) return 0;; esac + return 1 +} + +function upvar() { + if unset -v "$1"; then + if [ $# -eq 2 ]; then + eval "$1=\"\$2\"" + else + eval "$1=(\"\${@:2}\")" + fi + fi +} +function array_upvar() { + unset -v "$1" && eval "$1=(\"\${@:2}\")" +} +function upvars() { + while [ $# -gt 0 ]; do + case "$1" in + -a) + unset -v "$2" && eval "$2=(\"\${@:3}\")" + break + ;; + -a*) + unset -v "$2" && eval "$2=(\"\${@:3:${1#-a}}\")" + shift $((${1#-a} + 2)) || return 1 + ;; + *) + unset -v "$1" && eval "$1=\"\$2\"" + shift; shift + ;; + esac + done +} + +function __ab_process_pending() { + local -a values + case "$mode" in + cmd) values="$("${pending[@]}")";; + ssplit) eval "values=($("${pending[@]}"))";; + lsplit) eval "values=($("${pending[@]}" | qlines))";; + add) values=("${pending[@]}");; + esac + cmd=("${cmd[@]}" "${values[@]}") + pending=() +} +function array_buildcmd() { + local desta="$1"; shift; local "$desta" + local mode=add + local -a pending cmd + while [ $# -gt 0 ]; do + case "$1" in + ++c|++cmd|++) __ab_process_pending; mode=cmd;; + ++s|++ssplit) __ab_process_pending; mode=ssplit;; + ++l|++lsplit) __ab_process_pending; mode=lsplit;; + ++a|++add) __ab_process_pending; mode=add;; + *) pending=("${pending[@]}" "$1");; + esac + shift + done + __ab_process_pending + array_upvar "$desta" "${cmd[@]}" +} +function buildcmd() { + local -a args + array_buildcmd args "$@" + qvals "${args[@]}" +} +function evalcmd() { + local -a args + array_buildcmd args "$@" + "${args[@]}" +} ##@inc]base.core ##@inc[base.string ## Fonctions de base: gestion des valeurs scalaires uprovide base.string urequire base.core + function straddp() { local p="$1"; shift echo "$p$*" @@ -1147,6 +1344,38 @@ function strrepl() { eval "$cmd" } +function strops() { + local -a __s_tmp + local __s_value="$1"; shift + while [ $# -gt 0 ]; do + case "$1" in + :-*|:=*|:\?*|:+*) eval '__s_value="${'"${__s_value}$1"'}"';; + d|deref) __s_value="${!__s_value}";; + dc|dcount|ds|dsize) + __s_value="${__s_value}[@]" + __s_tmp=("${!__s_value}") + __s_value="${#__s_tmp[@]}" + ;; + \#*|%*|/*|:*|^*|,*) eval '__s_value="${__s_value'"$1"'}"';; + l|length) __s_value="${#__s_value}";; + =|==|!=|\<|\>|-eq|-ne|-lt|-le|-gt|-ge) + __s_tmp=(\[ "$__s_value" "$@" ]); "${__s_tmp[@]}"; return $?;; + -n|-z) __s_tmp=(\[ "$1" "$__s_value" ]); "${__s_tmp[@]}"; return $?;; + +#*) eval '__s_value="'"${1#+#}"'$__s_value"';; + -#*) eval '__s_value="${__s_value'"${1#-}"'}"';; + +%*) eval '__s_value="$__s_value"'"${1#+%}";; + +*) eval '__s_value="$__s_value"'"${1#+}";; + -%*) eval '__s_value="${__s_value'"${1#-}"'}"';; + -*) eval '__s_value="${__s_value%'"${1#-}"'}"';; + mid|strmid) eval '__s_value="$(strmid "$2" "$__s_value")"'; shift;; + repl|strrepl) eval '__s_value="$(strrepl "$2" "$3" "$__s_value")"'; shift; shift;; + *) echo 1>&2 "strops: unknown operator: $1";; + esac + shift + done + echo "$__s_value" +} + function first_char() { local str="$*" echo "${str:0:1}" @@ -1374,6 +1603,8 @@ function parse_opts() { + [ -z "$__ULIB_NO_DISABLE_SET_X" ] && [[ $- == *x* ]] && { set +x; local __ULIB_PARSE_OPTS_SET_X=1; } # désactiver set -x pour cette fonction + local -a options_ names_ flags_ destargs_ local opts_ longopts_ __po_parse_optdescs "$@" || shift $? @@ -1383,17 +1614,28 @@ function parse_opts() { __po_process_options "$@" else [ -n "$destargs_" ] && setv "$destargs_" "$args_" + [ -n "$__ULIB_SET_X" ] && set -x return 1 fi + + [ -n "$__ULIB_PARSE_OPTS_SET_X" ] && set -x; return 0 } function parse_args_check() { - parse_opts "${PRETTYOPTS[@]}" "${args[@]}" @ args -- "$@" && return 0 - eerror "$args" - return 1 + [ -z "$__ULIB_NO_DISABLE_SET_X" ] && [[ $- == *x* ]] && { set +x; local __ULIB_PARSE_ARGS_SET_X=1; } # désactiver set -x pour cette fonction + if parse_opts "${PRETTYOPTS[@]}" "${args[@]}" @ args -- "$@"; then + [ -n "$__ULIB_PARSE_ARGS_SET_X" ] && set -x + return 0 + else + eerror "$args" + [ -n "$__ULIB_PARSE_ARGS_SET_X" ] && set -x + return 1 + fi } function parse_args() { + [ -z "$__ULIB_NO_DISABLE_SET_X" ] && [[ $- == *x* ]] && { set +x; local __ULIB_PARSE_ARGS_SET_X=1; } # désactiver set -x pour cette fonction parse_opts "${PRETTYOPTS[@]}" "${args[@]}" @ args -- "$@" || die "$args" + [ -n "$__ULIB_PARSE_ARGS_SET_X" ] && set -x; return 0 } HELP_DESC= @@ -1766,12 +2008,91 @@ function testrp() { function err2out() { "$@" 2>&1 } + +function is_defined() { + [ -n "$(declare -p "$1" 2>/dev/null)" ] +} +function is_array() { + case "$(declare -p "$1" 2>/dev/null)" in declare\ -a*) return 0;; esac + return 1 +} + +function upvar() { + if unset -v "$1"; then + if [ $# -eq 2 ]; then + eval "$1=\"\$2\"" + else + eval "$1=(\"\${@:2}\")" + fi + fi +} +function array_upvar() { + unset -v "$1" && eval "$1=(\"\${@:2}\")" +} +function upvars() { + while [ $# -gt 0 ]; do + case "$1" in + -a) + unset -v "$2" && eval "$2=(\"\${@:3}\")" + break + ;; + -a*) + unset -v "$2" && eval "$2=(\"\${@:3:${1#-a}}\")" + shift $((${1#-a} + 2)) || return 1 + ;; + *) + unset -v "$1" && eval "$1=\"\$2\"" + shift; shift + ;; + esac + done +} + +function __ab_process_pending() { + local -a values + case "$mode" in + cmd) values="$("${pending[@]}")";; + ssplit) eval "values=($("${pending[@]}"))";; + lsplit) eval "values=($("${pending[@]}" | qlines))";; + add) values=("${pending[@]}");; + esac + cmd=("${cmd[@]}" "${values[@]}") + pending=() +} +function array_buildcmd() { + local desta="$1"; shift; local "$desta" + local mode=add + local -a pending cmd + while [ $# -gt 0 ]; do + case "$1" in + ++c|++cmd|++) __ab_process_pending; mode=cmd;; + ++s|++ssplit) __ab_process_pending; mode=ssplit;; + ++l|++lsplit) __ab_process_pending; mode=lsplit;; + ++a|++add) __ab_process_pending; mode=add;; + *) pending=("${pending[@]}" "$1");; + esac + shift + done + __ab_process_pending + array_upvar "$desta" "${cmd[@]}" +} +function buildcmd() { + local -a args + array_buildcmd args "$@" + qvals "${args[@]}" +} +function evalcmd() { + local -a args + array_buildcmd args "$@" + "${args[@]}" +} ##@inc]base.core ##@inc[base.string ## Fonctions de base: gestion des valeurs scalaires uprovide base.string urequire base.core + function straddp() { local p="$1"; shift echo "$p$*" @@ -1862,6 +2183,38 @@ function strrepl() { eval "$cmd" } +function strops() { + local -a __s_tmp + local __s_value="$1"; shift + while [ $# -gt 0 ]; do + case "$1" in + :-*|:=*|:\?*|:+*) eval '__s_value="${'"${__s_value}$1"'}"';; + d|deref) __s_value="${!__s_value}";; + dc|dcount|ds|dsize) + __s_value="${__s_value}[@]" + __s_tmp=("${!__s_value}") + __s_value="${#__s_tmp[@]}" + ;; + \#*|%*|/*|:*|^*|,*) eval '__s_value="${__s_value'"$1"'}"';; + l|length) __s_value="${#__s_value}";; + =|==|!=|\<|\>|-eq|-ne|-lt|-le|-gt|-ge) + __s_tmp=(\[ "$__s_value" "$@" ]); "${__s_tmp[@]}"; return $?;; + -n|-z) __s_tmp=(\[ "$1" "$__s_value" ]); "${__s_tmp[@]}"; return $?;; + +#*) eval '__s_value="'"${1#+#}"'$__s_value"';; + -#*) eval '__s_value="${__s_value'"${1#-}"'}"';; + +%*) eval '__s_value="$__s_value"'"${1#+%}";; + +*) eval '__s_value="$__s_value"'"${1#+}";; + -%*) eval '__s_value="${__s_value'"${1#-}"'}"';; + -*) eval '__s_value="${__s_value%'"${1#-}"'}"';; + mid|strmid) eval '__s_value="$(strmid "$2" "$__s_value")"'; shift;; + repl|strrepl) eval '__s_value="$(strrepl "$2" "$3" "$__s_value")"'; shift; shift;; + *) echo 1>&2 "strops: unknown operator: $1";; + esac + shift + done + echo "$__s_value" +} + function first_char() { local str="$*" echo "${str:0:1}" @@ -2089,6 +2442,8 @@ function parse_opts() { + [ -z "$__ULIB_NO_DISABLE_SET_X" ] && [[ $- == *x* ]] && { set +x; local __ULIB_PARSE_OPTS_SET_X=1; } # désactiver set -x pour cette fonction + local -a options_ names_ flags_ destargs_ local opts_ longopts_ __po_parse_optdescs "$@" || shift $? @@ -2098,17 +2453,28 @@ function parse_opts() { __po_process_options "$@" else [ -n "$destargs_" ] && setv "$destargs_" "$args_" + [ -n "$__ULIB_SET_X" ] && set -x return 1 fi + + [ -n "$__ULIB_PARSE_OPTS_SET_X" ] && set -x; return 0 } function parse_args_check() { - parse_opts "${PRETTYOPTS[@]}" "${args[@]}" @ args -- "$@" && return 0 - eerror "$args" - return 1 + [ -z "$__ULIB_NO_DISABLE_SET_X" ] && [[ $- == *x* ]] && { set +x; local __ULIB_PARSE_ARGS_SET_X=1; } # désactiver set -x pour cette fonction + if parse_opts "${PRETTYOPTS[@]}" "${args[@]}" @ args -- "$@"; then + [ -n "$__ULIB_PARSE_ARGS_SET_X" ] && set -x + return 0 + else + eerror "$args" + [ -n "$__ULIB_PARSE_ARGS_SET_X" ] && set -x + return 1 + fi } function parse_args() { + [ -z "$__ULIB_NO_DISABLE_SET_X" ] && [[ $- == *x* ]] && { set +x; local __ULIB_PARSE_ARGS_SET_X=1; } # désactiver set -x pour cette fonction parse_opts "${PRETTYOPTS[@]}" "${args[@]}" @ args -- "$@" || die "$args" + [ -n "$__ULIB_PARSE_ARGS_SET_X" ] && set -x; return 0 } HELP_DESC= @@ -2602,6 +2968,84 @@ function testrp() { function err2out() { "$@" 2>&1 } + +function is_defined() { + [ -n "$(declare -p "$1" 2>/dev/null)" ] +} +function is_array() { + case "$(declare -p "$1" 2>/dev/null)" in declare\ -a*) return 0;; esac + return 1 +} + +function upvar() { + if unset -v "$1"; then + if [ $# -eq 2 ]; then + eval "$1=\"\$2\"" + else + eval "$1=(\"\${@:2}\")" + fi + fi +} +function array_upvar() { + unset -v "$1" && eval "$1=(\"\${@:2}\")" +} +function upvars() { + while [ $# -gt 0 ]; do + case "$1" in + -a) + unset -v "$2" && eval "$2=(\"\${@:3}\")" + break + ;; + -a*) + unset -v "$2" && eval "$2=(\"\${@:3:${1#-a}}\")" + shift $((${1#-a} + 2)) || return 1 + ;; + *) + unset -v "$1" && eval "$1=\"\$2\"" + shift; shift + ;; + esac + done +} + +function __ab_process_pending() { + local -a values + case "$mode" in + cmd) values="$("${pending[@]}")";; + ssplit) eval "values=($("${pending[@]}"))";; + lsplit) eval "values=($("${pending[@]}" | qlines))";; + add) values=("${pending[@]}");; + esac + cmd=("${cmd[@]}" "${values[@]}") + pending=() +} +function array_buildcmd() { + local desta="$1"; shift; local "$desta" + local mode=add + local -a pending cmd + while [ $# -gt 0 ]; do + case "$1" in + ++c|++cmd|++) __ab_process_pending; mode=cmd;; + ++s|++ssplit) __ab_process_pending; mode=ssplit;; + ++l|++lsplit) __ab_process_pending; mode=lsplit;; + ++a|++add) __ab_process_pending; mode=add;; + *) pending=("${pending[@]}" "$1");; + esac + shift + done + __ab_process_pending + array_upvar "$desta" "${cmd[@]}" +} +function buildcmd() { + local -a args + array_buildcmd args "$@" + qvals "${args[@]}" +} +function evalcmd() { + local -a args + array_buildcmd args "$@" + "${args[@]}" +} ##@inc]base.core ##@inc[base.num ## Fonctions de base: gestion des valeurs numériques @@ -2609,21 +3053,19 @@ uprovide base.num function isnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//[0-9]/}" [ -z "$v" ] } function ispnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v//[0-9]/}" - [ -z "$v" ] + [ -z "${1//[0-9]/}" ] } function isrnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//./}" v="${v//,/}" v="${v//[0-9]/}" @@ -2638,21 +3080,19 @@ uprovide base.num function isnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//[0-9]/}" [ -z "$v" ] } function ispnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v//[0-9]/}" - [ -z "$v" ] + [ -z "${1//[0-9]/}" ] } function isrnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//./}" v="${v//,/}" v="${v//[0-9]/}" @@ -2742,6 +3182,8 @@ function qseds() { local s="$*" s="${s//\\/\\\\}" s="${s//\//\\/}" + s="${s// +/\\n}" recho "$s" } function _qform() { @@ -2765,6 +3207,14 @@ function qform() { echo fi } +function _qsql() { + local q="'" qq="''" + echo "${*//$q/$qq}" +} +function qsql() { + local q="'" qq="''" + echo "'${*//$q/$qq}'" +} ##@inc]base.quote uprovide base.compat urequire base.core base.num base.bool base.quote @@ -3318,8 +3768,8 @@ function ppath() { [ -n "$cwd" ] || cwd="$(pwd)" [ "$path" = "$cwd" ] && path="." - [ "$cwd" != "/" -a "$cwd" != "$HOME" ] && path="${path/#$cwd\//}" - path="${path/#$HOME/~}" + [ "$cwd" != "/" -a "$cwd" != "$HOME" ] && path="${path#$cwd/}" + [ "${path#$HOME/}" != "$path" ] && path="~${path#$HOME}" rawecho "$path" } @@ -3734,15 +4184,18 @@ function __cpdir() { } __CPNOVCS_RSYNC_SLOW=1 # synchro potentiellement plus lente, mais plus fidèle (option -c) __CPNOVCS_RSYNC_ARGS=(-q) +__CPNOVCS_INCLUDE_VCS= # ne pas ignorer les répertoires de VCS function cpnovcs() { local src="$1" destdir="$2" [ -d "$destdir" ] || mkdir -p "$destdir" || return 1 if progexists rsync; then - local gitexclude=/.git/ - if [ "${src%/}" == "$src" ]; then - gitexclude="/$(basename -- "$src")$gitexclude" + local -a novcs + if [ -z "$__CPNOVCS_INCLUDE_VCS" ]; then + local gitexclude=/.git/ + [ "${src%/}" == "$src" ] && gitexclude="/$(basename -- "$src")$gitexclude" + novcs=(--exclude CVS/ --exclude .svn/ --exclude "$gitexclude") fi - rsync -a ${__CPNOVCS_RSYNC_SLOW:+-c} --exclude CVS/ --exclude .svn/ --exclude "$gitexclude" "${__CPNOVCS_RSYNC_ARGS[@]}" "$src" "$destdir/" + rsync -a ${__CPNOVCS_RSYNC_SLOW:+-c} "${novcs[@]}" "${__CPNOVCS_RSYNC_ARGS[@]}" "$src" "$destdir/" elif [ "${src%/}" != "$src" ]; then __cpdir "$src" "$destdir" else @@ -3751,6 +4204,10 @@ function cpnovcs() { __cpdir "$src" "$destdir/$srcname" fi } +function cpvcs() { + local __CPNOVCS_INCLUDE_VCS=1 + cpnovcs "$@" +} function cpdirnovcs() { if [ -d "$1" ]; then cpnovcs "$1/" "$2" @@ -4175,8 +4632,10 @@ function ensure_hostname() { ewarn "Cette commande n'est valide que sur l'hôte ${userhosts[0]}" fi - enote "Vous pouvez tenter de relancer le script sur ${userhosts[0]}, mais cela requière que ce script ET les données dont il a besoin soient installés dans la même version et dans le même répertoire sur l'hôte distant" - if ask_yesno "Voulez-vous tenter de relancer le script sur l'hôte distant?" N; then + eimportant "Vous pouvez tenter de relancer le script sur ${userhosts[0]}" + eimportant "Cela requière que ce script ET les données dont il a besoin soient installés dans la même version et dans le même répertoire sur l'hôte distant. +En l'occurence, ce script est accédé par le chemin $script et ce chemin doit exister aussi sur le serveur distant." + if ask_yesno "Voulez-vous tenter de relancer le script sur l'hôte distant?" X; then splitfsep "${userhosts[0]}" : userhost path splituserhost "$userhost" user host [ -n "$user" ] || user=root @@ -4222,7 +4681,7 @@ function hex(i, s) { if (length(s) < 2) s = "0" s return s } -function quote_html(s) { +function qhtml(s) { gsub(/&/, "\\&", s) gsub(/"/, "\\"", s) gsub(/>/, "\\>", s) @@ -4236,39 +4695,57 @@ function unquote_html(s) { gsub(/&/, "\\&", s) return s } -function quote_value(s) {'" +function qval(s) {'" gsub(/'/, \"'\\\\''\", s) return \"'\" s \"'\" "'} -function quoted_values( i, line) { +function sqval(s) { + return " " qval(s) +} +function qvals( i, line) { line = "" for (i = 1; i <= NF; i++) { if (i > 1) line = line " " - line = line quote_value($i) + line = line qval($i) } return line } -function quote_regexp(s) { +function sqvals() { + return " " qvals() +} +function qarr(values, prefix, i, count, line) { + line = prefix + count = array_len(values) + for (i = 1; i <= count; i++) { + if (i > 1 || line != "") line = line " " + line = line qval(values[i]) + } + return line +} +function qregexp(s) { gsub(/[[\\.^$*+?()|{]/, "\\\\&", s) return s } -function quote_subrepl(s) { +function qsubrepl(s) { gsub(/\\/, "\\\\", s) gsub(/&/, "\\\\&", s) return s } -function quote_grep(s) { +function qgrep(s) { gsub(/[[\\.^$*]/, "\\\\&", s) return s } -function quote_egrep(s) { +function qegrep(s) { gsub(/[[\\.^$*+?()|{]/, "\\\\&", s) return s } -function quote_sql(s) {'" +function qsql(s, suffix) {'" gsub(/'/, \"''\", s) - return \"'\" s \"'\" + return \"'\" s \"'\" (suffix != \"\"? \" \" suffix: \"\") "'} +function cqsql(s, suffix) { + return "," qsql(s, suffix) +} function unquote_mysqlcsv(s) { gsub(/\\n/, "\n", s) gsub(/\\t/, "\t", s) @@ -4276,6 +4753,24 @@ function unquote_mysqlcsv(s) { gsub(/\\\\/, "\\", s) return s } +function sval(s) { + if (s == "") return s + else return " " s +} +function cval(s, suffix) { + if (s == "") return s + else return "," s (suffix != ""? " " suffix: "") +} +function quote_html(s) { return qhtml(s) } +function quote_value(s) { return qval(s) } +function qsval(s) { return sqval(s) } +function quoted_values() { return qvals() } +function qsvals(s) { return sqvals(s) } +function quote_regexp(s) { return qregexp(s) } +function quote_subrepl(s) { return qsubrepl(s) } +function quote_grep(s) { return qgrep(s) } +function quote_egrep(s) { return qegrep(s) } +function quote_sql(s) { return qsql(s) } function __parse_date_fr(date, parts, y, m, d) { if (match(date, /([0-9][0-9]?)\/([0-9][0-9]?)\/([0-9][0-9][0-9][0-9])/, parts)) { @@ -4322,6 +4817,14 @@ function date_add(date, nbdays, serial) { return strftime("%d/%m/%Y", serial) } +function mkindices(values, indices, i, j) { + array_new(indices) + j = 1 + for (i in values) { + indices[j++] = int(i) + } + return asort(indices) +} function array_new(dest) { dest[0] = 0 # forcer awk à considérer dest comme un tableau delete dest @@ -4341,14 +4844,6 @@ function array_len(values, count, i) { } return count } -function mkindices(values, indices, i, j) { - array_new(indices) - j = 1 - for (i in values) { - indices[j++] = int(i) - } - return asort(indices) -} function array_copy(dest, src, count, indices, i) { array_new(dest) count = mkindices(src, indices) @@ -4741,6 +5236,7 @@ function b64decode(src, result, base1, base2, base3, base4) { } ' function awkdef() { + [ -z "$__ULIB_NO_DISABLE_SET_X" ] && [[ $- == *x* ]] && { set +x; local __ULIB_AWKDEF_SET_X=1; } # désactiver set -x pour cette fonction if [ "${1:0:3}" == "-f" ]; then shift @@ -4811,6 +5307,8 @@ function awkdef() { rawecho "$__ad_arg" done fi + + [ -n "$__ULIB_AWKDEF_SET_X" ] && set -x; return 0 } function lawkrun() { local -a __ar_defs __ar_args @@ -4943,6 +5441,43 @@ function utools_local() { done } +function stdredir() { + local __redirs __in __out __err + if [ -n "$1" -o "$1" == /dev/stdin ]; then + if [ "${1#<}" != "$1" ]; then + __in="${1#<}" + else + __in="$1" + fi + __redirs="$__redirs"' <"$__in"' + fi; shift + if [ -n "$1" -o "$1" == /dev/stdout ]; then + if [ "${1#>>}" != "$1" ]; then + __out="${1#>>}" + __redirs="$__redirs"' >>"$__out"' + elif [ "${1#>}" != "$1" ]; then + __out="${1#>}" + __redirs="$__redirs"' >"$__out"' + else + __out="$1" + __redirs="$__redirs"' >"$__out"' + fi + fi; shift + if [ -n "$1" -o "$1" == /dev/stderr ]; then + if [ "${1#>>}" != "$1" ]; then + __err="${1#>>}" + __redirs="$__redirs"' 2>>"$__err"' + elif [ "${1#>}" != "$1" ]; then + __err="${1#>}" + __redirs="$__redirs"' 2>"$__err"' + else + __err="$1" + __redirs="$__redirs"' 2>"$__err"' + fi + fi; shift + eval '"$@"'"$__redirs" +} + function isatty() { tty -s <&1 } @@ -5033,6 +5568,19 @@ function eerror_if() { fi } +function noerror() { + [ $# -gt 0 ] || set : + "$@" || return 0 +} +function noout() { + [ $# -gt 0 ] || return 0 + "$@" >/dev/null +} +function noerr() { + [ $# -gt 0 ] || return 0 + "$@" 2>/dev/null +} + TAB=$'\t' LATIN1=iso-8859-1 LATIN9=iso-8859-15 @@ -5176,9 +5724,9 @@ function __indent() { rawecho "$1" fi } -function __eerror() { tooenc "$(__edate)${__tlevel}E $(__indent "$1")"; } -function __ewarn() { tooenc "$(__edate)${__tlevel}W $(__indent "$1")"; } -function __enote() { tooenc "$(__edate)${__tlevel}N $(__indent "$1")"; } +function __eerror() { tooenc "$(__edate)${__tlevel}ERROR $(__indent "$1")"; } +function __ewarn() { tooenc "$(__edate)${__tlevel}WARNING $(__indent "$1")"; } +function __enote() { tooenc "$(__edate)${__tlevel}NOTE $(__indent "$1")"; } function __ebanner() { local maxi="${COLUMNS:-80}" local -a lines @@ -5200,23 +5748,23 @@ function __ebanner() { done tooenc "$psfix" } -function __eimportant() { tooenc "$(__edate)${__tlevel}! $(__indent "$1")"; } -function __eattention() { tooenc "$(__edate)${__tlevel}* $(__indent "$1")"; } -function __einfo() { tooenc "$(__edate)${__tlevel}I $(__indent "$1")"; } +function __eimportant() { tooenc "$(__edate)${__tlevel}IMPORTANT $(__indent "$1")"; } +function __eattention() { tooenc "$(__edate)${__tlevel}ATTENTION $(__indent "$1")"; } +function __einfo() { tooenc "$(__edate)${__tlevel}INFO $(__indent "$1")"; } function __eecho() { tooenc "$(__edate)${__tlevel}$(__indent "$1")"; } function __eecho_() { tooenc_ "$(__edate)${__tlevel}$(__indent "$1")"; } -function __edebug() { tooenc "$(__edate)${__tlevel}D $(__indent "$1")"; } +function __edebug() { tooenc "$(__edate)${__tlevel}DEBUG $(__indent "$1")"; } function __estep() { tooenc "$(__edate)${__tlevel}. $(__indent "$1")"; } -function __estepe() { __estep "$@"; } -function __estepw() { __estep "$@"; } -function __estepn() { __estep "$@"; } -function __estepi() { __estep "$@"; } +function __estepe() { tooenc "$(__edate)${__tlevel}.E $(__indent "$1")"; } +function __estepw() { tooenc "$(__edate)${__tlevel}.W $(__indent "$1")"; } +function __estepn() { tooenc "$(__edate)${__tlevel}.N $(__indent "$1")"; } +function __estepi() { tooenc "$(__edate)${__tlevel}.I $(__indent "$1")"; } function __estep_() { tooenc_ "$(__edate)${__tlevel}. $(__indent "$1")"; } -function __estepe_() { __estep_ "$@"; } -function __estepw_() { __estep_ "$@"; } -function __estepn_() { __estep_ "$@"; } -function __estepi_() { __estep_ "$@"; } -function __etitle() { tooenc "$(__edate)${__tlevel}T $(__indent "$1")"; } +function __estepe_() { tooenc_ "$(__edate)${__tlevel}.E $(__indent "$1")"; } +function __estepw_() { tooenc_ "$(__edate)${__tlevel}.W $(__indent "$1")"; } +function __estepn_() { tooenc_ "$(__edate)${__tlevel}.N $(__indent "$1")"; } +function __estepi_() { tooenc_ "$(__edate)${__tlevel}.I $(__indent "$1")"; } +function __etitle() { tooenc "$(__edate)${__tlevel}=== $(__indent "$1")"; } function __ebegin() { tooenc_ "$(__edate)${__tlevel}. $(__indent "$1"): "; } function __edoto() { echo_ "."; } function __edotw() { echo_ "w"; } @@ -5538,17 +6086,74 @@ function ask_yesno() { local r is_yes "$default" && prompt="[On]" if [ -n "$message" ]; then - tooenc_ "$message" 1>&2 + __eecho_ "$message" 1>&2 else - tooenc_ "Voulez-vous continuer?" "$UTF8" 1>&2 + OENC="$UTF8" __eecho_ "Voulez-vous continuer?" 1>&2 fi - tooenc_ " $prompt " "$UTF8" 1>&2 + OENC="$UTF8" tooenc_ " $prompt " 1>&2 uread r is_yes "${r:-$default}" else is_yes "$default" fi } +function ask_any() { + local interactive=1 + if [[ "$1" == -* ]]; then + if [ "$1" != -- ]; then + check_interaction "$1" || interactive= + fi + shift + else + check_interaction -c || interactive= + fi + local format="${2:-+Oq}" + format="${format/+O/On}" + format="${format/+N/oN}" + if [ -n "$interactive" ]; then + format="${format/+C/oN}" + format="${format/+X/On}" + else + format="${format/+C/On}" + format="${format/+X/oN}" + fi + local i count="${#format}" + + if [ -n "$interactive" ]; then + eflush + local message="${1:-Voulez-vous continuer?}" + local prompt="[$format]" + local r f lf defi + while true; do + __eecho_ "$message $prompt " 1>&2 + uread r + r="$(strlower "${r:0:1}")" + i=0; defi= + while [ $i -lt $count ]; do + f="${format:$i:1}" + lf="$(strlower "$f")" + [ "$r" == "$lf" ] && return $i + if [ -z "$defi" ]; then + [[ "$f" =~ [A-Z] ]] && defi="$i" + fi + if [ "$lf" == o ]; then + case "$r" in o|y|1|v|t) return $i;; esac + elif [ "$lf" == n ]; then + case "$r" in n|f|0) return $i;; esac + fi + i=$(($i + 1)) + done + [ -z "$r" ] && return ${defi:-0} + done + else + i=0 + while [ $i -lt $count ]; do + [[ "${format:$i:1}" =~ [A-Z] ]] && return $i + i=$(($i + 1)) + done + return 0 + fi +} function read_value() { local -a __rv_opts __rv_readline=1 __rv_showdef=1 __rv_nl= __rv_opts=() @@ -5584,12 +6189,12 @@ function __rv_read() { local __rv_r while true; do if [ -n "$__rv_msg" ]; then - tooenc_ "$__rv_msg" 1>&2 + __eecho_ "$__rv_msg" 1>&2 else - tooenc_ "Entrez la valeur" "$UTF8" 1>&2 + OENC="$UTF8" __eecho_ "Entrez la valeur" 1>&2 fi if [ -n "$__rv_readline" ]; then - tooenc_ ": " "$UTF8" 1>&2 + OENC="$UTF8" tooenc_ ": " 1>&2 uread -e ${__rv_d:+-i"$__rv_d"} "${__rv_opts[@]}" __rv_r else if [ -n "$__rv_d" ]; then @@ -5599,7 +6204,7 @@ function __rv_read() { tooenc_ " [****]" 1>&2 fi fi - tooenc_ ": " "$UTF8" 1>&2 + OENC="$UTF8" tooenc_ ": " 1>&2 uread "${__rv_opts[@]}" __rv_r [ -n "$__rv_nl" ] && echo fi @@ -5630,24 +6235,24 @@ function simple_menu() { local __sm_c=0 __sm_i __sm_choice while true; do if [ "$__sm_c" == "0" ]; then - [ -n "$__sm_title" ] && tooenc "=== $__sm_title ===" 1>&2 + [ -n "$__sm_title" ] && __eecho "=== $__sm_title ===" 1>&2 __sm_i=1 for __sm_option in "${__sm_options[@]}"; do if [ "$__sm_option" == "$__sm_default" ]; then - tooenc "$__sm_i*- $__sm_option" 1>&2 + __eecho "$__sm_i*- $__sm_option" 1>&2 else - tooenc "$__sm_i - $__sm_option" 1>&2 + __eecho "$__sm_i - $__sm_option" 1>&2 fi let __sm_i=$__sm_i+1 done fi if [ -n "$__sm_yourchoice" ]; then - tooenc_ "$__sm_yourchoice" 1>&2 + __eecho_ "$__sm_yourchoice" 1>&2 else - tooenc_ "Entrez le numéro de l'option choisie" "$UTF8" 1>&2 + OENC="$UTF8" __eecho_ "Entrez le numéro de l'option choisie" 1>&2 fi - tooenc_ ": " "$UTF8" 1>&2 + OENC="$UTF8" tooenc_ ": " 1>&2 uread __sm_choice if [ -z "$__sm_choice" -a -n "$__sm_default" ]; then @@ -5667,7 +6272,7 @@ function simple_menu() { let __sm_c=$__sm_c+1 if [ "$__sm_c" -eq 5 ]; then - tooenc "" "$UTF8" 1>&2 + OENC="$UTF8" tooenc "" 1>&2 __sm_c=0 fi done @@ -5993,6 +6598,18 @@ function debug_tee() { } +function get_user_defaults_file() { + if [ -r "$HOME/etc/default.${HOSTNAME%%.*}/$1" ]; then + echo "$HOME/etc/default.${HOSTNAME%%.*}/$1" + elif [ -r "$HOME/etc/default/$1" ]; then + echo "$HOME/etc/default/$1" + elif [ -n "$UTOOLS_LOCAL_PROFILES" ]; then + echo "$HOME/etc/default.${HOSTNAME%%.*}/$1" + else + echo "$HOME/etc/default/$1" + fi +} + function get_defaults_files() { local __gd_dest="${1:-defaults}"; shift local -a __gd_fs @@ -6091,96 +6708,158 @@ function __setup_ALL_SYSvars() { __setup_ALL_SYSvars unset -f __setup_ALL_SYSvars +function __compute_local_sysinfos_data() { + SYSINFOS_DATA=( + "$UNAME_SYSTEM" + "$UNAME_MACHINE" + "$([ -f /etc/debian_version ] && cat /etc/debian_version)" + "$([ -f /etc/gentoo-release ] && cat /etc/gentoo-release)" + "$([ -f /etc/redhat-release ] && cat /etc/redhat-release)" + "$([ -f /System/Library/Frameworks/CoreServices.framework/Frameworks/Metadata.framework/Resources/version.plist ] && cat /System/Library/Frameworks/CoreServices.framework/Frameworks/Metadata.framework/Resources/version.plist)" + "$([ -f /System/Library/Frameworks/CoreServices.framework/Resources/version.plist ] && cat /System/Library/Frameworks/CoreServices.framework/Resources/version.plist)" + ) +} +function __dump_remote_sysinfos_data() { + "${2:-ssh}" "$1" "\ +uname -s +echo .----------------. +uname -m +echo .----------------. +[ -f /etc/debian_version ] && cat /etc/debian_version +echo .----------------. +[ -f /etc/gentoo-release ] && cat /etc/gentoo-release +echo .----------------. +[ -f /etc/redhat-release ] && cat /etc/redhat-release +echo .----------------. +[ -f /System/Library/Frameworks/CoreServices.framework/Frameworks/Metadata.framework/Resources/version.plist ] && cat /System/Library/Frameworks/CoreServices.framework/Frameworks/Metadata.framework/Resources/version.plist +echo .----------------. +[ -f /System/Library/Frameworks/CoreServices.framework/Resources/version.plist ] && cat /System/Library/Frameworks/CoreServices.framework/Resources/version.plist +echo .----------------." +} +function __build_sysinfos_data() { + awk ' +BEGIN { + data = "" + have_data = 0 + print "SYSINFOS_DATA=(" +} +function read_data() { + if (have_data) data = data "\n" + else have_data = 1 + data = data $0 +} +function dump_data() { + gsub(/'\''/, "'\'\\\\\'\''", data) + print "'\''" data "'\''" + data = "" + have_data = 0 +} +$0 == ".----------------." { dump_data(); next } +{ read_data() } +END { + dump_data() + print ")" +} +' +} +function __compute_sysinfos() { + local system="${SYSINFOS_DATA[0]}" + local machine="${SYSINFOS_DATA[1]}" + local debian_version="${SYSINFOS_DATA[2]}" + local gentoo_release="${SYSINFOS_DATA[3]}" + local redhat_release="${SYSINFOS_DATA[4]}" + local macosx_plist1="${SYSINFOS_DATA[5]}" + local macosx_plist2="${SYSINFOS_DATA[6]}" + + if [ "$system" == "Linux" ]; then + case "$machine" in + x86_64) MYSYSNAME=(linux64 linux); MYBITS=64;; + i386|i586|i686) MYSYSNAME=(linux32 linux); MYBITS=32;; + ppc) MYSYSNAME=(linuxppc32 linuxppc linux); MYBITS=32;; + ppc64) MYSYSNAME=(linuxppc64 linuxppc linux); MYBITS=64;; + arm*) MYSYSNAME=(linuxarm linux);; + *) MYSYSNAME=(linux);; + esac + if [ -n "$debian_version" ]; then + case "$debian_version" in + 9*|stretch*) MYSYSDIST=(debian debianlike); MYSYSVER=(stretch);; + 8*|jessie*) MYSYSDIST=(debian debianlike); MYSYSVER=(jessie);; + 7*|wheezy*) MYSYSDIST=(debian debianlike); MYSYSVER=(wheezy);; + 6*|squeeze*) MYSYSDIST=(debian debianlike); MYSYSVER=(squeeze);; + 5*) MYSYSDIST=(debian debianlike); MYSYSVER=(lenny);; + 4*) MYSYSDIST=(debian debianlike); MYSYSVER=(etch);; + *) MYSYSDIST=(debianlike);; + esac + elif [ -n "$gentoo_release" ]; then + MYSYSDIST=(gentoo) + elif [ -n "$redhat_release" ]; then + case "$redhat_release" in + Fedora*) MYSYSDIST=(fedora redhatlike);; + Red*Hat*Enterprise*Linux*) MYSYSDIST=(rhel redhatlike);; + CentOS*) MYSYSDIST=(centos redhatlike);; + *) MYSYSDIST=(redhatlike);; + esac + case "$redhat_release" in + Fedora*14*) MYSYSVER=(fedora14);; + Fedora*13*) MYSYSVER=(fedora13);; + Fedora*12*) MYSYSVER=(fedora12);; + Fedora*11*) MYSYSVER=(fedora11);; + Red*Hat*Enterprise*Linux*release\ 7*) MYSYSVER=(rhel7 redhat7);; + Red*Hat*Enterprise*Linux*release\ 6*) MYSYSVER=(rhel6 redhat6);; + Red*Hat*Enterprise*Linux*release\ 5*) MYSYSVER=(rhel5 redhat5);; + Red*Hat*Enterprise*Linux*release\ 4*) MYSYSVER=(rhel4 redhat4);; + CentOS*release\ 7*) MYSYSVER=(centos7 redhat7);; + CentOS*release\ 6*) MYSYSVER=(centos6 redhat6);; + CentOS*release\ 5*) MYSYSVER=(centos5 redhat5);; + CentOS*release\ 4*) MYSYSVER=(centos4 redhat4);; + esac + fi + elif [ "$system" == "Darwin" ]; then + function get_macosx_version() { + local plist + for plist in "$@"; do + [ -n "$plist" ] || continue + echo "$plist" | grep -A 1 CFBundleShortVersionString | grep string | sed 's/.*//g +s/<\/string>.*$//g' + break + done + } + MYSYSNAME=(macosx darwin) + case "$(get_macosx_version)" in + 10.7*) MYSYSDIST=(lion);; + 10.6*) MYSYSDIST=(snowleopard);; + 10.5*) MYSYSDIST=(leopard);; + 10.4*) MYSYSDIST=(tiger);; + 10.3*) MYSYSDIST=(panther);; + esac + fi +} + +function compute_local_sysinfos() { + local SYSINFOS_DATA + __compute_local_sysinfos_data + __compute_sysinfos + if [ -n "$UTOOLS_CHROOT" ]; then + [ -n "$UTOOLS_SYSNAME" ] && eval "MYSYSNAME=($UTOOLS_SYSNAME)" + [ -n "$UTOOLS_BITS" ] && eval "MYBITS=$UTOOLS_BITS" + [ -n "$UTOOLS_SYSDIST" ] && eval "MYSYSDIST=($UTOOLS_SYSDIST)" + [ -n "$UTOOLS_SYSVER" ] && eval "MYSYSVER=($UTOOLS_SYSVER)" + fi +} +function compute_remote_sysinfos() { + local SYSINFOS_DATA + eval "$(__dump_remote_sysinfos_data "$@" | __build_sysinfos_data)" + __compute_sysinfos +} + +SYSINFOSLOCALS="\ +local -a MYSYSNAME MYSYSDIST MYSYSVER +local MYBITS" MYSYSNAME=() MYBITS= MYSYSDIST=() MYSYSVER=() -if [ "$UNAME_SYSTEM" == "Linux" ]; then - case "$UNAME_MACHINE" in - x86_64) - MYSYSNAME=(linux64 linux) - MYBITS=64 - ;; - i386|i586|i686) - MYSYSNAME=(linux32 linux) - MYBITS=32 - ;; - ppc) - MYSYSNAME=(linuxppc32 linuxppc linux) - MYBITS=32 - ;; - ppc64) - MYSYSNAME=(linuxppc64 linuxppc linux) - MYBITS=64 - ;; - arm*) - MYSYSNAME=(linuxarm linux) - ;; - *) - MYSYSNAME=(linux) - ;; - esac - - if [ -f /etc/debian_version ]; then - case "$(//g -s/<\/string>.*$//g' - break - fi - done - } - MYSYSNAME=(macosx darwin) - case "$(get_macosx_version)" in - 10.7*) MYSYSDIST=(lion);; - 10.6*) MYSYSDIST=(snowleopard);; - 10.5*) MYSYSDIST=(leopard);; - 10.4*) MYSYSDIST=(tiger);; - 10.3*) MYSYSDIST=(panther);; - esac -fi -if [ -n "$UTOOLS_CHROOT" ]; then - [ -n "$UTOOLS_SYSNAME" ] && eval "MYSYSNAME=($UTOOLS_SYSNAME)" - [ -n "$UTOOLS_BITS" ] && eval "MYBITS=$UTOOLS_BITS" - [ -n "$UTOOLS_SYSDIST" ] && eval "MYSYSDIST=($UTOOLS_SYSDIST)" - [ -n "$UTOOLS_SYSVER" ] && eval "MYSYSVER=($UTOOLS_SYSVER)" -fi +compute_local_sysinfos function __get_sysdist_alias() { if ! array_contains ALL_SYSDISTS "$1"; then @@ -6273,11 +6952,28 @@ function ensure_sysinfos() { __fix_sysinfos_downward } +function get_sysinfos_desc() { + local sysname_="${1:-MYSYSNAME}"; sysname_="${!sysname_}" + local sysdist_="${2:-MYSYSDIST}"; sysdist_="${!sysdist_}" + local sysver_="${3:-MYSYSVER}"; sysver_="${!sysver_}" + echo "$sysname_${sysdist_:+/$sysdist_}${sysver_:+/$sysver_}" +} + function check_sysinfos() { - local sysnamevar_="MYSYSNAME" - local sysdistvar_="MYSYSDIST" - local sysvervar_="MYSYSVER" - local bitsvar_="MYBITS" + local sysnamevar_ sysdistvar_ sysvervar_ bitsvar_ + if [ "$1" == --vars ]; then + shift + if [[ "$1" != -* ]]; then sysnamevar_="${1:-MYSYSNAME}"; shift; fi + if [[ "$1" != -* ]]; then sysdistvar_="${1:-MYSYSDIST}"; shift; fi + if [[ "$1" != -* ]]; then sysvervar_="${1:-MYSYSVER}"; shift; fi + if [[ "$1" != -* ]]; then bitsvar_="${1:-MYBITS}"; shift; fi + else + sysnamevar_="MYSYSNAME" + sysdistvar_="MYSYSDIST" + sysvervar_="MYSYSVER" + bitsvar_="MYBITS" + fi + local check_=sysname r_=0 while [ -n "$1" ]; do if [[ "$1" == -* ]]; then @@ -6321,6 +7017,7 @@ function check_sysinfos() { if array_contains "$sysdistvar_" "$sysdist_"; then r_=0 check_=skip + [ "$sysdist_" == "$value_" ] && break elif [ "$sysdist_" == "$value_" ]; then break fi @@ -6360,6 +7057,7 @@ function check_sysinfos() { if array_contains "$sysvervar_" "$sysver_"; then r_=0 check_=skip + [ "$sysver_" == "$value_" ] && break elif [ "$sysver_" == "$value_" ]; then break fi @@ -6388,6 +7086,59 @@ function check_sysinfos() { done return $r_ } + +function on_debian() { + NUTOOLS_ON_DEBIAN= + if check_sysinfos -d debian; then + urequire debian + if [ $# -gt 0 ]; then + NUTOOLS_ON_DEBIAN=debian + "$@" + else + NUTOOLS_ON_DEBIAN=1 + fi + return 0 + else + return 1 + fi +} +function on_debian:() { on_debian "$@"; } +function __on_debian() { + [ -z "$NUTOOLS_ON_DEBIAN" -o "$NUTOOLS_ON_DEBIAN" != 1 ] && return 1 + local sysver="$1"; shift + if [ $# -gt 0 ]; then + if check_sysinfos -d debian -v "$sysver"; then + NUTOOLS_ON_DEBIAN="$sysver" + "$@" + return 0 + else + return 1 + fi + else + if check_sysinfos -d debian -v "$sysver+"; then + NUTOOLS_ON_DEBIAN="$sysver" + return 0 + fi + fi +} + +function on_stretch() { __on_debian stretch "$@"; } +function on_jessie() { __on_debian jessie "$@"; } +function on_wheezy() { __on_debian wheezy "$@"; } +function on_squeeze() { __on_debian squeeze "$@"; } +function on_default() { + if [ "$NUTOOLS_ON_DEBIAN" == 1 ]; then + if [ $# -gt 0 ]; then + "$@" + return 0 + else + return 0 + fi + elif [ -n "$NUTOOLS_ON_DEBIAN" ]; then + return 1 + fi + return 1 +} ##@inc]../sysinfos ##@inc[../compat # Code de support pour les architectures autre que Linux diff --git a/lib/ulib/templates/apacheconfig/confs.conf b/lib/ulib/support/python/__init__.py similarity index 100% rename from lib/ulib/templates/apacheconfig/confs.conf rename to lib/ulib/support/python/__init__.py diff --git a/lib/pyulib/src/ulib/ext/xpath/_xpath.py b/lib/ulib/support/python/xpath/__init__.py similarity index 75% rename from lib/pyulib/src/ulib/ext/xpath/_xpath.py rename to lib/ulib/support/python/xpath/__init__.py index d1c48bc..0741f64 100644 --- a/lib/pyulib/src/ulib/ext/xpath/_xpath.py +++ b/lib/ulib/support/python/xpath/__init__.py @@ -1,8 +1,11 @@ -import expr as E -import parser as P -import yappsrt as Y +from xpath.exceptions import * +import xpath.exceptions +import xpath.expr +import xpath.parser +import xpath.yappsrt -from exceptions import * +__all__ = ['find', 'findnode', 'findvalue', 'XPathContext', 'XPath'] +__all__.extend((x for x in dir(xpath.exceptions) if not x.startswith('_'))) def api(f): """Decorator for functions and methods that are part of the external @@ -60,19 +63,19 @@ class XPathContext(object): @api def find(self, expr, node, **kwargs): - return XPath.get(expr).find(node, context=self, **kwargs) + return xpath.find(expr, node, context=self, **kwargs) @api def findnode(self, expr, node, **kwargs): - return XPath.get(expr).findnode(node, context=self, **kwargs) + return xpath.findnode(expr, node, context=self, **kwargs) @api def findvalue(self, expr, node, **kwargs): - return XPath.get(expr).findvalue(node, context=self, **kwargs) + return xpath.findvalue(expr, node, context=self, **kwargs) @api def findvalues(self, expr, node, **kwargs): - return XPath.get(expr).findvalues(node, context=self, **kwargs) + return xpath.findvalues(expr, node, context=self, **kwargs) class XPath(): _max_cache = 100 @@ -82,9 +85,9 @@ class XPath(): """Init docs. """ try: - parser = P.XPath(P.XPathScanner(str(expr))) + parser = xpath.parser.XPath(xpath.parser.XPathScanner(str(expr))) self.expr = parser.XPath() - except Y.SyntaxError, e: + except xpath.yappsrt.SyntaxError, e: raise XPathParseError(str(expr), e.pos, e.msg) @classmethod @@ -112,7 +115,7 @@ class XPath(): @api def findnode(self, node, context=None, **kwargs): result = self.find(node, context, **kwargs) - if not E.nodesetp(result): + if not xpath.expr.nodesetp(result): raise XPathTypeError("expression is not a node-set") if len(result) == 0: return None @@ -121,18 +124,18 @@ class XPath(): @api def findvalue(self, node, context=None, **kwargs): result = self.find(node, context, **kwargs) - if E.nodesetp(result): + if xpath.expr.nodesetp(result): if len(result) == 0: return None - result = E.string(result) + result = xpath.expr.string(result) return result @api def findvalues(self, node, context=None, **kwargs): result = self.find(node, context, **kwargs) - if not E.nodesetp(result): + if not xpath.expr.nodesetp(result): raise XPathTypeError("expression is not a node-set") - return [E.string_value(x) for x in result] + return [xpath.expr.string_value(x) for x in result] def __repr__(self): return '%s.%s(%s)' % (self.__class__.__module__, @@ -141,3 +144,19 @@ class XPath(): def __str__(self): return str(self.expr) + +@api +def find(expr, node, **kwargs): + return XPath.get(expr).find(node, **kwargs) + +@api +def findnode(expr, node, **kwargs): + return XPath.get(expr).findnode(node, **kwargs) + +@api +def findvalue(expr, node, **kwargs): + return XPath.get(expr).findvalue(node, **kwargs) + +@api +def findvalues(expr, node, **kwargs): + return XPath.get(expr).findvalues(node, **kwargs) diff --git a/lib/ulib/support/python/xpath/exceptions.py b/lib/ulib/support/python/xpath/exceptions.py new file mode 100644 index 0000000..7ce017a --- /dev/null +++ b/lib/ulib/support/python/xpath/exceptions.py @@ -0,0 +1,49 @@ + +class XPathError(Exception): + """Base exception class used for all XPath exceptions.""" + +class XPathNotImplementedError(XPathError): + """Raised when an XPath expression contains a feature of XPath which + has not been implemented. + + """ + +class XPathParseError(XPathError): + """Raised when an XPath expression could not be parsed.""" + + def __init__(self, expr, pos, message): + XPathError.__init__(self) + self.expr = expr + self.pos = pos + self.err = message + + def __str__(self): + return ("Syntax error:\n" + + self.expr.replace("\n", " ") + "\n" + + ("-" * self.pos) + "^") + +class XPathTypeError(XPathError): + """Raised when an XPath expression is found to contain a type error. + For example, the expression "string()/node()" contains a type error + because the "string()" function does not return a node-set. + + """ + +class XPathUnknownFunctionError(XPathError): + """Raised when an XPath expression contains a function that has no + binding in the expression context. + + """ + +class XPathUnknownPrefixError(XPathError): + """Raised when an XPath expression contains a QName with a namespace + prefix that has no corresponding namespace declaration in the expression + context. + + """ + +class XPathUnknownVariableError(XPathError): + """Raised when an XPath expression contains a variable that has no + binding in the expression context. + + """ diff --git a/lib/ulib/support/python/xpath/expr.py b/lib/ulib/support/python/xpath/expr.py new file mode 100644 index 0000000..4199813 --- /dev/null +++ b/lib/ulib/support/python/xpath/expr.py @@ -0,0 +1,903 @@ +from __future__ import division +from itertools import * +import math +import operator +import re +import xml.dom +import weakref + +from xpath.exceptions import * +import xpath + + +# +# Data model functions. +# + +def string_value(node): + """Compute the string-value of a node.""" + if (node.nodeType == node.DOCUMENT_NODE or + node.nodeType == node.ELEMENT_NODE): + s = u'' + for n in axes['descendant'](node): + if n.nodeType == n.TEXT_NODE: + s += n.data + elif n.nodeType == n.CDATA_SECTION_NODE: + s += n.nodeValue + return s + + elif node.nodeType == node.ATTRIBUTE_NODE: + return node.value + + elif (node.nodeType == node.PROCESSING_INSTRUCTION_NODE or + node.nodeType == node.COMMENT_NODE or + node.nodeType == node.TEXT_NODE): + return node.data + + elif node.nodeType == node.CDATA_SECTION_NODE: + return node.nodeValue + +def document_order(node): + """Compute a document order value for the node. + + cmp(document_order(a), document_order(b)) will return -1, 0, or 1 if + a is before, identical to, or after b in the document respectively. + + We represent document order as a list of sibling indexes. That is, + the third child of the document node has an order of [2]. The first + child of that node has an order of [2,0]. + + Attributes have a sibling index of -1 (coming before all children of + their node) and are further ordered by name--e.g., [2,0,-1,'href']. + + """ + + # Attributes: parent-order + [-1, attribute-name] + if node.nodeType == node.ATTRIBUTE_NODE: + order = document_order(node.ownerElement) + order.extend((-1, node.name)) + return order + + # The document root (hopefully): [] + if node.parentNode is None: + return [] + + # Determine which child this is of its parent. + sibpos = 0 + sib = node + while sib.previousSibling is not None: + sibpos += 1 + sib = sib.previousSibling + + # Order: parent-order + [sibling-position] + order = document_order(node.parentNode) + order.append(sibpos) + return order + +# +# Type functions, operating on the various XPath types. +# +# Internally, we use the following representations: +# nodeset - list of DOM tree nodes in document order +# string - str or unicode +# boolean - bool +# number - int or float +# + +def nodeset(v): + """Convert a value to a nodeset.""" + if not nodesetp(v): + raise XPathTypeError, "value is not a node-set" + return v + +def nodesetp(v): + """Return true iff 'v' is a node-set.""" + if isinstance(v, list): + return True + +def string(v): + """Convert a value to a string.""" + if nodesetp(v): + if not v: + return u'' + return string_value(v[0]) + elif numberp(v): + if v == float('inf'): + return u'Infinity' + elif v == float('-inf'): + return u'-Infinity' + elif str(v) == 'nan': + return u'NaN' + elif int(v) == v and v <= 0xffffffff: + v = int(v) + return unicode(v) + elif booleanp(v): + return u'true' if v else u'false' + return v + +def stringp(v): + """Return true iff 'v' is a string.""" + return isinstance(v, basestring) + +def boolean(v): + """Convert a value to a boolean.""" + if nodesetp(v): + return len(v) > 0 + elif numberp(v): + if v == 0 or v != v: + return False + return True + elif stringp(v): + return v != '' + return v + +def booleanp(v): + """Return true iff 'v' is a boolean.""" + return isinstance(v, bool) + +def number(v): + """Convert a value to a number.""" + if nodesetp(v): + v = string(v) + try: + return float(v) + except ValueError: + return float('NaN') + +def numberp(v): + """Return true iff 'v' is a number.""" + return (not(isinstance(v, bool)) and + (isinstance(v, int) or isinstance(v, float))) + +class Expr(object): + """Abstract base class for XPath expressions.""" + + def evaluate(self, node, pos, size, context): + """Evaluate the expression. + + The context node, context position, and context size are passed as + arguments. + + Returns an XPath value: a nodeset, string, boolean, or number. + + """ + +class BinaryOperatorExpr(Expr): + """Base class for all binary operators.""" + + def __init__(self, op, left, right): + self.op = op + self.left = left + self.right = right + + def evaluate(self, node, pos, size, context): + # Subclasses either override evaluate() or implement operate(). + return self.operate(self.left.evaluate(node, pos, size, context), + self.right.evaluate(node, pos, size, context)) + + def __str__(self): + return '(%s %s %s)' % (self.left, self.op, self.right) + +class AndExpr(BinaryOperatorExpr): + """ and """ + + def evaluate(self, node, pos, size, context): + # Note that XPath boolean operations short-circuit. + return (boolean(self.left.evaluate(node, pos, size, context) and + boolean(self.right.evaluate(node, pos, size, context)))) + +class OrExpr(BinaryOperatorExpr): + """ or """ + + def evaluate(self, node, pos, size, context): + # Note that XPath boolean operations short-circuit. + return (boolean(self.left.evaluate(node, pos, size, context) or + boolean(self.right.evaluate(node, pos, size, context)))) + +class EqualityExpr(BinaryOperatorExpr): + """ = , != , etc.""" + + operators = { + '=' : operator.eq, + '!=' : operator.ne, + '<=' : operator.le, + '<' : operator.lt, + '>=' : operator.ge, + '>' : operator.gt, + } + + def operate(self, a, b): + if nodesetp(a): + for node in a: + if self.operate(string_value(node), b): + return True + return False + + if nodesetp(b): + for node in b: + if self.operate(a, string_value(node)): + return True + return False + + if self.op in ('=', '!='): + if booleanp(a) or booleanp(b): + convert = boolean + elif numberp(a) or numberp(b): + convert = number + else: + convert = string + else: + convert = number + + a, b = convert(a), convert(b) + return self.operators[self.op](a, b) + +def divop(x, y): + try: + return x / y + except ZeroDivisionError: + if x == 0 and y == 0: + return float('nan') + if x < 0: + return float('-inf') + return float('inf') + +class ArithmeticalExpr(BinaryOperatorExpr): + """ + , - , etc.""" + + # Note that we must use math.fmod for the correct modulo semantics. + operators = { + '+' : operator.add, + '-' : operator.sub, + '*' : operator.mul, + 'div' : divop, + 'mod' : math.fmod + } + + def operate(self, a, b): + return self.operators[self.op](number(a), number(b)) + +class UnionExpr(BinaryOperatorExpr): + """ | """ + + def operate(self, a, b): + if not nodesetp(a) or not nodesetp(b): + raise XPathTypeError("union operand is not a node-set") + + # Need to sort the result to preserve document order. + return sorted(set(chain(a, b)), key=document_order) + +class NegationExpr(Expr): + """- """ + + def __init__(self, expr): + self.expr = expr + + def evaluate(self, node, pos, size, context): + return -number(self.expr.evaluate(node, pos, size, context)) + + def __str__(self): + return '(-%s)' % self.expr + +class LiteralExpr(Expr): + """Literals--either numbers or strings.""" + + def __init__(self, literal): + self.literal = literal + + def evaluate(self, node, pos, size, context): + return self.literal + + def __str__(self): + if stringp(self.literal): + if "'" in self.literal: + return '"%s"' % self.literal + else: + return "'%s'" % self.literal + return string(self.literal) + +class VariableReference(Expr): + """Variable references.""" + + def __init__(self, prefix, name): + self.prefix = prefix + self.name = name + + def evaluate(self, node, pos, size, context): + try: + if self.prefix is not None: + try: + namespaceURI = context.namespaces[self.prefix] + except KeyError: + raise XPathUnknownPrefixError(self.prefix) + return context.variables[(namespaceURI, self.name)] + else: + return context.variables[self.name] + except KeyError: + raise XPathUnknownVariableError(str(self)) + + def __str__(self): + if self.prefix is None: + return '$%s' % self.name + else: + return '$%s:%s' % (self.prefix, self.name) + +class Function(Expr): + """Functions.""" + + def __init__(self, name, args): + self.name = name + self.args = args + self.evaluate = getattr(self, 'f_%s' % name.replace('-', '_'), None) + if self.evaluate is None: + raise XPathUnknownFunctionError, 'unknown function "%s()"' % name + + if len(self.args) < self.evaluate.minargs: + raise XPathTypeError, 'too few arguments for "%s()"' % name + if (self.evaluate.maxargs is not None and + len(self.args) > self.evaluate.maxargs): + raise XPathTypeError, 'too many arguments for "%s()"' % name + + # + # XPath functions are implemented by methods of the Function class. + # + # A method implementing an XPath function is decorated with the function + # decorator, and receives the evaluated function arguments as positional + # parameters. + # + + def function(minargs, maxargs, implicit=False, first=False, convert=None): + """Function decorator. + + minargs -- Minimum number of arguments taken by the function. + maxargs -- Maximum number of arguments taken by the function. + implicit -- True for functions which operate on a nodeset consisting + of the current context node when passed no argument. + (e.g., string() and number().) + convert -- When non-None, a function used to filter function arguments. + """ + def decorator(f): + def new_f(self, node, pos, size, context): + if implicit and len(self.args) == 0: + args = [[node]] + else: + args = [x.evaluate(node, pos, size, context) + for x in self.args] + if first: + args[0] = nodeset(args[0]) + if len(args[0]) > 0: + args[0] = args[0][0] + else: + args[0] = None + if convert is not None: + args = [convert(x) for x in args] + return f(self, node, pos, size, context, *args) + + new_f.minargs = minargs + new_f.maxargs = maxargs + new_f.__name__ = f.__name__ + new_f.__doc__ = f.__doc__ + return new_f + return decorator + + # Node Set Functions + + @function(0, 0) + def f_last(self, node, pos, size, context): + return size + + @function(0, 0) + def f_position(self, node, pos, size, context): + return pos + + @function(1, 1, convert=nodeset) + def f_count(self, node, pos, size, context, nodes): + return len(nodes) + + @function(1, 1) + def f_id(self, node, pos, size, context, arg): + if nodesetp(arg): + ids = (string_value(x) for x in arg) + else: + ids = [string(arg)] + if node.nodeType != node.DOCUMENT_NODE: + node = node.ownerDocument + return list(filter(None, (node.getElementById(id) for id in ids))) + + @function(0, 1, implicit=True, first=True) + def f_local_name(self, node, pos, size, context, argnode): + if argnode is None: + return '' + if (argnode.nodeType == argnode.ELEMENT_NODE or + argnode.nodeType == argnode.ATTRIBUTE_NODE): + return argnode.localName + elif argnode.nodeType == argnode.PROCESSING_INSTRUCTION_NODE: + return argnode.target + return '' + + @function(0, 1, implicit=True, first=True) + def f_namespace_uri(self, node, pos, size, context, argnode): + if argnode is None: + return '' + return argnode.namespaceURI + + @function(0, 1, implicit=True, first=True) + def f_name(self, node, pos, size, context, argnode): + if argnode is None: + return '' + if argnode.nodeType == argnode.ELEMENT_NODE: + return argnode.tagName + elif argnode.nodeType == argnode.ATTRIBUTE_NODE: + return argnode.name + elif argnode.nodeType == argnode.PROCESSING_INSTRUCTION_NODE: + return argnode.target + return '' + + # String Functions + + @function(0, 1, implicit=True, convert=string) + def f_string(self, node, pos, size, context, arg): + return arg + + @function(2, None, convert=string) + def f_concat(self, node, pos, size, context, *args): + return ''.join((x for x in args)) + + @function(2, 2, convert=string) + def f_starts_with(self, node, pos, size, context, a, b): + return a.startswith(b) + + @function(2, 2, convert=string) + def f_contains(self, node, pos, size, context, a, b): + return b in a + + @function(2, 2, convert=string) + def f_substring_before(self, node, pos, size, context, a, b): + try: + return a[0:a.index(b)] + except ValueError: + return '' + + @function(2, 2, convert=string) + def f_substring_after(self, node, pos, size, context, a, b): + try: + return a[a.index(b)+len(b):] + except ValueError: + return '' + + @function(2, 3) + def f_substring(self, node, pos, size, context, s, start, count=None): + s = string(s) + start = round(number(start)) + if start != start: + # Catch NaN + return '' + + if count is None: + end = len(s) + 1 + else: + end = start + round(number(count)) + if end != end: + # Catch NaN + return '' + if end > len(s): + end = len(s)+1 + + if start < 1: + start = 1 + if start > len(s): + return '' + if end <= start: + return '' + return s[int(start)-1:int(end)-1] + + @function(0, 1, implicit=True, convert=string) + def f_string_length(self, node, pos, size, context, s): + return len(s) + + @function(0, 1, implicit=True, convert=string) + def f_normalize_space(self, node, pos, size, context, s): + return re.sub(r'\s+', ' ', s.strip()) + + @function(3, 3, convert=lambda x: unicode(string(x))) + def f_translate(self, node, pos, size, context, s, source, target): + # str.translate() and unicode.translate() are completely different. + # The translate() arguments are coerced to unicode. + table = {} + for schar, tchar in izip(source, target): + schar = ord(schar) + if schar not in table: + table[schar] = tchar + if len(source) > len(target): + for schar in source[len(target):]: + schar = ord(schar) + if schar not in table: + table[schar] = None + return s.translate(table) + + # Boolean functions + + @function(1, 1, convert=boolean) + def f_boolean(self, node, pos, size, context, b): + return b + + @function(1, 1, convert=boolean) + def f_not(self, node, pos, size, context, b): + return not b + + @function(0, 0) + def f_true(self, node, pos, size, context): + return True + + @function(0, 0) + def f_false(self, node, pos, size, context): + return False + + @function(1, 1, convert=string) + def f_lang(self, node, pos, size, context, s): + s = s.lower() + for n in axes['ancestor-or-self'](node): + if n.nodeType == n.ELEMENT_NODE and n.hasAttribute('xml:lang'): + lang = n.getAttribute('xml:lang').lower() + if s == lang or lang.startswith(s + u'-'): + return True + break + return False + + # Number functions + + @function(0, 1, implicit=True, convert=number) + def f_number(self, node, pos, size, context, n): + return n + + @function(1, 1, convert=nodeset) + def f_sum(self, node, pos, size, context, nodes): + return sum((number(string_value(x)) for x in nodes)) + + @function(1, 1, convert=number) + def f_floor(self, node, pos, size, context, n): + return math.floor(n) + + @function(1, 1, convert=number) + def f_ceiling(self, node, pos, size, context, n): + return math.ceil(n) + + @function(1, 1, convert=number) + def f_round(self, node, pos, size, context, n): + # XXX round(-0.0) should be -0.0, not 0.0. + # XXX round(-1.5) should be -1.0, not -2.0. + return round(n) + + def __str__(self): + return '%s(%s)' % (self.name, ', '.join((str(x) for x in self.args))) + +# +# XPath axes. +# + +# Dictionary of all axis functions. +axes = {} + +def axisfn(reverse=False, principal_node_type=xml.dom.Node.ELEMENT_NODE): + """Axis function decorator. + + An axis function will take a node as an argument and return a sequence + over the nodes along an XPath axis. Axis functions have two extra + attributes indicating the axis direction and principal node type. + """ + def decorate(f): + f.__name__ = f.__name__.replace('_', '-') + f.reverse = reverse + f.principal_node_type = principal_node_type + return f + return decorate + +def make_axes(): + """Define functions to walk each of the possible XPath axes.""" + + @axisfn() + def child(node): + return node.childNodes + + @axisfn() + def descendant(node): + for child in node.childNodes: + for node in descendant_or_self(child): + yield node + + @axisfn() + def parent(node): + if node.parentNode is not None: + yield node.parentNode + + @axisfn(reverse=True) + def ancestor(node): + while node.parentNode is not None: + node = node.parentNode + yield node + + @axisfn() + def following_sibling(node): + while node.nextSibling is not None: + node = node.nextSibling + yield node + + @axisfn(reverse=True) + def preceding_sibling(node): + while node.previousSibling is not None: + node = node.previousSibling + yield node + + @axisfn() + def following(node): + while node is not None: + while node.nextSibling is not None: + node = node.nextSibling + for n in descendant_or_self(node): + yield n + node = node.parentNode + + @axisfn(reverse=True) + def preceding(node): + while node is not None: + while node.previousSibling is not None: + node = node.previousSibling + # Could be more efficient here. + for n in reversed(list(descendant_or_self(node))): + yield n + node = node.parentNode + + @axisfn(principal_node_type=xml.dom.Node.ATTRIBUTE_NODE) + def attribute(node): + if node.attributes is not None: + return (node.attributes.item(i) + for i in xrange(node.attributes.length)) + return () + + @axisfn() + def namespace(node): + raise XPathNotImplementedError("namespace axis is not implemented") + + @axisfn() + def self(node): + yield node + + @axisfn() + def descendant_or_self(node): + yield node + for child in node.childNodes: + for node in descendant_or_self(child): + yield node + + @axisfn(reverse=True) + def ancestor_or_self(node): + return chain([node], ancestor(node)) + + # Place each axis function defined here into the 'axes' dict. + for axis in locals().values(): + axes[axis.__name__] = axis + +make_axes() + +def merge_into_nodeset(target, source): + """Place all the nodes from the source node-set into the target + node-set, preserving document order. Both node-sets must be in + document order to begin with. + + """ + if len(target) == 0: + target.extend(source) + return + + source = [n for n in source if n not in target] + if len(source) == 0: + return + + # If the last node in the target set comes before the first node in the + # source set, then we can just concatenate the sets. Otherwise, we + # will need to sort. (We could also check to see if the last node in + # the source set comes before the first node in the target set, but this + # situation is very unlikely in practice.) + if document_order(target[-1]) < document_order(source[0]): + target.extend(source) + else: + target.extend(source) + target.sort(key=document_order) + +class AbsolutePathExpr(Expr): + """Absolute location paths.""" + + def __init__(self, path): + self.path = path + + def evaluate(self, node, pos, size, context): + if node.nodeType != node.DOCUMENT_NODE: + node = node.ownerDocument + if self.path is None: + return [node] + return self.path.evaluate(node, 1, 1, context) + + def __str__(self): + return '/%s' % (self.path or '') + +class PathExpr(Expr): + """Location path expressions.""" + + def __init__(self, steps): + self.steps = steps + + def evaluate(self, node, pos, size, context): + # The first step in the path is evaluated in the current context. + # If this is the only step in the path, the return value is + # unimportant. If there are other steps, however, it must be a + # node-set. + result = self.steps[0].evaluate(node, pos, size, context) + if len(self.steps) > 1 and not nodesetp(result): + raise XPathTypeError("path step is not a node-set") + + # Subsequent steps are evaluated for each node in the node-set + # resulting from the previous step. + for step in self.steps[1:]: + aggregate = [] + for i in xrange(len(result)): + nodes = step.evaluate(result[i], i+1, len(result), context) + if not nodesetp(nodes): + raise XPathTypeError("path step is not a node-set") + merge_into_nodeset(aggregate, nodes) + result = aggregate + + return result + + def __str__(self): + return '/'.join((str(s) for s in self.steps)) + +class PredicateList(Expr): + """A list of predicates. + + Predicates are handled as an expression wrapping the expression + filtered by the predicates. + + """ + def __init__(self, expr, predicates, axis='child'): + self.predicates = predicates + self.expr = expr + self.axis = axes[axis] + + def evaluate(self, node, pos, size, context): + result = self.expr.evaluate(node, pos, size, context) + if not nodesetp(result): + raise XPathTypeError("predicate input is not a node-set") + + if self.axis.reverse: + result.reverse() + + for pred in self.predicates: + match = [] + for i, node in izip(count(1), result): + r = pred.evaluate(node, i, len(result), context) + + # If a predicate evaluates to a number, select the node + # with that position. Otherwise, select nodes for which + # the boolean value of the predicate is true. + if numberp(r): + if r == i: + match.append(node) + elif boolean(r): + match.append(node) + result = match + + if self.axis.reverse: + result.reverse() + + return result + + def __str__(self): + s = str(self.expr) + if '/' in s: + s = '(%s)' % s + return s + ''.join(('[%s]' % x for x in self.predicates)) + +class AxisStep(Expr): + """One step in a location path expression.""" + + def __init__(self, axis, test=None, predicates=None): + if test is None: + test = AnyKindTest() + self.axis = axes[axis] + self.test = test + + def evaluate(self, node, pos, size, context): + match = [] + for n in self.axis(node): + if self.test.match(n, self.axis, context): + match.append(n) + + if self.axis.reverse: + match.reverse() + + return match + + def __str__(self): + return '%s::%s' % (self.axis.__name__, self.test) + +# +# Node tests. +# + +class Test(object): + """Abstract base class for node tests.""" + + def match(self, node, axis, context): + """Return True if 'node' matches the test along 'axis'.""" + +class NameTest(object): + def __init__(self, prefix, localpart): + self.prefix = prefix + self.localName = localpart + if self.prefix == None and self.localName == '*': + self.prefix = '*' + + def match(self, node, axis, context): + if node.nodeType != axis.principal_node_type: + return False + + if self.prefix != '*': + namespaceURI = None + if self.prefix is not None: + try: + namespaceURI = context.namespaces[self.prefix] + except KeyError: + raise XPathUnknownPrefixError(self.prefix) + elif axis.principal_node_type == node.ELEMENT_NODE: + namespaceURI = context.default_namespace + if namespaceURI != node.namespaceURI: + return False + if self.localName != '*': + if self.localName != node.localName: + return False + return True + + def __str__(self): + if self.prefix is not None: + return '%s:%s' % (self.prefix, self.localName) + else: + return self.localName + +class PITest(object): + def __init__(self, name=None): + self.name = name + + def match(self, node, axis, context): + return (node.nodeType == node.PROCESSING_INSTRUCTION_NODE and + (self.name is None or node.target == self.name)) + + def __str__(self): + if self.name is None: + name = '' + elif "'" in self.name: + name = '"%s"' % self.name + else: + name = "'%s'" % self.name + return 'processing-instruction(%s)' % name + +class CommentTest(object): + def match(self, node, axis, context): + return node.nodeType == node.COMMENT_NODE + + def __str__(self): + return 'comment()' + +class TextTest(object): + def match(self, node, axis, context): + return (node.nodeType == node.TEXT_NODE or + node.nodeType == node.CDATA_SECTION_NODE) + + def __str__(self): + return 'text()' + +class AnyKindTest(object): + def match(self, node, axis, context): + return True + + def __str__(self): + return 'node()' diff --git a/lib/ulib/support/python/xpath/parser.py b/lib/ulib/support/python/xpath/parser.py new file mode 100644 index 0000000..504de78 --- /dev/null +++ b/lib/ulib/support/python/xpath/parser.py @@ -0,0 +1,416 @@ +import xpath.expr as X +from xpath.yappsrt import * + + +from string import * +import re + +class XPathScanner(Scanner): + patterns = [ + ("r'\\:'", re.compile('\\:')), + ("r'node\\s*\\('", re.compile('node\\s*\\(')), + ("r'text\\s*\\('", re.compile('text\\s*\\(')), + ("r'comment\\s*\\('", re.compile('comment\\s*\\(')), + ("r'processing-instruction\\s*\\('", re.compile('processing-instruction\\s*\\(')), + ("r'\\,'", re.compile('\\,')), + ("r'\\.'", re.compile('\\.')), + ("r'\\$'", re.compile('\\$')), + ("r'\\)'", re.compile('\\)')), + ("r'\\('", re.compile('\\(')), + ("r'\\]'", re.compile('\\]')), + ("r'\\['", re.compile('\\[')), + ("r'\\*'", re.compile('\\*')), + ("r':'", re.compile(':')), + ("r'\\.\\.'", re.compile('\\.\\.')), + ("r'@'", re.compile('@')), + ("r'::'", re.compile('::')), + ("r'\\/\\/'", re.compile('\\/\\/')), + ("r'\\/'", re.compile('\\/')), + ("r'\\-'", re.compile('\\-')), + ("'\\|'", re.compile('\\|')), + ("r'and'", re.compile('and')), + ("r'or'", re.compile('or')), + ('\\s+', re.compile('\\s+')), + ('END', re.compile('$')), + ('FORWARD_AXIS_NAME', re.compile('child|descendant-or-self|attribute|self|descendant|following-sibling|following|namespace')), + ('REVERSE_AXIS_NAME', re.compile('parent|preceding-sibling|preceding|ancestor-or-self|ancestor')), + ('NCNAME', re.compile('[a-zA-Z_][a-zA-Z0-9_\\-\\.\\w]*(?!\\()')), + ('FUNCNAME', re.compile('[a-zA-Z_][a-zA-Z0-9_\\-\\.\\w]*')), + ('DQUOTE', re.compile('\\"(?:[^\\"])*\\"')), + ('SQUOTE', re.compile("\\'(?:[^\\'])*\\'")), + ('NUMBER', re.compile('((\\.[0-9]+)|([0-9]+(\\.[0-9]*)?))([eE][\\+\\-]?[0-9]+)?')), + ('EQ_COMP', re.compile('\\!?\\=')), + ('REL_COMP', re.compile('[\\<\\>]\\=?')), + ('ADD_COMP', re.compile('[\\+\\-]')), + ('MUL_COMP', re.compile('\\*|div|mod')), + ] + def __init__(self, str): + Scanner.__init__(self,None,['\\s+'],str) + +class XPath(Parser): + def XPath(self): + Expr = self.Expr() + END = self._scan('END') + return Expr + + def Expr(self): + OrExpr = self.OrExpr() + return OrExpr + + def OrExpr(self): + AndExpr = self.AndExpr() + Expr = AndExpr + while self._peek("r'or'", 'END', "r'\\]'", "r'\\)'", "r'\\,'") == "r'or'": + self._scan("r'or'") + AndExpr = self.AndExpr() + Expr = X.OrExpr('or', Expr, AndExpr) + return Expr + + def AndExpr(self): + EqualityExpr = self.EqualityExpr() + Expr = EqualityExpr + while self._peek("r'and'", "r'or'", 'END', "r'\\]'", "r'\\)'", "r'\\,'") == "r'and'": + self._scan("r'and'") + EqualityExpr = self.EqualityExpr() + Expr = X.AndExpr('and', Expr, EqualityExpr) + return Expr + + def EqualityExpr(self): + RelationalExpr = self.RelationalExpr() + Expr = RelationalExpr + while self._peek('EQ_COMP', "r'and'", "r'or'", 'END', "r'\\]'", "r'\\)'", "r'\\,'") == 'EQ_COMP': + EQ_COMP = self._scan('EQ_COMP') + RelationalExpr = self.RelationalExpr() + Expr = X.EqualityExpr(EQ_COMP, Expr, RelationalExpr) + return Expr + + def RelationalExpr(self): + AdditiveExpr = self.AdditiveExpr() + Expr = AdditiveExpr + while self._peek('REL_COMP', 'EQ_COMP', "r'and'", "r'or'", 'END', "r'\\]'", "r'\\)'", "r'\\,'") == 'REL_COMP': + REL_COMP = self._scan('REL_COMP') + AdditiveExpr = self.AdditiveExpr() + Expr = X.EqualityExpr(REL_COMP, Expr, AdditiveExpr) + return Expr + + def AdditiveExpr(self): + MultiplicativeExpr = self.MultiplicativeExpr() + Expr = MultiplicativeExpr + while self._peek('ADD_COMP', 'REL_COMP', 'EQ_COMP', "r'and'", "r'or'", 'END', "r'\\]'", "r'\\)'", "r'\\,'") == 'ADD_COMP': + ADD_COMP = self._scan('ADD_COMP') + MultiplicativeExpr = self.MultiplicativeExpr() + Expr = X.ArithmeticalExpr(ADD_COMP, Expr, MultiplicativeExpr) + return Expr + + def MultiplicativeExpr(self): + UnionExpr = self.UnionExpr() + Expr = UnionExpr + while self._peek('MUL_COMP', 'ADD_COMP', 'REL_COMP', 'EQ_COMP', "r'and'", "r'or'", 'END', "r'\\]'", "r'\\)'", "r'\\,'") == 'MUL_COMP': + MUL_COMP = self._scan('MUL_COMP') + UnionExpr = self.UnionExpr() + Expr = X.ArithmeticalExpr(MUL_COMP, Expr, UnionExpr) + return Expr + + def UnionExpr(self): + UnaryExpr = self.UnaryExpr() + Expr = UnaryExpr + while self._peek("'\\|'", 'MUL_COMP', 'ADD_COMP', 'REL_COMP', 'EQ_COMP', "r'and'", "r'or'", 'END', "r'\\]'", "r'\\)'", "r'\\,'") == "'\\|'": + self._scan("'\\|'") + UnaryExpr = self.UnaryExpr() + Expr = X.UnionExpr('|', Expr, UnaryExpr) + return Expr + + def UnaryExpr(self): + _token_ = self._peek("r'\\-'", "r'\\/'", "r'\\/\\/'", "r'\\('", 'FORWARD_AXIS_NAME', "r'@'", 'REVERSE_AXIS_NAME', "r'\\.\\.'", "r'\\$'", "r'\\.'", 'FUNCNAME', 'NUMBER', 'DQUOTE', 'SQUOTE', "r'processing-instruction\\s*\\('", "r'comment\\s*\\('", "r'text\\s*\\('", "r'node\\s*\\('", "r'\\*'", 'NCNAME') + if _token_ == "r'\\-'": + self._scan("r'\\-'") + ValueExpr = self.ValueExpr() + return X.NegationExpr(ValueExpr) + else: + ValueExpr = self.ValueExpr() + return ValueExpr + + def ValueExpr(self): + PathExpr = self.PathExpr() + return PathExpr + + def PathExpr(self): + _token_ = self._peek("r'\\/'", "r'\\/\\/'", "r'\\('", 'FORWARD_AXIS_NAME', "r'@'", 'REVERSE_AXIS_NAME', "r'\\.\\.'", "r'\\$'", "r'\\.'", 'FUNCNAME', 'NUMBER', 'DQUOTE', 'SQUOTE', "r'processing-instruction\\s*\\('", "r'comment\\s*\\('", "r'text\\s*\\('", "r'node\\s*\\('", "r'\\*'", 'NCNAME') + if _token_ == "r'\\/'": + self._scan("r'\\/'") + path = None + if self._peek("r'\\('", 'FORWARD_AXIS_NAME', "r'@'", 'REVERSE_AXIS_NAME', "r'\\.\\.'", "r'\\$'", "r'\\.'", 'FUNCNAME', 'NUMBER', 'DQUOTE', 'SQUOTE', "r'processing-instruction\\s*\\('", "r'comment\\s*\\('", "r'text\\s*\\('", "r'node\\s*\\('", "r'\\*'", 'NCNAME', "'\\|'", 'MUL_COMP', 'ADD_COMP', 'REL_COMP', 'EQ_COMP', "r'and'", "r'or'", 'END', "r'\\]'", "r'\\)'", "r'\\,'") not in ["'\\|'", 'MUL_COMP', 'ADD_COMP', 'REL_COMP', 'EQ_COMP', "r'and'", "r'or'", 'END', "r'\\]'", "r'\\)'", "r'\\,'"]: + RelativePathExpr = self.RelativePathExpr() + path = RelativePathExpr + return X.AbsolutePathExpr(path) + elif _token_ == "r'\\/\\/'": + self._scan("r'\\/\\/'") + RelativePathExpr = self.RelativePathExpr() + step = X.AxisStep('descendant-or-self') + RelativePathExpr.steps.insert(0, step) + return X.AbsolutePathExpr(RelativePathExpr) + else: + RelativePathExpr = self.RelativePathExpr() + return RelativePathExpr + + def RelativePathExpr(self): + StepExpr = self.StepExpr() + steps = [StepExpr] + while self._peek("r'\\/'", "r'\\/\\/'", "'\\|'", 'MUL_COMP', 'ADD_COMP', 'REL_COMP', 'EQ_COMP', "r'and'", "r'or'", 'END', "r'\\]'", "r'\\)'", "r'\\,'") in ["r'\\/'", "r'\\/\\/'"]: + _token_ = self._peek("r'\\/'", "r'\\/\\/'") + if _token_ == "r'\\/'": + self._scan("r'\\/'") + else:# == "r'\\/\\/'" + self._scan("r'\\/\\/'") + steps.append(X.AxisStep('descendant-or-self')) + StepExpr = self.StepExpr() + steps.append(StepExpr) + return X.PathExpr(steps) + + def StepExpr(self): + _token_ = self._peek("r'\\('", 'FORWARD_AXIS_NAME', "r'@'", 'REVERSE_AXIS_NAME', "r'\\.\\.'", "r'\\$'", "r'\\.'", 'FUNCNAME', 'NUMBER', 'DQUOTE', 'SQUOTE', "r'processing-instruction\\s*\\('", "r'comment\\s*\\('", "r'text\\s*\\('", "r'node\\s*\\('", "r'\\*'", 'NCNAME') + if _token_ not in ["r'\\('", "r'\\$'", "r'\\.'", 'FUNCNAME', 'NUMBER', 'DQUOTE', 'SQUOTE']: + AxisStep = self.AxisStep() + return AxisStep + else: + FilterExpr = self.FilterExpr() + return FilterExpr + + def AxisStep(self): + _token_ = self._peek('FORWARD_AXIS_NAME', "r'@'", 'REVERSE_AXIS_NAME', "r'\\.\\.'", "r'processing-instruction\\s*\\('", "r'comment\\s*\\('", "r'text\\s*\\('", "r'node\\s*\\('", "r'\\*'", 'NCNAME') + if _token_ not in ['REVERSE_AXIS_NAME', "r'\\.\\.'"]: + ForwardStep = self.ForwardStep() + step = ForwardStep + else:# in ['REVERSE_AXIS_NAME', "r'\\.\\.'"] + ReverseStep = self.ReverseStep() + step = ReverseStep + expr = X.AxisStep(*step) + if self._peek("r'\\['", "r'\\/'", "r'\\/\\/'", "'\\|'", 'MUL_COMP', 'ADD_COMP', 'REL_COMP', 'EQ_COMP', "r'and'", "r'or'", 'END', "r'\\]'", "r'\\)'", "r'\\,'") == "r'\\['": + PredicateList = self.PredicateList() + expr = X.PredicateList(expr, PredicateList, step[0]) + return expr + + def ForwardStep(self): + _token_ = self._peek('FORWARD_AXIS_NAME', "r'@'", "r'processing-instruction\\s*\\('", "r'comment\\s*\\('", "r'text\\s*\\('", "r'node\\s*\\('", "r'\\*'", 'NCNAME') + if _token_ == 'FORWARD_AXIS_NAME': + ForwardAxis = self.ForwardAxis() + NodeTest = self.NodeTest() + return [ForwardAxis, NodeTest] + else: + AbbrevForwardStep = self.AbbrevForwardStep() + return AbbrevForwardStep + + def ForwardAxis(self): + FORWARD_AXIS_NAME = self._scan('FORWARD_AXIS_NAME') + self._scan("r'::'") + return FORWARD_AXIS_NAME + + def AbbrevForwardStep(self): + axis = 'child' + if self._peek("r'@'", "r'processing-instruction\\s*\\('", "r'comment\\s*\\('", "r'text\\s*\\('", "r'node\\s*\\('", "r'\\*'", 'NCNAME') == "r'@'": + self._scan("r'@'") + axis = 'attribute' + NodeTest = self.NodeTest() + return [axis, NodeTest] + + def ReverseStep(self): + _token_ = self._peek('REVERSE_AXIS_NAME', "r'\\.\\.'") + if _token_ == 'REVERSE_AXIS_NAME': + ReverseAxis = self.ReverseAxis() + NodeTest = self.NodeTest() + return [ReverseAxis, NodeTest] + else:# == "r'\\.\\.'" + AbbrevReverseStep = self.AbbrevReverseStep() + return AbbrevReverseStep + + def ReverseAxis(self): + REVERSE_AXIS_NAME = self._scan('REVERSE_AXIS_NAME') + self._scan("r'::'") + return REVERSE_AXIS_NAME + + def AbbrevReverseStep(self): + self._scan("r'\\.\\.'") + return ['parent', None] + + def NodeTest(self): + _token_ = self._peek("r'processing-instruction\\s*\\('", "r'comment\\s*\\('", "r'text\\s*\\('", "r'node\\s*\\('", "r'\\*'", 'NCNAME') + if _token_ not in ["r'\\*'", 'NCNAME']: + KindTest = self.KindTest() + return KindTest + else:# in ["r'\\*'", 'NCNAME'] + NameTest = self.NameTest() + return NameTest + + def NameTest(self): + prefix = None + WildcardOrNCName = self.WildcardOrNCName() + localpart = WildcardOrNCName + if self._peek("r':'", "r'\\['", "r'\\/'", "r'\\/\\/'", "'\\|'", 'MUL_COMP', 'ADD_COMP', 'REL_COMP', 'EQ_COMP', "r'and'", "r'or'", 'END', "r'\\]'", "r'\\)'", "r'\\,'") == "r':'": + self._scan("r':'") + WildcardOrNCName = self.WildcardOrNCName() + prefix = localpart + localpart = WildcardOrNCName + return X.NameTest(prefix, localpart) + + def WildcardOrNCName(self): + _token_ = self._peek("r'\\*'", 'NCNAME') + if _token_ == "r'\\*'": + self._scan("r'\\*'") + return '*' + else:# == 'NCNAME' + NCNAME = self._scan('NCNAME') + return NCNAME + + def FilterExpr(self): + PrimaryExpr = self.PrimaryExpr() + if self._peek("r'\\['", "r'\\/'", "r'\\/\\/'", "'\\|'", 'MUL_COMP', 'ADD_COMP', 'REL_COMP', 'EQ_COMP', "r'and'", "r'or'", 'END', "r'\\]'", "r'\\)'", "r'\\,'") == "r'\\['": + PredicateList = self.PredicateList() + PrimaryExpr = X.PredicateList(PrimaryExpr,PredicateList) + return PrimaryExpr + + def PredicateList(self): + Predicate = self.Predicate() + predicates = [Predicate] + while self._peek("r'\\['", "r'\\/'", "r'\\/\\/'", "'\\|'", 'MUL_COMP', 'ADD_COMP', 'REL_COMP', 'EQ_COMP', "r'and'", "r'or'", 'END', "r'\\]'", "r'\\)'", "r'\\,'") == "r'\\['": + Predicate = self.Predicate() + predicates.append(Predicate) + return predicates + + def Predicate(self): + self._scan("r'\\['") + Expr = self.Expr() + self._scan("r'\\]'") + return Expr + + def PrimaryExpr(self): + _token_ = self._peek("r'\\('", "r'\\$'", "r'\\.'", 'FUNCNAME', 'NUMBER', 'DQUOTE', 'SQUOTE') + if _token_ not in ["r'\\('", "r'\\$'", "r'\\.'", 'FUNCNAME']: + Literal = self.Literal() + return X.LiteralExpr(Literal) + elif _token_ == "r'\\$'": + VariableReference = self.VariableReference() + return VariableReference + elif _token_ == "r'\\('": + self._scan("r'\\('") + Expr = self.Expr() + self._scan("r'\\)'") + return Expr + elif _token_ == "r'\\.'": + ContextItemExpr = self.ContextItemExpr() + return ContextItemExpr + else:# == 'FUNCNAME' + FunctionCall = self.FunctionCall() + return FunctionCall + + def VariableReference(self): + self._scan("r'\\$'") + QName = self.QName() + return X.VariableReference(*QName) + + def ContextItemExpr(self): + self._scan("r'\\.'") + return X.AxisStep('self') + + def FunctionCall(self): + FUNCNAME = self._scan('FUNCNAME') + self._scan("r'\\('") + args = [] + if self._peek("r'\\,'", "r'\\)'", "r'\\-'", "r'\\/'", "r'\\/\\/'", "r'\\('", 'FORWARD_AXIS_NAME', "r'@'", 'REVERSE_AXIS_NAME', "r'\\.\\.'", "r'\\$'", "r'\\.'", 'FUNCNAME', 'NUMBER', 'DQUOTE', 'SQUOTE', "r'processing-instruction\\s*\\('", "r'comment\\s*\\('", "r'text\\s*\\('", "r'node\\s*\\('", "r'\\*'", 'NCNAME') not in ["r'\\,'", "r'\\)'"]: + Expr = self.Expr() + args.append(Expr) + while self._peek("r'\\,'", "r'\\)'") == "r'\\,'": + self._scan("r'\\,'") + Expr = self.Expr() + args.append(Expr) + self._scan("r'\\)'") + return X.Function(FUNCNAME, args) + + def KindTest(self): + _token_ = self._peek("r'processing-instruction\\s*\\('", "r'comment\\s*\\('", "r'text\\s*\\('", "r'node\\s*\\('") + if _token_ == "r'processing-instruction\\s*\\('": + PITest = self.PITest() + return PITest + elif _token_ == "r'comment\\s*\\('": + CommentTest = self.CommentTest() + return CommentTest + elif _token_ == "r'text\\s*\\('": + TextTest = self.TextTest() + return TextTest + else:# == "r'node\\s*\\('" + AnyKindTest = self.AnyKindTest() + return AnyKindTest + + def PITest(self): + self._scan("r'processing-instruction\\s*\\('") + name = None + if self._peek('NCNAME', "r'\\)'", 'DQUOTE', 'SQUOTE') != "r'\\)'": + _token_ = self._peek('NCNAME', 'DQUOTE', 'SQUOTE') + if _token_ == 'NCNAME': + NCNAME = self._scan('NCNAME') + name = NCNAME + else:# in ['DQUOTE', 'SQUOTE'] + StringLiteral = self.StringLiteral() + name = StringLiteral + self._scan("r'\\)'") + return X.PITest(name) + + def CommentTest(self): + self._scan("r'comment\\s*\\('") + self._scan("r'\\)'") + return X.CommentTest() + + def TextTest(self): + self._scan("r'text\\s*\\('") + self._scan("r'\\)'") + return X.TextTest() + + def AnyKindTest(self): + self._scan("r'node\\s*\\('") + self._scan("r'\\)'") + return X.AnyKindTest() + + def Literal(self): + _token_ = self._peek('NUMBER', 'DQUOTE', 'SQUOTE') + if _token_ == 'NUMBER': + NumericLiteral = self.NumericLiteral() + return NumericLiteral + else:# in ['DQUOTE', 'SQUOTE'] + StringLiteral = self.StringLiteral() + return StringLiteral + + def NumericLiteral(self): + NUMBER = self._scan('NUMBER') + return float(NUMBER) + + def StringLiteral(self): + _token_ = self._peek('DQUOTE', 'SQUOTE') + if _token_ == 'DQUOTE': + DQUOTE = self._scan('DQUOTE') + return DQUOTE[1:-1] + else:# == 'SQUOTE' + SQUOTE = self._scan('SQUOTE') + return SQUOTE[1:-1] + + def QName(self): + NCNAME = self._scan('NCNAME') + name = NCNAME + if self._peek("r'\\:'", "r'\\['", "r'\\/'", "r'\\/\\/'", "'\\|'", 'MUL_COMP', 'ADD_COMP', 'REL_COMP', 'EQ_COMP', "r'and'", "r'or'", 'END', "r'\\]'", "r'\\)'", "r'\\,'") == "r'\\:'": + self._scan("r'\\:'") + NCNAME = self._scan('NCNAME') + return (name, NCNAME) + return (None, name) + + +def parse(rule, text): + P = XPath(XPathScanner(text)) + return wrap_error_reporter(P, rule) + +if __name__ == '__main__': + from sys import argv, stdin + if len(argv) >= 2: + if len(argv) >= 3: + f = open(argv[2],'r') + else: + f = stdin + print parse(argv[1], f.read()) + else: print 'Args: []' diff --git a/lib/ulib/support/python/xpath/yappsrt.py b/lib/ulib/support/python/xpath/yappsrt.py new file mode 100644 index 0000000..c8d8933 --- /dev/null +++ b/lib/ulib/support/python/xpath/yappsrt.py @@ -0,0 +1,174 @@ +# Yapps 2.0 Runtime +# +# This module is needed to run generated parsers. + +from string import join, count, find, rfind +import re + +class SyntaxError(Exception): + """When we run into an unexpected token, this is the exception to use""" + def __init__(self, pos=-1, msg="Bad Token"): + Exception.__init__(self) + self.pos = pos + self.msg = msg + def __repr__(self): + if self.pos < 0: return "#" + else: return "SyntaxError[@ char %s: %s]" % (repr(self.pos), self.msg) + +class NoMoreTokens(Exception): + """Another exception object, for when we run out of tokens""" + pass + +class Scanner: + def __init__(self, patterns, ignore, input): + """Patterns is [(terminal,regex)...] + Ignore is [terminal,...]; + Input is a string""" + self.tokens = [] + self.restrictions = [] + self.input = input + self.pos = 0 + self.ignore = ignore + # The stored patterns are a pair (compiled regex,source + # regex). If the patterns variable passed in to the + # constructor is None, we assume that the class already has a + # proper .patterns list constructed + if patterns is not None: + self.patterns = [] + for k, r in patterns: + self.patterns.append( (k, re.compile(r)) ) + + def token(self, i, restrict=0): + """Get the i'th token, and if i is one past the end, then scan + for another token; restrict is a list of tokens that + are allowed, or 0 for any token.""" + if i == len(self.tokens): self.scan(restrict) + if i < len(self.tokens): + # Make sure the restriction is more restricted + if restrict and self.restrictions[i]: + for r in restrict: + if r not in self.restrictions[i]: + raise NotImplementedError("Unimplemented: restriction set changed") + return self.tokens[i] + raise NoMoreTokens() + + def __repr__(self): + """Print the last 10 tokens that have been scanned in""" + output = '' + for t in self.tokens[-10:]: + output = '%s\n (@%s) %s = %s' % (output,t[0],t[2],repr(t[3])) + return output + + def scan(self, restrict): + """Should scan another token and add it to the list, self.tokens, + and add the restriction to self.restrictions""" + # Keep looking for a token, ignoring any in self.ignore + while 1: + # Search the patterns for the longest match, with earlier + # tokens in the list having preference + best_match = -1 + best_pat = '(error)' + for p, regexp in self.patterns: + # First check to see if we're ignoring this token + if restrict and p not in restrict and p not in self.ignore: + continue + m = regexp.match(self.input, self.pos) + if m and len(m.group(0)) > best_match: + # We got a match that's better than the previous one + best_pat = p + best_match = len(m.group(0)) + + # If we didn't find anything, raise an error + if best_pat == '(error)' and best_match < 0: + msg = "Bad Token" + if restrict: + msg = "Trying to find one of "+join(restrict,", ") + raise SyntaxError(self.pos, msg) + + # If we found something that isn't to be ignored, return it + if best_pat not in self.ignore: + # Create a token with this data + token = (self.pos, self.pos+best_match, best_pat, + self.input[self.pos:self.pos+best_match]) + self.pos = self.pos + best_match + # Only add this token if it's not in the list + # (to prevent looping) + if not self.tokens or token != self.tokens[-1]: + self.tokens.append(token) + self.restrictions.append(restrict) + return + else: + # This token should be ignored .. + self.pos = self.pos + best_match + +class Parser: + def __init__(self, scanner): + self._scanner = scanner + self._pos = 0 + + def _peek(self, *types): + """Returns the token type for lookahead; if there are any args + then the list of args is the set of token types to allow""" + tok = self._scanner.token(self._pos, types) + return tok[2] + + def _scan(self, type): + """Returns the matched text, and moves to the next token""" + tok = self._scanner.token(self._pos, [type]) + if tok[2] != type: + raise SyntaxError(tok[0], 'Trying to find '+type) + self._pos = 1+self._pos + return tok[3] + + + +def print_error(input, err, scanner): + """This is a really dumb long function to print error messages nicely.""" + p = err.pos + # Figure out the line number + line = count(input[:p], '\n') + print err.msg+" on line "+repr(line+1)+":" + # Now try printing part of the line + text = input[max(p-80, 0):p+80] + p = p - max(p-80, 0) + + # Strip to the left + i = rfind(text[:p], '\n') + j = rfind(text[:p], '\r') + if i < 0 or (0 <= j < i): i = j + if 0 <= i < p: + p = p - i - 1 + text = text[i+1:] + + # Strip to the right + i = find(text,'\n', p) + j = find(text,'\r', p) + if i < 0 or (0 <= j < i): i = j + if i >= 0: + text = text[:i] + + # Now shorten the text + while len(text) > 70 and p > 60: + # Cut off 10 chars + text = "..." + text[10:] + p = p - 7 + + # Now print the string, along with an indicator + print '> ',text + print '> ',' '*p + '^' + print 'List of nearby tokens:', scanner + +def wrap_error_reporter(parser, rule): + return_value = None + try: + return_value = getattr(parser, rule)() + except SyntaxError, s: + input = parser._scanner.input + try: + print_error(input, s, parser._scanner) + except ImportError: + print 'Syntax Error',s.msg,'on line',1+count(input[:s.pos], '\n') + except NoMoreTokens: + print 'Could not complete parsing; stopped around here:' + print parser._scanner + return return_value diff --git a/lib/ulib/support/xpathtool.py b/lib/ulib/support/xpathtool.py new file mode 100755 index 0000000..ce2039e --- /dev/null +++ b/lib/ulib/support/xpathtool.py @@ -0,0 +1,158 @@ +#!/usr/bin/env python +# -*- coding: utf-8 mode: python -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 + +u"""Ce script permet d'obtenir ou de modifier un élément identifié par une expression XPATH +""" + +import os, sys, re, types, tempfile, codecs, shutil +from os import path +sys.path.insert(0, path.join(path.dirname(__file__), 'python')) +from xml.dom import Node, minidom +import xpath + +def get_text(node, as_xml=False): + if isinstance(node, Node): + if node.nodeType == Node.ELEMENT_NODE: + if as_xml: return node.toxml("utf-8") + else: return xpath.expr.string_value(node).encode("utf-8") + elif node.nodeType == Node.ATTRIBUTE_NODE: + return node.value.encode("utf-8") + elif node.nodeType == Node.TEXT_NODE or node.nodeType == Node.CDATA_SECTION_NODE: + return node.data.encode("utf-8") + elif type(node) is types.UnicodeType: + return node.encode("utf-8") + else: + return str(node) + +def set_text(node, value, doc): + if not isinstance(node, Node): + raise ValueError("L'expression ne désigne pas un noeud XML") + if node.nodeType == Node.ELEMENT_NODE: + firstChild = node.firstChild + if value is not None: + textNode = doc.createTextNode(value) + if firstChild is None: + node.appendChild(textNode) + elif firstChild.nodeType == Node.TEXT_NODE or firstChild.nodeType == Node.CDATA_SECTION_NODE: + node.replaceChild(textNode, firstChild) + else: + node.insertBefore(textNode, firstChild) + elif firstChild is not None: + if firstChild.nodeType == Node.TEXT_NODE or firstChild.nodeType == Node.CDATA_SECTION_NODE: + node.removeChild(firstChild) + elif node.nodeType == Node.ATTRIBUTE_NODE: + if value is not None: node.value = value + else: pass # impossible d'accéder au parent d'un attribut + elif node.nodeType == Node.TEXT_NODE or node.nodeType == Node.CDATA_SECTION_NODE: + if value is not None: node.data = value + else: node.parentNode.removeChild(node) + else: + raise ValueError("Type de noeud non supporté: %s" % node.nodeType) + +RE_PARENT0 = re.compile(r'(^|/)parent\[') +RE_PARENT1 = re.compile(r'(^|/)parent(?=/|$)') +def py_dom_xpath_compat(expr): + expr = RE_PARENT0.sub(r"\1*[local-name()='parent' and ", expr) + expr = RE_PARENT1.sub(r"\1*[local-name()='parent']", expr) + return expr + +def run_xpathtool(): + from optparse import OptionParser + OP = OptionParser(usage=u"\n\t%prog -g XPATH [INPUT [OUTPUT]]\n\t%prog -s XPATH VALUE [INPUT [OUTPUT]]", description=__doc__) + OP.add_option('-f', '--input', dest='inf', + help=u"Spécifier le fichier en entrée") + OP.add_option('-o', '--output', dest='outf', + help=u"Spécifier le fichier en sortie") + OP.add_option('-g', '--get', dest='mode', action='store_const', const='get', + help=u"Forcer l'affichage de la valeur. " + + u"Par défaut, ce mode est sélectionné s'il n'y a aucun argument après XPATH") + OP.add_option('-t', '--exist', dest='mode', action='store_const', const='exist', + help=u"Tester l'existence du chemin spécifié.") + OP.add_option('-s', '--set', dest='mode', action='store_const', const='set', + help=u"Forcer la modification de la valeur. " + + u"Par défaut, ce mode est sélectionné s'il y a un argument VALUE après XPATH") + OP.add_option('-x', '--as-xml', dest='as_xml', action='store_true', + help=u"Retourner le résultat de l'expression en XML") + OP.add_option('--no-compat', dest='compat', action='store_false', default=True, + help=u"Ne pas transfomer certaines expression en un équivalent compatible avec py-dom-xpath. " + + u"Par exemple, par défaut \"/parent\" est transformé en \"/*[local-name='parent']\". " + + u"Cette option désactive ce comportement.") + o, args = OP.parse_args() + inf = o.inf + outf = o.outf + mode = o.mode + as_xml = o.as_xml + compat = o.compat + + count = len(args) + if count == 0: raise ValueError("Vous devez spécifier l'expression XPATH") + expr = args[0] + if compat: expr = py_dom_xpath_compat(expr) + value = None + + args = args[1:] + count = len(args) + if mode is None: + if count == 0: # xpathtool.py XPATH + mode = 'get' + elif inf is None: + if count == 1: # xpathtool.py XPATH INPUT + mode = 'get' + inf = args[0] + elif count >= 2: # xpathtool.py XPATH VALUE INPUT [OUTPUT] + mode = 'set' + value = args[0] + inf = args[1] + if count > 2: outf = args[2] + elif inf is not None: # xpathtool.py XPATH VALUE -f INPUT + mode = 'set' + value = args[0] + elif mode == 'get': + if inf is None: # xpathtool.py -g XPATH [INPUT] + if count > 0: inf = args[0] + elif mode == 'set': + if count > 0: value = args[0] + if inf is None: # xpathtool.py -s XPATH VALUE [INPUT [OUTPUT]] + if count > 1: inf = args[1] + if count > 2: outf = args[2] + + if inf == '-': inf = None + if outf == '-': outf = sys.stdout + if inf is None: + inf = sys.stdin + if outf is None: outf = sys.stdout + elif outf is None: + outf = inf + + doc = minidom.parse(inf) + if mode == 'get' or mode == 'exist': + #print "search %r from %r" % (expr, inf) #DEBUG + nodes = xpath.find(expr, doc) + if mode == 'get': + for node in nodes: + print get_text(node, as_xml) + if nodes: r = 0 + else: r = 1 + sys.exit(r) + elif mode == 'set': + if value is not None and not type(value) is types.UnicodeType: + value = unicode(value, "utf-8") + #print "search %r in %r, replace with %r then write in %r" % (expr, inf, value, outf) #DEBUG + for node in xpath.find(expr, doc): + set_text(node, value, doc) + #print "writing to %r" % outf #DEBUG + if type(outf) in types.StringTypes: + fd, tmpf = tempfile.mkstemp() + try: + os.close(fd) + out = codecs.open(tmpf, "w", "utf-8") + doc.writexml(out, encoding="utf-8") + out.close() + shutil.copyfile(tmpf, outf) + finally: + os.remove(tmpf) + else: + doc.writexml(outf, encoding="utf-8") + +if __name__ == '__main__': + run_xpathtool() diff --git a/lib/ulib/template b/lib/ulib/template index 0699063..ff7f140 100644 --- a/lib/ulib/template +++ b/lib/ulib/template @@ -419,15 +419,42 @@ function template_srcdir() { fi } +function template_build_vars() { +# Initialiser les tableaux $1 et $2 avec la description des variables $3..@ +# les descriptions sont de la forme var[:depvars,...]=desc +# $1 reçoit les noms (depvars... var) parce que les variables dépendantes +# doivent toujours être placées AVANT la variable maitre +# $2 reçoit les noms (depvars...) +# pour chaque description, une variable __TEMPLATE_DESC_var est créée avec +# la valeur desc + local __t_destvs="$1"; shift + local __t_destnw="$1"; shift + local -a __t_depvars + local __t_vardesc __t_var __t_depvar __t_desc + for __t_vardesc in "$@"; do + splitvar "$__t_vardesc" __t_depvar __t_desc + splitpair "$__t_depvar" __t_var __t_depvar + array_split __t_depvars "$__t_depvar" , + for __t_depvar in "${__t_depvars[@]}"; do + array_addu "$__t_destvs" "$__t_depvar" + [ -n "$__t_destnw" ] && array_addu "$__t_destnw" "$__t_depvar" + done + array_del "$__t_destvs" "$__t_var" + array_add "$__t_destvs" "$__t_var" + eval "__TEMPLATE_DESC_$__t_var=\"\$__t_desc\"" + done +} + function templatectl_config() { -# Obtenir le chemin vers le fichier de configuration pour le répertoire $1 -# Si $2==nohideconfig, utiliser le nom CONFIG.conf, sinon utiliser par défaut -# .CONFIG sauf si le fichier CONFIG.conf existe +# Obtenir le chemin vers le fichier de configuration pour le répertoire $1 Si +# l'un des fichiers CONFIG.conf ou .CONFIG existent déjà, prendre ceux-là. +# Sinon, si $2==nohideconfig, utiliser le nom CONFIG.conf, sinon utiliser +# .CONFIG local config="$(basename -- "$TEMPLATECTL_CONFIG")" - if [ -f "$1/$config.conf" -o "$2" == nohideconfig ]; then - echo "$1/$config.conf" - else - echo "$1/.$config" + if [ -f "$1/$config.conf" ]; then echo "$1/$config.conf" + elif [ -f "$1/.$config" ]; then echo "$1/.$config" + elif [ "$2" == nohideconfig ]; then echo "$1/$config.conf" + else echo "$1/.$config" fi } @@ -449,6 +476,8 @@ function templatectl_loadvars() { # devraient pas être écrits dans le fichier des variables, sauf si elles # reçoivent une valeur explicite de la part de l'utilisateur. Ce tableau est # mis à jour lors de l'analyse du tableau TEMPLATECTL_VARS +# - TEMPLATE_USER_VARS contient une liste de noms de tableaux qui sont définis +# en plus et qui peuvent être utilisés par des scripts annexes local -a __template_vars __dynamic_vars local __t_var __t_name __t_value @@ -469,6 +498,11 @@ function templatectl_loadvars() { done array_contains TEMPLATE_DYNAMIC_VARS configdir && __template_set_var configdir "$configdir" + is_defined TEMPLATE_USER_VARS || TEMPLATE_USER_VARS=() + for __t_var in "${TEMPLATE_USER_VARS[@]}"; do + is_defined "$__t_var" || array_new "$__t_var" + done + local __t_modified=1 for __t_var in "${TEMPLATECTL_VARS[@]}"; do splitvar "$__t_var" __t_name __t_value @@ -479,20 +513,33 @@ function templatectl_loadvars() { function templatectl_writevars() { # Ecrire les variables dans le fichier $1 - local __t_var + local __t_var __t_desc echo "# -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8" >"$1" + for __t_var in "${TEMPLATE_USER_VARS[@]}"; do + __t_desc="__TEMPLATE_DESC_$__t_var" + [ -n "${!__t_desc}" ] && echo "# ${!__t_desc}" >>"$1" + if is_array "$__t_var"; then + set_array_cmd "$__t_var" >>"$1" + else + echo_setv "$__t_var" "${!__t_var}" >>"$1" + fi + done if [ ${#TEMPLATE_DYNAMIC_VARS[*]} -gt 0 ]; then echo "__dynamic_vars=(" >>"$1" for __t_var in "${TEMPLATE_DYNAMIC_VARS[@]}"; do array_contains TEMPLATE_NOWRITE_VARS "$__t_var" && continue - echo_setv "$__t_var=${!__t_var}" >>"$1" + __t_desc="__TEMPLATE_DESC_$__t_var" + [ -n "${!__t_desc}" ] && echo "# ${!__t_desc}" >>"$1" + echo_setv "$__t_var" "${!__t_var}" >>"$1" done echo ")" >>"$1" fi echo "__template_vars=(# ne pas modifier" >>"$1" for __t_var in "${TEMPLATE_STATIC_VARS[@]}"; do array_contains TEMPLATE_NOWRITE_VARS "$__t_var" && continue - echo_setv "$__t_var=${!__t_var}" >>"$1" + __t_desc="__TEMPLATE_DESC_$__t_var" + [ -n "${!__t_desc}" ] && echo "# ${!__t_desc}" >>"$1" + echo_setv "$__t_var" "${!__t_var}" >>"$1" done echo ")" >>"$1" } diff --git a/lib/ulib/templates/apacheconfig.d8/README-apacheconfig.txt b/lib/ulib/templates/apacheconfig.d8/README-apacheconfig.txt new file mode 100644 index 0000000..bd574ef --- /dev/null +++ b/lib/ulib/templates/apacheconfig.d8/README-apacheconfig.txt @@ -0,0 +1,76 @@ +# -*- coding: utf-8 mode: text -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 + +Ce répertoire peut contenir les fichiers et répertoires suivants, qui sont tous +optionnels: + +confs.conf + Liste des configurations qu'il faut activer. Si un fichier de configuration + existe mais n'est pas mentionnée dans ce fichier, ou si ce fichier n'existe + pas, aucune modification n'est effectuée. Ce fichier contient une liste de + ligne de configuration. + Si une configuration est de la forme -conf, elle est désactivée. Si une + configuration est de la forme +conf, elle est activée. Cette syntaxe permet + de supporter les configurations dont le nom commencerait par '-' + IMPORTANT: Ce fichier n'est supporté qu'à partir de debian jessie. + +modules.conf + Liste des modules qu'il faut activer. Si un module existe mais n'est pas + mentionné dans ce fichier, ou si ce fichier n'existe pas, aucune + modification n'est effectuée. + Si un module est de la forme -module, il est désactivé. Si un module est de + la forme +module, il est activé. Cette syntaxe permet de supporter les + modules dont le nom commencerait par '-' + +sites.conf + Liste des sites qu'il faut activer. Si ce fichier n'existe pas, tous les + sites existant sont activés. Si un site existe mais ne figure pas dans ce + fichier, il est désactivé. + +confs/ + Répertoire des configurations à installer. Les fichiers de ce répertoire + sont de la forme CONF.conf et sont installés dans le répertoire + /etc/apache2/conf-available. Il faut mentionner la configuration dans le + fichier confs.conf pour l'activer. + IMPORTANT: Ce répertoire n'est supporté qu'à partir de debian jessie. + +modules/ + Répertoire des configurations de modules à installer. Les fichiers de ce + répertoire sont de la forme MODULE.conf et sont installés dans le répertoire + /etc/apache2/mods-available. Il faut mentioner le module dans le fichier + modules.conf pour l'activer. + +sites/ + Répertoire des sites à installer. Les fichiers de ce répertoire sont de la + forme SITE.conf pour les sites écoutant en clair, et SITE.ssl.conf pour les + sites écoutant en https. + Pour chaque site SITE.ssl.conf, un fichier SITE-certs.conf doit exister dans + certsconf/. Pour chaque fichier SITE.ssl.conf, les balises @@ca@@, @@cert@@ + et @@key@@ sont remplacés par les valeurs des variables ca, cert et key + définies dans le fichier correspondant SITE-certs.conf + +cgi-bin/ + Répertoire des scripts cgi + +www/ + Répertoire des fichiers du serveur web + +certsconf/ + Répertoire qui contient la configuration pour les certificats à installer. + Les fichiers de ce répertoire sont de la forme SITE-certs.conf et chacun + d'eux correspond à un fichier SITE.ssl.conf dans sites/ + +RewriteRules/ + Répertoire qui contient la configuration de réécriture. Tous les fichiers + RewriteRules*.conf de ce répertoire sont copiés dans /etc/apache2 + +Tous les autres fichiers sont copiés tels quels dans /etc/apache2. Notamment, +apache2.conf est le fichier de configuration principal d'apache et ports.conf le +fichier de configuration des ports d'écoute. + +## Configuration TLS + +Le site https://mozilla.github.io/server-side-tls/ssl-config-generator/ contient +des informations sur la façon de configurer ssl côté serveur pour la sécurité et +les navigateurs modernes + +Voir les détails sur https://wiki.mozilla.org/Security/Server_Side_TLS diff --git a/lib/ulib/templates/apacheconfig.d8/certsconf/default-certs.conf b/lib/ulib/templates/apacheconfig.d8/certsconf/default-certs.conf new file mode 100644 index 0000000..2ca6ace --- /dev/null +++ b/lib/ulib/templates/apacheconfig.d8/certsconf/default-certs.conf @@ -0,0 +1,15 @@ +# -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 + +# Cette variable est utilisée par la fonction refcerts() du script runs. C'est +# le nom d'un répertoire à chercher dans RUNSMODULESPATH qui contient les +# certificats à installer sur le serveur. +certsdir=@@certsdir@@ + +# Fichier contenant les certificats racines qui valident le certificat à +# installer, ainsi que les certificats qui sont rencontrés dans le dialogue avec +# d'autres serveurs web +ca=@@caname@@ + +# Certificat et clé privée à installer +cert= +key= diff --git a/lib/ulib/templates/apacheconfig.d8/cgi-bin/.udir b/lib/ulib/templates/apacheconfig.d8/cgi-bin/.udir new file mode 100644 index 0000000..eb74a9a --- /dev/null +++ b/lib/ulib/templates/apacheconfig.d8/cgi-bin/.udir @@ -0,0 +1,24 @@ +# -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 +# Utiliser 'udir --help-vars' pour une description de la signification des +# variables suivantes: +udir_desc="Fichiers à déployer sur @@host@@ dans le répertoire des cgi-bins" +udir_note="Il est possible de déployer les modifications dans ce répertoire avec 'uinst -y'" +udir_types=(uinst:rsync) +uinc=release +uinc_options=() +uinc_args=() +configure_variables=(dest) +configure_dest_for=() +config_scripts=() +install_profiles=false +workdir_rsync_options=() +workdir_excludes=() +workdir_includes=() +copy_files=true +rsync_options=() +destdir=root@@@host@@:CGIBINDIR +srcdir=. +files=() +owner=root: +modes=(u=rwX,g=rX,o=rX) +root_scripts=() diff --git a/lib/ulib/templates/apacheconfig.d8/cgi-bin/test.cgi b/lib/ulib/templates/apacheconfig.d8/cgi-bin/test.cgi new file mode 100755 index 0000000..dd4bf37 --- /dev/null +++ b/lib/ulib/templates/apacheconfig.d8/cgi-bin/test.cgi @@ -0,0 +1,6 @@ +#!/bin/bash +# -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 + +echo "Content-Type: text/plain" +echo "" +echo "OK" diff --git a/lib/ulib/templates/apacheconfig/confs.conf..d8 b/lib/ulib/templates/apacheconfig.d8/confs.conf similarity index 100% rename from lib/ulib/templates/apacheconfig/confs.conf..d8 rename to lib/ulib/templates/apacheconfig.d8/confs.conf diff --git a/lib/ulib/templates/apacheconfig.d8/confs/ssl-config.conf b/lib/ulib/templates/apacheconfig.d8/confs/ssl-config.conf new file mode 100644 index 0000000..d00b377 --- /dev/null +++ b/lib/ulib/templates/apacheconfig.d8/confs/ssl-config.conf @@ -0,0 +1,15 @@ +# -*- coding: utf-8 mode: conf -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 + + # cf https://wiki.mozilla.org/Security/Server_Side_TLS + + # Choisir un des profils. Clients les plus anciens pouvant se connecter: + # modern: Firefox 27, Chrome 30, Windows 7 IE 11, Edge, Opera 17, Safari 9, Android 5.0, Java 8 + # intermediate: Firefox 1, Chrome 1, IE 7, Opera 5, Safari 1, Windows XP IE8, Android 2.3, Java 7 + # old: Windows XP IE6, Java 6 + #Define SSL_CONFIG_MODERN + #Define SSL_CONFIG_INTERMEDIATE + #Define SSL_CONFIG_OLD + + # Faut-il activer HSTS? + #Define SSL_CONFIG_HSTS + diff --git a/lib/ulib/templates/apacheconfig.d8/modules.conf b/lib/ulib/templates/apacheconfig.d8/modules.conf new file mode 100644 index 0000000..84e06fb --- /dev/null +++ b/lib/ulib/templates/apacheconfig.d8/modules.conf @@ -0,0 +1,4 @@ +# -*- coding: utf-8 mode: conf -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 +# Liste des modules à activer. Syntaxe: +# module ou +module pour activer un module +# -module pour le désactiver diff --git a/lib/ulib/templates/apacheconfig/modules/ssl.conf..d8 b/lib/ulib/templates/apacheconfig.d8/modules/ssl.conf similarity index 99% rename from lib/ulib/templates/apacheconfig/modules/ssl.conf..d8 rename to lib/ulib/templates/apacheconfig.d8/modules/ssl.conf index d733884..c7eb837 100644 --- a/lib/ulib/templates/apacheconfig/modules/ssl.conf..d8 +++ b/lib/ulib/templates/apacheconfig.d8/modules/ssl.conf @@ -107,7 +107,7 @@ SSLPassPhraseDialog exec:/usr/share/apache2/ask-for-passphrase # Inter-Process Session Cache: - # Configure the SSL Session Cache: First the mechanism + # Configure the SSL Session Cache: First the mechanism # to use and second the expiring timeout (in seconds). # (The mechanism dbm has known memory leaks and should not be used). #SSLSessionCache dbm:${APACHE_RUN_DIR}/ssl_scache @@ -116,7 +116,7 @@ # Semaphore: # Configure the path to the mutual exclusion semaphore the - # SSL engine uses internally for inter-process synchronization. + # SSL engine uses internally for inter-process synchronization. # (Disabled by default, the global Mutex directive consolidates by default # this) #Mutex file:${APACHE_LOCK_DIR}/ssl_mutex ssl-cache diff --git a/lib/ulib/templates/apacheconfig.d8/network.conf b/lib/ulib/templates/apacheconfig.d8/network.conf new file mode 100644 index 0000000..31e2bae --- /dev/null +++ b/lib/ulib/templates/apacheconfig.d8/network.conf @@ -0,0 +1,24 @@ +# -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 +# Configuration du réseau sur le serveur. Ce fichier est traité différemment +# selon le mode de configuration. +# - En mode complet, ce fichier définit le nom d'hôte ainsi que toutes les +# interfaces, ponts et adresses. La variable host et les tableaux ips et brs +# sont pris en compte. +# - En mode partiel, seuls le tableau ips est pris en compte: il est utilisé +# pour définir des adresses ips supplémentaires à configurer sur le serveur. + +# Liste des adresses IPs à configurer. Chaque élément est de la forme +# [IFACE:]dhcp ou [[IFACE][//GATEWAY]:]IP[/SUFFIX] +ips=() + +# Liste des ponts à configurer. Chaque élément est de la forme BR:IFACES +# BR est le nom du pont, e.g. br0. IFACES est une liste d'interfaces séparées +# par une virgule. e.g. br0:eth0,eth1 +brs=() + +# Nom d'hôte pleinement qualifié. Si ce paramètre est spécifié, les fichiers +# /etc/hosts, /etc/hostname et /etc/mailname sont mis à jour. +host= + +# Contenu du fichier /etc/networks +etc_networks= diff --git a/lib/ulib/templates/apacheconfig/ports.conf..d8 b/lib/ulib/templates/apacheconfig.d8/ports.conf similarity index 65% rename from lib/ulib/templates/apacheconfig/ports.conf..d8 rename to lib/ulib/templates/apacheconfig.d8/ports.conf index d858a80..92c0c92 100644 --- a/lib/ulib/templates/apacheconfig/ports.conf..d8 +++ b/lib/ulib/templates/apacheconfig.d8/ports.conf @@ -7,16 +7,8 @@ Listen 80 Listen 443 - #NameVirtualHost IP:443 - #Listen IP:443 - #@@ips_namevirtualhosts@@ - #@@ips_listens@@ Listen 443 - #NameVirtualHost IP:443 - #Listen IP:443 - #@@ips_namevirtualhosts@@ - #@@ips_listens@@ diff --git a/lib/ulib/templates/apacheconfig.d8/rewrite.rules b/lib/ulib/templates/apacheconfig.d8/rewrite.rules new file mode 100644 index 0000000..b445618 --- /dev/null +++ b/lib/ulib/templates/apacheconfig.d8/rewrite.rules @@ -0,0 +1,2 @@ +# -*- coding: utf-8 mode: conf -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 + diff --git a/lib/ulib/templates/apacheconfig.d8/sites.conf b/lib/ulib/templates/apacheconfig.d8/sites.conf new file mode 100644 index 0000000..0a2108b --- /dev/null +++ b/lib/ulib/templates/apacheconfig.d8/sites.conf @@ -0,0 +1,4 @@ +# -*- coding: utf-8 mode: conf -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 +# Liste des sites à activer. Syntaxe: +# site ou +site pour activer un site +# -site pour le désactiver diff --git a/lib/ulib/templates/apacheconfig/sites/default.conf..d8 b/lib/ulib/templates/apacheconfig.d8/sites/default.conf similarity index 100% rename from lib/ulib/templates/apacheconfig/sites/default.conf..d8 rename to lib/ulib/templates/apacheconfig.d8/sites/default.conf diff --git a/lib/ulib/templates/apacheconfig/sites/default.ssl.conf..d8 b/lib/ulib/templates/apacheconfig.d8/sites/default.ssl.conf similarity index 100% rename from lib/ulib/templates/apacheconfig/sites/default.ssl.conf..d8 rename to lib/ulib/templates/apacheconfig.d8/sites/default.ssl.conf diff --git a/lib/ulib/templates/apacheconfig.d8/syspkgs.conf b/lib/ulib/templates/apacheconfig.d8/syspkgs.conf new file mode 100644 index 0000000..5efb6ae --- /dev/null +++ b/lib/ulib/templates/apacheconfig.d8/syspkgs.conf @@ -0,0 +1,9 @@ +# -*- coding: utf-8 mode: conf -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 +# Liste de paquets système à installer, e.g. php5 ou libapache2-mod-jk +# Chaque package doit être indiqué sur une ligne à part +#libapache2-mod-jk +#libapache2-mod-auth-cas +#php5-mysql +#php5-ldap +#php5-gmp +#php5-gd diff --git a/lib/ulib/templates/apacheconfig.d8/templates/SITE-certs.conf b/lib/ulib/templates/apacheconfig.d8/templates/SITE-certs.conf new file mode 100644 index 0000000..2ca6ace --- /dev/null +++ b/lib/ulib/templates/apacheconfig.d8/templates/SITE-certs.conf @@ -0,0 +1,15 @@ +# -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 + +# Cette variable est utilisée par la fonction refcerts() du script runs. C'est +# le nom d'un répertoire à chercher dans RUNSMODULESPATH qui contient les +# certificats à installer sur le serveur. +certsdir=@@certsdir@@ + +# Fichier contenant les certificats racines qui valident le certificat à +# installer, ainsi que les certificats qui sont rencontrés dans le dialogue avec +# d'autres serveurs web +ca=@@caname@@ + +# Certificat et clé privée à installer +cert= +key= diff --git a/lib/ulib/templates/apacheconfig.d8/templates/SITE.conf b/lib/ulib/templates/apacheconfig.d8/templates/SITE.conf new file mode 100644 index 0000000..91c14d5 --- /dev/null +++ b/lib/ulib/templates/apacheconfig.d8/templates/SITE.conf @@ -0,0 +1,31 @@ +# -*- coding: utf-8 mode: conf -*- vim:syntax=apache:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 + + # The ServerName directive sets the request scheme, hostname and port that + # the server uses to identify itself. This is used when creating + # redirection URLs. In the context of virtual hosts, the ServerName + # specifies what hostname must appear in the request's Host: header to + # match this virtual host. For the default virtual host (this file) this + # value is not decisive as it is used as a last resort host regardless. + # However, you must set it for any further virtual host explicitly. + ServerName SITE.TLD + ServerAlias SITE SITE.local + ServerAdmin @@admin@@ + + DocumentRoot /var/www/SITE + + # Available loglevels: trace8, ..., trace1, debug, info, notice, warn, + # error, crit, alert, emerg. + # It is also possible to configure the loglevel for particular + # modules, e.g. + #LogLevel info ssl:warn + + ErrorLog ${APACHE_LOG_DIR}/SITE_error.log + CustomLog ${APACHE_LOG_DIR}/SITE_access.log combined + + # For most configuration files from conf-available/, which are + # enabled or disabled at a global level, it is possible to + # include a line for only one particular virtual host. For example the + # following line enables the CGI configuration for this host only + # after it has been globally disabled with "a2disconf". + #Include conf-available/serve-cgi-bin.conf + diff --git a/lib/ulib/templates/apacheconfig/sites/default.ssl.conf..d b/lib/ulib/templates/apacheconfig.d8/templates/SITE.ssl.conf similarity index 69% rename from lib/ulib/templates/apacheconfig/sites/default.ssl.conf..d rename to lib/ulib/templates/apacheconfig.d8/templates/SITE.ssl.conf index 52f4a83..1af0b69 100644 --- a/lib/ulib/templates/apacheconfig/sites/default.ssl.conf..d +++ b/lib/ulib/templates/apacheconfig.d8/templates/SITE.ssl.conf @@ -1,54 +1,27 @@ -# -*- coding: utf-8 mode: conf -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 - +# -*- coding: utf-8 mode: conf -*- vim:syntax=apache:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 - ServerName @@host@@ - ServerAlias @@aliases@@ + ServerName SITE.TLD + ServerAlias SITE SITE.local ServerAdmin @@admin@@ - DocumentRoot /var/www - - Options FollowSymLinks - AllowOverride None - - - Options Indexes FollowSymLinks MultiViews - AllowOverride None - Order allow,deny - allow from all - + DocumentRoot /var/www/SITE - # Pour les serveurs qui ont le module mod_WebObjects: - # mod_WebObjects et ScriptAlias ne peuvent pas gérer le même préfixe. Pour - # utiliser des cgi-bin avec WebObjects, il faut soit changer le préfixe de - # ScriptAlias, soit changer le préfixe de WebObjectsAlias dans le fichier - # mod-webobjects.conf - # Sinon, il suffit de commenter les lignes suivantes: - ScriptAlias /cgi-bin/ /usr/lib/cgi-bin/ - - AllowOverride None - Options +ExecCGI -MultiViews +SymLinksIfOwnerMatch - Order allow,deny - Allow from all - + # Available loglevels: trace8, ..., trace1, debug, info, notice, warn, + # error, crit, alert, emerg. + # It is also possible to configure the loglevel for particular + # modules, e.g. + #LogLevel info ssl:warn - ErrorLog ${APACHE_LOG_DIR}/ssl_error.log + ErrorLog ${APACHE_LOG_DIR}/SITE_error.log + CustomLog ${APACHE_LOG_DIR}/SITE_access.log combined - # Possible values include: debug, info, notice, warn, error, crit, - # alert, emerg. - LogLevel warn - - CustomLog ${APACHE_LOG_DIR}/ssl_access.log combined - - - Order allow,deny - Allow from all - - - - Order allow,deny - Allow from all - + # For most configuration files from conf-available/, which are + # enabled or disabled at a global level, it is possible to + # include a line for only one particular virtual host. For example the + # following line enables the CGI configuration for this host only + # after it has been globally disabled with "a2disconf". + #Include conf-available/serve-cgi-bin.conf # SSL Engine Switch: # Enable/Disable SSL for this virtual host. @@ -56,7 +29,7 @@ # A self-signed (snakeoil) certificate can be created by installing # the ssl-cert package. See - # /usr/share/doc/apache2.2-common/README.Debian.gz for more info. + # /usr/share/doc/apache2/README.Debian.gz for more info. # If both key and certificate are stored in the same file, only the # SSLCertificateFile directive is needed. SSLCertificateFile @@cert@@ @@ -99,21 +72,6 @@ #SSLVerifyClient require #SSLVerifyDepth 10 - # Access Control: - # With SSLRequire you can do per-directory access control based - # on arbitrary complex boolean expressions containing server - # variable checks and other lookup directives. The syntax is a - # mixture between C and Perl. See the mod_ssl documentation - # for more details. - # - #SSLRequire ( %{SSL_CIPHER} !~ m/^(EXP|NULL)/ \ - # and %{SSL_CLIENT_S_DN_O} eq "Snake Oil, Ltd." \ - # and %{SSL_CLIENT_S_DN_OU} in {"Staff", "CA", "Dev"} \ - # and %{TIME_WDAY} >= 1 and %{TIME_WDAY} <= 5 \ - # and %{TIME_HOUR} >= 8 and %{TIME_HOUR} <= 20 ) \ - # or %{REMOTE_ADDR} =~ m/^192\.76\.162\.[0-9]+$/ - # - # SSL Engine Options: # Set various options for the SSL engine. # o FakeBasicAuth: @@ -134,19 +92,15 @@ # because the extraction step is an expensive operation and is usually # useless for serving static content. So one usually enables the # exportation for CGI and SSI requests only. - # o StrictRequire: - # This denies access when "SSLRequireSSL" or "SSLRequire" applied even - # under a "Satisfy any" situation, i.e. when it applies access is denied - # and no other module can change it. # o OptRenegotiate: # This enables optimized SSL connection renegotiation handling when SSL # directives are used in per-directory context. #SSLOptions +FakeBasicAuth +ExportCertData +StrictRequire - SSLOptions +StdEnvVars + SSLOptions +StdEnvVars - SSLOptions +StdEnvVars + SSLOptions +StdEnvVars # SSL Protocol Adjustments: @@ -174,8 +128,8 @@ # their broken HTTP/1.1 implementation. Use variables "downgrade-1.0" and # "force-response-1.0" for this. BrowserMatch "MSIE [2-6]" \ - nokeepalive ssl-unclean-shutdown \ - downgrade-1.0 force-response-1.0 + nokeepalive ssl-unclean-shutdown \ + downgrade-1.0 force-response-1.0 # MSIE 7 and newer should be able to use keepalive BrowserMatch "MSIE [17-9]" ssl-unclean-shutdown diff --git a/lib/ulib/templates/apacheconfig.d8/templates/SITE/.udir b/lib/ulib/templates/apacheconfig.d8/templates/SITE/.udir new file mode 100644 index 0000000..a212c72 --- /dev/null +++ b/lib/ulib/templates/apacheconfig.d8/templates/SITE/.udir @@ -0,0 +1,24 @@ +# -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 +# Utiliser 'udir --help-vars' pour une description de la signification des +# variables suivantes: +udir_desc="Fichiers à déployer dans le répertoire des documents web" +udir_note="Il est possible de déployer les modifications dans ce répertoire avec 'uinst -y'" +udir_types=(uinst:rsync) +uinc=release +uinc_options=() +uinc_args=() +configure_variables=(dest) +configure_dest_for=() +config_scripts=() +install_profiles=false +workdir_rsync_options=() +workdir_excludes=() +workdir_includes=() +copy_files=true +rsync_options=(--delete-after) +destdir=root@@@host@@:HTDOCSBASE/SITE +srcdir=. +files=() +owner=www-data: +modes=(u=rwX,g=rX,o=rX) +root_scripts=() diff --git a/lib/ulib/templates/apacheconfig.d8/templates/SITE/favicon.ico b/lib/ulib/templates/apacheconfig.d8/templates/SITE/favicon.ico new file mode 100644 index 0000000..a1a0be8 Binary files /dev/null and b/lib/ulib/templates/apacheconfig.d8/templates/SITE/favicon.ico differ diff --git a/lib/ulib/templates/apacheconfig.d8/templates/SITE/icon.png b/lib/ulib/templates/apacheconfig.d8/templates/SITE/icon.png new file mode 100644 index 0000000..581bad1 Binary files /dev/null and b/lib/ulib/templates/apacheconfig.d8/templates/SITE/icon.png differ diff --git a/lib/ulib/templates/apacheconfig.d8/workers.properties b/lib/ulib/templates/apacheconfig.d8/workers.properties new file mode 100644 index 0000000..6c18ed2 --- /dev/null +++ b/lib/ulib/templates/apacheconfig.d8/workers.properties @@ -0,0 +1,17 @@ +worker.list=prod,dev + +worker.prod.port=8009 +worker.prod.host=@@prod_host@@ +worker.prod.type=ajp13 +worker.prod.lbfactor=1 +worker.prod.connection_pool_timeout=600 +worker.prod.socket_keepalive=1 +worker.prod.socket_timeout=60 + +worker.dev.port=8009 +worker.dev.host=@@dev_host@@ +worker.dev.type=ajp13 +worker.dev.lbfactor=1 +worker.dev.connection_pool_timeout=600 +worker.dev.socket_keepalive=1 +worker.dev.socket_timeout=60 diff --git a/lib/ulib/templates/apacheconfig.d8/www/.udir b/lib/ulib/templates/apacheconfig.d8/www/.udir new file mode 100644 index 0000000..e10ec1c --- /dev/null +++ b/lib/ulib/templates/apacheconfig.d8/www/.udir @@ -0,0 +1,24 @@ +# -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 +# Utiliser 'udir --help-vars' pour une description de la signification des +# variables suivantes: +udir_desc="Fichiers à déployer sur @@host@@ dans le répertoire des documents web" +udir_note="Il est possible de déployer les modifications dans ce répertoire avec 'uinst -y'" +udir_types=(uinst:rsync) +uinc=release +uinc_options=() +uinc_args=() +configure_variables=(dest) +configure_dest_for=() +config_scripts=() +install_profiles=false +workdir_rsync_options=() +workdir_excludes=() +workdir_includes=() +copy_files=true +rsync_options=() +destdir=root@@@host@@:HTDOCSDIR +srcdir=. +files=() +owner=www-data: +modes=(u=rwX,g=rX,o=rX) +root_scripts=() diff --git a/lib/ulib/templates/apacheconfig.d8/www/favicon.ico b/lib/ulib/templates/apacheconfig.d8/www/favicon.ico new file mode 100644 index 0000000..a1a0be8 Binary files /dev/null and b/lib/ulib/templates/apacheconfig.d8/www/favicon.ico differ diff --git a/lib/ulib/templates/apacheconfig.d8/www/icon.png b/lib/ulib/templates/apacheconfig.d8/www/icon.png new file mode 100644 index 0000000..581bad1 Binary files /dev/null and b/lib/ulib/templates/apacheconfig.d8/www/icon.png differ diff --git a/lib/ulib/templates/apacheconfig/RewriteRules/update.sh b/lib/ulib/templates/apacheconfig/RewriteRules/update.sh index 03f8c10..30f374e 100755 --- a/lib/ulib/templates/apacheconfig/RewriteRules/update.sh +++ b/lib/ulib/templates/apacheconfig/RewriteRules/update.sh @@ -1,10 +1,6 @@ #!/bin/bash # -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 - -source /etc/ulib && -urequire DEFAULTS || -exit 1 -OENC="$UTF8" +source /etc/ulibauto || exit 1 PRIHOST= PUBHOST= diff --git a/lib/ulib/templates/apacheconfig/modules/ssl.conf b/lib/ulib/templates/apacheconfig/modules/ssl.conf index e69de29..f96fe64 100644 --- a/lib/ulib/templates/apacheconfig/modules/ssl.conf +++ b/lib/ulib/templates/apacheconfig/modules/ssl.conf @@ -0,0 +1,103 @@ + + # cf https://wiki.mozilla.org/Security/Server_Side_TLS + + # modern configuration not supported. same as SSL_CONFIG_INTERMEDIATE below + SSLProtocol all -SSLv2 -SSLv3 + SSLCipherSuite ECDHE-ECDSA-CHACHA20-POLY1305:ECDHE-RSA-CHACHA20-POLY1305:ECDHE-ECDSA-AES128-GCM-SHA256:ECDHE-RSA-AES128-GCM-SHA256:ECDHE-ECDSA-AES256-GCM-SHA384:ECDHE-RSA-AES256-GCM-SHA384:DHE-RSA-AES128-GCM-SHA256:DHE-RSA-AES256-GCM-SHA384:ECDHE-ECDSA-AES128-SHA256:ECDHE-RSA-AES128-SHA256:ECDHE-ECDSA-AES128-SHA:ECDHE-RSA-AES256-SHA384:ECDHE-RSA-AES128-SHA:ECDHE-ECDSA-AES256-SHA384:ECDHE-ECDSA-AES256-SHA:ECDHE-RSA-AES256-SHA:DHE-RSA-AES128-SHA256:DHE-RSA-AES128-SHA:DHE-RSA-AES256-SHA256:DHE-RSA-AES256-SHA:ECDHE-ECDSA-DES-CBC3-SHA:ECDHE-RSA-DES-CBC3-SHA:EDH-RSA-DES-CBC3-SHA:AES128-GCM-SHA256:AES256-GCM-SHA384:AES128-SHA256:AES256-SHA256:AES128-SHA:AES256-SHA:DES-CBC3-SHA:!DSS + SSLHonorCipherOrder on + + + + # intermediate configuration, tweak to your needs + SSLProtocol all -SSLv2 -SSLv3 + SSLCipherSuite ECDHE-ECDSA-CHACHA20-POLY1305:ECDHE-RSA-CHACHA20-POLY1305:ECDHE-ECDSA-AES128-GCM-SHA256:ECDHE-RSA-AES128-GCM-SHA256:ECDHE-ECDSA-AES256-GCM-SHA384:ECDHE-RSA-AES256-GCM-SHA384:DHE-RSA-AES128-GCM-SHA256:DHE-RSA-AES256-GCM-SHA384:ECDHE-ECDSA-AES128-SHA256:ECDHE-RSA-AES128-SHA256:ECDHE-ECDSA-AES128-SHA:ECDHE-RSA-AES256-SHA384:ECDHE-RSA-AES128-SHA:ECDHE-ECDSA-AES256-SHA384:ECDHE-ECDSA-AES256-SHA:ECDHE-RSA-AES256-SHA:DHE-RSA-AES128-SHA256:DHE-RSA-AES128-SHA:DHE-RSA-AES256-SHA256:DHE-RSA-AES256-SHA:ECDHE-ECDSA-DES-CBC3-SHA:ECDHE-RSA-DES-CBC3-SHA:EDH-RSA-DES-CBC3-SHA:AES128-GCM-SHA256:AES256-GCM-SHA384:AES128-SHA256:AES256-SHA256:AES128-SHA:AES256-SHA:DES-CBC3-SHA:!DSS + SSLHonorCipherOrder on + SSLCompression off + SSLSessionTickets off + + + + # old configuration, tweak to your needs + SSLProtocol all -SSLv2 + SSLCipherSuite ECDHE-ECDSA-CHACHA20-POLY1305:ECDHE-RSA-CHACHA20-POLY1305:ECDHE-RSA-AES128-GCM-SHA256:ECDHE-ECDSA-AES128-GCM-SHA256:ECDHE-RSA-AES256-GCM-SHA384:ECDHE-ECDSA-AES256-GCM-SHA384:DHE-RSA-AES128-GCM-SHA256:DHE-DSS-AES128-GCM-SHA256:kEDH+AESGCM:ECDHE-RSA-AES128-SHA256:ECDHE-ECDSA-AES128-SHA256:ECDHE-RSA-AES128-SHA:ECDHE-ECDSA-AES128-SHA:ECDHE-RSA-AES256-SHA384:ECDHE-ECDSA-AES256-SHA384:ECDHE-RSA-AES256-SHA:ECDHE-ECDSA-AES256-SHA:DHE-RSA-AES128-SHA256:DHE-RSA-AES128-SHA:DHE-DSS-AES128-SHA256:DHE-RSA-AES256-SHA256:DHE-DSS-AES256-SHA:DHE-RSA-AES256-SHA:ECDHE-RSA-DES-CBC3-SHA:ECDHE-ECDSA-DES-CBC3-SHA:EDH-RSA-DES-CBC3-SHA:AES128-GCM-SHA256:AES256-GCM-SHA384:AES128-SHA256:AES256-SHA256:AES128-SHA:AES256-SHA:AES:DES-CBC3-SHA:HIGH:SEED:!aNULL:!eNULL:!EXPORT:!DES:!RC4:!MD5:!PSK:!RSAPSK:!aDH:!aECDH:!EDH-DSS-DES-CBC3-SHA:!KRB5-DES-CBC3-SHA:!SRP + SSLHonorCipherOrder on + SSLCompression off + SSLSessionTickets off + + + # default debian configuration + + # SSL Cipher Suite: + # List the ciphers that the client is permitted to negotiate. + # See the mod_ssl documentation for a complete list. + # enable only secure ciphers: + SSLCipherSuite HIGH:MEDIUM:!ADH + # Use this instead if you want to allow cipher upgrades via SGC facility. + # In this case you also have to use something like + # SSLRequire %{SSL_CIPHER_USEKEYSIZE} >= 128 + # see http://httpd.apache.org/docs/2.2/ssl/ssl_howto.html.en#upgradeenc + #SSLCipherSuite ALL:!ADH:!EXPORT56:RC4+RSA:+HIGH:+MEDIUM:+LOW:+SSLv2:+EXP:+eNULL + + # enable only secure protocols: SSLv3 and TLSv1, but not SSLv2 + SSLProtocol all -SSLv2 + + + + +# +# Pseudo Random Number Generator (PRNG): +# Configure one or more sources to seed the PRNG of the SSL library. +# The seed data should be of good random quality. +# WARNING! On some platforms /dev/random blocks if not enough entropy +# is available. This means you then cannot use the /dev/random device +# because it would lead to very long connection times (as long as +# it requires to make more entropy available). But usually those +# platforms additionally provide a /dev/urandom device which doesn't +# block. So, if available, use this one instead. Read the mod_ssl User +# Manual for more details. +# +SSLRandomSeed startup builtin +SSLRandomSeed startup file:/dev/urandom 512 +SSLRandomSeed connect builtin +SSLRandomSeed connect file:/dev/urandom 512 + +## +## SSL Global Context +## +## All SSL configuration in this context applies both to +## the main server and all SSL-enabled virtual hosts. +## + +# +# Some MIME-types for downloading Certificates and CRLs +# +AddType application/x-x509-ca-cert .crt +AddType application/x-pkcs7-crl .crl + +# Pass Phrase Dialog: +# Configure the pass phrase gathering process. +# The filtering dialog program (`builtin' is a internal +# terminal dialog) has to provide the pass phrase on stdout. +SSLPassPhraseDialog builtin + +# Inter-Process Session Cache: +# Configure the SSL Session Cache: First the mechanism +# to use and second the expiring timeout (in seconds). +# (The mechanism dbm has known memory leaks and should not be used). +#SSLSessionCache dbm:${APACHE_RUN_DIR}/ssl_scache +SSLSessionCache shmcb:${APACHE_RUN_DIR}/ssl_scache(512000) +SSLSessionCacheTimeout 300 + +# Semaphore: +# Configure the path to the mutual exclusion semaphore the +# SSL engine uses internally for inter-process synchronization. +SSLMutex file:${APACHE_RUN_DIR}/ssl_mutex + +# Allow insecure renegotiation with clients which do not yet support the +# secure renegotiation protocol. Default: Off +#SSLInsecureRenegotiation on + +# Whether to forbid non-SNI clients to access name based virtual hosts. +# Default: Off +#SSLStrictSNIVHostCheck On + diff --git a/lib/ulib/templates/apacheconfig/modules/ssl.conf..d b/lib/ulib/templates/apacheconfig/modules/ssl.conf..d deleted file mode 100644 index 9994776..0000000 --- a/lib/ulib/templates/apacheconfig/modules/ssl.conf..d +++ /dev/null @@ -1,103 +0,0 @@ - - # cf https://wiki.mozilla.org/Security/Server_Side_TLS - - # modern configuration not supported. same as SSL_CONFIG_INTERMEDIATE below - SSLProtocol all -SSLv2 -SSLv3 - SSLCipherSuite ECDHE-ECDSA-CHACHA20-POLY1305:ECDHE-RSA-CHACHA20-POLY1305:ECDHE-ECDSA-AES128-GCM-SHA256:ECDHE-RSA-AES128-GCM-SHA256:ECDHE-ECDSA-AES256-GCM-SHA384:ECDHE-RSA-AES256-GCM-SHA384:DHE-RSA-AES128-GCM-SHA256:DHE-RSA-AES256-GCM-SHA384:ECDHE-ECDSA-AES128-SHA256:ECDHE-RSA-AES128-SHA256:ECDHE-ECDSA-AES128-SHA:ECDHE-RSA-AES256-SHA384:ECDHE-RSA-AES128-SHA:ECDHE-ECDSA-AES256-SHA384:ECDHE-ECDSA-AES256-SHA:ECDHE-RSA-AES256-SHA:DHE-RSA-AES128-SHA256:DHE-RSA-AES128-SHA:DHE-RSA-AES256-SHA256:DHE-RSA-AES256-SHA:ECDHE-ECDSA-DES-CBC3-SHA:ECDHE-RSA-DES-CBC3-SHA:EDH-RSA-DES-CBC3-SHA:AES128-GCM-SHA256:AES256-GCM-SHA384:AES128-SHA256:AES256-SHA256:AES128-SHA:AES256-SHA:DES-CBC3-SHA:!DSS - SSLHonorCipherOrder on - - - - # intermediate configuration, tweak to your needs - SSLProtocol all -SSLv2 -SSLv3 - SSLCipherSuite ECDHE-ECDSA-CHACHA20-POLY1305:ECDHE-RSA-CHACHA20-POLY1305:ECDHE-ECDSA-AES128-GCM-SHA256:ECDHE-RSA-AES128-GCM-SHA256:ECDHE-ECDSA-AES256-GCM-SHA384:ECDHE-RSA-AES256-GCM-SHA384:DHE-RSA-AES128-GCM-SHA256:DHE-RSA-AES256-GCM-SHA384:ECDHE-ECDSA-AES128-SHA256:ECDHE-RSA-AES128-SHA256:ECDHE-ECDSA-AES128-SHA:ECDHE-RSA-AES256-SHA384:ECDHE-RSA-AES128-SHA:ECDHE-ECDSA-AES256-SHA384:ECDHE-ECDSA-AES256-SHA:ECDHE-RSA-AES256-SHA:DHE-RSA-AES128-SHA256:DHE-RSA-AES128-SHA:DHE-RSA-AES256-SHA256:DHE-RSA-AES256-SHA:ECDHE-ECDSA-DES-CBC3-SHA:ECDHE-RSA-DES-CBC3-SHA:EDH-RSA-DES-CBC3-SHA:AES128-GCM-SHA256:AES256-GCM-SHA384:AES128-SHA256:AES256-SHA256:AES128-SHA:AES256-SHA:DES-CBC3-SHA:!DSS - SSLHonorCipherOrder on - SSLCompression off - SSLSessionTickets off - - - - # old configuration, tweak to your needs - SSLProtocol all -SSLv2 - SSLCipherSuite ECDHE-ECDSA-CHACHA20-POLY1305:ECDHE-RSA-CHACHA20-POLY1305:ECDHE-RSA-AES128-GCM-SHA256:ECDHE-ECDSA-AES128-GCM-SHA256:ECDHE-RSA-AES256-GCM-SHA384:ECDHE-ECDSA-AES256-GCM-SHA384:DHE-RSA-AES128-GCM-SHA256:DHE-DSS-AES128-GCM-SHA256:kEDH+AESGCM:ECDHE-RSA-AES128-SHA256:ECDHE-ECDSA-AES128-SHA256:ECDHE-RSA-AES128-SHA:ECDHE-ECDSA-AES128-SHA:ECDHE-RSA-AES256-SHA384:ECDHE-ECDSA-AES256-SHA384:ECDHE-RSA-AES256-SHA:ECDHE-ECDSA-AES256-SHA:DHE-RSA-AES128-SHA256:DHE-RSA-AES128-SHA:DHE-DSS-AES128-SHA256:DHE-RSA-AES256-SHA256:DHE-DSS-AES256-SHA:DHE-RSA-AES256-SHA:ECDHE-RSA-DES-CBC3-SHA:ECDHE-ECDSA-DES-CBC3-SHA:EDH-RSA-DES-CBC3-SHA:AES128-GCM-SHA256:AES256-GCM-SHA384:AES128-SHA256:AES256-SHA256:AES128-SHA:AES256-SHA:AES:DES-CBC3-SHA:HIGH:SEED:!aNULL:!eNULL:!EXPORT:!DES:!RC4:!MD5:!PSK:!RSAPSK:!aDH:!aECDH:!EDH-DSS-DES-CBC3-SHA:!KRB5-DES-CBC3-SHA:!SRP - SSLHonorCipherOrder on - SSLCompression off - SSLSessionTickets off - - - # default debian configuration - - # SSL Cipher Suite: - # List the ciphers that the client is permitted to negotiate. - # See the mod_ssl documentation for a complete list. - # enable only secure ciphers: - SSLCipherSuite HIGH:MEDIUM:!ADH - # Use this instead if you want to allow cipher upgrades via SGC facility. - # In this case you also have to use something like - # SSLRequire %{SSL_CIPHER_USEKEYSIZE} >= 128 - # see http://httpd.apache.org/docs/2.2/ssl/ssl_howto.html.en#upgradeenc - #SSLCipherSuite ALL:!ADH:!EXPORT56:RC4+RSA:+HIGH:+MEDIUM:+LOW:+SSLv2:+EXP:+eNULL - - # enable only secure protocols: SSLv3 and TLSv1, but not SSLv2 - SSLProtocol all -SSLv2 - - - - -# -# Pseudo Random Number Generator (PRNG): -# Configure one or more sources to seed the PRNG of the SSL library. -# The seed data should be of good random quality. -# WARNING! On some platforms /dev/random blocks if not enough entropy -# is available. This means you then cannot use the /dev/random device -# because it would lead to very long connection times (as long as -# it requires to make more entropy available). But usually those -# platforms additionally provide a /dev/urandom device which doesn't -# block. So, if available, use this one instead. Read the mod_ssl User -# Manual for more details. -# -SSLRandomSeed startup builtin -SSLRandomSeed startup file:/dev/urandom 512 -SSLRandomSeed connect builtin -SSLRandomSeed connect file:/dev/urandom 512 - -## -## SSL Global Context -## -## All SSL configuration in this context applies both to -## the main server and all SSL-enabled virtual hosts. -## - -# -# Some MIME-types for downloading Certificates and CRLs -# -AddType application/x-x509-ca-cert .crt -AddType application/x-pkcs7-crl .crl - -# Pass Phrase Dialog: -# Configure the pass phrase gathering process. -# The filtering dialog program (`builtin' is a internal -# terminal dialog) has to provide the pass phrase on stdout. -SSLPassPhraseDialog builtin - -# Inter-Process Session Cache: -# Configure the SSL Session Cache: First the mechanism -# to use and second the expiring timeout (in seconds). -# (The mechanism dbm has known memory leaks and should not be used). -#SSLSessionCache dbm:${APACHE_RUN_DIR}/ssl_scache -SSLSessionCache shmcb:${APACHE_RUN_DIR}/ssl_scache(512000) -SSLSessionCacheTimeout 300 - -# Semaphore: -# Configure the path to the mutual exclusion semaphore the -# SSL engine uses internally for inter-process synchronization. -SSLMutex file:${APACHE_RUN_DIR}/ssl_mutex - -# Allow insecure renegotiation with clients which do not yet support the -# secure renegotiation protocol. Default: Off -#SSLInsecureRenegotiation on - -# Whether to forbid non-SNI clients to access name based virtual hosts. -# Default: Off -#SSLStrictSNIVHostCheck On - diff --git a/lib/ulib/templates/apacheconfig/ports.conf b/lib/ulib/templates/apacheconfig/ports.conf index e69de29..a6bceab 100644 --- a/lib/ulib/templates/apacheconfig/ports.conf +++ b/lib/ulib/templates/apacheconfig/ports.conf @@ -0,0 +1,29 @@ +# -*- coding: utf-8 mode: conf -*- vim:syntax=apache:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 +# If you just change the port or add more ports here, you will likely also +# have to change the VirtualHost statement in +# /etc/apache2/sites-enabled/000-default +# This is also true if you have upgraded from before 2.2.9-3 (i.e. from +# Debian etch). See /usr/share/doc/apache2.2-common/NEWS.Debian.gz and +# README.Debian.gz + +NameVirtualHost *:80 +Listen *:80 + + + # If you add NameVirtualHost *:443 here, you will also have to change + # the VirtualHost statement in /etc/apache2/sites-available/default-ssl + # to + # Server Name Indication for SSL named virtual hosts is currently not + # supported by MSIE on Windows XP. + #NameVirtualHost IP:443 + #Listen IP:443 + #@@ips_namevirtualhosts@@ + #@@ips_listens@@ + + + + #NameVirtualHost IP:443 + #Listen IP:443 + #@@ips_namevirtualhosts@@ + #@@ips_listens@@ + diff --git a/lib/ulib/templates/apacheconfig/ports.conf..d b/lib/ulib/templates/apacheconfig/ports.conf..d deleted file mode 100644 index a6bceab..0000000 --- a/lib/ulib/templates/apacheconfig/ports.conf..d +++ /dev/null @@ -1,29 +0,0 @@ -# -*- coding: utf-8 mode: conf -*- vim:syntax=apache:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 -# If you just change the port or add more ports here, you will likely also -# have to change the VirtualHost statement in -# /etc/apache2/sites-enabled/000-default -# This is also true if you have upgraded from before 2.2.9-3 (i.e. from -# Debian etch). See /usr/share/doc/apache2.2-common/NEWS.Debian.gz and -# README.Debian.gz - -NameVirtualHost *:80 -Listen *:80 - - - # If you add NameVirtualHost *:443 here, you will also have to change - # the VirtualHost statement in /etc/apache2/sites-available/default-ssl - # to - # Server Name Indication for SSL named virtual hosts is currently not - # supported by MSIE on Windows XP. - #NameVirtualHost IP:443 - #Listen IP:443 - #@@ips_namevirtualhosts@@ - #@@ips_listens@@ - - - - #NameVirtualHost IP:443 - #Listen IP:443 - #@@ips_namevirtualhosts@@ - #@@ips_listens@@ - diff --git a/lib/ulib/templates/apacheconfig/sites/default.conf b/lib/ulib/templates/apacheconfig/sites/default.conf index e69de29..0fc5304 100644 --- a/lib/ulib/templates/apacheconfig/sites/default.conf +++ b/lib/ulib/templates/apacheconfig/sites/default.conf @@ -0,0 +1,51 @@ +# -*- coding: utf-8 mode: conf -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 + + + ServerName @@host@@ + ServerAlias @@aliases@@ + ServerAdmin @@admin@@ + + DocumentRoot /var/www + + Options FollowSymLinks + AllowOverride None + + + Options Indexes FollowSymLinks MultiViews + AllowOverride None + Order allow,deny + allow from all + + + # Pour les serveurs qui ont le module mod_WebObjects: + # mod_WebObjects et ScriptAlias ne peuvent pas gérer le même préfixe. Pour + # utiliser des cgi-bin avec WebObjects, il faut soit changer le préfixe de + # ScriptAlias, soit changer le préfixe de WebObjectsAlias dans le fichier + # mod-webobjects.conf + # Sinon, il suffit de commenter les lignes suivantes: + ScriptAlias /cgi-bin/ /usr/lib/cgi-bin/ + + AllowOverride None + Options +ExecCGI -MultiViews +SymLinksIfOwnerMatch + Order allow,deny + Allow from all + + + ErrorLog ${APACHE_LOG_DIR}/error.log + + # Possible values include: debug, info, notice, warn, error, crit, + # alert, emerg. + LogLevel warn + + CustomLog ${APACHE_LOG_DIR}/access.log combined + + # Pour les serveurs qui ont le module mod_WebObjects: + + Order allow,deny + Allow from all + + + Order allow,deny + Allow from all + + diff --git a/lib/ulib/templates/apacheconfig/sites/default.conf..d b/lib/ulib/templates/apacheconfig/sites/default.conf..d deleted file mode 100644 index 0fc5304..0000000 --- a/lib/ulib/templates/apacheconfig/sites/default.conf..d +++ /dev/null @@ -1,51 +0,0 @@ -# -*- coding: utf-8 mode: conf -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 - - - ServerName @@host@@ - ServerAlias @@aliases@@ - ServerAdmin @@admin@@ - - DocumentRoot /var/www - - Options FollowSymLinks - AllowOverride None - - - Options Indexes FollowSymLinks MultiViews - AllowOverride None - Order allow,deny - allow from all - - - # Pour les serveurs qui ont le module mod_WebObjects: - # mod_WebObjects et ScriptAlias ne peuvent pas gérer le même préfixe. Pour - # utiliser des cgi-bin avec WebObjects, il faut soit changer le préfixe de - # ScriptAlias, soit changer le préfixe de WebObjectsAlias dans le fichier - # mod-webobjects.conf - # Sinon, il suffit de commenter les lignes suivantes: - ScriptAlias /cgi-bin/ /usr/lib/cgi-bin/ - - AllowOverride None - Options +ExecCGI -MultiViews +SymLinksIfOwnerMatch - Order allow,deny - Allow from all - - - ErrorLog ${APACHE_LOG_DIR}/error.log - - # Possible values include: debug, info, notice, warn, error, crit, - # alert, emerg. - LogLevel warn - - CustomLog ${APACHE_LOG_DIR}/access.log combined - - # Pour les serveurs qui ont le module mod_WebObjects: - - Order allow,deny - Allow from all - - - Order allow,deny - Allow from all - - diff --git a/lib/ulib/templates/apacheconfig/sites/default.ssl.conf b/lib/ulib/templates/apacheconfig/sites/default.ssl.conf index e69de29..52f4a83 100644 --- a/lib/ulib/templates/apacheconfig/sites/default.ssl.conf +++ b/lib/ulib/templates/apacheconfig/sites/default.ssl.conf @@ -0,0 +1,190 @@ +# -*- coding: utf-8 mode: conf -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 + + + + ServerName @@host@@ + ServerAlias @@aliases@@ + ServerAdmin @@admin@@ + + DocumentRoot /var/www + + Options FollowSymLinks + AllowOverride None + + + Options Indexes FollowSymLinks MultiViews + AllowOverride None + Order allow,deny + allow from all + + + # Pour les serveurs qui ont le module mod_WebObjects: + # mod_WebObjects et ScriptAlias ne peuvent pas gérer le même préfixe. Pour + # utiliser des cgi-bin avec WebObjects, il faut soit changer le préfixe de + # ScriptAlias, soit changer le préfixe de WebObjectsAlias dans le fichier + # mod-webobjects.conf + # Sinon, il suffit de commenter les lignes suivantes: + ScriptAlias /cgi-bin/ /usr/lib/cgi-bin/ + + AllowOverride None + Options +ExecCGI -MultiViews +SymLinksIfOwnerMatch + Order allow,deny + Allow from all + + + ErrorLog ${APACHE_LOG_DIR}/ssl_error.log + + # Possible values include: debug, info, notice, warn, error, crit, + # alert, emerg. + LogLevel warn + + CustomLog ${APACHE_LOG_DIR}/ssl_access.log combined + + + Order allow,deny + Allow from all + + + + Order allow,deny + Allow from all + + + # SSL Engine Switch: + # Enable/Disable SSL for this virtual host. + SSLEngine on + + # A self-signed (snakeoil) certificate can be created by installing + # the ssl-cert package. See + # /usr/share/doc/apache2.2-common/README.Debian.gz for more info. + # If both key and certificate are stored in the same file, only the + # SSLCertificateFile directive is needed. + SSLCertificateFile @@cert@@ + SSLCertificateKeyFile @@key@@ + + # Server Certificate Chain: + # Point SSLCertificateChainFile at a file containing the + # concatenation of PEM encoded CA certificates which form the + # certificate chain for the server certificate. Alternatively + # the referenced file can be the same as SSLCertificateFile + # when the CA certificates are directly appended to the server + # certificate for convinience. + SSLCertificateChainFile @@ca@@ + + # Certificate Authority (CA): + # Set the CA certificate verification path where to find CA + # certificates for client authentication or alternatively one + # huge file containing all of them (file must be PEM encoded) + # Note: Inside SSLCACertificatePath you need hash symlinks + # to point to the certificate files. Use the provided + # Makefile to update the hash symlinks after changes. + #SSLCACertificatePath /etc/ssl/certs/ + #SSLCACertificateFile /etc/apache2/ssl.crt/ca-bundle.crt + + # Certificate Revocation Lists (CRL): + # Set the CA revocation path where to find CA CRLs for client + # authentication or alternatively one huge file containing all + # of them (file must be PEM encoded) + # Note: Inside SSLCARevocationPath you need hash symlinks + # to point to the certificate files. Use the provided + # Makefile to update the hash symlinks after changes. + #SSLCARevocationPath /etc/apache2/ssl.crl/ + #SSLCARevocationFile /etc/apache2/ssl.crl/ca-bundle.crl + + # Client Authentication (Type): + # Client certificate verification type and depth. Types are + # none, optional, require and optional_no_ca. Depth is a + # number which specifies how deeply to verify the certificate + # issuer chain before deciding the certificate is not valid. + #SSLVerifyClient require + #SSLVerifyDepth 10 + + # Access Control: + # With SSLRequire you can do per-directory access control based + # on arbitrary complex boolean expressions containing server + # variable checks and other lookup directives. The syntax is a + # mixture between C and Perl. See the mod_ssl documentation + # for more details. + # + #SSLRequire ( %{SSL_CIPHER} !~ m/^(EXP|NULL)/ \ + # and %{SSL_CLIENT_S_DN_O} eq "Snake Oil, Ltd." \ + # and %{SSL_CLIENT_S_DN_OU} in {"Staff", "CA", "Dev"} \ + # and %{TIME_WDAY} >= 1 and %{TIME_WDAY} <= 5 \ + # and %{TIME_HOUR} >= 8 and %{TIME_HOUR} <= 20 ) \ + # or %{REMOTE_ADDR} =~ m/^192\.76\.162\.[0-9]+$/ + # + + # SSL Engine Options: + # Set various options for the SSL engine. + # o FakeBasicAuth: + # Translate the client X.509 into a Basic Authorisation. This means that + # the standard Auth/DBMAuth methods can be used for access control. The + # user name is the `one line' version of the client's X.509 certificate. + # Note that no password is obtained from the user. Every entry in the user + # file needs this password: `xxj31ZMTZzkVA'. + # o ExportCertData: + # This exports two additional environment variables: SSL_CLIENT_CERT and + # SSL_SERVER_CERT. These contain the PEM-encoded certificates of the + # server (always existing) and the client (only existing when client + # authentication is used). This can be used to import the certificates + # into CGI scripts. + # o StdEnvVars: + # This exports the standard SSL/TLS related `SSL_*' environment variables. + # Per default this exportation is switched off for performance reasons, + # because the extraction step is an expensive operation and is usually + # useless for serving static content. So one usually enables the + # exportation for CGI and SSI requests only. + # o StrictRequire: + # This denies access when "SSLRequireSSL" or "SSLRequire" applied even + # under a "Satisfy any" situation, i.e. when it applies access is denied + # and no other module can change it. + # o OptRenegotiate: + # This enables optimized SSL connection renegotiation handling when SSL + # directives are used in per-directory context. + #SSLOptions +FakeBasicAuth +ExportCertData +StrictRequire + + SSLOptions +StdEnvVars + + + SSLOptions +StdEnvVars + + + # SSL Protocol Adjustments: + # The safe and default but still SSL/TLS standard compliant shutdown + # approach is that mod_ssl sends the close notify alert but doesn't wait for + # the close notify alert from client. When you need a different shutdown + # approach you can use one of the following variables: + # o ssl-unclean-shutdown: + # This forces an unclean shutdown when the connection is closed, i.e. no + # SSL close notify alert is send or allowed to received. This violates + # the SSL/TLS standard but is needed for some brain-dead browsers. Use + # this when you receive I/O errors because of the standard approach where + # mod_ssl sends the close notify alert. + # o ssl-accurate-shutdown: + # This forces an accurate shutdown when the connection is closed, i.e. a + # SSL close notify alert is send and mod_ssl waits for the close notify + # alert of the client. This is 100% SSL/TLS standard compliant, but in + # practice often causes hanging connections with brain-dead browsers. Use + # this only for browsers where you know that their SSL implementation + # works correctly. + # Notice: Most problems of broken clients are also related to the HTTP + # keep-alive facility, so you usually additionally want to disable + # keep-alive for those clients, too. Use variable "nokeepalive" for this. + # Similarly, one has to force some clients to use HTTP/1.0 to workaround + # their broken HTTP/1.1 implementation. Use variables "downgrade-1.0" and + # "force-response-1.0" for this. + BrowserMatch "MSIE [2-6]" \ + nokeepalive ssl-unclean-shutdown \ + downgrade-1.0 force-response-1.0 + # MSIE 7 and newer should be able to use keepalive + BrowserMatch "MSIE [17-9]" ssl-unclean-shutdown + + # cf https://wiki.mozilla.org/Security/Server_Side_TLS + + + # HSTS (15768000 seconds = 6 months) + Header always set Strict-Transport-Security "max-age=15768000" + + + + diff --git a/lib/ulib/templates/apacheconfig/www/favicon.ico b/lib/ulib/templates/apacheconfig/www/favicon.ico new file mode 100644 index 0000000..a1a0be8 Binary files /dev/null and b/lib/ulib/templates/apacheconfig/www/favicon.ico differ diff --git a/lib/ulib/templates/apacheconfig/www/icon.png b/lib/ulib/templates/apacheconfig/www/icon.png new file mode 100644 index 0000000..581bad1 Binary files /dev/null and b/lib/ulib/templates/apacheconfig/www/icon.png differ diff --git a/lib/ulib/uinst b/lib/ulib/uinst index 2bfdd5a..26e1027 100644 --- a/lib/ulib/uinst +++ b/lib/ulib/uinst @@ -969,6 +969,7 @@ function __uinst_rsync() { # corriger éventuellement destdir s'il contient un préfixe if [ -n "$UINST_AUTOPREFIX" ] && has_prefix "$__destdir_path"; then if [ -n "$__destdir_remote" ]; then + estep "Calcul des informations sur l'hôte distant" eval "$SYSINFOSLOCALS" local APACHE_PREFIXES_CHECK_OR_FIRST=1 compute_remote_sysinfos "${__destdir_user:+$__destdir_user@}$__destdir_host" "$destdir_ssh" diff --git a/lib/ulib/ulib b/lib/ulib/ulib index 02b44ac..38a8aa6 100644 --- a/lib/ulib/ulib +++ b/lib/ulib/ulib @@ -76,6 +76,8 @@ function urequire() { # Le module DEFAULTS est traité de façon particulière: si le fichier associé # n'est pas trouvé, charger base, pretty, sysinfos et compat à la place # Si un module n'est pas trouvé, quitter le script avec die() + [ -z "$__ULIB_NO_DISABLE_SET_X" ] && [[ $- == *x* ]] && { set +x; local __ULIB_UREQUIRE_SET_X=1; }; if [ -n "$__ULIB_UREQUIRE_SET_X" ]; then [ -n "$__ULIB_UREQUIRE_SET_X_RL1" ] || local __ULIB_UREQUIRE_SET_X_RL1; local __ULIB_UREQUIRE_SET_X_RL2=$RANDOM; [ -n "$__ULIB_UREQUIRE_SET_X_RL1" ] || __ULIB_UREQUIRE_SET_X_RL1=$__ULIB_UREQUIRE_SET_X_RL2; fi # désactiver set -x de manière réentrante + local __u_module __u_ulibdir __u_found [ -n "$*" ] || set DEFAULTS @@ -106,6 +108,8 @@ function urequire() { fi [ -n "$__u_found" ] || die "Unable to find $__u_module in ${ULIBDIR[*]}" done + + [ -n "$__ULIB_UREQUIRE_SET_X" -a "$__ULIB_UREQUIRE_SET_X_RL1" == "$__ULIB_UREQUIRE_SET_X_RL2" ] && set -x return 0 } diff --git a/lib/ulib/ulibsh b/lib/ulib/ulibsh index c7a6f55..68d6ec6 100644 --- a/lib/ulib/ulibsh +++ b/lib/ulib/ulibsh @@ -62,6 +62,8 @@ function uprovide() { __ULIB_FORCE_RELOAD= function urequire() { + [ -z "$__ULIB_NO_DISABLE_SET_X" ] && [[ $- == *x* ]] && { set +x; local __ULIB_UREQUIRE_SET_X=1; }; if [ -n "$__ULIB_UREQUIRE_SET_X" ]; then [ -n "$__ULIB_UREQUIRE_SET_X_RL1" ] || local __ULIB_UREQUIRE_SET_X_RL1; local __ULIB_UREQUIRE_SET_X_RL2=$RANDOM; [ -n "$__ULIB_UREQUIRE_SET_X_RL1" ] || __ULIB_UREQUIRE_SET_X_RL1=$__ULIB_UREQUIRE_SET_X_RL2; fi # désactiver set -x de manière réentrante + local __u_module __u_ulibdir __u_found [ -n "$*" ] || set DEFAULTS @@ -91,6 +93,8 @@ function urequire() { fi [ -n "$__u_found" ] || die "Unable to find $__u_module in ${ULIBDIR[*]}" done + + [ -n "$__ULIB_UREQUIRE_SET_X" -a "$__ULIB_UREQUIRE_SET_X_RL1" == "$__ULIB_UREQUIRE_SET_X_RL2" ] && set -x return 0 } diff --git a/lib/ulib/vcs b/lib/ulib/vcs index e9923dd..7fe12be 100644 --- a/lib/ulib/vcs +++ b/lib/ulib/vcs @@ -610,7 +610,7 @@ __VCS_GIT_ADVANCED=( git_is_merged ) function git_check_gitvcs() { - [ "$(_vcs_get_type "$(_vcs_get_dir)")" == git ] + git rev-parse --show-toplevel >&/dev/null } function git_ensure_gitvcs() { git_check_gitvcs || die "Ce n'est pas un dépôt git" diff --git a/lib/ulib/xmlsupport b/lib/ulib/xmlsupport new file mode 100644 index 0000000..1235be7 --- /dev/null +++ b/lib/ulib/xmlsupport @@ -0,0 +1,8 @@ +##@cooked comments # -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 +## Fonction de support pour gérer des fichiers XML +##@cooked nocomments +##@require ulib +uprovide xmlsupport +urequire ulib + +function xpathtool() { "$ULIBDIR/support/xpathtool.py" "$@"; } diff --git a/mkRewriteRules b/mkRewriteRules index b356bb4..9fcceae 100755 --- a/mkRewriteRules +++ b/mkRewriteRules @@ -1,7 +1,7 @@ #!/bin/bash # -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 source "$(dirname "$0")/lib/ulib/ulib" || exit 1 -urequire DEFAULTS +urequire DEFAULTS apache.tools function display_help() { uecho "$scriptname: Créer un fichier de redirections pour Apache à partir d'un certain @@ -82,23 +82,9 @@ Dans les exemples donnés ci-dessus, $URL est l'\''url générée par la réécr et $proxy_acls la valeur du champ proxy_acls spécifiée ci-dessus.' } -function joinurl() { - # joindre chaque élément de $1..@ par /, en évitant les slashes en double - local i url - for i in "$@"; do - [ -n "$i" ] || continue - if [ -n "$url" ]; then - url="${url%/}/${i#/}" - else - url="$i" - fi - done - [ -n "$url" ] && echo "$url" -} - proxy_enabled= infile= -outfile="RewriteRules.conf" +outfile= htmlfile= host= parse_opts "${PRETTYOPTS[@]}" \ @@ -109,187 +95,20 @@ parse_opts "${PRETTYOPTS[@]}" \ -w: htmlfile= \ @ args -- "$@" && set -- "${args[@]}" || die "$args" -[ -n "$infile" ] || die "Il faut spécifier le fichier de règles" -[ -f "$infile" ] || die "Fichier de règles non trouvé: $(ppath "$infile")" - thishost="$1" -[ -n "$thishost" ] || die "Il faut spécifier l'hôte pour lequel créer le fichier de configuration" - -function has_proxy() { - # vérifier que les options $1 contiennent 'P' - local options - array_split options "$1" "," - array_contains options P -} - -if [ -n "$htmlfile" ]; then - echo ' - - - - -'"$thishost - - -

$thishost

-
    " >"$htmlfile" +if [ -n "$infile" ]; then infiles=("$infile") +else array_lsfiles infiles . "*rewrite*.rules" fi ->"$outfile" -array_from_lines rules "$(<"$infile" filter_comment)" -prefix= -for rule in "${rules[@]}"; do - if beginswith "$rule" ^; then - # Collecter les préfixe pour la règle suivante - prefix="${prefix:+$prefix -}${rule#^}" - continue - elif beginswith "$rule" =; then - # ligne litérale - echo "${rule#=}" >>"$outfile" - continue - fi - - IFS=:; set -- $rule; unset IFS - index=1 - done= - while [ -z "$done" ]; do - current="$1"; shift - while endswith "$current" "\\"; do - current="${current%\\}:$1"; shift - done - case $index in - 1) src="$current";; - 2) dest="$current";; - 3) host="$current";; - 4) suffix="$current";; - 5) options="$current";; - 6) prot="${current:-http}";; - 7) proxy_acls="$current";; - *) done=1;; - esac - index=$(($index + 1)) - done - - # mettre en forme prefix s'il est défini - [ -n "$prefix" ] && prefix="$prefix -" - - if [ "$thishost" == "$host" ]; then - host= - fi - - usrc="$src" - - trail=1 - if endswith "$src" '$'; then - trail= - usrc="${src%$}" - fi - - noslash= - if endswith "$suffix" '$'; then - noslash=1 - suffix="${suffix%$}" - fi - if endswith "$dest" '$'; then - noslash=1 - dest="${dest%$}" - fi - - proxy_url= - proxy_use= - - if endswith "$dest" .woa; then - # lien vers une application - if [ -n "$host" ]; then - # sur un autre hôte - if [ -n "$noslash" ]; then - echo "${prefix}RewriteRule ^/$src${trail:+(.*)} $(joinurl "$prot://$host/cgi-bin/WebObjects" "$dest" "$suffix")${trail:+\$1} [L${options:+,$options}]" >>"$outfile" - setx url joinurl "http://$thishost" "$usrc" - setx proxy_url joinurl "$prot://$host/cgi-bin/WebObjects" "$dest" "$suffix" - else - echo "${prefix}RewriteRule ^/$src\$ /$src/" >>"$outfile" - echo "${prefix}RewriteRule ^/$src/(.*) $(joinurl "$prot://$host/cgi-bin/WebObjects" "$dest" "$suffix" "\$1") [L${options:+,$options}]" >>"$outfile" - setx url joinurl "http://$thishost" "$usrc/" - setx proxy_url joinurl "$prot://$host/cgi-bin/WebObjects" "$dest" "$suffix/" - fi - else - # sur le même hôte - if [ -n "$noslash" ]; then - echo "${prefix}RewriteRule ^/$src${trail:+(.*)} $(joinurl /cgi-bin/WebObjects "$dest" "$suffix")${trail:+\$1} [L,P${options:+,$options}]" >>"$outfile" - setx url joinurl "http://$thishost" "$usrc" - setx proxy_url joinurl "$prot://$thishost/cgi-bin/WebObjects" "$dest" "$suffix" - proxy_use=1 - else - echo "${prefix}RewriteRule ^/$src\$ /$src/" >>"$outfile" - echo "${prefix}RewriteRule ^/$src/(.*) $(joinurl /cgi-bin/WebObjects "$dest" "$suffix" "\$1") [L,P${options:+,$options}]" >>"$outfile" - setx url joinurl "http://$thishost" "$usrc/" - setx proxy_url joinurl "$prot://$thishost/cgi-bin/WebObjects" "$dest" "$suffix/" - proxy_use=1 - fi - fi +[ ${#infiles[*]} -gt 0 ] || die "Il faut spécifier le fichier de règles avec -f" +for infile in "${infiles[@]}"; do + if [ -f "$infile" ]; then + estep "$(ppath "$infile")" + legacy_mkRewriteRules "$infile" "$thishost" "$outfile" "$htmlfile" "$proxy_enabled" else - # lien vers une url - if [ -n "$host" ]; then - # sur un autre hôte - if [ -n "$noslash" ]; then - echo "${prefix}RewriteRule ^/$src${trail:+(.*)} $(joinurl "$prot://$host" "$dest" "$suffix")${trail:+\$1} [L${options:+,$options}]" >>"$outfile" - setx url joinurl "http://$thishost" "$usrc" - setx proxy_url joinurl "$prot://$host" "$dest" "$suffix" - else - echo "${prefix}RewriteRule ^/$src\$ /$src/" >>"$outfile" - echo "${prefix}RewriteRule ^/$src/(.*) $(joinurl "$prot://$host" "$dest" "$suffix" "\$1") [L${options:+,$options}]" >>"$outfile" - setx url joinurl "http://$thishost" "$usrc/" - setx proxy_url joinurl "$prot://$host" "$dest" "$suffix/" - fi - else - # sur le même hôte - if [ -n "$noslash" ]; then - echo "${prefix}RewriteRule ^/$src${trail:+(.*)} $(joinurl / "$dest" "$suffix")${trail:+\$1}${options:+ [$options]}" >>"$outfile" - setx url joinurl "http://$thishost" "$usrc" - setx proxy_url joinurl "http://$thishost" "$dest" "$suffix" - else - echo "${prefix}RewriteRule ^/$src\$ /$src/" >>"$outfile" - echo "${prefix}RewriteRule ^/$src/(.*) $(joinurl / "$dest" "$suffix" "\$1")${options:+ [$options]}" >>"$outfile" - setx url joinurl "http://$thishost" "$usrc/" - setx proxy_url joinurl "http://$thishost" "$dest" "$suffix/" - fi - fi + eerror "$(ppath "$infile"): fichier introuvable" fi - has_proxy "$options" && proxy_use=1 - if [ -n "$proxy_enabled" -a -n "$proxy_use" ]; then - if [ "$proxy_acls" == "None" ]; then - : - elif [ -z "$proxy_acls" ]; then - echo "\ - - AddDefaultCharset off - Order Deny,Allow - Allow from all -" >>"$outfile" - else - echo "\ - - AddDefaultCharset off - Order Allow,Deny - Allow from $proxy_acls -" >>"$outfile" - fi - fi - - echo "" >>"$outfile" - if [ -n "$htmlfile" ]; then - echo "
  • $url
    • " >>"$htmlfile" - fi - - # Réinitialiser les préfixes pour chaque règle - prefix= + # réinitialiser pour ne pas écraser un fichier existant + outfile= + htmlfile= done - -if [ -n "$htmlfile" ]; then - echo '
- -' >>"$htmlfile" -fi diff --git a/mocifs b/mocifs index 3821f9e..7c36126 100755 --- a/mocifs +++ b/mocifs @@ -26,11 +26,6 @@ OPTIONS Spécifier les credentials à utiliser pour la connexion" } -if ! progexists mount.cifs; then - [ -x /sbin/mount.cifs ] || die "Ce script nécessite cifs-utils. Sur debian, vous pouvez l'installer avec la commande - sudo apt-get install cifs-utils" -fi - action=auto options= username= @@ -46,6 +41,11 @@ parse_opts "${PRETTYOPTS[@]}" \ -c:,--credentials: credentials= \ @ args -- "$@" && set -- "${args[@]}" || die "$args" +if ! progexists mount.cifs; then + [ -x /sbin/mount.cifs ] || die "Ce script nécessite cifs-utils. Sur debian, vous pouvez l'installer avec la commande + sudo apt-get install cifs-utils" +fi + if is_root; then sudo= else diff --git a/modav b/modav index 9d4fe8f..8860d92 100755 --- a/modav +++ b/modav @@ -40,11 +40,6 @@ OPTIONS mountpoint username password" } -if ! progexists mount.davfs; then - [ -x /usr/sbin/mount.davfs ] || die "Ce script nécessite davfs2. Sur debian, vous pouvez l'installer avec la commande - sudo apt-get install davfs2" -fi - action=auto options= username= @@ -60,6 +55,11 @@ parse_opts "${PRETTYOPTS[@]}" \ -c:,--credentials: credentials= \ @ args -- "$@" && set -- "${args[@]}" || die "$args" +if ! progexists mount.davfs; then + [ -x /usr/sbin/mount.davfs ] || die "Ce script nécessite davfs2. Sur debian, vous pouvez l'installer avec la commande + sudo apt-get install davfs2" +fi + if is_root; then sudo= else diff --git a/mossh b/mossh index 900cab0..d414566 100755 --- a/mossh +++ b/mossh @@ -29,8 +29,6 @@ OPTIONS prioritaire par rapport à cette option." } -progexists sshfs || die "Ce script nécessite sshfs" - action=auto ssh=ssh options= @@ -46,6 +44,9 @@ parse_opts "${PRETTYOPTS[@]}" \ -l:,-u:,--user: user= \ @ args -- "$@" && set -- "${args[@]}" || die "$args" +progexists sshfs || die "Ce script nécessite sshfs. Sur debian, vous pouvez l'installer avec la commande + sudo apt-get install sshfs" + if [ -n "$shared" ]; then if is_root; then options="${options:+"$options,"}allow_other" diff --git a/prel b/prel index 0d32b09..f2ed446 100755 --- a/prel +++ b/prel @@ -86,15 +86,15 @@ OPTIONS fichier VERSION.txt avec pver. Utiliser cette option si la mise à jour du numéro de version doit être faite d'une manière particulière. -e, --edit - Editer le fichier CHANGES.txt autogénéré par -u -w - Cette option est surtout utile si -m est utilisé avec -u, pour donner la - possibilité de corriger la liste des modifications avant leur - enregistrement définitif. + Editer le fichier CHANGES.md autogénéré par les options -u -w ou un + fichier CHANGES.txt existant. Cette option est surtout utile si -m est + utilisé avec -u, pour donner la possibilité de corriger la liste des + modifications avant leur enregistrement définitif. -m, --merge Si la branche actuelle est une branche de release, ou s'il existe une branche de release, la merger dans master, puis dans develop, puis la - supprimer. Puis basculer sur la branche master. + supprimer. A l'issu de cette opération, rester sur la branche develop. S'il n'existe pas de branche de release, proposer de fusionner les modifications de la branche develop dans la branche master, sans préparer de branche de release au préalable. @@ -108,19 +108,59 @@ OPTIONS -s, --summary Afficher la liste des différences entre la branche develop et la branche master, comme elle serait générée par les options -u -w pour le fichier - CHANGES.txt + CHANGES.txt (la syntaxe pour CHANGES.md est légèrement différente) -l, --log Afficher les modifications actuellement effectuée dans la branche de release par rapport à develop. -d, --diff Afficher les modifications actuellement effectuée dans la branche de - release par rapport à develop, sous forme de diff." + release par rapport à develop, sous forme de diff. + +OPTIONS AVANCEES + --uc, --upgrade-changes + Convertir un fichier CHANGES.txt en CHANGES.md" } function show_summary() { git log --oneline --graph "$@" | grep -vF '|\' | grep -vF '|/' | sed 's/\* //; s/^ /+ /' | - grep -v "Intégration de la branche release-" + grep -v "Intégration de la branche release-" | + grep -v "Branche develop en version .*-SNAPSHOT" +} + +function format_md() { + awk ' +$0 == "" || $0 ~ /^#/ { print; next } +$1 == "+" { + $1 = "*" + $2 = "`" $2 "`" + print; next +} +$1 == "|" { + $1 = " *" + $2 = "`" $2 "`" + print; next +} +{ + $1 = "* `" $1 "`" + print; next +} +' +} + +function __get_newver_from_release() { + local relver filever + is_release_branch "$release" && relver="${release#release-}" + setx filever=pver --sw "" --allow-empty + if [ -n "$relver" -a "$filever" != "$relver" ]; then + newver="$filever" + ewarn "La version de la branche de release est différente de la version dans le fichier" + enote "La version effectivement sélectionnée est $newver" + elif [ -n "$filever" ]; then + newver="$filever" + elif [ -n "$relver" ]; then + newver="$relver" + fi } projdir= @@ -158,6 +198,7 @@ parse_opts "${PRETTYOPTS[@]}" \ -s,--summary action=summary \ -l,--log '$action=diff; log=1' \ -d,--diff '$action=diff; diff=1' \ + --upgrade-changes,--uc action=upgrade-changes \ @ args -- "$@" && set -- "${args[@]}" || die "$args" if [ "$action" == auto ]; then @@ -177,8 +218,23 @@ if [ -n "$projdir" ]; then cd "$projdir" || die fi +if [ "$action" == upgrade-changes ]; then + [ -f CHANGES.txt ] || die "CHANGES.txt: fichier introuvable" + format_md CHANGES.md || die + rm CHANGES.txt + enote "Conversion CHANGES.txt --> CHANGES.md effectuée" + exit 0 +fi + git_ensure_gitvcs +if [ -f .prel-noauto -a -n "$update" -a -n "$merge" ]; then + die "Vous ne pouvez pas faire de release automatique sur ce dépôt. Vous devez utiliser -u et -m séparement." +fi + +setx vertype=pver --sw "" --show-source +[[ "$vertype" == pom* ]] && maven_update=1 || maven_update= + push_branches=() push_tags=() push_deferred= @@ -187,14 +243,22 @@ push_deferred= setx branch=git_get_branch +update_opt= if [ "$action" == update ]; then - setx oldver=pver -g "" + git_ensure_cleancheckout + + if [ -n "$maven_update" ]; then + setx oldver=pver --gw develop: + enote "La version de la branche develop est $oldver" + else + setx oldver=pver --gw master: + fi newver= if [ "$incversion" == auto ]; then if [ ${#pver_opts[*]} -gt 0 ]; then # des options ont été spécifiées, les honorer - setx newver=pver -s "$oldver" "${pver_opts[@]}" + setx newver=pver -s "$oldver" ${maven_update:+--maven-update -R} "${pver_opts[@]}" release="release-$newver" else # sinon, prendre une décision en fonction des branches de release @@ -217,29 +281,44 @@ if [ "$action" == update ]; then fi fi fi + pver_opts=(${maven_update:+--maven-update -R} "${pver_opts[@]}") case "$incversion" in menu) setx majorv=pver -s "$oldver" -ux "${pver_opts[@]}" setx minorv=pver -s "$oldver" -uz "${pver_opts[@]}" setx patchlevelv=pver -s "$oldver" -up "${pver_opts[@]}" - release="release-$minorv" + if [ -z "$maven_update" ]; then + release="release-$minorv" + else + release="release-$patchlevelv" + fi branches=("release-$majorv" "release-$minorv" "release-$patchlevelv" master) simple_menu release branches \ -t "Basculer vers une nouvelle branche de release" \ -m "Veuillez choisir la branche à créer" [ "$release" != master ] && newver="${release#release-}" + if [ "$release" == "release-$majorv" ]; then + update_opt=-x + elif [ "$release" == "release-$minorv" ]; then + update_opt=-z + elif [ "$release" == "release-$patchlevelv" ]; then + update_opt=-p + fi ;; major) setx newver=pver -s "$oldver" -ux "${pver_opts[@]}" release="release-$newver" + update_opt=-x ;; minor) setx newver=pver -s "$oldver" -uz "${pver_opts[@]}" release="release-$newver" + update_opt=-z ;; patchlevel) setx newver=pver -s "$oldver" -up "${pver_opts[@]}" release="release-$newver" + update_opt=-p ;; esac @@ -302,7 +381,7 @@ Vous allez créer la nouvelle branche de release ${COULEUR_VERTE}$release${COULE if [ -z "$newver" ]; then # le cas échéant, tenter de calculer la version en fonction de la release - is_release_branch "$release" && newver="${release#release-}" + __get_newver_from_release fi if [ "$r" -eq 0 -a -n "$write" ]; then @@ -320,7 +399,14 @@ Vous allez créer la nouvelle branche de release ${COULEUR_VERTE}$release${COULE changelog="## Version $version du $(date +%d/%m/%Y-%H:%M)" setx mergebase=git merge-base master "$release" - setxp modifs=show_summary "$mergebase..$release" + tmpcmd=(show_summary "$mergebase..$release") + if [ -f CHANGES.txt ]; then + changes=CHANGES.txt + else + changes=CHANGES.md + array_add tmpcmd // format_md + fi + setxp modifs "${tmpcmd[@]}" [ -n "$modifs" ] && changelog="$changelog $modifs" @@ -333,11 +419,11 @@ $modifs" "${EDITOR:-vi}" "$tmpchanges" fi - if [ -f CHANGES.txt ]; then + if [ -f "$changes" ]; then echo >>"$tmpchanges" - cat CHANGES.txt >>"$tmpchanges" + cat "$changes" >>"$tmpchanges" fi - cat "$tmpchanges" >CHANGES.txt + cat "$tmpchanges" >"$changes" ac_clean "$tmpchanges" git add -A @@ -409,7 +495,7 @@ if [ "$action" == merge ]; then if [ -z "$newver" ]; then # le cas échéant, tenter de calculer la version en fonction de la release - is_release_branch "$release" && newver="${release#release-}" + __get_newver_from_release fi if [ -n "$newver" ]; then @@ -433,6 +519,13 @@ ou celle-ci pour pour pousser TOUS les tags: estepn "Intégration ${COULEUR_VERTE}$release${COULEUR_NORMALE} --> ${COULEUR_BLEUE}develop${COULEUR_NORMALE}" git checkout develop git merge "$release" -m "Intégration de la branche $release" --no-ff || die + + if [ -n "$maven_update" ]; then + [ -n "$update_opt" ] || update_opt=-p + pver -u $update_opt -S + git add -A + git commit -m "Branche develop en version $(pver --show)" || die + fi fi # mettre à jour la branche sur laquelle on se trouve diff --git a/pver b/pver index cb10543..8173ff3 100755 --- a/pver +++ b/pver @@ -1,7 +1,7 @@ #!/bin/bash # -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8 source "$(dirname "$0")/lib/ulib/ulib" || exit 1 -urequire DEFAULTS ptools +urequire DEFAULTS ptools xmlsupport function pver_display_help() { uecho "$scriptname: gérer des numéros de version selon les règles du versionage sémantique v2.0.0 (http://semver.org/) @@ -10,38 +10,55 @@ USAGE $scriptname [options] OPTIONS + -w, --auto-file DIR + Gérer le numéro de version du répertoire spécifié. Si un fichier pom.xml + existe dans ce répertoire, alors c'est l'option '-e DIR/pom.xml' qui est + activé. Si un fichier VERSION.txt existe dans ce répertoire, alors c'est + l'option '-f DIR/VERSION.txt' qui est activée. Sinon, un nouveau fichier + VERSION.txt est créé dans ce répertoire. C'est l'option par défaut. + --sw, --auto-string DIR + Prendre pour valeur de départ la version du répertoire spécifié. Si un + fichier pom.xml existe dans ce répertoire, alors c'est l'option -E qui + est activé. Si un fichier VERSION.txt existe dans ce répertoire, alors + c'est l'option -F qui est activée. + --gw, --auto-git-string [BRANCH:]DIR + Prendre pour valeur de départ la version du répertoire spécifié dans la + branche BRANCH (qui vaut par défaut master) du dépôt git. Si un fichier + pom.xml existe dans ce répertoire, alors c'est l'option -g qui est + activé. Si un fichier VERSION.txt existe dans ce répertoire, alors c'est + l'option -G qui est activée. + -e, --pom POMFILE + Gérer le numéro de version se trouvant dans le fichier pom.xml spécifié. + Le fichier DOIT exister. Implique --maven-update + -E, --pom-string POMFILE + Prendre pour valeur de départ la version contenue dans le fichier + pom.xml spécifié. Le fichier DOIT exister. Implique --maven-update -f, --file VERSIONFILE Gérer le numéro de version se trouvant dans le fichier spécifié. Le - fichier est créé si nécessaire. C'est l'option par défaut si un fichier - nommé VERSION.txt se trouve dans le répertoire courant. - -e, --maven POMFILE - Gérer le numéro de version se trouvant dans le fichier pom.xml spécifié. - Le fichier DOIT exister. C'est l'option par défaut si un fichier nommé - pom.xml se trouve dans le répertoire courant. + fichier est créé si nécessaire. -F, --file-string VERSIONFILE - Prendre pour valeur de départ le contenu du fichier VERSIONFILE (qui - vaut par défaut VERSION.txt) - -g, --git-string [branch:]VERSIONFILE + Prendre pour valeur de départ le contenu du fichier VERSIONFILE. + -g, --git-file-string [BRANCH:]VERSIONFILE Prendre pour valeur de départ le contenu du fichier VERSIONFILE (qui vaut par défaut VERSION.txt) dans la branche BRANCH (qui vaut par défaut - master) du dépôt git situé dans le répertoire courant. + master) du dépôt git. Retourner 2 si on n'est pas situé dans un dépôt + git. + -G, --git-pom-string [BRANCH:]POMFILE + Prendre pour valeur de départ la version du fichier POMFILE (qui vaut + par défaut pom.xml) dans la branche BRANCH (qui vaut par défaut master) + du dépôt git. Retourner 2 si on n'est pas situé dans un dépôt git. + --git-prel-string + Prendre pour valeur de départ le numéro de version correspondant à la + branche de release courante. Retourner 1 si la branche courante n'est + pas une branche de release, 2 si on n'est pas situé dans un dépôt git. -s, --string VERSION Prendre pour valeur de départ le numéro de version spécifié --show Afficher le numéro de version. C'est l'action par défaut - --allow-empty - Supporter que la version puisse ne pas être spécifiée ni trouvée. Dans - ce cas, ne pas assumer que la version effective est 0.0.0 - Avec --show et --update, ne rien afficher si la version est vide. --check Vérifier que le numéro de version est conforme aux règles du versionage sémantique - --convert - --no-convert - Activer (resp. désactiver) la conversion automatique. Par défaut, si la - version est au format classique 'x.z[.p]-rDD/MM/YYYY', elle est - convertie automatiquement au format sémantique x.z.p+rYYYYMMDD --eq VERSION --ne VERSION --lt VERSION @@ -54,6 +71,10 @@ OPTIONS --le, --gt, et --ge ignorent l'identifiant de build (comme le demande la règle du versionage sémantique). Les opérateurs --same et --diff comparent aussi les identifiants de build. + -u, --update + Mettre à jour le numéro de version. + +Les options suivantes impliquent --update: -v, --set-version VERSION Spécifier un nouveau numéro de version qui écrase la valeur actuelle. Cette option ne devrait pas être utilisée en temps normal parce que cela @@ -62,18 +83,22 @@ OPTIONS Spécifier un nouveau numéro de version qui écrase la valeur actuelle. Le numéro de version est obtenu à partir du nom de la branche git courante, qui doit être de la forme release-VERSION - -u, --update - Mettre à jour le numéro de version. - --menu Afficher un menu permettant de choisir le composant de la version à - incrémenter + incrémenter. -x, --major - Augmenter le numéro de version majeure + Augmenter le numéro de version majeure. -z, --minor - Augmenter le numéro de version mineure. C'est la valeur par défaut. + Augmenter le numéro de version mineure. C'est la valeur par défaut, sauf + avec --maven-update où c'est l'option -p qui est sélectionnée par + défaut. -p, --patchlevel - Augmenter le numéro de patch + Augmenter le numéro de patch. + -k, --keep + Ne pas augmenter le numéro de version. Cette option est surtout utile + pour *convertir* un numéro de version existant et mettre à jour le + fichier correspondant. Elle est assumée si aucune option -[xzp] n'est + spécifiée et qu'une des options -[labrSRmM] est utilisée. -l, --prelease ID Spécifier un identifiant de pré-release, à ajouter au numéro de version. @@ -85,17 +110,95 @@ OPTIONS de l'identifiant, e.g. alpha deviant alpha.1, beta-1.2 devient beta-1.3, rc1 devient rc2 XXX ces fonctions ne sont pas encore implémentées + -S, --snapshot + Ajouter l'identifiant SNAPSHOT, utilisé par Maven -R, --final, --release - Supprimer l'identifiant de prérelease + Supprimer l'identifiant de prérelease, utilisé par Maven -m, --metadata ID Spécifier un identifiant de build, à ajouter au numéro de version. -M, --vcs-metadata - Spécifier l'identifiant à partir de la révision actuelle dans le + Calculer l'identifiant de build à partir de la révision actuelle dans le gestionnaire de version. Note: pour le moment, seul git est supporté. --add-metadata ID Ajouter l'identifiant spécifié à la valeur actuelle, au lieu de la - remplacer. Séparer l'identifiant de la valeur précédente avec un '.'" + remplacer. Séparer l'identifiant de la valeur précédente avec un '.' + +OPTIONS AVANCEES + --show-source + Afficher le type de source qui sera traité, i.e. pom, file, pom-string, + file-string, git-pom-string, git-file-string + --vpath VPATH + Pour les options -e et -E, spécifier le chemin XPATH du tag qui contient + le numéro de version. + --map MAPFILE + Cette option permet de spécifier un fichier de règles qui indique les + fichiers pom.xml et VERSION.txt qui doivent être mis à jour dans un + projet multi-modules pour lequel les versions doivent être mises à jour + en même temps. + Par défaut, si un fichier nommé .pver-map existe dans le répertoire de + {POM,VERSION}FILE, cette option est automatiquement activée. Ainsi, on + n'aura besoin d'utiliser cette option que si l'on désire charger un + fichier alternatif ou ignorer le fichier par défaut. + Si une valeur vide est fournie, seul le fichier {POM,VERSION}FILE est + traité. Sinon, {POM,VERSION}FILE est utilisé uniquement pour chercher le + fichier .pver-map et seuls les fichiers mentionnés dans MAPFILE sont + traités. + Le fichier MAPFILE est constitué d'un ensemble de lignes de la forme + FILESPEC:VPATH + FILESPEC est requis et prend la forme d'une spécification de chemin + relatif au répertoire de MAPFILE et identifiant un ensemble de fichiers + de version. Si FILESPEC contient des wildcards, alors les fichiers + identifiés par ce chemin sont ignorés s'ils ont déjà été traités par une + règle précédente. Si FILESPEC ne contient pas de wildcards, alors le + fichier est systématiquement traité. + VPATH désigne le chemin XPATH vers le numéro de version qu'il faut + mettre à jour dans les fichiers pom.xml. Certaines valeurs spéciales + pour VPATH sont supportées: + (vide) le chemin par défaut est utilisé pour ce fichier, c'est à + dire /project/version ou /project/parent/version en fonction + du contenu du fichier + - le fichier pom.xml n'est pas modifié (il est ignoré) + D alias pour le chemin XPATH /project/version + P alias pour le chemin XPATH /project/parent/version + Pour les fichiers VERSION.txt, VPATH doit être vide + Le fichier de version correspondant au premier fichier de la première + ligne de MAPFILE contient la version de référence, qui est dupliquée + dans tous les autres fichiers. + --allow-empty + Supporter que la version puisse ne pas être spécifiée ni trouvée. Sans + cette option, on assume que la version effective est 0.0.0 si elle n'est + pas spécifiée ni trouvée. + Avec --show et --update, ne rien afficher si la version est vide. + --convert + --no-convert + Activer (resp. désactiver) la conversion automatique. Par défaut, si la + version est au format classique 'x.z[.p]-rDD/MM/YYYY', elle est + convertie automatiquement au format sémantique x.z.p+rYYYYMMDD + -t, --maven-update + Mettre à jour le numéro de version selons les règles de Maven. Cette + option est automatiquement activée si -e est sélectionné. Elle n'est + prise en compte qu'avec l'option -u + Si les options -R et -S ne sont pas spécifiée, alors une release est + transformée en snapshot et une snapshot en release. Avec -R, une + snapshot est transformée en release, et une release est traitée / + incrémentée normalement. Avec -S une release est transformée en + snapshot, et un snapshot est traité / incrémentée normalement. + Si l'une des options -x, -z, -p est utilisée, alors la partie spécifiée + est incrémentée selon les règles suivantes. Dans les exemples suivants, + A est un nombre quelconque, B = A + 1, et x, y et z sont des nombres + quelconques. + Avec l'option -x: + A.0.0-SNAPSHOT --> A.0.0 + A.x.y-SNAPSHOT --> B.0.0 + x.A.y --> x.B.0-SNAPSHOT + Avec l'option -z: + x.A.0-SNAPSHOT --> x.A.0 + x.A.y-SNAPSHOT --> x.B.0 + x.A.y --> x.B.0-SNAPSHOT + Avec l'option -p, qui est celle sélectionnée par défaut: + x.y.z-SNAPSHOT --> x.y.z + x.y.A --> x.y.B-SNAPSHOT" } pver "$@" diff --git a/sqlcsv b/sqlcsv index 7744200..a1e832c 100755 --- a/sqlcsv +++ b/sqlcsv @@ -77,6 +77,25 @@ public class sqlcsv { static final String USER_CONFIG = USER_CONFDIR + "/" + DEFAULT_CONFIG, SYSTEM_CONFIG = SYSTEM_CONFDIR + "/" + DEFAULT_CONFIG; + // ------------------------------------------------------------------------ + public static final File getCanonical(File file) { + try { + return file.getCanonicalFile(); + } catch (IOException e) { + return file.getAbsoluteFile(); + } + } + + private static final File[] ROOTS = File.listRoots(); + + public static final boolean isRoot(File file) { + if (file == null) return false; + for (File root : ROOTS) { + if (root.equals(file)) return true; + } + return false; + } + // ------------------------------------------------------------------------ public static class ResultSetHelper { public static final int CLOBBUFFERSIZE = 2048; @@ -1151,20 +1170,31 @@ public class sqlcsv { log.setLevel(Level.parse(loglevel.toUpperCase())); } - // Charger les propriétés + // Charger les propriétés... + // essayer depuis le répertoire courant et les répertoires parents jusqu'à $HOME + if (config == null) { + String userHome = System.getProperty("user.home"); + if (userHome != null && userHome.length() == 0) userHome = null; + File dir = getCanonical(new File(".")); + File homedir = null; + if (userHome != null) homedir = getCanonical(new File(userHome)); + while (true) { + File file = new File(dir, DEFAULT_CONFIG); + if (file.exists()) { + config = file.getPath(); + break; + } + if ((homedir != null && dir.equals(homedir)) || isRoot(dir)) break; + dir = dir.getParentFile(); + if (dir == null) break; + } + } + // puis dans le répertoire de configuration utilisateur + if (config == null && new File(USER_CONFIG).exists()) config = USER_CONFIG; + // puis dans le répertoire de configuration système + if (config == null && new File(SYSTEM_CONFIG).exists()) config = SYSTEM_CONFIG; + Properties props = null; - if (config == null && new File(DEFAULT_CONFIG).exists()) { - // essayer depuis le répertoire courant - config = DEFAULT_CONFIG; - } - if (config == null && new File(USER_CONFIG).exists()) { - // puis dans le répertoire de configuration utilisateur - config = USER_CONFIG; - } - if (config == null && new File(SYSTEM_CONFIG).exists()) { - // puis dans le répertoire de configuration système - config = SYSTEM_CONFIG; - } if (config != null) { log.config("Chargement des propriétés de " + config); props = new Properties(); @@ -1187,7 +1217,11 @@ public class sqlcsv { } String jdbcUrl = null; - if (connid == null && props != null) { + if (connid != null && connid.startsWith("jdbc:")) { + jdbcUrl = connid; + connid = null; + } + if (jdbcUrl == null && connid == null && props != null) { // Essayer de deviner connid en parcourant les propriétés de props @SuppressWarnings("unchecked") Enumeration en = (Enumeration)props.propertyNames(); @@ -1206,7 +1240,7 @@ public class sqlcsv { connid = null; } } - if (connid != null) { + if (jdbcUrl == null && connid != null) { if (props != null) { String jdbcUrlKey = connid + ".url"; if (props.containsKey(jdbcUrlKey)) jdbcUrl = props.getProperty(jdbcUrlKey); diff --git a/ucrontab b/ucrontab index 4e09a41..b111c2e 100755 --- a/ucrontab +++ b/ucrontab @@ -150,6 +150,7 @@ export TMPDIR="${TMPDIR:-${TMP:-${TEMP:-/tmp}}}" [ -z "$USER" -a -n "$LOGNAME" ] && export USER="$LOGNAME" +[ -f /etc/debian_chroot ] && UTOOLS_CHROOT=1 [ -f /etc/nutoolsrc ] && . /etc/nutoolsrc [ -f ~/.nutoolsrc ] && . ~/.nutoolsrc true @@ -179,16 +180,6 @@ function recho_() { echo -n "$@" fi } -function _rval() { - local s="$*" - s="${s//\\/\\\\}" - s="${s//\"/\\\"}" - s="${s//\'/\'}" - s="${s//\$/\\\$}" - s="${s//\`/\\\`}" - s="${s// /\\ }" - recho_ "$s" -} function _qval() { local s="$*" s="${s//\\/\\\\}" @@ -250,6 +241,53 @@ function qvals() { done [ -z "$first" ] && echo } +function qwc() { + local s="$*" + s="${s//\\/\\\\}" + s="${s//\"/\\\"}" + s="${s//\$/\\\$}" + s="${s//\`/\\\`}" + local r a b + while [ -n "$s" ]; do + if [[ "$s" == *\** ]]; then + if [[ "$s" == *\?* ]]; then + a="${s%%\**}" + b="${s%%\?*}" + if [ ${#a} -lt ${#b} ]; then + s="${s#*\*}" + r="$r\"$a\"*" + else + s="${s#*\?}" + r="$r\"$b\"?" + fi + else + a="${s%%\**}" + s="${s#*\*}" + r="$r\"$a\"*" + fi + elif [[ "$s" == *\?* ]]; then + if [[ "$s" == *\** ]]; then + a="${s%%\**}" + b="${s%%\?*}" + if [ ${#a} -lt ${#b} ]; then + s="${s#*\*}" + r="$r\"$a\"*" + else + s="${s#*\?}" + r="$r\"$b\"?" + fi + else + a="${s%%\?*}" + s="${s#*\?}" + r="$r\"$a\"?" + fi + else + r="$r\"$s\"" + break + fi + done + recho_ "$r" +} function qlines() { sed "s/'/'\\\\''/g; s/.*/'&'/g" } @@ -408,12 +446,91 @@ function testrp() { function err2out() { "$@" 2>&1 } + +function is_defined() { + [ -n "$(declare -p "$1" 2>/dev/null)" ] +} +function is_array() { + case "$(declare -p "$1" 2>/dev/null)" in declare\ -a*) return 0;; esac + return 1 +} + +function upvar() { + if unset -v "$1"; then + if [ $# -eq 2 ]; then + eval "$1=\"\$2\"" + else + eval "$1=(\"\${@:2}\")" + fi + fi +} +function array_upvar() { + unset -v "$1" && eval "$1=(\"\${@:2}\")" +} +function upvars() { + while [ $# -gt 0 ]; do + case "$1" in + -a) + unset -v "$2" && eval "$2=(\"\${@:3}\")" + break + ;; + -a*) + unset -v "$2" && eval "$2=(\"\${@:3:${1#-a}}\")" + shift $((${1#-a} + 2)) || return 1 + ;; + *) + unset -v "$1" && eval "$1=\"\$2\"" + shift; shift + ;; + esac + done +} + +function __ab_process_pending() { + local -a values + case "$mode" in + cmd) values="$("${pending[@]}")";; + ssplit) eval "values=($("${pending[@]}"))";; + lsplit) eval "values=($("${pending[@]}" | qlines))";; + add) values=("${pending[@]}");; + esac + cmd=("${cmd[@]}" "${values[@]}") + pending=() +} +function array_buildcmd() { + local desta="$1"; shift; local "$desta" + local mode=add + local -a pending cmd + while [ $# -gt 0 ]; do + case "$1" in + ++c|++cmd|++) __ab_process_pending; mode=cmd;; + ++s|++ssplit) __ab_process_pending; mode=ssplit;; + ++l|++lsplit) __ab_process_pending; mode=lsplit;; + ++a|++add) __ab_process_pending; mode=add;; + *) pending=("${pending[@]}" "$1");; + esac + shift + done + __ab_process_pending + array_upvar "$desta" "${cmd[@]}" +} +function buildcmd() { + local -a args + array_buildcmd args "$@" + qvals "${args[@]}" +} +function evalcmd() { + local -a args + array_buildcmd args "$@" + "${args[@]}" +} ##@inc]base.core ##@inc[base.string ## Fonctions de base: gestion des valeurs scalaires uprovide base.string urequire base.core + function straddp() { local p="$1"; shift echo "$p$*" @@ -504,6 +621,38 @@ function strrepl() { eval "$cmd" } +function strops() { + local -a __s_tmp + local __s_value="$1"; shift + while [ $# -gt 0 ]; do + case "$1" in + :-*|:=*|:\?*|:+*) eval '__s_value="${'"${__s_value}$1"'}"';; + d|deref) __s_value="${!__s_value}";; + dc|dcount|ds|dsize) + __s_value="${__s_value}[@]" + __s_tmp=("${!__s_value}") + __s_value="${#__s_tmp[@]}" + ;; + \#*|%*|/*|:*|^*|,*) eval '__s_value="${__s_value'"$1"'}"';; + l|length) __s_value="${#__s_value}";; + =|==|!=|\<|\>|-eq|-ne|-lt|-le|-gt|-ge) + __s_tmp=(\[ "$__s_value" "$@" ]); "${__s_tmp[@]}"; return $?;; + -n|-z) __s_tmp=(\[ "$1" "$__s_value" ]); "${__s_tmp[@]}"; return $?;; + +#*) eval '__s_value="'"${1#+#}"'$__s_value"';; + -#*) eval '__s_value="${__s_value'"${1#-}"'}"';; + +%*) eval '__s_value="$__s_value"'"${1#+%}";; + +*) eval '__s_value="$__s_value"'"${1#+}";; + -%*) eval '__s_value="${__s_value'"${1#-}"'}"';; + -*) eval '__s_value="${__s_value%'"${1#-}"'}"';; + mid|strmid) eval '__s_value="$(strmid "$2" "$__s_value")"'; shift;; + repl|strrepl) eval '__s_value="$(strrepl "$2" "$3" "$__s_value")"'; shift; shift;; + *) echo 1>&2 "strops: unknown operator: $1";; + esac + shift + done + echo "$__s_value" +} + function first_char() { local str="$*" echo "${str:0:1}" @@ -541,21 +690,19 @@ uprovide base.num function isnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//[0-9]/}" [ -z "$v" ] } function ispnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v//[0-9]/}" - [ -z "$v" ] + [ -z "${1//[0-9]/}" ] } function isrnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//./}" v="${v//,/}" v="${v//[0-9]/}" @@ -570,21 +717,19 @@ uprovide base.num function isnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//[0-9]/}" [ -z "$v" ] } function ispnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v//[0-9]/}" - [ -z "$v" ] + [ -z "${1//[0-9]/}" ] } function isrnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//./}" v="${v//,/}" v="${v//[0-9]/}" @@ -679,6 +824,8 @@ function qseds() { local s="$*" s="${s//\\/\\\\}" s="${s//\//\\/}" + s="${s// +/\\n}" recho "$s" } function _qform() { @@ -702,6 +849,14 @@ function qform() { echo fi } +function _qsql() { + local q="'" qq="''" + echo "${*//$q/$qq}" +} +function qsql() { + local q="'" qq="''" + echo "'${*//$q/$qq}'" +} ##@inc]base.quote ##@inc[base.split ## Fonctions de base: analyse et découpage de valeurs @@ -836,16 +991,6 @@ function recho_() { echo -n "$@" fi } -function _rval() { - local s="$*" - s="${s//\\/\\\\}" - s="${s//\"/\\\"}" - s="${s//\'/\'}" - s="${s//\$/\\\$}" - s="${s//\`/\\\`}" - s="${s// /\\ }" - recho_ "$s" -} function _qval() { local s="$*" s="${s//\\/\\\\}" @@ -907,6 +1052,53 @@ function qvals() { done [ -z "$first" ] && echo } +function qwc() { + local s="$*" + s="${s//\\/\\\\}" + s="${s//\"/\\\"}" + s="${s//\$/\\\$}" + s="${s//\`/\\\`}" + local r a b + while [ -n "$s" ]; do + if [[ "$s" == *\** ]]; then + if [[ "$s" == *\?* ]]; then + a="${s%%\**}" + b="${s%%\?*}" + if [ ${#a} -lt ${#b} ]; then + s="${s#*\*}" + r="$r\"$a\"*" + else + s="${s#*\?}" + r="$r\"$b\"?" + fi + else + a="${s%%\**}" + s="${s#*\*}" + r="$r\"$a\"*" + fi + elif [[ "$s" == *\?* ]]; then + if [[ "$s" == *\** ]]; then + a="${s%%\**}" + b="${s%%\?*}" + if [ ${#a} -lt ${#b} ]; then + s="${s#*\*}" + r="$r\"$a\"*" + else + s="${s#*\?}" + r="$r\"$b\"?" + fi + else + a="${s%%\?*}" + s="${s#*\?}" + r="$r\"$a\"?" + fi + else + r="$r\"$s\"" + break + fi + done + recho_ "$r" +} function qlines() { sed "s/'/'\\\\''/g; s/.*/'&'/g" } @@ -1065,12 +1257,91 @@ function testrp() { function err2out() { "$@" 2>&1 } + +function is_defined() { + [ -n "$(declare -p "$1" 2>/dev/null)" ] +} +function is_array() { + case "$(declare -p "$1" 2>/dev/null)" in declare\ -a*) return 0;; esac + return 1 +} + +function upvar() { + if unset -v "$1"; then + if [ $# -eq 2 ]; then + eval "$1=\"\$2\"" + else + eval "$1=(\"\${@:2}\")" + fi + fi +} +function array_upvar() { + unset -v "$1" && eval "$1=(\"\${@:2}\")" +} +function upvars() { + while [ $# -gt 0 ]; do + case "$1" in + -a) + unset -v "$2" && eval "$2=(\"\${@:3}\")" + break + ;; + -a*) + unset -v "$2" && eval "$2=(\"\${@:3:${1#-a}}\")" + shift $((${1#-a} + 2)) || return 1 + ;; + *) + unset -v "$1" && eval "$1=\"\$2\"" + shift; shift + ;; + esac + done +} + +function __ab_process_pending() { + local -a values + case "$mode" in + cmd) values="$("${pending[@]}")";; + ssplit) eval "values=($("${pending[@]}"))";; + lsplit) eval "values=($("${pending[@]}" | qlines))";; + add) values=("${pending[@]}");; + esac + cmd=("${cmd[@]}" "${values[@]}") + pending=() +} +function array_buildcmd() { + local desta="$1"; shift; local "$desta" + local mode=add + local -a pending cmd + while [ $# -gt 0 ]; do + case "$1" in + ++c|++cmd|++) __ab_process_pending; mode=cmd;; + ++s|++ssplit) __ab_process_pending; mode=ssplit;; + ++l|++lsplit) __ab_process_pending; mode=lsplit;; + ++a|++add) __ab_process_pending; mode=add;; + *) pending=("${pending[@]}" "$1");; + esac + shift + done + __ab_process_pending + array_upvar "$desta" "${cmd[@]}" +} +function buildcmd() { + local -a args + array_buildcmd args "$@" + qvals "${args[@]}" +} +function evalcmd() { + local -a args + array_buildcmd args "$@" + "${args[@]}" +} ##@inc]base.core ##@inc[base.string ## Fonctions de base: gestion des valeurs scalaires uprovide base.string urequire base.core + function straddp() { local p="$1"; shift echo "$p$*" @@ -1161,6 +1432,38 @@ function strrepl() { eval "$cmd" } +function strops() { + local -a __s_tmp + local __s_value="$1"; shift + while [ $# -gt 0 ]; do + case "$1" in + :-*|:=*|:\?*|:+*) eval '__s_value="${'"${__s_value}$1"'}"';; + d|deref) __s_value="${!__s_value}";; + dc|dcount|ds|dsize) + __s_value="${__s_value}[@]" + __s_tmp=("${!__s_value}") + __s_value="${#__s_tmp[@]}" + ;; + \#*|%*|/*|:*|^*|,*) eval '__s_value="${__s_value'"$1"'}"';; + l|length) __s_value="${#__s_value}";; + =|==|!=|\<|\>|-eq|-ne|-lt|-le|-gt|-ge) + __s_tmp=(\[ "$__s_value" "$@" ]); "${__s_tmp[@]}"; return $?;; + -n|-z) __s_tmp=(\[ "$1" "$__s_value" ]); "${__s_tmp[@]}"; return $?;; + +#*) eval '__s_value="'"${1#+#}"'$__s_value"';; + -#*) eval '__s_value="${__s_value'"${1#-}"'}"';; + +%*) eval '__s_value="$__s_value"'"${1#+%}";; + +*) eval '__s_value="$__s_value"'"${1#+}";; + -%*) eval '__s_value="${__s_value'"${1#-}"'}"';; + -*) eval '__s_value="${__s_value%'"${1#-}"'}"';; + mid|strmid) eval '__s_value="$(strmid "$2" "$__s_value")"'; shift;; + repl|strrepl) eval '__s_value="$(strrepl "$2" "$3" "$__s_value")"'; shift; shift;; + *) echo 1>&2 "strops: unknown operator: $1";; + esac + shift + done + echo "$__s_value" +} + function first_char() { local str="$*" echo "${str:0:1}" @@ -1388,6 +1691,8 @@ function parse_opts() { + [ -z "$__ULIB_NO_DISABLE_SET_X" ] && [[ $- == *x* ]] && { set +x; local __ULIB_PARSE_OPTS_SET_X=1; } # désactiver set -x pour cette fonction + local -a options_ names_ flags_ destargs_ local opts_ longopts_ __po_parse_optdescs "$@" || shift $? @@ -1397,17 +1702,28 @@ function parse_opts() { __po_process_options "$@" else [ -n "$destargs_" ] && setv "$destargs_" "$args_" + [ -n "$__ULIB_SET_X" ] && set -x return 1 fi + + [ -n "$__ULIB_PARSE_OPTS_SET_X" ] && set -x; return 0 } function parse_args_check() { - parse_opts "${PRETTYOPTS[@]}" "${args[@]}" @ args -- "$@" && return 0 - eerror "$args" - return 1 + [ -z "$__ULIB_NO_DISABLE_SET_X" ] && [[ $- == *x* ]] && { set +x; local __ULIB_PARSE_ARGS_SET_X=1; } # désactiver set -x pour cette fonction + if parse_opts "${PRETTYOPTS[@]}" "${args[@]}" @ args -- "$@"; then + [ -n "$__ULIB_PARSE_ARGS_SET_X" ] && set -x + return 0 + else + eerror "$args" + [ -n "$__ULIB_PARSE_ARGS_SET_X" ] && set -x + return 1 + fi } function parse_args() { + [ -z "$__ULIB_NO_DISABLE_SET_X" ] && [[ $- == *x* ]] && { set +x; local __ULIB_PARSE_ARGS_SET_X=1; } # désactiver set -x pour cette fonction parse_opts "${PRETTYOPTS[@]}" "${args[@]}" @ args -- "$@" || die "$args" + [ -n "$__ULIB_PARSE_ARGS_SET_X" ] && set -x; return 0 } HELP_DESC= @@ -1514,16 +1830,6 @@ function recho_() { echo -n "$@" fi } -function _rval() { - local s="$*" - s="${s//\\/\\\\}" - s="${s//\"/\\\"}" - s="${s//\'/\'}" - s="${s//\$/\\\$}" - s="${s//\`/\\\`}" - s="${s// /\\ }" - recho_ "$s" -} function _qval() { local s="$*" s="${s//\\/\\\\}" @@ -1585,6 +1891,53 @@ function qvals() { done [ -z "$first" ] && echo } +function qwc() { + local s="$*" + s="${s//\\/\\\\}" + s="${s//\"/\\\"}" + s="${s//\$/\\\$}" + s="${s//\`/\\\`}" + local r a b + while [ -n "$s" ]; do + if [[ "$s" == *\** ]]; then + if [[ "$s" == *\?* ]]; then + a="${s%%\**}" + b="${s%%\?*}" + if [ ${#a} -lt ${#b} ]; then + s="${s#*\*}" + r="$r\"$a\"*" + else + s="${s#*\?}" + r="$r\"$b\"?" + fi + else + a="${s%%\**}" + s="${s#*\*}" + r="$r\"$a\"*" + fi + elif [[ "$s" == *\?* ]]; then + if [[ "$s" == *\** ]]; then + a="${s%%\**}" + b="${s%%\?*}" + if [ ${#a} -lt ${#b} ]; then + s="${s#*\*}" + r="$r\"$a\"*" + else + s="${s#*\?}" + r="$r\"$b\"?" + fi + else + a="${s%%\?*}" + s="${s#*\?}" + r="$r\"$a\"?" + fi + else + r="$r\"$s\"" + break + fi + done + recho_ "$r" +} function qlines() { sed "s/'/'\\\\''/g; s/.*/'&'/g" } @@ -1743,12 +2096,91 @@ function testrp() { function err2out() { "$@" 2>&1 } + +function is_defined() { + [ -n "$(declare -p "$1" 2>/dev/null)" ] +} +function is_array() { + case "$(declare -p "$1" 2>/dev/null)" in declare\ -a*) return 0;; esac + return 1 +} + +function upvar() { + if unset -v "$1"; then + if [ $# -eq 2 ]; then + eval "$1=\"\$2\"" + else + eval "$1=(\"\${@:2}\")" + fi + fi +} +function array_upvar() { + unset -v "$1" && eval "$1=(\"\${@:2}\")" +} +function upvars() { + while [ $# -gt 0 ]; do + case "$1" in + -a) + unset -v "$2" && eval "$2=(\"\${@:3}\")" + break + ;; + -a*) + unset -v "$2" && eval "$2=(\"\${@:3:${1#-a}}\")" + shift $((${1#-a} + 2)) || return 1 + ;; + *) + unset -v "$1" && eval "$1=\"\$2\"" + shift; shift + ;; + esac + done +} + +function __ab_process_pending() { + local -a values + case "$mode" in + cmd) values="$("${pending[@]}")";; + ssplit) eval "values=($("${pending[@]}"))";; + lsplit) eval "values=($("${pending[@]}" | qlines))";; + add) values=("${pending[@]}");; + esac + cmd=("${cmd[@]}" "${values[@]}") + pending=() +} +function array_buildcmd() { + local desta="$1"; shift; local "$desta" + local mode=add + local -a pending cmd + while [ $# -gt 0 ]; do + case "$1" in + ++c|++cmd|++) __ab_process_pending; mode=cmd;; + ++s|++ssplit) __ab_process_pending; mode=ssplit;; + ++l|++lsplit) __ab_process_pending; mode=lsplit;; + ++a|++add) __ab_process_pending; mode=add;; + *) pending=("${pending[@]}" "$1");; + esac + shift + done + __ab_process_pending + array_upvar "$desta" "${cmd[@]}" +} +function buildcmd() { + local -a args + array_buildcmd args "$@" + qvals "${args[@]}" +} +function evalcmd() { + local -a args + array_buildcmd args "$@" + "${args[@]}" +} ##@inc]base.core ##@inc[base.string ## Fonctions de base: gestion des valeurs scalaires uprovide base.string urequire base.core + function straddp() { local p="$1"; shift echo "$p$*" @@ -1839,6 +2271,38 @@ function strrepl() { eval "$cmd" } +function strops() { + local -a __s_tmp + local __s_value="$1"; shift + while [ $# -gt 0 ]; do + case "$1" in + :-*|:=*|:\?*|:+*) eval '__s_value="${'"${__s_value}$1"'}"';; + d|deref) __s_value="${!__s_value}";; + dc|dcount|ds|dsize) + __s_value="${__s_value}[@]" + __s_tmp=("${!__s_value}") + __s_value="${#__s_tmp[@]}" + ;; + \#*|%*|/*|:*|^*|,*) eval '__s_value="${__s_value'"$1"'}"';; + l|length) __s_value="${#__s_value}";; + =|==|!=|\<|\>|-eq|-ne|-lt|-le|-gt|-ge) + __s_tmp=(\[ "$__s_value" "$@" ]); "${__s_tmp[@]}"; return $?;; + -n|-z) __s_tmp=(\[ "$1" "$__s_value" ]); "${__s_tmp[@]}"; return $?;; + +#*) eval '__s_value="'"${1#+#}"'$__s_value"';; + -#*) eval '__s_value="${__s_value'"${1#-}"'}"';; + +%*) eval '__s_value="$__s_value"'"${1#+%}";; + +*) eval '__s_value="$__s_value"'"${1#+}";; + -%*) eval '__s_value="${__s_value'"${1#-}"'}"';; + -*) eval '__s_value="${__s_value%'"${1#-}"'}"';; + mid|strmid) eval '__s_value="$(strmid "$2" "$__s_value")"'; shift;; + repl|strrepl) eval '__s_value="$(strrepl "$2" "$3" "$__s_value")"'; shift; shift;; + *) echo 1>&2 "strops: unknown operator: $1";; + esac + shift + done + echo "$__s_value" +} + function first_char() { local str="$*" echo "${str:0:1}" @@ -2066,6 +2530,8 @@ function parse_opts() { + [ -z "$__ULIB_NO_DISABLE_SET_X" ] && [[ $- == *x* ]] && { set +x; local __ULIB_PARSE_OPTS_SET_X=1; } # désactiver set -x pour cette fonction + local -a options_ names_ flags_ destargs_ local opts_ longopts_ __po_parse_optdescs "$@" || shift $? @@ -2075,17 +2541,28 @@ function parse_opts() { __po_process_options "$@" else [ -n "$destargs_" ] && setv "$destargs_" "$args_" + [ -n "$__ULIB_SET_X" ] && set -x return 1 fi + + [ -n "$__ULIB_PARSE_OPTS_SET_X" ] && set -x; return 0 } function parse_args_check() { - parse_opts "${PRETTYOPTS[@]}" "${args[@]}" @ args -- "$@" && return 0 - eerror "$args" - return 1 + [ -z "$__ULIB_NO_DISABLE_SET_X" ] && [[ $- == *x* ]] && { set +x; local __ULIB_PARSE_ARGS_SET_X=1; } # désactiver set -x pour cette fonction + if parse_opts "${PRETTYOPTS[@]}" "${args[@]}" @ args -- "$@"; then + [ -n "$__ULIB_PARSE_ARGS_SET_X" ] && set -x + return 0 + else + eerror "$args" + [ -n "$__ULIB_PARSE_ARGS_SET_X" ] && set -x + return 1 + fi } function parse_args() { + [ -z "$__ULIB_NO_DISABLE_SET_X" ] && [[ $- == *x* ]] && { set +x; local __ULIB_PARSE_ARGS_SET_X=1; } # désactiver set -x pour cette fonction parse_opts "${PRETTYOPTS[@]}" "${args[@]}" @ args -- "$@" || die "$args" + [ -n "$__ULIB_PARSE_ARGS_SET_X" ] && set -x; return 0 } HELP_DESC= @@ -2177,7 +2654,7 @@ function base_umove() { eerror_if [ $# -eq 1 ] "Vous devez spécifier la destination" || return local -a srcs - local dest + local src dest srcs=("$@") setx dest=last_value srcs @@ -2210,18 +2687,80 @@ function base_umove() { eerror "$dest: doit être un répertoire" return 1 } + local r=0 for src in "${srcs[@]}"; do if [ -n "$updatedir" ]; then if [ -L "$src" ]; then - move_link "$src" "$dest" + move_link "$src" "$dest" || r=$? else array_find_links update_links "$src" "$updatedir" - move_file "$src" "$dest" "${update_links[@]}" + move_file "$src" "$dest" "${update_links[@]}" || r=$? fi else - move_link "$src" "$dest" + move_link "$src" "$dest" || r=$? fi done + return $r +} + +function base_udelete() { + local -a args + local updatedir + args=(-d:,--updatedir: .) + parse_args_check "$@" || return; set -- "${args[@]}" + + eerror_unless [ -z "$updatedir" -o -d "$updatedir" ] "$updatedir: doit être un répertoire" || return + eerror_if [ $# -eq 0 ] "Vous devez spécifier les fichiers à supprimer" || return + + local file r=0 + for file in "$@"; do + if [ -n "$updatedir" ]; then + if [ -L "$file" ]; then + rm "$file" || r=$? + else + array_find_links update_links "$file" "$updatedir" + rm "$file" "${update_links[@]}" || r=$? + fi + else + rm "$file" || r=$? + fi + done + return $r +} + +function base_ucopy() { + eerror_if [ $# -eq 0 ] "Vous devez spécifier les fichiers à copier" || return + eerror_if [ $# -eq 1 ] "Vous devez spécifier la destination" || return + + local -a srcs + local src dest + + srcs=("$@") + setx dest=last_value srcs + array_del_last srcs + + if [ $# -eq 2 ]; then + if [ -d "$dest" ]; then + : # ce cas sera traité ci-dessous + elif [ -e "$dest" ]; then + eerror "$dest: refus d'écraser la destination" + return 1 + else + src="${srcs[0]}" + copy_link "$src" "$dest" + return $? + fi + fi + + [ -d "$dest" ] || { + eerror "$dest: doit être un répertoire" + return 1 + } + local r=0 + for src in "${srcs[@]}"; do + copy_link "$src" "$dest" || r=$? + done + return $r } ##@inc]base.tools ##@inc[base.compat @@ -2251,16 +2790,6 @@ function recho_() { echo -n "$@" fi } -function _rval() { - local s="$*" - s="${s//\\/\\\\}" - s="${s//\"/\\\"}" - s="${s//\'/\'}" - s="${s//\$/\\\$}" - s="${s//\`/\\\`}" - s="${s// /\\ }" - recho_ "$s" -} function _qval() { local s="$*" s="${s//\\/\\\\}" @@ -2322,6 +2851,53 @@ function qvals() { done [ -z "$first" ] && echo } +function qwc() { + local s="$*" + s="${s//\\/\\\\}" + s="${s//\"/\\\"}" + s="${s//\$/\\\$}" + s="${s//\`/\\\`}" + local r a b + while [ -n "$s" ]; do + if [[ "$s" == *\** ]]; then + if [[ "$s" == *\?* ]]; then + a="${s%%\**}" + b="${s%%\?*}" + if [ ${#a} -lt ${#b} ]; then + s="${s#*\*}" + r="$r\"$a\"*" + else + s="${s#*\?}" + r="$r\"$b\"?" + fi + else + a="${s%%\**}" + s="${s#*\*}" + r="$r\"$a\"*" + fi + elif [[ "$s" == *\?* ]]; then + if [[ "$s" == *\** ]]; then + a="${s%%\**}" + b="${s%%\?*}" + if [ ${#a} -lt ${#b} ]; then + s="${s#*\*}" + r="$r\"$a\"*" + else + s="${s#*\?}" + r="$r\"$b\"?" + fi + else + a="${s%%\?*}" + s="${s#*\?}" + r="$r\"$a\"?" + fi + else + r="$r\"$s\"" + break + fi + done + recho_ "$r" +} function qlines() { sed "s/'/'\\\\''/g; s/.*/'&'/g" } @@ -2480,6 +3056,84 @@ function testrp() { function err2out() { "$@" 2>&1 } + +function is_defined() { + [ -n "$(declare -p "$1" 2>/dev/null)" ] +} +function is_array() { + case "$(declare -p "$1" 2>/dev/null)" in declare\ -a*) return 0;; esac + return 1 +} + +function upvar() { + if unset -v "$1"; then + if [ $# -eq 2 ]; then + eval "$1=\"\$2\"" + else + eval "$1=(\"\${@:2}\")" + fi + fi +} +function array_upvar() { + unset -v "$1" && eval "$1=(\"\${@:2}\")" +} +function upvars() { + while [ $# -gt 0 ]; do + case "$1" in + -a) + unset -v "$2" && eval "$2=(\"\${@:3}\")" + break + ;; + -a*) + unset -v "$2" && eval "$2=(\"\${@:3:${1#-a}}\")" + shift $((${1#-a} + 2)) || return 1 + ;; + *) + unset -v "$1" && eval "$1=\"\$2\"" + shift; shift + ;; + esac + done +} + +function __ab_process_pending() { + local -a values + case "$mode" in + cmd) values="$("${pending[@]}")";; + ssplit) eval "values=($("${pending[@]}"))";; + lsplit) eval "values=($("${pending[@]}" | qlines))";; + add) values=("${pending[@]}");; + esac + cmd=("${cmd[@]}" "${values[@]}") + pending=() +} +function array_buildcmd() { + local desta="$1"; shift; local "$desta" + local mode=add + local -a pending cmd + while [ $# -gt 0 ]; do + case "$1" in + ++c|++cmd|++) __ab_process_pending; mode=cmd;; + ++s|++ssplit) __ab_process_pending; mode=ssplit;; + ++l|++lsplit) __ab_process_pending; mode=lsplit;; + ++a|++add) __ab_process_pending; mode=add;; + *) pending=("${pending[@]}" "$1");; + esac + shift + done + __ab_process_pending + array_upvar "$desta" "${cmd[@]}" +} +function buildcmd() { + local -a args + array_buildcmd args "$@" + qvals "${args[@]}" +} +function evalcmd() { + local -a args + array_buildcmd args "$@" + "${args[@]}" +} ##@inc]base.core ##@inc[base.num ## Fonctions de base: gestion des valeurs numériques @@ -2487,21 +3141,19 @@ uprovide base.num function isnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//[0-9]/}" [ -z "$v" ] } function ispnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v//[0-9]/}" - [ -z "$v" ] + [ -z "${1//[0-9]/}" ] } function isrnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//./}" v="${v//,/}" v="${v//[0-9]/}" @@ -2516,21 +3168,19 @@ uprovide base.num function isnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//[0-9]/}" [ -z "$v" ] } function ispnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v//[0-9]/}" - [ -z "$v" ] + [ -z "${1//[0-9]/}" ] } function isrnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//./}" v="${v//,/}" v="${v//[0-9]/}" @@ -2620,6 +3270,8 @@ function qseds() { local s="$*" s="${s//\\/\\\\}" s="${s//\//\\/}" + s="${s// +/\\n}" recho "$s" } function _qform() { @@ -2643,6 +3295,4055 @@ function qform() { echo fi } +function _qsql() { + local q="'" qq="''" + echo "${*//$q/$qq}" +} +function qsql() { + local q="'" qq="''" + echo "'${*//$q/$qq}'" +} +##@inc]base.quote +uprovide base.compat +urequire base.core base.num base.bool base.quote + + +function setx2() { setxx "$@"; } +function rawecho() { recho "$@"; } +function rawecho_() { recho_ "$@"; } +function quote_arg() { _qval "$@"; } +function quoted_arg() { qvalm "$@"; } +function quoted_args() { qvals "$@"; } +function set_var() { setv "$@"; } +function set_var_cmd() { echo_setv "$@"; } +function set_var_literal() { eval "$1=$2"; } + +function quote_awk() { _qawk "$@"; } +function quoted_awk() { qawk "$@"; } +function quote_seds() { qseds "$@"; } +function quote_form() { _qform "$@"; } +function quoted_form() { qform "$@"; } + + +if [ -n "$BASH_VERSINFO" -a "${BASH_VERSINFO[0]}" -lt 4 ]; then + function strlower() { tr A-Z a-z <<<"$*"; } + function strlower1() { + local str="$*" + local h="${str:0:1}" r="${str:1}" + echo "$(tr A-Z a-z <<<"$h")$r" + } + function strlowers() { + local -a vs; local v + for v in "$@"; do + vs=("${vs[@]}" "$(strlower1 "$v")") + done + echo "${vs[*]}" + } + function strupper() { tr a-z A-Z <<<"$*"; } + function strupper1() { + local str="$*" + local h="${str:0:1}" r="${str:1}" + echo "$(tr a-z A-Z <<<"$h")$r" + } + function struppers() { + local -a vs; local v + for v in "$@"; do + vs=("${vs[@]}" "$(strupper1 "$v")") + done + echo "${vs[*]}" + } + + function is_yes() { + case "$1" in + o|oui|y|yes|v|vrai|t|true|on) return 0;; + O|OUI|Y|YES|V|VRAI|T|TRUE|ON) return 0;; + esac + isnum "$1" && [ "$1" -ne 0 ] && return 0 + case "$(strlower "$1")" in + o|oui|y|yes|v|vrai|t|true|on) return 0;; + esac + return 1 + } + function is_no() { + case "$1" in + n|non|no|f|faux|false|off) return 0;; + N|NON|NO|F|FAUX|FALSE|OFF) return 0;; + esac + isnum "$1" && [ "$1" -eq 0 ] && return 0 + case "$(strlower "$1")" in + n|non|no|f|faux|false|off) return 0;; + esac + return 1 + } +fi +##@inc]base.compat +uprovide base +urequire base.init base.core base.string base.num base.bool base.array base.quote base.split base.args base.tools base.compat + +UNAME_SYSTEM=`uname -s` +[ "${UNAME_SYSTEM#CYGWIN}" != "$UNAME_SYSTEM" ] && UNAME_SYSTEM=Cygwin +[ "${UNAME_SYSTEM#MINGW32}" != "$UNAME_SYSTEM" ] && UNAME_SYSTEM=Mingw +UNAME_MACHINE=`uname -m` +if [ -n "$UTOOLS_CHROOT" ]; then + [ -n "$UTOOLS_UNAME_SYSTEM" ] && eval "UNAME_SYSTEM=$UTOOLS_UNAME_SYSTEM" + [ -n "$UTOOLS_UNAME_MACHINE" ] && eval "UNAME_MACHINE=$UTOOLS_UNAME_MACHINE" +fi + +function setyesval() { + is_yes "$2" && set_var "$1" 1 || set_var "$1" "" +} +function normyesval() { + is_yes "${2:-"${!1}"}" && set_var "$1" 1 || set_var "$1" "" +} +function normyesvals() { + local __nyv_yesvar + for __nyv_yesvar in "$@"; do + is_yes "${!__nyv_yesvar}" && set_var "$__nyv_yesvar" 1 || set_var "$__nyv_yesvar" "" + done +} +function quote_in() { + sed 's/\\/\\\\/g +s/"/\\"/g +s/\$/\\$/g +s/`/\\`/g' +} +function quote_sin() { + sed "s/'/'\\\\''/g" +} +function quote_sarg() { + quote_sin <<<"$1" +} +function quoted_sarg() { + echo "'$(quote_sarg "$1")'" +} +function quoted_sargs() { + local a s + for a in "$@"; do + s="${s:+$s }$(quoted_sarg "$a")" + done + rawecho "$s" +} + +function set_array_cmd() { + [ $# -eq 1 ] && set -- "$1" "$1" + local __sac_s __sac_v __sac_f + __sac_s="$1=("; shift + if [ "$1" == "@" ]; then + shift + else + eval "set -- \"\${$1[@]}\"" + fi + __sac_f=1 + for __sac_v in "$@"; do + [ -n "$__sac_f" ] && __sac_f= || __sac_s="$__sac_s " + __sac_s="$__sac_s$(quoted_arg "$__sac_v")" + done + __sac_s="$__sac_s)" + echo "$__sac_s" +} +function set_array() { + eval "$(set_array_cmd "$@")" +} +function array_count() { + eval "echo \${#$1[*]}" +} +function array_isempty() { + [ $(array_count "$1") -eq 0 ] +} +function array_new() { + eval "$1=()" +} +function array_add() { + local __aa_a="$1"; shift + eval "$__aa_a=(\"\${$__aa_a[@]}\" \"\$@\")" +} +function array_ins() { + local __aa_a="$1"; shift + eval "$__aa_a=(\"\$@\" \"\${$__aa_a[@]}\")" +} +function array_del() { + local __ad_v + local -a __ad_vs + eval 'for __ad_v in "${'"$1"'[@]}"; do + if [ "$__ad_v" != '"$(quoted_arg "$2")"' ]; then + array_add __ad_vs "$__ad_v" + fi +done' + array_copy "$1" __ad_vs +} +function array_addu() { + local __as_v + eval 'for __as_v in "${'"$1"'[@]}"; do + if [ "$__as_v" == '"$(quoted_arg "$2")"' ]; then + return 1 + fi +done' + array_add "$1" "$2" + return 0 +} +function array_set() { + array_addu "$@" +} +function array_insu() { + local __as_v + eval 'for __as_v in "${'"$1"'[@]}"; do + if [ "$__as_v" == '"$(quoted_arg "$2")"' ]; then + return 1 + fi +done' + array_ins "$1" "$2" + return 0 +} +function array_fillrange() { + local -a __af_vs + local __af_i="${2:-1}" __af_to="${3:-10}" __af_step="${4:-1}" + while [ "$__af_i" -le "$__af_to" ]; do + __af_vs=("${__af_vs[@]}" "$__af_i") + __af_i=$(($__af_i + $__af_step)) + done + array_copy "$1" __af_vs +} +function array_eq() { + local -a __ae_a1 __ae_a2 + array_copy __ae_a1 "$1" + array_copy __ae_a2 "$2" + [ ${#__ae_a1[*]} -eq ${#__ae_a2[*]} ] || return 1 + local __ae_v __ae_i=0 + for __ae_v in "${__ae_a1[@]}"; do + [ "$__ae_v" == "${__ae_a2[$__ae_i]}" ] || return 1 + __ae_i=$(($__ae_i + 1)) + done + return 0 +} +function array_contains() { + local __ac_v + eval 'for __ac_v in "${'"$1"'[@]}"; do + if [ "$__ac_v" == '"$(quoted_arg "$2")"' ]; then + return 0 + fi +done' + return 1 +} +function array_icontains() { + local __ac_v + eval 'for __ac_v in "${'"$1"'[@]}"; do + if [ "$(strlower "$__ac_v")" == '"$(strlower "$(quoted_arg "$2")")"' ]; then + return 0 + fi +done' + return 1 +} +function array_find() { + local __af_i __af_v + __af_i=0 + eval 'for __af_v in "${'"$1"'[@]}"; do + if [ "$__af_v" == '"$(quoted_arg "$2")"' ]; then + if [ -n "$3" ]; then + echo "${'"$3"'[$__af_i]}" + else + echo "$__af_i" + fi + return 0 + fi + __af_i=$(($__af_i + 1)) +done' + return 1 +} +function array_reverse() { + local -a __ar_vs + local __ar_v + array_copy __ar_vs "$1" + array_new "$1" + for __ar_v in "${__ar_vs[@]}"; do + array_ins "$1" "$__ar_v" + done +} + +function array_replace() { + local __ar_sn="$1"; shift + local __ar_f="$1"; shift + local -a __ar_s __ar_d + local __ar_v + array_copy __ar_s "$__ar_sn" + for __ar_v in "${__ar_s[@]}"; do + if [ "$__ar_v" == "$__ar_f" ]; then + __ar_d=("${__ar_d[@]}" "$@") + else + __ar_d=("${__ar_d[@]}" "$__ar_v") + fi + done + array_copy "$__ar_sn" __ar_d +} +function array_each() { + local __ae_an="$1"; shift + local __ae_f="$1"; shift + local -a __ae_a + local __ae_v + array_copy __ae_a "$__ae_an" + for __ae_v in "${__ae_a[@]}"; do + "$__ae_f" "$__ae_v" "$@" + done +} +function array_map() { + local __am_an="$1"; shift + local __am_f="$1"; shift + local -a __am_a __am_vs + local __am_v + array_copy __am_a "$__am_an" + for __am_v in "${__am_a[@]}"; do + __am_vs=("${__am_vs[@]}" "$("$__am_f" "$__am_v" "$@")") + done + array_copy "$__am_an" __am_vs +} +function first_value() { + eval "rawecho \"\${$1[@]:0:1}\"" +} +function last_value() { + eval "rawecho \"\${$1[@]:\$((-1)):1}\"" +} +function array_copy() { + eval "$1=(\"\${$2[@]}\")" +} +function array_copy_firsts() { + eval "$1=(\"\${${2:-$1}[@]:0:\$((\${#${2:-$1}[@]}-1))}\")" +} +function array_del_last() { + array_copy_firsts "$1" +} +function array_copy_lasts() { + eval "$1=(\"\${${2:-$1}[@]:1}\")" +} +function array_del_first() { + array_copy_lasts "$1" +} +function array_extend() { + eval "$1=(\"\${$1[@]}\" \"\${$2[@]}\")" +} +function array_extendu() { + local __ae_v __ae_s=1 + eval 'for __ae_v in "${'"$2"'[@]}"; do + array_addu "$1" "$__ae_v" && __ae_s=0 +done' + return "$__ae_s" +} +function array_extend_firsts() { + eval "$1=(\"\${$1[@]}\" \"\${$2[@]:0:\$((\${#$2[@]}-1))}\")" +} +function array_extend_lasts() { + eval "$1=(\"\${$1[@]}\" \"\${$2[@]:1}\")" +} +function array_xsplit() { + eval "$1=($(recho_ "$2" | awkrun RS="${3:-:}" ' +{ + gsub(/'\''/, "'\'\\\\\'\''") + print "'\''" $0 "'\''" +}'))" #" +} +function array_split() { + eval "$1=($(recho_ "$2" | awkrun RS="${3:-:}" ' +/^$/ { next } +{ + gsub(/'\''/, "'\'\\\\\'\''") + print "'\''" $0 "'\''" +}'))" #" +} +function array_from_path() { + array_split "$1" "$2" ":" +} +function array_from_xlines() { + eval "$1=($(recho_ "$2" | _nl2lf | awk ' +{ + gsub(/'\''/, "'\'\\\\\'\''") + print "'\''" $0 "'\''" +}'))" #" +} +function array_from_lines() { + eval "$1=($(recho_ "$2" | _nl2lf | awk ' +/^$/ { next } +{ + gsub(/'\''/, "'\'\\\\\'\''") + print "'\''" $0 "'\''" +}'))" #" +} +function array_join() { + local __aj_an __aj_l __aj_j __aj_s="${2:-,}" __aj_pf __aj_sf + if [ "$1" == "@" ]; then + __aj_an="\$@" + shift; shift + else + __aj_an="\${$1[@]}" + __aj_pf="$4" + __aj_sf="$5" + fi + eval 'for __aj_l in "'"$__aj_an"'"; do + __aj_j="${__aj_j:+$__aj_j'"$__aj_s"'}$__aj_pf$__aj_l$__aj_sf" +done' + if [ -n "$__aj_j" ]; then + rawecho "$__aj_j" + elif [ "$__aj_an" != "\$@" -a -n "$3" ]; then + rawecho "$3" + fi +} +function array_mapjoin() { + local __amj_src="$1" __amj_func="$2" __amj_sep="$3" + shift; shift; shift + if [ "$__amj_src" == "@" ]; then + local -a __amj_tmpsrc + __amj_tmpsrc=("$@") + __amj_src=__amj_tmpsrc + set -- + fi + local -a __amj_tmp + array_copy __amj_tmp "$__amj_src" + array_map __amj_tmp "$__amj_func" + array_join __amj_tmp "$__amj_sep" "$@" +} +function array_to_lines() { + array_join "$1" " +" "$2" "$3" "$4" +} +function array_to_path() { + array_join "$1" ":" "$2" "$3" "$4" +} +function array_fix_paths() { + local __afp_an="$1" __afp_s="${2:-:}" + local -a __afp_vs + local __afp_v + array_copy __afp_vs "$__afp_an" + array_new "$__afp_an" + for __afp_v in "${__afp_vs[@]}"; do + array_split __afp_v "$__afp_v" "$__afp_s" + array_extend "$__afp_an" __afp_v + done +} + + +function get_date_rfc822() { + LC_TIME=C date +"%a, %d %b %Y %H:%M:%S %Z" +} +function get_date_fr() { + LC_TIME=C date +"%d/%m/%Y" +} +function get_time_fr() { + LC_TIME=C date +"%Hh%M" +} +function parse_date() { + local value="$1" type="${2:-date}" + local now="$(awk 'BEGIN { print mktime(strftime("%Y %m %d 00 00 00 +0400")) }')" + case "$value" in + +*) + value="$(($now + ${value#+} * 86400))" + ;; + *) + value="$(<<<"$value" awk -F/ '{ + nd = strftime("%d"); nm = strftime("%m"); ny = strftime("%Y") + d = $1 + 0; if (d < 1) d = nd; + m = $2 + 0; if (m < 1) m = nm; + if ($3 == "") y = ny; + else { y = $3 + 0; if (y < 100) y = y + 2000; } + print mktime(sprintf("%04i %02i %02i 00 00 00 +0400", y, m, d)); + }')" + esac + case "$type" in + d|date) awk '{ print strftime("%d/%m/%Y", $0 + 0) }' <<<"$value";; + l|ldap) awk '{ print strftime("%Y%m%d%H%M%S+0400", $0 + 0) }' <<<"$value";; + m|mysql) awk '{ print strftime("%Y-%m-%d", $0 + 0) }' <<<"$value";; + *) + rawecho "$value" + ;; + esac +} + + +function udelpath() { + local _qdir="${1//\//\\/}" + eval "export ${2:-PATH}; ${2:-PATH}"'="${'"${2:-PATH}"'#$1:}"; '"${2:-PATH}"'="${'"${2:-PATH}"'%:$1}"; '"${2:-PATH}"'="${'"${2:-PATH}"'//:$_qdir:/:}"; [ "$'"${2:-PATH}"'" == "$1" ] && '"${2:-PATH}"'=' +} +function uaddpath() { + local _qdir="${1//\//\\/}" + eval "export ${2:-PATH}; "'[ "${'"${2:-PATH}"'#$1:}" == "$'"${2:-PATH}"'" -a "${'"${2:-PATH}"'%:$1}" == "$'"${2:-PATH}"'" -a "${'"${2:-PATH}"'//:$_qdir:/:}" == "$'"${2:-PATH}"'" -a "$'"${2:-PATH}"'" != "$1" ] && '"${2:-PATH}"'="${'"${2:-PATH}"':+$'"${2:-PATH}"':}$1"' +} +function uinspathm() { + local _qdir="${1//\//\\/}" + eval "export ${2:-PATH}; "'[ "${'"${2:-PATH}"'#$1:}" == "$'"${2:-PATH}"'" -a "${'"${2:-PATH}"'%:$1}" == "$'"${2:-PATH}"'" -a "${'"${2:-PATH}"'//:$_qdir:/:}" == "$'"${2:-PATH}"'" -a "$'"${2:-PATH}"'" != "$1" ] && '"${2:-PATH}"'="$1${'"${2:-PATH}"':+:$'"${2:-PATH}"'}"' +} +function uinspath() { + udelpath "$@" + uinspathm "$@" +} + +function withpath() { + [ "${1#./}" != "$1" -o "${1#../}" != "$1" -o "${1#/}" != "$1" ] +} +function withext() { + local basename="$(basename -- "$1")" + [ "${basename%.*}" != "$basename" ] +} +function normpath() { + local -a parts + local part ap + array_split parts "$1" / + if [ "${1#/}" != "$1" ]; then + ap=/ + elif [ -n "$2" ]; then + ap="$2" + else + ap="$(pwd)" + fi + for part in "${parts[@]}"; do + if [ "$part" == "." ]; then + continue + elif [ "$part" == ".." ]; then + ap="${ap%/*}" + [ -n "$ap" ] || ap=/ + else + [ "$ap" != "/" ] && ap="$ap/" + ap="$ap$part" + fi + done + rawecho "$ap" +} +function abspath() { + local ap="$1" + if [ "${ap#/}" != "$ap" ]; then + __normpath "$ap" && return + else + local cwd + if [ -n "$2" ]; then + cwd="$(abspath "$2")" + else + cwd="$(pwd)" + fi + ap="$cwd/$ap" + __normpath "$ap" && return + fi + normpath "$ap" +} +function __normpath() { + if [ -d "$1" ]; then + if [ -x "$1" ]; then + (cd "$1"; pwd) + return 0 + fi + elif [ -f "$1" ]; then + local dn="$(dirname -- "$1")" bn="$(basename -- "$1")" + if [ -x "$dn" ]; then + (cd "$dn"; echo "$(pwd)/$bn") + return 0 + fi + fi + return 1 +} +function parentdirs() { + array_new "$1" + local __pd_d="$(abspath "$2")" + if [[ "$3" == r* ]]; then + while [ "$__pd_d" != "/" ]; do + array_ins "$1" "$__pd_d" + __pd_d="$(dirname "$__pd_d")" + done + else + while [ "$__pd_d" != "/" ]; do + array_add "$1" "$__pd_d" + __pd_d="$(dirname "$__pd_d")" + done + fi +} +function ppath() { + local path="$1" cwd="$2" + + path="$(abspath "$path")" # essayer de normaliser le chemin + [ -n "$cwd" ] || cwd="$(pwd)" + + [ "$path" = "$cwd" ] && path="." + [ "$cwd" != "/" -a "$cwd" != "$HOME" ] && path="${path#$cwd/}" + [ "${path#$HOME/}" != "$path" ] && path="~${path#$HOME}" + + rawecho "$path" +} +function relpath() { + local p="$(abspath "$1" "$3")" cwd="$2" + if [ -z "$cwd" ]; then + cwd="$(pwd)" + else + cwd="$(abspath "$cwd" "$3")" + fi + if [ "$p" == "$cwd" ]; then + echo "" + elif [ "${p#$cwd/}" != "$p" ]; then + rawecho "${p#$cwd/}" + else + local rp + while [ -n "$cwd" -a "${p#$cwd/}" == "$p" ]; do + rp="${rp:+$rp/}.." + cwd="${cwd%/*}" + done + rp="$rp/${p#$cwd/}" + echo "${rp%//}" + fi +} +function relpathx() { + local p="$(relpath "$@")" + if [ -z "$p" ]; then + echo . + elif [ "${p#../}" != "$p" -o "${p#./}" != "$p" ]; then + echo "$p" + else + echo "./$p" + fi +} +function withinpath() { + local b="$1" p="$2" strict="${3:-N}" + b="$(abspath "$b")" + p="$(abspath "$p")" + if is_yes "$strict"; then + [ "${p#$b/}" != "$p" ] + else + [ "$p" == "$b" -o "${p#$b/}" != "$p" ] + fi +} +function safe_abspath() { + local p="$1" ba="$2" br="$3" + if [ -n "$ba" ]; then + ba="$(abspath "$ba")" + else + ba="$(pwd)" + fi + [ -n "$br" ] || br="$ba" + br="$(abspath "$br" "$ba")" + p="$(abspath "$p" "$ba")" + if [ "$p" == "$br" -o "${p#$br/}" != "$p" ]; then + echo "$p" + else + return 1 + fi +} +function safe_relpath() { + local p + if p="$(safe_abspath "$1" "$2" "$3")"; then + relpath "$p" "$2" "$(pwd)" + else + return 1 + fi +} +function splitwcs() { + local __sw_p="$1" + local __sw_dd="${2:-basedir}" __sw_df="${3:-filespec}" __sw_part __sw_d __sw_f + local -a __sw_parts + array_split __sw_parts "$__sw_p" "/" + for __sw_part in "${__sw_parts[@]}"; do + if [[ "$__sw_part" == *\** ]] || [[ "$__sw_part" == *\?* ]] || [ -n "$__sw_f" ]; then + __sw_f="${__sw_f:+$__sw_f/}$__sw_part" + else + __sw_d="${__sw_d:+$__sw_d/}$__sw_part" + fi + done + [ "${__sw_p#/}" != "$__sw_p" ] && __sw_d="/$__sw_d" + set_var "$__sw_dd" "$__sw_d" + set_var "$__sw_df" "$__sw_f" +} +function deref() { + local OENC="$UTF8" + + local max_deref=50 + local file="$1" + local basedir link + while [ -L "$file" ]; do + basedir="$(dirname "$file")" + link="$(readlink "$file")" + if first_char_is "$link" "/"; then + file="$link" + else + file="$basedir/$link" + fi + + max_deref=$(($max_deref - 1)) + [ $max_deref -eq 0 ] && die "Plus de 50 indirection. Le lien $file est-il récursif?" + done + abspath "$file" +} +function readlinka() { + if [ -L "$1" ]; then + local linkdir="$(dirname -- "$1")" + abspath "$(readlink "$1")" "$linkdir" + else + abspath "$1" + fi +} +function readlinkm() { + readlink -m "$1" +} +function path_if_test() { + local op="$1"; shift + local file="$1"; shift + local rel="$1" reldir=; shift + if beginswith "$rel" relative; then + reldir="${rel#relative}" + if beginswith "$reldir" :; then + reldir="${reldir#:}" + if [ -n "$reldir" ]; then + reldir="${reldir}/" + fi + else + reldir= + fi + else + rel= + fi + + while [ -n "$1" ]; do + local basedir="$1" + if [ $op "$basedir/$file" ]; then + if [ -n "$rel" ]; then + rawecho "$reldir$file" + else + rawecho "$basedir/$file" + fi + break + fi + shift + done +} +function update_link() { + [ -L "$2" ] || return 1 + local dest link="$2" + local linkdir="$(dirname "$link")" + local ldest="$(readlink "$link")" + if [ "${ldest#/}" != "$ldest" ]; then + dest="$(abspath "$1")" + else + dest="$(relpath "$1" "$linkdir")" + fi + if [ "$dest" == "$ldest" ]; then + : # pas besoin de mettre à jour + elif [ -d "$link" ]; then + rm -f "$link" && ln -s "$dest" "$link" + else + ln -sf "$dest" "$link" + fi +} +function update_links() { + [ -n "$1" ] || return 1 + local dest="$1"; shift + local r=0 link + for link in "$@"; do + update_link "$dest" "$link" || r=$? + done + return $r +} +function move_link() { + [ -n "$1" -a -n "$2" ] || return 1 + local link="$1" dest="$2" + [ -d "$dest" ] && dest="$dest/$(basename -- "$link")" + dest="$(abspath "$dest")" + if [ -L "$link" ]; then + link="$(abspath "$link")" + [ "$dest" == "$link" ] && return 0 + ldest="$(readlinka "$link")" + mv "$link" "$dest" || return 1 + update_link "$ldest" "$dest" + else + [ "$dest" == "$link" ] && return 0 + mv "$link" "$dest" + fi +} +function copy_link() { + [ -n "$1" -a -n "$2" ] || return 1 + local link="$1" dest="$2" + [ -d "$dest" ] && dest="$dest/$(basename -- "$link")" + dest="$(abspath "$dest")" + if [ -L "$link" ]; then + link="$(abspath "$link")" + [ "$dest" == "$link" ] && return 0 + ldest="$(readlinka "$link")" + cp -P "$link" "$dest" || return 1 + update_link "$ldest" "$dest" + else + [ "$dest" == "$link" ] && return 0 + cp "$link" "$dest" + fi +} +function array_find_links() { + local -a __afl_links __afl_result + local __afl_dir="${3:-.}" + local __afl_dest __afl_destname __afl_link __afl_linkdir __afl_ldest + __afl_dest="$(abspath "$2")" + __afl_destname="${__afl_dest##*/}" + array_from_lines __afl_links "$(find "$__afl_dir" -type l)" + for __afl_link in "${__afl_links[@]}"; do + __afl_ldest="$(readlink "$__afl_link")" + if [ "$__afl_ldest" != "$__afl_destname" ]; then + [[ "$__afl_ldest" == */"$__afl_destname" ]] || continue + fi + __afl_link="$(abspath "$__afl_link" "$__afl_dir")" + __afl_linkdir="$(dirname -- "$__afl_link")" + __afl_ldest="$(abspath "$__afl_ldest" "$__afl_linkdir")" + if [ "$__afl_ldest" == "$__afl_dest" ]; then + array_add __afl_result "$__afl_link" + fi + done + array_copy "$1" __afl_result +} +function list_links() { + local -a links + array_find_links links "$@" + array_to_lines links +} +function move_file() { + [ -n "$1" -a -n "$2" ] || return 1 + local src="$1" dest="$2" link + shift; shift + [ -d "$dest" ] && dest="$dest/$(basename -- "$src")" + move_link "$src" "$dest" || return 1 + update_links "$dest" "$@" +} + +function get_nblines() { + [ -f "$1" ] && sed -ne '$=' "$1" || echo 0 +} +function mktempf() { + mktemp "${1:-"$TMPDIR/tmp.XXXXXX"}" +} +function mktempd() { + mktemp -d "${1:-"$TMPDIR/tmp.XXXXXX"}" +} +function mkdirof() { + mkdir -p "$(dirname -- "$1")" +} +function cp_a() { + /bin/cp -a "$@" +} +function cp_R() { + /bin/cp -pR "$@" +} +function quietgrep() { + grep -q "$@" 2>/dev/null +} +function quietdiff() { + diff -q "$@" >&/dev/null +} +function testsame() { + quietdiff "$@" +} +function testdiff() { + ! quietdiff "$@" +} +function testupdated() { + if [ -f "$2" ]; then + testdiff "$1" "$2" + else + return 0 + fi +} +function testnewer() { + test ! -e "$2" -o "$1" -nt "$2" +} +function ps_all() { + ps -axww +} +function progexists() { + test -n "$1" -a -x "$(which "$1" 2>/dev/null)" +} +function has_python() { + progexists python +} +function has_gawk() { + progexists gawk +} +function is_root() { + test `id -u` -eq 0 +} +function source_ifexists() { + if [ -f "$1" ]; then source "$1" || die; fi +} +function little_sleep { + LC_NUMERIC=C sleep 0.1 +} +function random_sleep { + sleep $(($RANDOM % ${1:-1800})) +} +function is_running() { + kill -0 "$1" >&/dev/null +} +function sedi() { + sed -i "$@" +} +function csort() { + LANG=C sort "$@" +} +function lsort() { sort "$@"; } +function cgrep() { + LANG=C grep "$@" +} +function lgrep() { grep "$@"; } +function csed() { + LANG=C sed "$@" +} +function lsed() { sed "$@"; } +function cawk() { + LANG=C awk "$@" +} +function lawk() { awk "$@"; } +function cdiff() { + LANG=C diff "$@" +} +function ldiff() { diff "$@"; } + + +function fix_mode() { + local file="$1" + [ -f "$file" ] || touch "$file" || return 1 + if [ ! -w "$file" ]; then + local mode="$(stat -c %a "$file")" + chmod ${mode:0:${#mode}-3}6${mode:${#mode}-2:2} "$file" + echo "$mode" + fi +} +function unfix_mode() { + [ -n "$2" ] && chmod "$2" "$1" +} +function get_mode() { + [ -f "$1" ] || touch "$1" || return 1 + stat -c %a "$1" +} +function rm_maybe() { + local parse_opts=1 arg rm + for arg in "$@"; do + if [ -n "$parse_opts" ]; then + if [ "$arg" == "--" ]; then + parse_opts= + elif [[ "$arg" == "-*" ]]; then + continue + elif [ -n "$arg" ]; then + rm=1 + break + fi + elif [ -n "$arg" ]; then + rm=1 + break + fi + done + [ -n "$rm" ] && /bin/rm "$@" +} +__CPDIR_RSYNC_SLOW=1 # synchro potentiellement plus lente, mais plus fidèle (option -c) +__CPDIR_RSYNC_ARGS=(-q) +function cpdir() { + + if progexists rsync; then + [ -d "$2" ] || mkdir -p "$2" || return 1 + if [ -d "$1" ]; then + rsync -a ${__CPDIR_RSYNC_SLOW:+-c} "${__CPDIR_RSYNC_ARGS[@]}" "$1/" "$2/" + else + rsync -a ${__CPDIR_RSYNC_SLOW:+-c} "${__CPDIR_RSYNC_ARGS[@]}" "$1" "$2/" + fi + else + __cpdir "$@" + fi +} +function __cpdir() { + local src="$1" dest="$2" method="${3:-cp_a}" + + if [ -d "$src" ]; then + [ -d "$dest" ] || mkdir -p "$dest" || return 1 + + local prevdir="$(pwd)" + + dest="$(abspath "$dest")" + cd "$src" + if [ -n "$(/bin/ls -a1)" ]; then + [ -n "$(/bin/ls -1)" ] && "$method" * "$dest" + local i + for i in .*; do + [ "$i" == "." -o "$i" == ".." ] && continue + "$method" "$i" "$dest" + done + fi + cd "$prevdir" + else + if [ -f "$dest" ]; then + "$method" "$src" "$dest" + elif [ -d "$dest" ]; then + "$method" "$src" "$dest" + else + mkdir -p "$dest" + "$method" "$src" "$dest" + fi + fi +} +__CPNOVCS_RSYNC_SLOW=1 # synchro potentiellement plus lente, mais plus fidèle (option -c) +__CPNOVCS_RSYNC_ARGS=(-q) +__CPNOVCS_INCLUDE_VCS= # ne pas ignorer les répertoires de VCS +function cpnovcs() { + local src="$1" destdir="$2" + [ -d "$destdir" ] || mkdir -p "$destdir" || return 1 + if progexists rsync; then + local -a novcs + if [ -z "$__CPNOVCS_INCLUDE_VCS" ]; then + local gitexclude=/.git/ + [ "${src%/}" == "$src" ] && gitexclude="/$(basename -- "$src")$gitexclude" + novcs=(--exclude CVS/ --exclude .svn/ --exclude "$gitexclude") + fi + rsync -a ${__CPNOVCS_RSYNC_SLOW:+-c} "${novcs[@]}" "${__CPNOVCS_RSYNC_ARGS[@]}" "$src" "$destdir/" + elif [ "${src%/}" != "$src" ]; then + __cpdir "$src" "$destdir" + else + local srcname="$(basename -- "$src")" + mkdir -p "$destdir/$srcname" + __cpdir "$src" "$destdir/$srcname" + fi +} +function cpvcs() { + local __CPNOVCS_INCLUDE_VCS=1 + cpnovcs "$@" +} +function cpdirnovcs() { + if [ -d "$1" ]; then + cpnovcs "$1/" "$2" + else + cpnovcs "$1" "$2" + fi +} +function doinplace() { + if [ -n "$1" -a "$1" != "-" ]; then + local __dip_file="$1"; shift + autoclean "$__dip_file.tmp.$$" + "$@" <"$__dip_file" >"$__dip_file.tmp.$$" + local s=$? + [ "$s" == 0 ] && /bin/cat "$__dip_file.tmp.$$" >"$__dip_file" + /bin/rm -f "$__dip_file.tmp.$$" + return $s + else + shift + "$@" + fi +} +function doinplacef() { + if [ -n "$1" -a "$1" != "-" ]; then + local __dip_file="$1"; shift + autoclean "$__dip_file.tmp.$$" + "$@" <"$__dip_file" >"$__dip_file.tmp.$$" + local s=$? + /bin/cat "$__dip_file.tmp.$$" >"$__dip_file" + /bin/rm -f "$__dip_file.tmp.$$" + return $s + else + shift + "$@" + fi +} +function stripnl() { + tr -d '\r\n' +} +function _nl2lf() { + awk 'BEGIN {RS="\r|\r\n|\n"} {print}' +} +function nl2lf() { + doinplace "$1" _nl2lf +} +function _nl2crlf() { + awk 'BEGIN {RS="\r|\r\n|\n"} {print $0 "\r"}' +} +function nl2crlf() { + doinplace "$1" _nl2crlf +} +function _nl2cr() { + awk 'BEGIN {RS="\r|\r\n|\n"; ORS=""} {print $0 "\r"}' +} +function nl2cr() { + doinplace "$1" _nl2cr +} +function _latin1compat() { + LANG=fr_FR.UTF-8 sed $' +s/[\xE2\x80\x90\xE2\x80\x91\xE2\x80\x92\xE2\x80\x93\xE2\x80\x94\xE2\x80\x95]/-/g +s/[‘’]/\x27/g +s/[«»“”]/"/g +s/[\xC2\xA0\xE2\x80\x87\xE2\x80\xAF\xE2\x81\xA0]/ /g +s/[œ]/oe/g +s/[Œ]/OE/g +s/[æ]/ae/g +s/[Æ]/AE/g +' +} +function _noaccents() { + LANG=fr_FR.UTF-8 sed ' +s/[à]/a/g +s/[éèêë]/e/g +s/[ïî]/i/g +s/[ôö]/o/g +s/[üû]/u/g +s/[ç]/c/g +s/[À]/A/g +s/[ÉÈÊË]/E/g +s/[ÏÎ]/I/g +s/[ÔÖ]/O/g +s/[ÜÛ]/U/g +s/[Ç]/C/g +' +} +function list_all() { + local curdir="$(pwd)" + local b="${1:-.}"; shift + + cd "$b" 2>/dev/null || return + eval "$(__la_cmd "$@")" | while read f; do + [ "$f" == "." -o "$f" == ".." ] && continue + rawecho "$f" + done + cd "$curdir" +} +function __la_cmd() { + [ $# -gt 0 ] || set '*' + local arg + local cmd="/bin/ls -1d" + for arg in "$@"; do + arg="$(qwc "$arg")" + cmd="$cmd $arg" + done + cmd="$cmd 2>/dev/null" + echo "$cmd" +} +function list_files() { + local f + local curdir="$(pwd)" + local b="${1:-.}"; shift + + cd "$b" 2>/dev/null || return + eval "$(__la_cmd "$@")" | while read f; do + [ -f "$f" ] && rawecho "$f" + done + cd "$curdir" +} +function list_dirs() { + local f + local curdir="$(pwd)" + local b="${1:-.}"; shift + + cd "$b" 2>/dev/null || return + eval "$(__la_cmd "$@")" | while read f; do + [ "$f" == "." -o "$f" == ".." ] && continue + [ -d "$f" ] && rawecho "$f" + done + cd "$curdir" +} +function __array_ls() { + local __al_l="list_${1:-all}"; shift + local __al_an="$1"; shift + local __al_d="${1:-.}"; shift + local -a __al_fs + array_from_lines __al_fs "$("$__al_l" "$__al_d" "$@")" + local __al_f + array_new "$__al_an" + for __al_f in "${__al_fs[@]}"; do + array_add "$__al_an" "$__al_d/$__al_f" + done +} +function array_lsall() { + __array_ls all "$@" +} +function array_lsdirs() { + __array_ls dirs "$@" +} +function array_lsfiles() { + __array_ls files "$@" +} +function filter_empty() { + sed '/^$/d' +} +function filter_vcspath() { + sed ' +/^.git$/d +/^.git\//d +/\/.git$/d +/\/.git\//d +/^.svn$/d +/^.svn\//d +/\/.svn$/d +/\/.svn\//d +' +} +function merge_contlines() { + awk 'substr($0, length($0)) == "\\" { + while (getline nextline) { + $0 = substr($0, 1, length($0) - 1) nextline + if (substr($0, length($0)) != "\\") break + } + print + next +} +{print}' +} +function filter_comment() { + local -a merge + [ "$1" == -m ] && merge=(merge_contlines) || merge=(cat) + awk ' + /^[ \t]*#/ { next } + /^[ \t]*$/ { next } + { print }' | "${merge[@]}" +} +function filter_conf() { + local -a merge + [ "$1" == -m ] && merge=(merge_contlines) || merge=(cat) + grep -v '^#' | grep -v '^$' | "${merge[@]}" +} +function is_archive() { + local name="${1%.zip}" + name="${name%.tgz}" + name="${name%.tbz2}" + name="${name%.tar.gz}" + name="${name%.tar.bz2}" + name="${name%.tar}" + name="${name%.jar}" + name="${name%.war}" + name="${name%.ear}" + [ "$name" != "$1" ] +} +function extract_archive() { + local arch="$1" destdir="${2:-.}" + shift; shift + if endswith "$arch" .zip; then + unzip -q -d "$destdir" "$arch" "$@" || return + elif endswith "$arch" .tgz || endswith "$arch" .tar.gz; then + tar xzf "$arch" -C "$destdir" "$@" || return + elif endswith "$arch" .tbz2 || endswith "$arch" .tar.bz2; then + tar xjf "$arch" -C "$destdir" "$@" || return + elif endswith "$arch" .tar; then + tar xf "$arch" -C "$destdir" "$@" || return + elif endswith "$arch" .jar || endswith "$arch" .war || endswith "$arch" .ear; then + ( + arch="$(abspath "$arch")" + cd "$destdir" + jar xf "$arch" "$@" + ) || return + else + return 1 + fi +} +function get_archive_basename() { + local basename="$(basename -- "$1")" + basename="${basename%.zip}" + basename="${basename%.tgz}" + basename="${basename%.tbz2}" + basename="${basename%.gz}" + basename="${basename%.bz2}" + basename="${basename%.tar}" + basename="${basename%.jar}" + basename="${basename%.war}" + basename="${basename%.ear}" + echo "$basename" +} +function get_archive_appname() { + local appname="$(basename -- "$1")" + appname="${appname%.zip}" + appname="${appname%.tgz}" + appname="${appname%.tbz2}" + appname="${appname%.gz}" + appname="${appname%.bz2}" + appname="${appname%.tar}" + appname="${appname%.jar}" + appname="${appname%.war}" + appname="${appname%.ear}" + echo "$appname" | awk '{ + if (match($0, /[-_.]([0-9]+([-_.][0-9]+)*([a-zA-Z][0-9]*|[-_.][0-9]+[a-zA-Z][0-9]*)?)$/)) { + print substr($0, 1, RSTART - 1) + } else if (match($0, /([0-9]+([-_.][0-9]+)*([a-zA-Z][0-9]*|[-_.][0-9]+[a-zA-Z][0-9]*)?)$/)) { + print substr($0, 1, RSTART - 1) + } else if (match($0, /([0-9]+[a-z][a-z][a-z0-9]?)$/, vs)) { + print substr($0, 1, RSTART - 1) + } else { + print $0 + } +}' +} +function get_archive_versionsuffix() { + local basename="$(get_archive_basename "$1")" + echo "$basename" | awk '{ + if (match($0, /([-_.][0-9]+([-_.][0-9]+)*([a-zA-Z][0-9]*|[-_.][0-9]+[a-zA-Z][0-9]*)?)$/, vs)) { + print vs["1"] + } else if (match($0, /([0-9]+([-_.][0-9]+)*([a-zA-Z][0-9]*|[-_.][0-9]+[a-zA-Z][0-9]*)?)$/, vs)) { + print vs["1"] + } else if (match($0, /([0-9]+[a-z][a-z][a-z0-9]?)$/, vs)) { + print vs["1"] + } +}' +} +function get_archive_version() { + local basename="$(get_archive_basename "$1")" + echo "$basename" | awk '{ + if (match($0, /[-_.]([0-9]+([-_.][0-9]+)*([a-zA-Z][0-9]*|[-_.][0-9]+[a-zA-Z][0-9]*)?)$/, vs)) { + print vs["1"] + } else if (match($0, /([0-9]+([-_.][0-9]+)*([a-zA-Z][0-9]*|[-_.][0-9]+[a-zA-Z][0-9]*)?)$/, vs)) { + print vs["1"] + } else if (match($0, /([0-9]+[a-z][a-z][a-z0-9]?)$/, vs)) { + print vs["1"] + } +}' +} +function __dump_usernames() { + = 500 && $6 ~ /^\/home\// { print $1 }' +} +function dump_usernames() { + array_from_lines "${1:-usernames}" "$(__dump_usernames)" +} +function __resolv_ips() { + LANG=C host "$1" 2>/dev/null | awk '/address / { gsub(/^.*address /, ""); print }' +} +function resolv_ips() { + array_from_lines "${1:-ips}" "$(__resolv_ips "$2")" +} +function __resolv_hosts() { + LANG=C host "$1" 2>/dev/null | awk '/domain name pointer / { gsub(/^.*domain name pointer /, ""); gsub(/\.$/, ""); print }' +} +function resolv_hosts() { + array_from_lines "${1:-hosts}" "$(__resolv_hosts "$2")" +} +function runscript_as() { + local OENC="$UTF8" + local user="${1:-root}"; shift + local exec_maybe= + if [ "$1" = "exec" ]; then + exec_maybe=exec + shift + fi + + local cmd + cmd="\ +__estack=$(quoted_arg "$__estack") +__tlevel=$(quoted_args "$__tlevel") +export __estack __tlevel +exec ${BASH:-/bin/sh} $(quoted_args "$@")" + + if is_yes "$UTOOLS_USES_SU" || ! progexists sudo; then + eecho "Entrez le mot de passe de root" + $exec_maybe su "$user" -c "$cmd" + else + if [ "$user" == "root" ]; then + $exec_maybe sudo -p "Entrez le mot de passe de %u: " "${BASH:-/bin/sh}" -c "$cmd" + else + $exec_maybe sudo -p "Entrez le mot de passe de %u: " su "$user" -c "$cmd" + fi + fi +} +function runscript_as_root() { + if is_root; then + local exec_maybe= + if [ "$1" = "exec" ]; then + exec_maybe=exec + shift + fi + $exec_maybe "${BASH:-/bin/sh}" "$@" + else + runscript_as root "$@" + fi +} +function run_as() { + local user="${1:-root}"; shift + local exec_maybe=exec + if [ "$1" = "--noexec" ]; then + exec_maybe= + shift + fi + + runscript_as "$user" $exec_maybe "$0" "$@" +} +function run_as_root() { + is_root || run_as root "$@" +} +function check_user() { + local user + for user in "$@"; do + [ "$USER" == "$user" ] && return 0 + done + return 1 +} +function ensure_user() { + local -a users + while [ $# -gt 0 -a "$1" != "--" ]; do + array_add users "$1" + shift + done + [ "$1" == "--" ] && shift + + if ! check_user "${users[@]}"; then + if [ ${#users[*]} -gt 1 ]; then + ewarn "Cette commande doit être lancée avec l'un des users ${users[*]}" + else + ewarn "Cette commande doit être lancée avec le user ${users[0]}" + fi + if ask_yesno "Voulez-vous tenter de relancer la commande avec le bon user?" O; then + estep "Lancement du script avec le user ${users[0]}" + run_as "${users[0]}" "$@" + return 1 + elif is_root; then + return 11 + else + return 10 + fi + fi + return 0 +} +function check_hostname() { + local userhost user host path + for userhost in "$@"; do + splitfsep "$userhost" : userhost path + splituserhost "$userhost" user host + host="${host%%.*}" + [ "$host" == localhost -o "$host" == "$MYHOSTNAME" ] && return 0 + done + return 1 +} +function check_userhostname() { + local userhost path user host + for userhost in "$@"; do + if check_hostname "$userhost"; then + [[ "$userhost" == *@* ]] || return 0 + splitfsep "$userhost" : userhost path + splituserhost "$userhost" user host + check_user "$user" && return 0 + fi + done + return 1 +} +UTOOLS_ENSURE_HOSTNAME_SSH_OPTS=() +function ensure_hostname() { + local -a userhosts + while [ $# -gt 0 -a "$1" != "--" ]; do + array_add userhosts "$1" + shift + done + [ "$1" == "--" ] && shift + + local userhost user host path + if ! check_hostname "${userhosts[@]}"; then + if [ ${#userhosts[*]} -gt 1 ]; then + ewarn "Cette commande n'est valide que sur l'un des hôtes ${userhosts[*]}" + else + ewarn "Cette commande n'est valide que sur l'hôte ${userhosts[0]}" + fi + + eimportant "Vous pouvez tenter de relancer le script sur ${userhosts[0]}" + eimportant "Cela requière que ce script ET les données dont il a besoin soient installés dans la même version et dans le même répertoire sur l'hôte distant. +En l'occurence, ce script est accédé par le chemin $script et ce chemin doit exister aussi sur le serveur distant." + if ask_yesno "Voulez-vous tenter de relancer le script sur l'hôte distant?" X; then + splitfsep "${userhosts[0]}" : userhost path + splituserhost "$userhost" user host + [ -n "$user" ] || user=root + + estep "Lancement de la commande sur l'hôte distant $user@$host" + local cmd + [ -n "$path" ] && cmd="$(quoted_args cd "$path"); " + cmd="$cmd$(quoted_args "$script" "$@")" + ssh -qt "${UTOOLS_ENSURE_HOSTNAME_SSH_OPTS[@]}" "$user@$host" "$cmd" + [ $? -eq 255 ] && return 12 + return 1 + else + return 11 + fi + fi + local userhost user host + for userhost in "${userhosts[@]}"; do + [[ "$userhost" == *@* ]] || continue + if check_hostname "$userhost"; then + splitfsep "$userhost" : userhost path + splituserhost "$userhost" user host + [ -n "$path" ] && cd "$path" + ensure_user "$user" -- "$@" + return $? + fi + done + return 0 +} + +__AWKDEF_FUNCTIONS=' +function num(s) { + if (s ~ /^[0-9]+$/) return int(s) + else return s +} +function ord(s, i) { + s = substr(s, 1, 1) + i = index(" !\"#$%&'\''()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~", s) + if (i != 0) i += 32 - 1 + return i +} +function hex(i, s) { + s = sprintf("%x", i) + if (length(s) < 2) s = "0" s + return s +} +function qhtml(s) { + gsub(/&/, "\\&", s) + gsub(/"/, "\\"", s) + gsub(/>/, "\\>", s) + gsub(/", s) + gsub(/"/, "\"", s) + gsub(/&/, "\\&", s) + return s +} +function qval(s) {'" + gsub(/'/, \"'\\\\''\", s) + return \"'\" s \"'\" +"'} +function sqval(s) { + return " " qval(s) +} +function qvals( i, line) { + line = "" + for (i = 1; i <= NF; i++) { + if (i > 1) line = line " " + line = line qval($i) + } + return line +} +function sqvals() { + return " " qvals() +} +function qarr(values, prefix, i, count, line) { + line = prefix + count = array_len(values) + for (i = 1; i <= count; i++) { + if (i > 1 || line != "") line = line " " + line = line qval(values[i]) + } + return line +} +function qregexp(s) { + gsub(/[[\\.^$*+?()|{]/, "\\\\&", s) + return s +} +function qsubrepl(s) { + gsub(/\\/, "\\\\", s) + gsub(/&/, "\\\\&", s) + return s +} +function qgrep(s) { + gsub(/[[\\.^$*]/, "\\\\&", s) + return s +} +function qegrep(s) { + gsub(/[[\\.^$*+?()|{]/, "\\\\&", s) + return s +} +function qsql(s, suffix) {'" + gsub(/'/, \"''\", s) + return \"'\" s \"'\" (suffix != \"\"? \" \" suffix: \"\") +"'} +function cqsql(s, suffix) { + return "," qsql(s, suffix) +} +function unquote_mysqlcsv(s) { + gsub(/\\n/, "\n", s) + gsub(/\\t/, "\t", s) + gsub(/\\0/, "\0", s) + gsub(/\\\\/, "\\", s) + return s +} +function sval(s) { + if (s == "") return s + else return " " s +} +function cval(s, suffix) { + if (s == "") return s + else return "," s (suffix != ""? " " suffix: "") +} +function quote_html(s) { return qhtml(s) } +function quote_value(s) { return qval(s) } +function qsval(s) { return sqval(s) } +function quoted_values() { return qvals() } +function qsvals(s) { return sqvals(s) } +function quote_regexp(s) { return qregexp(s) } +function quote_subrepl(s) { return qsubrepl(s) } +function quote_grep(s) { return qgrep(s) } +function quote_egrep(s) { return qegrep(s) } +function quote_sql(s) { return qsql(s) } + +function __parse_date_fr(date, parts, y, m, d) { + if (match(date, /([0-9][0-9]?)\/([0-9][0-9]?)\/([0-9][0-9][0-9][0-9])/, parts)) { + y = int(parts[3]) + m = int(parts[2]) + d = int(parts[1]) + return mktime(sprintf("%04i %02i %02i 00 00 00 +0400", y, m, d)) + } + return -1 +} +function __parse_date_mysql(date, parts, y, m, d) { + if (match(date, /([0-9][0-9][0-9][0-9])-([0-9][0-9])-([0-9][0-9])/, parts)) { + y = int(parts[1]) + m = int(parts[2]) + d = int(parts[3]) + return mktime(sprintf("%04i %02i %02i 00 00 00 +0400", y, m, d)) + } + return -1 +} +function __parse_date_any(date, serial) { + serial = __parse_date_fr(date) + if (serial == -1) serial = __parse_date_mysql(date) + return serial +} +function date_serial(date) { + return __parse_date_any(date) +} +function date_parse(date, serial) { + serial = __parse_date_any(date) + if (serial == -1) return date + return strftime("%d/%m/%Y", serial) +} +function date_monday(date, serial, dow) { + serial = __parse_date_any(date) + if (serial == -1) return date + dow = strftime("%u", serial) + serial -= (dow - 1) * 86400 + return strftime("%d/%m/%Y", serial) +} +function date_add(date, nbdays, serial) { + serial = __parse_date_any(date) + if (serial == -1) return date + serial += nbdays * 86400 + return strftime("%d/%m/%Y", serial) +} + +function mkindices(values, indices, i, j) { + array_new(indices) + j = 1 + for (i in values) { + indices[j++] = int(i) + } + return asort(indices) +} +function array_new(dest) { + dest[0] = 0 # forcer awk à considérer dest comme un tableau + delete dest +} +function array_newsize(dest, size, i) { + dest[0] = 0 # forcer awk à considérer dest comme un tableau + delete dest + size = int(size) + for (i = 1; i <= size; i++) { + dest[i] = "" + } +} +function array_len(values, count, i) { + count = 0 + for (i in values) { + count++ + } + return count +} +function array_copy(dest, src, count, indices, i) { + array_new(dest) + count = mkindices(src, indices) + for (i = 1; i <= count; i++) { + dest[indices[i]] = src[indices[i]] + } +} +function array_getlastindex(src, count, indices) { + count = mkindices(src, indices) + if (count == 0) return 0 + return indices[count] +} +function array_add(dest, value, lastindex) { + lastindex = array_getlastindex(dest) + dest[lastindex + 1] = value +} +function array_deli(dest, i, l) { + i = int(i) + if (i == 0) return + l = array_len(dest) + while (i < l) { + dest[i] = dest[i + 1] + i++ + } + delete dest[l] +} +function array_del(dest, value, ignoreCase, i) { + do { + i = key_index(value, dest, ignoreCase) + if (i != 0) array_deli(dest, i) + } while (i != 0) +} +function array_extend(dest, src, count, lastindex, indices, i) { + lastindex = array_getlastindex(dest) + count = mkindices(src, indices) + for (i = 1; i <= count; i++) { + dest[lastindex + i] = src[indices[i]] + } +} +function array_fill(dest, i) { + array_new(dest) + for (i = 1; i <= NF; i++) { + dest[i] = $i + } +} +function array_getline(src, count, indices, i, j) { + $0 = "" + count = mkindices(src, indices) + for (i = 1; i <= count; i++) { + j = indices[i] + $j = src[j] + } +} +function array_appendline(src, count, indices, i, nf, j) { + count = mkindices(src, indices) + nf = NF + for (i = 1; i <= count; i++) { + j = nf + indices[i] + $j = src[indices[i]] + } +} +function in_array(value, values, ignoreCase, i) { + if (ignoreCase) { + value = tolower(value) + for (i in values) { + if (tolower(values[i]) == value) return 1 + } + } else { + for (i in values) { + if (values[i] == value) return 1 + } + } + return 0 +} +function key_index(value, values, ignoreCase, i) { + if (ignoreCase) { + value = tolower(value) + for (i in values) { + if (tolower(values[i]) == value) return int(i) + } + } else { + for (i in values) { + if (values[i] == value) return int(i) + } + } + return 0 +} +function array2s(values, prefix, sep, suffix, noindices, first, i, s) { + if (!prefix) prefix = "[" + if (!sep) sep = ", " + if (!suffix) suffix = "]" + s = prefix + first = 1 + for (i in values) { + if (first) first = 0 + else s = s sep + if (!noindices) s = s "[" i "]=" + s = s values[i] + } + s = s suffix + return s +} +function array2so(values, prefix, sep, suffix, noindices, count, indices, i, s) { + if (!prefix) prefix = "[" + if (!sep) sep = ", " + if (!suffix) suffix = "]" + s = prefix + count = mkindices(values, indices) + for (i = 1; i <= count; i++) { + if (i > 1) s = s sep + if (!noindices) s = s "[" indices[i] "]=" + s = s values[indices[i]] + } + s = s suffix + return s +} +function array_join(values, sep, prefix, suffix, count, indices, i, s) { + s = prefix + count = mkindices(values, indices) + for (i = 1; i <= count; i++) { + if (i > 1) s = s sep + s = s values[indices[i]] + } + s = s suffix + return s +} +function printto(s, output) { + if (output == "") { + print s + } else if (output ~ /^>>/) { + sub(/^>>/, "", output) + print s >>output + } else if (output ~ /^>/) { + sub(/^>/, "", output) + print s >output + } else { + print s >output + } +} +function find_line(input, field, value, orig, line) { + orig = $0 + line = "" + while ((getline 0) { + if ($field == value) { + line = $0 + break + } + } + close(input) + $0 = orig + return line +} +function merge_line(input, field, key, line) { + line = find_line(input, field, $key) + if (line != "") $0 = $0 FS line +} +function __csv_parse_quoted(line, destl, colsep, qchar, echar, pos, tmpl, nextc, resl) { + line = substr(line, 2) + resl = "" + while (1) { + pos = index(line, qchar) + if (pos == 0) { + resl = resl line + destl[0] = "" + destl[1] = 0 + return resl + } + if (echar != "" && pos > 1) { + prevc = substr(line, pos - 1, 1) + quotec = substr(line, pos, 1) + nextc = substr(line, pos + 1, 1) + if (prevc == echar) { + tmpl = substr(line, 1, pos - 2) + resl = resl tmpl quotec + line = substr(line, pos + 1) + continue + } + tmpl = substr(line, 1, pos - 1) + if (nextc == colsep || nextc == "") { + resl = resl tmpl + destl[0] = substr(line, pos + 2) + destl[1] = nextc == colsep + return resl + } else { + resl = resl tmpl quotec + line = substr(line, pos + 1) + } + } else { + tmpl = substr(line, 1, pos - 1) + quotec = substr(line, pos, 1) + nextc = substr(line, pos + 1, 1) + if (nextc == colsep || nextc == "") { + resl = resl tmpl + destl[0] = substr(line, pos + 2) + destl[1] = nextc == colsep + return resl + } else if (nextc == qchar) { + resl = resl tmpl quotec + line = substr(line, pos + 2) + } else { + resl = resl tmpl quotec + line = substr(line, pos + 1) + } + } + } +} +function __csv_parse_unquoted(line, destl, colsep, qchar, echar, pos) { + pos = index(line, colsep) + if (pos == 0) { + destl[0] = "" + destl[1] = 0 + return line + } else { + destl[0] = substr(line, pos + 1) + destl[1] = 1 + return substr(line, 1, pos - 1) + } +} +function __array_parsecsv(fields, line, nbfields, colsep, qchar, echar, shouldparse, destl, i) { + array_new(fields) + array_new(destl) + i = 1 + shouldparse = 0 + while (shouldparse || line != "") { + if (index(line, qchar) == 1) { + value = __csv_parse_quoted(line, destl, colsep, qchar, echar) + line = destl[0] + shouldparse = destl[1] + } else { + value = __csv_parse_unquoted(line, destl, colsep, qchar, echar) + line = destl[0] + shouldparse = destl[1] + } + fields[i] = value + i = i + 1 + } + if (nbfields) { + nbfields = int(nbfields) + i = array_len(fields) + while (i < nbfields) { + i++ + fields[i] = "" + } + } + return array_len(fields) +} +BEGIN { + DEFAULT_COLSEP = "," + DEFAULT_QCHAR = "\"" + DEFAULT_ECHAR = "" +} +function array_parsecsv2(fields, line, nbfields, colsep, qchar, echar) { + return __array_parsecsv(fields, line, nbfields, colsep, qchar, echar) +} +function array_parsecsv(fields, line, nbfields, colsep, qchar, echar) { + if (colsep == "") colsep = DEFAULT_COLSEP + if (qchar == "") qchar = DEFAULT_QCHAR + if (echar == "") echar = DEFAULT_ECHAR + return __array_parsecsv(fields, line, nbfields, colsep, qchar, echar) +} +function parsecsv(line, fields) { + array_parsecsv(fields, line) + array_getline(fields) + return NF +} +function getlinecsv(file, fields) { + if (file) { + getline 1) line = line colsep + if (qchar != "" && index(value, qchar) != 0) { + if (echar != "") gsub(qchar, quote_subrepl(echar) "&", value); + else gsub(qchar, "&&", value); + } + if (qchar != "" && (index(value, mvsep) != 0 || index(value, colsep) != 0 || index(value, qchar) != 0 || __csv_should_quote(value))) { + line = line qchar value qchar + } else { + line = line value + } + } + return line +} +function array_formatcsv(fields) { + return array_formatcsv2(fields, ",", ";", "\"", "") +} +function array_printcsv(fields, output) { + printto(array_formatcsv(fields), output) +} +function get_formatcsv( fields) { + array_fill(fields) + return array_formatcsv(fields) +} +function formatcsv() { + $0 = get_formatcsv() +} +function printcsv(output, fields) { + array_fill(fields) + array_printcsv(fields, output) +} +function array_findcsv(fields, input, field, value, nbfields, orig, found, i) { + array_new(orig) + array_fill(orig) + array_new(fields) + found = 0 + while ((getline 0) { + array_parsecsv(fields, $0, nbfields) + if (fields[field] == value) { + found = 1 + break + } + } + close(input) + array_getline(orig) + if (!found) { + delete fields + if (nbfields) { + nbfields = int(nbfields) + i = array_len(fields) + while (i < nbfields) { + i++ + fields[i] = "" + } + } + } + return found +} + +function __and(var, x, l_res, l_i) { + l_res=0; + for (l_i=0; l_i < 8; l_i++){ + if (var%2 == 1 && x%2 == 1) l_res=l_res/2 + 128; + else l_res/=2; + var=int(var/2); + x=int(x/2); + } + return l_res; +} +function __lshift(var, x) { + while(x > 0){ + var*=2; + x--; + } + return var; +} +function __rshift(var, x) { + while(x > 0){ + var=int(var/2); + x--; + } + return var; +} +BEGIN { + __BASE64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" +} +function b64decode(src, result, base1, base2, base3, base4) { + result = "" + while (length(src) > 0) { + base1 = substr(src, 1, 1) + base2 = substr(src, 2, 1) + base3 = substr(src, 3, 1); if (base3 == "") base3 = "=" + base4 = substr(src, 4, 1); if (base4 == "") base4 = "=" + byte1 = index(__BASE64, base1) - 1 + if (byte1 < 0) byte1 = 0 + byte2 = index(__BASE64, base2) - 1 + if (byte2 < 0) byte2 = 0 + byte3 = index(__BASE64, base3) - 1 + if (byte3 < 0) byte3 = 0 + byte4 = index(__BASE64, base4) - 1 + if (byte4 < 0) byte4 = 0 + result = result sprintf( "%c", __lshift(__and(byte1, 63), 2) + __rshift(__and(byte2, 48), 4) ) + if (base3 != "=") result = result sprintf( "%c", __lshift(__and(byte2, 15), 4) + __rshift(__and(byte3, 60), 2) ) + if (base4 != "=") result = result sprintf( "%c", __lshift(__and(byte3, 3), 6) + byte4 ) + src = substr(src, 5) + } + return result +} +' +function awkdef() { + [ -z "$__ULIB_NO_DISABLE_SET_X" ] && [[ $- == *x* ]] && { set +x; local __ULIB_AWKDEF_SET_X=1; } # désactiver set -x pour cette fonction + + if [ "${1:0:3}" == "-f" ]; then + shift + echo "$__AWKDEF_FUNCTIONS" + fi + if [ $# -gt 0 ]; then + local __ad_arg __ad_vpos __ad_name __ad_value + echo "BEGIN {" + while [ -n "${1:0:1}" ]; do + __ad_arg="${1:0:256}" + local __ad_array= + if [ "${__ad_arg%\[@\]}" != "$__ad_arg" ]; then + __ad_array=1 + __ad_name="${__ad_arg%\[@\]}" + [ -z "${__ad_name//[a-zA-Z0-9_]/}" ] || break + __ad_value="$__ad_name" + elif [[ "$__ad_arg" == *\[@\]=* ]]; then + __ad_array=1 + __ad_name="${__ad_arg%%\[@\]=*}" + [ -z "${__ad_name//[a-zA-Z0-9_]/}" ] || break + __ad_vpos=$((${#__ad_name} + 4)) + __ad_value="${1:$__ad_vpos}" + [ ${#__ad_value} -ne 0 ] || __ad_value="$__ad_name" + elif [[ "$__ad_arg" == *=* ]]; then + local __ad_int= __ad_str= + __ad_name="${__ad_arg%%=*}" + __ad_vpos=$((${#__ad_name} + 1)) + if [ "${__ad_name%:int}" != "$__ad_name" ]; then + __ad_int=1 + __ad_name="${__ad_name%:int}" + elif [ "${__ad_name%:str}" != "$__ad_name" ]; then + __ad_str=1 + __ad_name="${__ad_name%:str}" + fi + [ -z "${__ad_name//[a-zA-Z0-9_]/}" ] || break + __ad_value="${1:$__ad_vpos}" + if [ -n "$__ad_int" ]; then + echo "$__ad_name = int($(quoted_awk "$__ad_value") + 0)" + elif [ -n "$__ad_str" ]; then + echo "$__ad_name = $(quoted_awk "$__ad_value")" + elif [ ${#__ad_value} -lt 256 ] && isnum "$__ad_value"; then + echo "$__ad_name = $__ad_value" + else + echo "$__ad_name = $(quoted_awk "$__ad_value")" + fi + else + break + fi + if [ -n "$__ad_array" ]; then + if [ "${__ad_value:0:2}" == $'<\n' ]; then + local -a __ad_values + array_from_lines __ad_values "${__ad_value:2}" + __ad_value=__ad_values + fi + __ad_value="${__ad_value}[@]" + local __ad_i=1 + echo "$__ad_name[0] = 0; delete $__ad_name" + for __ad_arg in "${!__ad_value}"; do + echo "$__ad_name[$__ad_i]=$(quoted_awk "$__ad_arg")" + __ad_i=$(($__ad_i + 1)) + done + eval "echo \"\${__ad_name}_count = \${#$__ad_value}\"" + fi + shift + done + echo "}" + for __ad_arg in "$@"; do + rawecho "$__ad_arg" + done + fi + + [ -n "$__ULIB_AWKDEF_SET_X" ] && set -x; return 0 +} +function lawkrun() { + local -a __ar_defs __ar_args + while [ $# -gt 0 -a "$1" != "--" ]; do + __ar_defs=("${__ar_defs[@]}" "$1") + shift + done + shift + while [ $# -gt 0 ]; do + __ar_args=("${__ar_args[@]}" "$1") + shift + done + local __ar_script="$(awkdef "${__ar_defs[@]}")" + [ -n "$UTOOLS_AWKRUN_DEBUG" ] && estep "Script awkrun: $__ar_script" + awk "$__ar_script" "${__ar_args[@]}" +} +function cawkrun() { LANG=C lawkrun "$@"; } +function awkrun() { LANG=C lawkrun "$@"; } + +function __lf_get_age() { + local y=$(date "+%Y") + local dy=$(date "+%j"); while [ "${dy#0}" != "$dy" ]; do dy="${dy#0}"; done + [ -n "$dy" ] || dy=0 + local h=$(date "+%H"); while [ "${h#0}" != "$h" ]; do h="${h#0}"; done + [ -n "$h" ] || h=0 + echo $((($y * 365 + $dy) * 24 + $h)) +} +function lf_trylock() { + local eoo lockfile max_hours=4 + while [ -n "$1" ]; do + case "$1" in + -h) shift; max_hours="$1";; + --) shift; eoo=1;; + *) eoo=1;; + esac + [ -n "$eoo" ] && break + shift + done + + lockfile="$1" + [ -n "$lockfile" ] || die "il faut spécifier un fichier pour le verrou" + + local now="$(__lf_get_age)" + if (set -C; echo "$now" >"$lockfile") 2>/dev/null; then + return 0 + fi + local prev diff + if prev="$(<"$lockfile")"; then + diff="$(($now - $prev))" + if [ "$diff" -gt "$max_hours" ]; then + echo stale + else + echo locked + fi + elif [ -f "$lockfile" ]; then + echo retry + fi + return 1 +} +function pidfile_set() { + local eoo pidfile pid=$$ replace= + while [ -n "$1" ]; do + case "$1" in + -p) + shift + pid="$1" + ;; + -r) + replace=1 + ;; + --) + shift + eoo=1 + ;; + *) + eoo=1 + ;; + esac + [ -n "$eoo" ] && break + shift + done + + pidfile="$1" + [ -n "$pidfile" ] || return 10 + + if [ -f "$pidfile" ]; then + local curpid="$(<"$pidfile")" + if is_running "$curpid"; then + return 1 + elif [ -n "$replace" ]; then + /bin/rm -f "$pidfile" || return 10 + else + return 2 + fi + fi + + echo_ "$pid" >"$pidfile" || return 10 + autoclean "$pidfile" + return 0 +} +function pidfile_check() { + local pidfile="$1" + [ -n "$pidfile" ] || return 10 + + if [ -f "$pidfile" ]; then + [ -r "$pidfile" ] || return 10 + local pid="$(<"$pidfile")" + is_running "$pid" && return 0 + fi + return 1 +} +function page_maybe() { + if isatty; then + less -XF "$@" + else + cat + fi +} + + +function utools_local() { + local arg + [ $# -gt 0 ] || set -- opts verbosity interaction + for arg in "$@"; do + case "$arg" in + parse_opts|opts|o|args) echo "local -a args";; + verbosity|v) echo "local __verbosity='$__verbosity'";; + interaction|i) echo "local __interaction='$__interaction'";; + esac + done +} + +function stdredir() { + local __redirs __in __out __err + if [ -n "$1" -o "$1" == /dev/stdin ]; then + if [ "${1#<}" != "$1" ]; then + __in="${1#<}" + else + __in="$1" + fi + __redirs="$__redirs"' <"$__in"' + fi; shift + if [ -n "$1" -o "$1" == /dev/stdout ]; then + if [ "${1#>>}" != "$1" ]; then + __out="${1#>>}" + __redirs="$__redirs"' >>"$__out"' + elif [ "${1#>}" != "$1" ]; then + __out="${1#>}" + __redirs="$__redirs"' >"$__out"' + else + __out="$1" + __redirs="$__redirs"' >"$__out"' + fi + fi; shift + if [ -n "$1" -o "$1" == /dev/stderr ]; then + if [ "${1#>>}" != "$1" ]; then + __err="${1#>>}" + __redirs="$__redirs"' 2>>"$__err"' + elif [ "${1#>}" != "$1" ]; then + __err="${1#>}" + __redirs="$__redirs"' 2>"$__err"' + else + __err="$1" + __redirs="$__redirs"' 2>"$__err"' + fi + fi; shift + eval '"$@"'"$__redirs" +} + +function isatty() { + tty -s <&1 +} +function in_isatty() { + tty -s +} +function out_isatty() { + tty -s <&1 +} +function err_isatty() { + tty -s <&2 +} +function die() { [ $# -gt 0 ] && eerror "$@"; exit 1; } +function exit_with { if [ $# -gt 0 ]; then "$@"; fi; exit $?; } +function die_with { [ $# -gt 0 ] && eerror "$1"; shift; [ $# -gt 0 ] && "$@"; exit 1; } +function die_unless() { + local count=$# + if [ $count -eq 0 ]; then + exit 1 + elif [ $count -eq 1 ]; then + "$@" || exit $? + else + local m r + m="${@:$count}" + count=$(($count - 1)) + set -- "${@:1:$count}" + if "$@"; then + : + else + r=$? + eerror "$m" + exit $r + fi + fi +} +function eerror_unless() { + local count=$# + if [ $count -eq 0 ]; then + return 1 + elif [ $count -eq 1 ]; then + "$@" || return $? + else + local m r + m="${@:$count}" + count=$(($count - 1)) + set -- "${@:1:$count}" + if "$@"; then + : + else + r=$? + eerror "$m" + return $r + fi + fi +} +function die_if() { + local count=$# + if [ $count -eq 0 ]; then + : + elif [ $count -eq 1 ]; then + "$@" && exit 1 + else + local m r + m="${@:$count}" + count=$(($count - 1)) + set -- "${@:1:$count}" + if "$@"; then + eerror "$m" + exit 1 + fi + fi +} +function eerror_if() { + local count=$# + if [ $count -eq 0 ]; then + : + elif [ $count -eq 1 ]; then + "$@" && return 1 + else + local m r + m="${@:$count}" + count=$(($count - 1)) + set -- "${@:1:$count}" + if "$@"; then + eerror "$m" + return 1 + fi + fi +} + +function noerror() { + [ $# -gt 0 ] || set : + "$@" || return 0 +} +function noout() { + [ $# -gt 0 ] || return 0 + "$@" >/dev/null +} +function noerr() { + [ $# -gt 0 ] || return 0 + "$@" 2>/dev/null +} + +TAB=$'\t' +LATIN1=iso-8859-1 +LATIN9=iso-8859-15 +UTF8=utf-8 +OENC="$UTF8" + +if ! progexists iconv; then + function iconv() { cat; } +fi + +function __lang_encoding() { + local lang="$(<<<"$LANG" awk '{ print tolower($0) }')" + case "$lang" in + *@euro) echo "iso-8859-15";; + *.utf-8|*.utf8) echo "utf-8";; + *) echo "iso-8859-1";; + esac +} +function __norm_encoding() { + awk '{ + enc = tolower($0) + gsub(/^latin$/, "latin1", enc) + gsub(/^latin1$/, "iso-8859-1", enc) + gsub(/^latin9$/, "iso-8859-15", enc) + gsub(/[-_]/, "", enc) + if (enc == "iso8859" || enc == "iso88591" || enc == "8859" || enc == "88591") print "iso-8859-1" + else if (enc == "iso885915" || enc == "885915") print "iso-8859-15" + else if (enc == "utf" || enc == "utf8") print "utf-8" + else print $0 + }' <<<"$1" +} +function __init_encoding() { + local DEFAULT_ENCODING="$(__lang_encoding)" + [ -n "$DEFAULT_ENCODING" ] || DEFAULT_ENCODING=utf-8 + [ -n "$UTOOLS_OUTPUT_ENCODING" ] || UTOOLS_OUTPUT_ENCODING="$DEFAULT_ENCODING" + UTOOLS_OUTPUT_ENCODING="$(__norm_encoding "$UTOOLS_OUTPUT_ENCODING")" + [ -n "$UTOOLS_INPUT_ENCODING" ] || UTOOLS_INPUT_ENCODING="$UTOOLS_OUTPUT_ENCODING" + UTOOLS_INPUT_ENCODING="$(__norm_encoding "$UTOOLS_INPUT_ENCODING")" + [ -n "$UTOOLS_EDITOR_ENCODING" ] || UTOOLS_EDITOR_ENCODING="$UTOOLS_INPUT_ENCODING" + UTOOLS_EDITOR_ENCODING="$(__norm_encoding "$UTOOLS_EDITOR_ENCODING")" + + IENC="$UTOOLS_INPUT_ENCODING" + OENC="$UTOOLS_OUTPUT_ENCODING" +} + +if [ -n "$UTOOLS_LANG" -a -z "$LANG" ]; then + export UTOOLS_LANG + export LANG="$UTOOLS_LANG" +fi +__init_encoding + +function tooenc() { + local src="$1" from="${2:-$OENC}" to="${3:-$UTOOLS_OUTPUT_ENCODING}" + if [ "$from" == "$to" ]; then + rawecho "$src" + else + iconv -f "$from" -t "$to" <<<"$src" + fi +} +function uecho() { + tooenc "$*" +} +function tooenc_() { + local src="$1" from="${2:-$OENC}" to="${3:-$UTOOLS_OUTPUT_ENCODING}" + if [ "$from" == "$to" ]; then + rawecho_ "$src" + else + rawecho_ "$src" | iconv -f "$from" -t "$to" + fi +} +function uecho_() { + tooenc_ "$*" +} +function toienc() { + local __tie_var="$1" __tie_to="${2:-$IENC}" __tie_from="${3:-$UTOOLS_INPUT_ENCODING}" + if [ "$__tie_from" != "$__tie_to" ]; then + set_var "$__tie_var" "$(iconv -f "$__tie_from" -t "$__tie_to" <<<"${!__tie_var}")" + fi +} +function uread() { + [ $# -gt 0 ] || set -- REPLY + local __r_var + read "$@" + for __r_var in "$@"; do + [ -z "$__r_var" -o "${__r_var:0:1}" == "-" ] && continue # ignorer les options + toienc "$__r_var" + done +} + +function stooenc() { + local from="${1:-$OENC}" to="${2:-$UTOOLS_OUTPUT_ENCODING}" + if [ "$from" == "$to" ]; then + cat + else + iconv -f "$from" -t "$to" + fi +} +function stoienc() { + local to="${1:-$IENC}" from="${2:-$UTOOLS_INPUT_ENCODING}" + if [ "$from" == "$to" ]; then + cat + else + iconv -f "$from" -t "$to" + fi +} + +export UTOOLS_EDATE +function __edate() { [ -n "$UTOOLS_EDATE" ] && date +"[%d/%m/%Y-%H:%M:%S] "; } + +export UTOOLS_ELOG_OVERWRITE +function __set_no_colors() { :; } +function elogto() { + UTOOLS_EDATE=1 + if [ -n "$1" -a -n "$2" ]; then + LANG=fr_FR.UTF8 + UTOOLS_OUTPUT_ENCODING="$UTF8" + __set_no_colors 1 + if [ -n "$UTOOLS_ELOG_OVERWRITE" ]; then + exec >"$1" 2>"$2" + else + exec >>"$1" 2>>"$2" + fi + elif [ -n "$1" ]; then + LANG=fr_FR.UTF8 + UTOOLS_OUTPUT_ENCODING="$UTF8" + __set_no_colors 1 + if [ -n "$UTOOLS_ELOG_OVERWRITE" ]; then + exec >"$1" 2>&1 + else + exec >>"$1" 2>&1 + fi + fi +} + +export __estack __tlevel +function __indent() { + if [ "${1/ +/}" != "$1" ]; then + sed "2,\$s/^/${__tlevel}/g" <<<"$1" + else + rawecho "$1" + fi +} +function __eerror() { tooenc "$(__edate)${__tlevel}ERROR $(__indent "$1")"; } +function __ewarn() { tooenc "$(__edate)${__tlevel}WARNING $(__indent "$1")"; } +function __enote() { tooenc "$(__edate)${__tlevel}NOTE $(__indent "$1")"; } +function __ebanner() { + local maxi="${COLUMNS:-80}" + local -a lines + local psfix line + + psfix="$(__edate)${__tlevel}" + while [ ${#psfix} -lt $maxi ]; do psfix="$psfix="; done + + tooenc "$psfix" + maxi=$(($maxi - 1)) + array_from_xlines lines "$1" + for line in "" "${lines[@]}" ""; do + line="$(__edate)${__tlevel}= $line" + if [ ${#line} -le $maxi ]; then + while [ ${#line} -lt $maxi ]; do line="$line "; done + line="$line=" + fi + tooenc "$line" + done + tooenc "$psfix" +} +function __eimportant() { tooenc "$(__edate)${__tlevel}IMPORTANT $(__indent "$1")"; } +function __eattention() { tooenc "$(__edate)${__tlevel}ATTENTION $(__indent "$1")"; } +function __einfo() { tooenc "$(__edate)${__tlevel}INFO $(__indent "$1")"; } +function __eecho() { tooenc "$(__edate)${__tlevel}$(__indent "$1")"; } +function __eecho_() { tooenc_ "$(__edate)${__tlevel}$(__indent "$1")"; } +function __edebug() { tooenc "$(__edate)${__tlevel}DEBUG $(__indent "$1")"; } +function __estep() { tooenc "$(__edate)${__tlevel}. $(__indent "$1")"; } +function __estepe() { tooenc "$(__edate)${__tlevel}.E $(__indent "$1")"; } +function __estepw() { tooenc "$(__edate)${__tlevel}.W $(__indent "$1")"; } +function __estepn() { tooenc "$(__edate)${__tlevel}.N $(__indent "$1")"; } +function __estepi() { tooenc "$(__edate)${__tlevel}.I $(__indent "$1")"; } +function __estep_() { tooenc_ "$(__edate)${__tlevel}. $(__indent "$1")"; } +function __estepe_() { tooenc_ "$(__edate)${__tlevel}.E $(__indent "$1")"; } +function __estepw_() { tooenc_ "$(__edate)${__tlevel}.W $(__indent "$1")"; } +function __estepn_() { tooenc_ "$(__edate)${__tlevel}.N $(__indent "$1")"; } +function __estepi_() { tooenc_ "$(__edate)${__tlevel}.I $(__indent "$1")"; } +function __etitle() { tooenc "$(__edate)${__tlevel}=== $(__indent "$1")"; } +function __ebegin() { tooenc_ "$(__edate)${__tlevel}. $(__indent "$1"): "; } +function __edoto() { echo_ "."; } +function __edotw() { echo_ "w"; } +function __edotx() { echo_ "x"; } +function __edotp() { echo_ "+"; } +function __edotd() { tooenc "($1)"; } +function __eendo() { echo "[ok]"; } +function __eendx() { echo "[error]"; } +PRETTYOPTS=() +function set_verbosity() { :;} +function set_interaction() { :;} +function show_error() { + return 0 +} +function show_warn() { + return 0 +} +function show_info() { + return 0 +} +function show_verbose() { + return 0 +} +function show_debug() { + [ -n "$DEBUG" ] +} +function check_verbosity() { + return 0 +} +function get_verbosity_option() { :;} +function check_interaction() { + return 0 +} +function is_interaction() { + return 1 +} +function get_interaction_option() { :;} +__epending= +function eflush() { + if [ -n "$__epending" ]; then rawecho "$__epending" 1>&2; __epending=; fi +} +function eclearp() { + __epending= +} +function eerror() { + show_error || return; eflush; __eerror "$*" 1>&2 +} +function ewarn() { + show_warn || return; eflush; __ewarn "$*" 1>&2 +} +function enote() { + show_info || return; eflush; __enote "$*" 1>&2 +} +function ebanner() { + show_error || return; eflush; __ebanner "$*" 1>&2; sleep 5 +} +function eimportant() { + show_error || return; eflush; __eimportant "$*" 1>&2 +} +function eattention() { + show_warn || return; eflush; __eattention "$*" 1>&2 +} +function einfo() { + show_info || return; eflush; __einfo "$*" 1>&2 +} +function eecho() { + show_info || return; eflush; __eecho "$*" 1>&2 +} +function eecho_() { + show_info || return; eflush; __eecho_ "$*" 1>&2 +} +function edebug() { + show_debug || return; eflush; __edebug "$*" 1>&2 +} +function trace() { + local r cmd="$(quoted_args "$@")" + show_info && { eflush; __eecho "\$ $cmd" 1>&2; } + "$@"; r=$? + if [ $r -ne 0 ]; then + if show_info; then + eflush; __eecho "^ [EC #$r]" 1>&2 + elif show_error; then + eflush; __eecho "^ $cmd [EC #$r]" 1>&2; + fi + fi + return $r +} +function trace_error() { + local r + "$@"; r=$? + if [ $r -ne 0 ]; then + local cmd="$(quoted_args "$@")" + show_error && { eflush; __eecho "^ $cmd [EC #$r]" 1>&2; } + fi + return $r +} + +function etitle() { + local __t_deferred= + __t_etitle "$@" +} +function etitled() { + local __t_deferred=1 + __t_etitle "$@" +} +function __t_etitle() { + local __t_eend=default + local __t_clearp= + while [ -n "$1" ]; do + if [ "$1" == "--" ]; then + shift + break + elif [ "$1" == "-s" ]; then + __t_eend= + shift + elif [ "$1" == "--eend" ]; then + __t_eend=1 + shift + elif [ "$1" == "-p" ]; then + __t_clearp=1 + shift + else + break + fi + done + local __t_title="$1"; shift + local __t_s=0 + [ -n "$__estack" ] && __tlevel="${__tlevel} " + __estack="$__estack:t" + if show_info; then + if [ -n "$__t_deferred" ]; then + __epending="${__epending:+$__epending +}$(__etitle "$__t_title")" + else + eflush + __etitle "$__t_title" 1>&2 + fi + fi + if [ $# -gt 0 ]; then + "$@" + __t_s=$? + [ "$__t_eend" == "default" ] && __t_eend=1 + fi + [ "$__t_eend" == "default" ] && __t_eend= + if [ -n "$__t_eend" ]; then + eend $__t_s + [ -n "$__t_clearp" ] && eclearp + fi + return $__t_s +} +function estep() { + show_info || return; eflush; __estep "$*" 1>&2 +} +function estepe() { + show_info || return; eflush; __estepe "$*" 1>&2 +} +function estepw() { + show_info || return; eflush; __estepw "$*" 1>&2 +} +function estepn() { + show_info || return; eflush; __estepn "$*" 1>&2 +} +function estepi() { + show_info || return; eflush; __estepi "$*" 1>&2 +} +function estep_() { + show_info || return; eflush; __estep_ "$*" 1>&2 +} +function estepe_() { + show_info || return; eflush; __estepe_ "$*" 1>&2 +} +function estepw_() { + show_info || return; eflush; __estepw_ "$*" 1>&2 +} +function estepn_() { + show_info || return; eflush; __estepn_ "$*" 1>&2 +} +function estepi_() { + show_info || return; eflush; __estepi_ "$*" 1>&2 +} +function ebegin() { + local __b_eend=default + while [ -n "$1" ]; do + if [ "$1" == "--" ]; then + shift + break + elif [ "$1" == "-s" ]; then + __b_eend= + shift + elif [ "$1" == "--eend" ]; then + __b_eend=1 + shift + else + break + fi + done + local __b_msg="$1"; shift + local __b_s=0 + __estack="$__estack:b" + if show_info; then + eflush + __ebegin "$__b_msg" 1>&2 + fi + if [ $# -gt 0 ]; then + "$@" + __b_s=$? + [ "$__b_eend" == "default" ] && __b_eend=1 + fi + [ "$__b_eend" == "default" ] && __b_eend= + [ -n "$__b_eend" ] && eend $__b_s + return $__b_s +} +function edot() { + local s=$? + show_info || return + eflush + [ -n "$1" ] && s="$1" + shift + if [ "$s" == "0" ]; then + __edoto 1>&2 + else + __edotx 1>&2 + fi + show_verbose && [ $# -gt 0 ] && __edotd "$*" 1>&2 + return $s +} +function edotw() { + local s=$? + show_info || return + eflush + [ -n "$1" ] && s="$1" + shift + __edotw 1>&2 + show_verbose && [ $# -gt 0 ] && __edotd "$*" 1>&2 + return $s +} +function ewait() { + [ -n "$1" ] || return 1 + if show_info; then + local count=2 + eflush + little_sleep # certains processus retournent tout de suite + while is_running "$1"; do + sleep 1 + if [ $count -gt 0 ]; then + count=$(($count - 1)) + else + __edotp 1>&2 + fi + done + __edoto 1>&2 + else + wait "$1" + fi +} +function eend() { + local s=$? + if [ "$1" == "-c" ]; then + __estack= + __tlevel= + elif [ "${__estack%:b}" != "$__estack" ]; then + __estack="${__estack%:b}" + show_info || return + eflush + [ -n "$1" ] && s="$1" + if [ "$s" == "0" ]; then + __eendo 1>&2 + else + __eendx 1>&2 + fi + elif [ "${__estack%:t}" != "$__estack" ]; then + __estack="${__estack%:t}" + __tlevel="${__tlevel% }" + fi +} +function __elinedots() { + ebegin "$1" + local line + if show_debug; then + while read line; do + __edoto 1>&2 + __edotd "$line" 1>&2 + done + else + while read line; do + __edoto 1>&2 + done + fi + eend +} +function elinedots() { + local msg="$1"; shift + if [ $# -gt 0 ]; then + "$@" | __elinedots "$msg" + else + __elinedots "$msg" + fi +} +function ask_yesno() { + local interactive=1 + if [[ "$1" == -* ]]; then + if [ "$1" != -- ]; then + check_interaction "$1" || interactive= + fi + shift + else + check_interaction -c || interactive= + fi + local default="${2:-N}" + if [ "$default" == "C" ]; then + [ -n "$interactive" ] && default=N || default=O + elif [ "$default" == "X" ]; then + [ -n "$interactive" ] && default=O || default=N + fi + if [ -n "$interactive" ]; then + eflush + local message="$1" + local prompt="[oN]" + local r + is_yes "$default" && prompt="[On]" + if [ -n "$message" ]; then + __eecho_ "$message" 1>&2 + else + OENC="$UTF8" __eecho_ "Voulez-vous continuer?" 1>&2 + fi + OENC="$UTF8" tooenc_ " $prompt " 1>&2 + uread r + is_yes "${r:-$default}" + else + is_yes "$default" + fi +} +function ask_any() { + local interactive=1 + if [[ "$1" == -* ]]; then + if [ "$1" != -- ]; then + check_interaction "$1" || interactive= + fi + shift + else + check_interaction -c || interactive= + fi + local format="${2:-+Oq}" + format="${format/+O/On}" + format="${format/+N/oN}" + if [ -n "$interactive" ]; then + format="${format/+C/oN}" + format="${format/+X/On}" + else + format="${format/+C/On}" + format="${format/+X/oN}" + fi + local i count="${#format}" + + if [ -n "$interactive" ]; then + eflush + local message="${1:-Voulez-vous continuer?}" + local prompt="[$format]" + local r f lf defi + while true; do + __eecho_ "$message $prompt " 1>&2 + uread r + r="$(strlower "${r:0:1}")" + i=0; defi= + while [ $i -lt $count ]; do + f="${format:$i:1}" + lf="$(strlower "$f")" + [ "$r" == "$lf" ] && return $i + if [ -z "$defi" ]; then + [[ "$f" =~ [A-Z] ]] && defi="$i" + fi + if [ "$lf" == o ]; then + case "$r" in o|y|1|v|t) return $i;; esac + elif [ "$lf" == n ]; then + case "$r" in n|f|0) return $i;; esac + fi + i=$(($i + 1)) + done + [ -z "$r" ] && return ${defi:-0} + done + else + i=0 + while [ $i -lt $count ]; do + [[ "${format:$i:1}" =~ [A-Z] ]] && return $i + i=$(($i + 1)) + done + return 0 + fi +} +function read_value() { + local -a __rv_opts __rv_readline=1 __rv_showdef=1 __rv_nl= + __rv_opts=() + [ -n "$UTOOLS_NO_READLINE" ] && __rv_readline= + __rv_read "$@" +} +function read_password() { + local -a __rv_opts __rv_readline= __rv_showdef= __rv_nl=1 + __rv_opts=(-s) + __rv_read "$@" +} +function __rv_read() { + local __rv_int=1 + if [[ "$1" == -* ]]; then + if [ "$1" != -- ]; then + check_interaction "$1" || __rv_int= + fi + shift + else + check_interaction -c || __rv_int= + fi + local __rv_msg="$1" __rv_v="${2:-value}" __rv_d="$3" __rv_re="${4:-O}" + if [ -z "$__rv_int" ]; then + if is_yes "$__rv_re" && [ -z "$__rv_d" ]; then + OENC="$UTF8" eerror "La valeur par défaut de $__rv_v doit être non vide" + return 1 + fi + set_var "$__rv_v" "$__rv_d" + return 0 + fi + + eflush + local __rv_r + while true; do + if [ -n "$__rv_msg" ]; then + __eecho_ "$__rv_msg" 1>&2 + else + OENC="$UTF8" __eecho_ "Entrez la valeur" 1>&2 + fi + if [ -n "$__rv_readline" ]; then + OENC="$UTF8" tooenc_ ": " 1>&2 + uread -e ${__rv_d:+-i"$__rv_d"} "${__rv_opts[@]}" __rv_r + else + if [ -n "$__rv_d" ]; then + if [ -n "$__rv_showdef" ]; then + tooenc_ " [$__rv_d]" 1>&2 + else + tooenc_ " [****]" 1>&2 + fi + fi + OENC="$UTF8" tooenc_ ": " 1>&2 + uread "${__rv_opts[@]}" __rv_r + [ -n "$__rv_nl" ] && echo + fi + __rv_r="${__rv_r:-$__rv_d}" + if [ -n "$__rv_r" ] || ! is_yes "$__rv_re"; then + set_var "$__rv_v" "$__rv_r" + return 0 + fi + done +} +function simple_menu() { + local __sm_title= __sm_yourchoice= __sm_default= + local -a __sm_args + parse_opts -t: __sm_title= -m: __sm_yourchoice= -d: __sm_default= @ __sm_args -- "$@" && + set -- "${__sm_args[@]}" || ewarn "$__sm_args" + + local __sm_option_var="${1:-option}" __sm_options_var="${2:-options}" + local __sm_option __sm_options + __sm_options="$__sm_options_var[*]" + if [ -z "${!__sm_options}" ]; then + OENC="$UTF8" eerror "Le tableau $__sm_options_var doit être non vide" + return 1 + fi + [ -z "$__sm_default" ] && __sm_default="${!__sm_option_var}" + + eflush + array_copy __sm_options "$__sm_options_var" + local __sm_c=0 __sm_i __sm_choice + while true; do + if [ "$__sm_c" == "0" ]; then + [ -n "$__sm_title" ] && __eecho "=== $__sm_title ===" 1>&2 + __sm_i=1 + for __sm_option in "${__sm_options[@]}"; do + if [ "$__sm_option" == "$__sm_default" ]; then + __eecho "$__sm_i*- $__sm_option" 1>&2 + else + __eecho "$__sm_i - $__sm_option" 1>&2 + fi + let __sm_i=$__sm_i+1 + done + fi + + if [ -n "$__sm_yourchoice" ]; then + __eecho_ "$__sm_yourchoice" 1>&2 + else + OENC="$UTF8" __eecho_ "Entrez le numéro de l'option choisie" 1>&2 + fi + OENC="$UTF8" tooenc_ ": " 1>&2 + uread __sm_choice + + if [ -z "$__sm_choice" -a -n "$__sm_default" ]; then + __sm_option="$__sm_default" + break + fi + if [ -n "$__sm_choice" -a -z "${__sm_choice//[0-9]/}" ]; then + if [ "$__sm_choice" -gt 0 -a "$__sm_choice" -le "${#__sm_options[*]}" ]; then + __sm_option="${__sm_options[$(($__sm_choice - 1))]}" + break + else + OENC="$UTF8" eerror "Numéro d'option incorrect" + fi + else + OENC="$UTF8" eerror "Vous devez saisir le numéro de l'option choisie" + fi + + let __sm_c=$__sm_c+1 + if [ "$__sm_c" -eq 5 ]; then + OENC="$UTF8" tooenc "" 1>&2 + __sm_c=0 + fi + done + set_var "$__sm_option_var" "$__sm_option" +} + +function actions_menu() { + local -a __am_action_descs __am_options __am_void_actions + local __am_tmp __am_select_action __am_select_option __am_title __am_optyc __am_actyc + local __am_default_action=auto __am_quit_action=auto + local __am_default_option= + local -a __am_args + parse_opts \ + -t: __am_title= \ + -m: __am_optyc= \ + -M: __am_actyc= \ + -e: __am_void_actions \ + -d: __am_default_action= \ + -q: __am_quit_action= \ + -o: __am_default_option= \ + @ __am_args -- "$@" && set -- "${__am_args[@]}" || { eerror "$__am_args"; return 1; } + + __am_tmp="${1:-action}"; __am_select_action="${!__am_tmp}" + __am_tmp="${2:-option}"; __am_select_option="${!__am_tmp}" + [ -n "$__am_default_option" ] && __am_select_option="$__am_default_option" + array_copy __am_action_descs "${3:-actions}" + array_copy __am_options "${4:-options}" + + eerror_unless [ ${#__am_action_descs[*]} -gt 0 ] "Vous devez spécifier le tableau des actions" || return + __actions_menu || return 1 + setv "${1:-action}" "$__am_select_action" + setv "${2:-option}" "$__am_select_option" +} +function __actions_menu() { + local title="$__am_title" + local optyc="$__am_optyc" actyc="$__am_actyc" + local default_action="$__am_default_action" + local quit_action="$__am_quit_action" + local select_action="$__am_select_action" + local select_option="$__am_select_option" + local -a action_descs options void_actions + array_copy action_descs __am_action_descs + array_copy options __am_options + array_copy void_actions __am_void_actions + + local no_options + array_isempty options && no_options=1 + + local -a actions + local tmp action name + for tmp in "${action_descs[@]}"; do + splitfsep2 "$tmp" : action name + [ -n "$action" ] || action="${name:0:1}" + action="$(strlower "$action")" + array_addu actions "$action" + done + + if [ "$default_action" == auto ]; then + default_action="$select_action" + if [ -n "$default_action" ]; then + array_contains actions "$default_action" || default_action= + fi + [ -n "$default_action" ] || default_action="${actions[0]}" + fi + default_action="${default_action:0:1}" + default_action="$(strlower "$default_action")" + + if [ "$quit_action" == auto ]; then + if [ ${#actions[*]} -gt 1 ]; then + quit_action="${actions[@]:$((-1)):1}" + array_addu void_actions "$quit_action" + fi + fi + quit_action="${quit_action:0:1}" + quit_action="$(strlower "$quit_action")" + + local action_title + for tmp in "${action_descs[@]}"; do + splitfsep2 "$tmp" : action name + [ -n "$action" ] || action="${name:0:1}" + [ -n "$name" ] || name="$action" + action="$(strlower "$action")" + if [ -n "$no_options" ]; then + if ! array_contains void_actions "$action"; then + array_del actions "$action" + continue + fi + fi + [ "$action" == "$default_action" ] && name="$name*" + action_title="${action_title:+$action_title/}$name" + done + if [ -n "$default_action" ]; then + array_contains actions "$default_action" || default_action= + fi + if [ -n "$quit_action" ]; then + array_contains actions "$quit_action" || quit_action= + fi + + if [ -n "$no_options" ]; then + if array_isempty void_actions; then + eerror "Aucune option n'est définie. Il faut définir le tableau des actions vides" + return 1 + fi + __void_actions_menu + else + __options_actions_menu + fi +} +function __void_actions_menu() { + eflush + local c=0 choice + while true; do + if [ $c -eq 0 ]; then + [ -n "$title" ] && __etitle "$title" 1>&2 + __eecho_ "=== Actions disponibles: " 1>&2 + tooenc "$action_title" 1>&2 + fi + if [ -n "$actyc" ]; then + __eecho_ "$actyc" 1>&2 + elif [ -n "$optyc" ]; then + __eecho_ "$optyc" 1>&2 + else + __eecho_ "Entrez l'action à effectuer" 1>&2 + fi + tooenc_ ": " 1>&2 + uread choice + if [ -z "$choice" -a -n "$default_action" ]; then + select_action="$default_action" + break + fi + + choice="${choice:0:1}" + choice="$(strlower "$choice")" + if array_contains actions "$choice"; then + select_action="$choice" + break + elif [ -n "$choice" ]; then + eerror "$choice: action incorrecte" + else + eerror "vous devez saisir l'action à effectuer" + fi + let c=$c+1 + if [ $c -eq 5 ]; then + tooenc "" 1>&2 + c=0 + fi + done + __am_select_action="$select_action" + __am_select_option= +} +function __options_actions_menu() { + eflush + local c=0 option choice action option + while true; do + if [ $c -eq 0 ]; then + [ -n "$title" ] && __etitle "$title" 1>&2 + i=1 + for option in "${options[@]}"; do + if [ "$option" == "$select_option" ]; then + tooenc "$i*- $option" 1>&2 + else + tooenc "$i - $option" 1>&2 + fi + let i=$i+1 + done + __estepn_ "Actions disponibles: " 1>&2 + tooenc "$action_title" 1>&2 + fi + if [ -n "$optyc" ]; then + __eecho_ "$optyc" 1>&2 + else + __eecho_ "Entrez l'action et le numéro de l'option choisie" 1>&2 + fi + tooenc_ ": " 1>&2 + uread choice + + if [ -z "$choice" -a -n "$default_action" ]; then + action="$default_action" + if array_contains void_actions "$action"; then + select_action="$action" + select_option= + break + elif [ -n "$select_option" ]; then + select_action="$action" + break + fi + fi + action="${choice:0:1}" + action="$(strlower "$action")" + if array_contains actions "$action"; then + if array_contains void_actions "$action"; then + select_action="$action" + select_option= + break + else + option="${choice:1}" + option="${option// /}" + if [ -z "$option" -a -n "$select_option" ]; then + select_action="$action" + break + elif [ -z "$option" ]; then + eerror "vous devez saisir le numéro de l'option" + elif isnum "$option"; then + if [ $option -gt 0 -a $option -le ${#options[*]} ]; then + select_action="$action" + select_option="${options[$(($option - 1))]}" + break + fi + else + eerror "$option: numéro d'option incorrecte" + fi + fi + elif isnum "$choice"; then + action="$default_action" + if [ -n "$action" ]; then + if array_contains void_actions "$action"; then + select_action="$action" + select_option= + break + else + option="${choice// /}" + if [ -z "$option" ]; then + eerror "vous devez saisir le numéro de l'option" + elif isnum "$option"; then + if [ $option -gt 0 -a $option -le ${#options[*]} ]; then + select_action="$action" + select_option="${options[$(($option - 1))]}" + break + fi + else + eerror "$option: numéro d'option incorrecte" + fi + fi + else + eerror "Vous devez spécifier l'action à effectuer" + fi + elif [ -n "$choice" ]; then + eerror "$choice: action et/ou option incorrecte" + else + eerror "vous devez saisir l'action à effectuer" + fi + let c=$c+1 + if [ $c -eq 5 ]; then + tooenc "" 1>&2 + c=0 + fi + done + __am_select_action="$select_action" + __am_select_option="$select_option" +} + + +function __ac_forgetall() { __ac_files=(); } +__ac_forgetall +function __ac_trap() { + local file + for file in "${__ac_files[@]}"; do + [ -e "$file" ] && rm -rf "$file" 2>/dev/null + done + __ac_forgetall +} +trap __ac_trap 1 3 15 EXIT +function autoclean() { + local file + for file in "$@"; do + [ -n "$file" ] && array_add __ac_files "$file" + done +} +function ac_cleanall() { + __ac_trap +} +function ac_clean() { + local file + for file in "$@"; do + if array_contains __ac_files "$file"; then + [ -e "$file" ] && rm -rf "$file" 2>/dev/null + array_del __ac_files "$file" + fi + done +} +function ac_set_tmpfile() { + local __acst_d + if show_debug; then + if [ -n "$5" ]; then + is_yes "${!5}" && __acst_d=1 + else + __acst_d=1 + fi + fi + if [ -n "$__acst_d" -a -n "$3" ]; then + set_var "$1" "$3" + [ -f "$3" -a "$4" == keep ] || >"$3" + else + local __acst_t="$(mktempf "$2")" + autoclean "$__acst_t" + set_var "$1" "$__acst_t" + fi +} +function ac_set_tmpdir() { + local __acst_d + if show_debug; then + if [ -n "$4" ]; then + is_yes "${!4}" && __acst_d=1 + else + __acst_d=1 + fi + fi + if [ -n "$__acst_d" -a -n "$3" ]; then + set_var "$1" "$3" + mkdir -p "$3" + else + local __acst_t="$(mktempd "$2")" + autoclean "$__acst_t" + set_var "$1" "$__acst_t" + fi +} +function debug_tee() { + if show_debug; then + tee "$@" + else + cat + fi +} + + +function get_user_defaults_file() { + if [ -r "$HOME/etc/default.${HOSTNAME%%.*}/$1" ]; then + echo "$HOME/etc/default.${HOSTNAME%%.*}/$1" + elif [ -r "$HOME/etc/default/$1" ]; then + echo "$HOME/etc/default/$1" + elif [ -n "$UTOOLS_LOCAL_PROFILES" ]; then + echo "$HOME/etc/default.${HOSTNAME%%.*}/$1" + else + echo "$HOME/etc/default/$1" + fi +} + +function get_defaults_files() { + local __gd_dest="${1:-defaults}"; shift + local -a __gd_fs + local __gd_f __gd_found + for __gd_f in "$@"; do + __gd_found= + if [ -r "/etc/default/$__gd_f" ]; then + __gd_fs=("${__gd_fs[@]}" "/etc/default/$__gd_f") + __gd_found=1 + fi + if [ -r "$HOME/etc/default.${HOSTNAME%%.*}/$__gd_f" ]; then + __gd_fs=("${__gd_fs[@]}" "$HOME/etc/default.${HOSTNAME%%.*}/$__gd_f") + __gd_found=1 + elif [ -r "$HOME/etc/default/$__gd_f" ]; then + __gd_fs=("${__gd_fs[@]}" "$HOME/etc/default/$__gd_f") + __gd_found=1 + fi + if [ -z "$__gd_found" -a -r "$scriptdir/lib/default/$__gd_f" ]; then + __gd_fs=("${__gd_fs[@]}" "$scriptdir/lib/default/$__gd_f") + fi + done + array_copy "$__gd_dest" __gd_fs +} + +function set_defaults() { + local -a __sd_fs + local __sd_f + get_defaults_files __sd_fs "$@" + for __sd_f in "${__sd_fs[@]}"; do + source "$__sd_f" + done +} + + +: "${MYHOST:=$HOSTNAME}" +: "${MYHOSTNAME:=${MYHOST%%.*}}" +export MYHOST MYHOSTNAME + +function myhost() { + hostname -f 2>/dev/null || echo "$MYHOST" +} +function myhostname() { + hostname -s 2>/dev/null || echo "$MYHOSTNAME" +} +##@inc]base +uprovide base.tools +urequire base + +function base_umove() { + local -a args + local updatedir + args=(-d:,--updatedir: .) + parse_args_check "$@" || return; set -- "${args[@]}" + + eerror_unless [ -z "$updatedir" -o -d "$updatedir" ] "$updatedir: doit être un répertoire" || return + eerror_if [ $# -eq 0 ] "Vous devez spécifier les fichiers à déplacer" || return + eerror_if [ $# -eq 1 ] "Vous devez spécifier la destination" || return + + local -a srcs + local dest + + srcs=("$@") + setx dest=last_value srcs + array_del_last srcs + + if [ $# -eq 2 ]; then + if [ -d "$dest" ]; then + : # ce cas sera traité ci-dessous + elif [ -e "$dest" ]; then + eerror "$dest: refus d'écraser la destination" + return 1 + else + src="${srcs[0]}" + if [ -n "$updatedir" ]; then + if [ -L "$src" ]; then + ldest="$(readlinka "$src")" + array_find_links update_links "$ldest" "$updatedir" + else + array_find_links update_links "$src" "$updatedir" + fi + move_file "$src" "$dest" "${update_links[@]}" + else + move_link "$src" "$dest" + fi + return $? + fi + fi + + [ -d "$dest" ] || { + eerror "$dest: doit être un répertoire" + return 1 + } + for src in "${srcs[@]}"; do + if [ -n "$updatedir" ]; then + if [ -L "$src" ]; then + move_link "$src" "$dest" + else + array_find_links update_links "$src" "$updatedir" + move_file "$src" "$dest" "${update_links[@]}" + fi + else + move_link "$src" "$dest" + fi + done +} +##@inc]base.tools +##@inc[base.compat +## Fonctions de base: support des fonctions obsolètes et des versions de bash < 4.x +##@inc[base.core +## Fonctions de base: fondement +uprovide base.core + +function echo_() { + echo -n "$*" +} +function recho() { + if [[ "${1:0:2}" == -[eEn] ]]; then + echo -n - + local first="${1:1}"; shift + echo "$first$@" + else + echo "$@" + fi +} +function recho_() { + if [[ "${1:0:2}" == -[eEn] ]]; then + echo -n - + local first="${1:1}"; shift + echo -n "$first$@" + else + echo -n "$@" + fi +} +function _qval() { + local s="$*" + s="${s//\\/\\\\}" + s="${s//\"/\\\"}" + s="${s//\$/\\\$}" + s="${s//\`/\\\`}" + recho_ "$s" +} +function should_quote() { + local l="${#1}" + [ $l -eq 0 -o $l -gt 80 ] && return 0 + local s="${*//[a-zA-Z0-9]/}" + s="${s//,/}" + s="${s//./}" + s="${s//+/}" + s="${s//\//}" + s="${s//-/}" + s="${s//_/}" + s="${s//=/}" + [ -n "$s" ] +} +function qval() { + echo -n \" + _qval "$@" + echo \" +} +function qvalm() { + if should_quote "$*"; then + echo -n \" + _qval "$@" + echo \" + else + recho "$*" + fi +} +function qvalr() { + if [ -z "$*" ]; then + : + elif should_quote "$*"; then + echo -n \" + _qval "$@" + echo \" + else + recho "$*" + fi +} +function qvals() { + local arg first=1 + for arg in "$@"; do + [ -z "$first" ] && echo -n " " + if should_quote "$arg"; then + echo -n \" + _qval "$arg" + echo -n \" + else + recho_ "$arg" + fi + first= + done + [ -z "$first" ] && echo +} +function qwc() { + local s="$*" + s="${s//\\/\\\\}" + s="${s//\"/\\\"}" + s="${s//\$/\\\$}" + s="${s//\`/\\\`}" + local r a b + while [ -n "$s" ]; do + if [[ "$s" == *\** ]]; then + if [[ "$s" == *\?* ]]; then + a="${s%%\**}" + b="${s%%\?*}" + if [ ${#a} -lt ${#b} ]; then + s="${s#*\*}" + r="$r\"$a\"*" + else + s="${s#*\?}" + r="$r\"$b\"?" + fi + else + a="${s%%\**}" + s="${s#*\*}" + r="$r\"$a\"*" + fi + elif [[ "$s" == *\?* ]]; then + if [[ "$s" == *\** ]]; then + a="${s%%\**}" + b="${s%%\?*}" + if [ ${#a} -lt ${#b} ]; then + s="${s#*\*}" + r="$r\"$a\"*" + else + s="${s#*\?}" + r="$r\"$b\"?" + fi + else + a="${s%%\?*}" + s="${s#*\?}" + r="$r\"$a\"?" + fi + else + r="$r\"$s\"" + break + fi + done + recho_ "$r" +} +function qlines() { + sed "s/'/'\\\\''/g; s/.*/'&'/g" +} +function setv() { + local __s_var="$1"; shift + if [[ "$__s_var" == *=* ]]; then + set -- "${__s_var#*=}" "$@" + __s_var="${__s_var%%=*}" + fi + eval "$__s_var=\"\$*\"" +} +function _setv() { + local __s_var="$1"; shift + eval "$__s_var=\"\$*\"" +} +function echo_setv() { + local __s_var="$1"; shift + if [[ "$__s_var" == *=* ]]; then + set -- "${__s_var#*=}" "$@" + __s_var="${__s_var%%=*}" + fi + echo "$__s_var=$(qvalr "$*")" +} +function setx() { + if [ "$1" == -a ]; then + shift + local __s_array="$1"; shift + if [[ "$__s_array" == *=* ]]; then + set -- "${__s_array#*=}" "$@" + __s_array="${__s_array%%=*}" + fi + eval "$__s_array=($("$@" | qlines))" + else + local __s_var="$1"; shift + if [[ "$__s_var" == *=* ]]; then + set -- "${__s_var#*=}" "$@" + __s_var="${__s_var%%=*}" + fi + eval "$__s_var="'"$("$@")"' + fi +} +function _setvx() { + local __s_var="$1"; shift + eval "$__s_var="'"$("$@")"' +} +function _setax() { + local __s_array="$1"; shift + eval "$__s_array=($("$@" | qlines))" +} +function evalx() { + local __e_val __e_arg __e_r=0 + local -a __e_cmd + + local __e_first=1 + while [ $# -gt 0 ]; do + __e_cmd=() + while [ $# -gt 0 ]; do + __e_arg="$1"; shift + [ "$__e_arg" == // ] && break + if [ "${__e_arg%//}" != "$__e_arg" ]; then + local __e_tmp="${__e_arg%//}" + if [ -z "${__e_tmp//\\/}" ]; then + __e_arg="${__e_arg#\\}" + __e_cmd=("${__e_cmd[@]}" "$__e_arg") + continue + fi + fi + __e_cmd=("${__e_cmd[@]}" "$__e_arg") + done + + if [ -n "$__e_first" ]; then + __e_val="$("${__e_cmd[@]}")" || __e_r=$? + else + __e_val="$("${__e_cmd[@]}" "$__e_val")" || __e_r=$? + fi + __e_first= + done + [ -n "$__e_val" ] && echo "$__e_val" + return $__e_r +} +function setxx() { + local -a __s_args + if [ "$1" == -a ]; then __s_args=(-a); shift; fi + local __s_var="$1"; shift + if [[ "$__s_var" == *=* ]]; then + set -- "${__s_var#*=}" "$@" + __s_var="${__s_var%%=*}" + fi + __s_args=("${__s_args[@]}" "$__s_var") + setx "${__s_args[@]}" evalx "$@" +} +function evalp() { + local __e_arg __e_cmd + + while [ $# -gt 0 ]; do + __e_arg="$1"; shift + if [ "$__e_arg" == // ]; then + __e_cmd="$__e_cmd |" + continue + elif [ "${__e_arg%//}" != "$__e_arg" ]; then + local __e_tmp="${__e_arg%//}" + if [ -z "${__e_tmp//\\/}" ]; then + __e_arg="${__e_arg#\\}" + fi + fi + __e_cmd="${__e_cmd:+$__e_cmd }\"$(_qval "$__e_arg")\"" + done + eval "$__e_cmd" +} +function setxp() { + local -a __s_args + if [ "$1" == -a ]; then __s_args=(-a); shift; fi + local __s_var="$1"; shift + if [[ "$__s_var" == *=* ]]; then + set -- "${__s_var#*=}" "$@" + __s_var="${__s_var%%=*}" + fi + __s_args=("${__s_args[@]}" "$__s_var") + setx "${__s_args[@]}" evalp "$@" +} +function testx() { + local __t_op="$1"; shift + local __t_val="$(evalx "$@")" + [ $__t_op "$__t_val" ] +} +function test2x() { + local __t_val1="$1"; shift + local __t_op="$1"; shift + local __t_val2="$(evalx "$@")" + [ "$__t_val1" $__t_op "$__t_val2" ] +} +function testrx() { + local __t_val1="$1"; shift + local __t_op="$1"; shift + local __t_val2="$(evalx "$@")" + eval '[[ "$__t_val1" '"$__t_op"' "$__t_val2" ]]' +} +function testp() { + local __t_op="$1"; shift + local __t_val="$(evalp "$@")" + [ $__t_op "$__t_val" ] +} +function test2p() { + local __t_val1="$1"; shift + local __t_op="$1"; shift + local __t_val2="$(evalp "$@")" + [ "$__t_val1" $__t_op "$__t_val2" ] +} +function testrp() { + local __t_val1="$1"; shift + local __t_op="$1"; shift + local __t_val2="$(evalp "$@")" + eval '[[ "$__t_val1" '"$__t_op"' "$__t_val2" ]]' +} + +function err2out() { + "$@" 2>&1 +} + +function is_defined() { + [ -n "$(declare -p "$1" 2>/dev/null)" ] +} +function is_array() { + case "$(declare -p "$1" 2>/dev/null)" in declare\ -a*) return 0;; esac + return 1 +} + +function upvar() { + if unset -v "$1"; then + if [ $# -eq 2 ]; then + eval "$1=\"\$2\"" + else + eval "$1=(\"\${@:2}\")" + fi + fi +} +function array_upvar() { + unset -v "$1" && eval "$1=(\"\${@:2}\")" +} +function upvars() { + while [ $# -gt 0 ]; do + case "$1" in + -a) + unset -v "$2" && eval "$2=(\"\${@:3}\")" + break + ;; + -a*) + unset -v "$2" && eval "$2=(\"\${@:3:${1#-a}}\")" + shift $((${1#-a} + 2)) || return 1 + ;; + *) + unset -v "$1" && eval "$1=\"\$2\"" + shift; shift + ;; + esac + done +} + +function __ab_process_pending() { + local -a values + case "$mode" in + cmd) values="$("${pending[@]}")";; + ssplit) eval "values=($("${pending[@]}"))";; + lsplit) eval "values=($("${pending[@]}" | qlines))";; + add) values=("${pending[@]}");; + esac + cmd=("${cmd[@]}" "${values[@]}") + pending=() +} +function array_buildcmd() { + local desta="$1"; shift; local "$desta" + local mode=add + local -a pending cmd + while [ $# -gt 0 ]; do + case "$1" in + ++c|++cmd|++) __ab_process_pending; mode=cmd;; + ++s|++ssplit) __ab_process_pending; mode=ssplit;; + ++l|++lsplit) __ab_process_pending; mode=lsplit;; + ++a|++add) __ab_process_pending; mode=add;; + *) pending=("${pending[@]}" "$1");; + esac + shift + done + __ab_process_pending + array_upvar "$desta" "${cmd[@]}" +} +function buildcmd() { + local -a args + array_buildcmd args "$@" + qvals "${args[@]}" +} +function evalcmd() { + local -a args + array_buildcmd args "$@" + "${args[@]}" +} +##@inc]base.core +##@inc[base.num +## Fonctions de base: gestion des valeurs numériques +uprovide base.num + +function isnum() { + [ ${#1} -gt 0 ] || return 1 + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 + v="${v//[0-9]/}" + [ -z "$v" ] +} +function ispnum() { + [ ${#1} -gt 0 ] || return 1 + [ -z "${1//[0-9]/}" ] +} +function isrnum() { + [ ${#1} -gt 0 ] || return 1 + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 + v="${v//./}" + v="${v//,/}" + v="${v//[0-9]/}" + [ -z "$v" ] +} +##@inc]base.num +##@inc[base.bool +## Fonctions de base: valeurs booléennes +##@inc[base.num +## Fonctions de base: gestion des valeurs numériques +uprovide base.num + +function isnum() { + [ ${#1} -gt 0 ] || return 1 + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 + v="${v//[0-9]/}" + [ -z "$v" ] +} +function ispnum() { + [ ${#1} -gt 0 ] || return 1 + [ -z "${1//[0-9]/}" ] +} +function isrnum() { + [ ${#1} -gt 0 ] || return 1 + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 + v="${v//./}" + v="${v//,/}" + v="${v//[0-9]/}" + [ -z "$v" ] +} +##@inc]base.num +uprovide base.bool +urequire base.num + +function is_yes() { + case "${1,,}" in + o|oui|y|yes|v|vrai|t|true|on) return 0;; + esac + isnum "$1" && [ "$1" -ne 0 ] && return 0 + return 1 +} +function is_no() { + case "${1,,}" in + n|non|no|f|faux|false|off) return 0;; + esac + isnum "$1" && [ "$1" -eq 0 ] && return 0 + return 1 +} +function yesval() { + is_yes "$1" && echo 1 +} + +function setb() { + local __s_var="$1"; shift + if [[ "$__s_var" == *=* ]]; then + set -- "${__s_var#*=}" "$@" + __s_var="${__s_var%%=*}" + fi + local __s_r + if "$@" >/dev/null; then + eval "$__s_var=1" + else + __s_r=$? + eval "$__s_var=" + return $__s_r + fi +} +function _setb() { + local __s_var="$1"; shift + if "$@" >/dev/null; then + eval "$__s_var=1" + else + eval "$__s_var=" + fi +} + +function evalb() { + if evalx "$@" >/dev/null; then + echo 1 + else + return $? + fi +} +function setxb() { + local __s_var="$1"; shift + if [[ "$__s_var" == *=* ]]; then + set -- "${__s_var#*=}" "$@" + __s_var="${__s_var%%=*}" + fi + setx "$__s_var" evalb "$@" +} +##@inc]base.bool +##@inc[base.quote +## Fonctions de base: protection de valeurs chaine +uprovide base.quote +urequire base.core + +function _qawk() { + local s="$*" + s="${s//\\/\\\\}" + s="${s//\"/\\\"}" + s="${s// +/\\n}" + recho_ "$s" +} +function qawk() { + echo -n \" + _qawk "$@" + echo \" +} +function qseds() { + local s="$*" + s="${s//\\/\\\\}" + s="${s//\//\\/}" + s="${s// +/\\n}" + recho "$s" +} +function _qform() { + local s="$*" + s="${s//\%/%25}" + s="${s//+/%2B}" + s="${s//&/%26}" + s="${s//=/%3D}" + s="${s// /+}" + recho_ "$s" +} +function qform() { + local s="$*" + if [[ "$s" == *=* ]]; then + _qform "${s%%=*}" + echo -n = + _qform "${s#*=}" + echo + else + _qform "$s" + echo + fi +} +function _qsql() { + local q="'" qq="''" + echo "${*//$q/$qq}" +} +function qsql() { + local q="'" qq="''" + echo "'${*//$q/$qq}'" +} ##@inc]base.quote uprovide base.compat urequire base.core base.num base.bool base.quote @@ -5881,16 +10582,6 @@ function recho_() { echo -n "$@" fi } -function _rval() { - local s="$*" - s="${s//\\/\\\\}" - s="${s//\"/\\\"}" - s="${s//\'/\'}" - s="${s//\$/\\\$}" - s="${s//\`/\\\`}" - s="${s// /\\ }" - recho_ "$s" -} function _qval() { local s="$*" s="${s//\\/\\\\}" @@ -5952,6 +10643,53 @@ function qvals() { done [ -z "$first" ] && echo } +function qwc() { + local s="$*" + s="${s//\\/\\\\}" + s="${s//\"/\\\"}" + s="${s//\$/\\\$}" + s="${s//\`/\\\`}" + local r a b + while [ -n "$s" ]; do + if [[ "$s" == *\** ]]; then + if [[ "$s" == *\?* ]]; then + a="${s%%\**}" + b="${s%%\?*}" + if [ ${#a} -lt ${#b} ]; then + s="${s#*\*}" + r="$r\"$a\"*" + else + s="${s#*\?}" + r="$r\"$b\"?" + fi + else + a="${s%%\**}" + s="${s#*\*}" + r="$r\"$a\"*" + fi + elif [[ "$s" == *\?* ]]; then + if [[ "$s" == *\** ]]; then + a="${s%%\**}" + b="${s%%\?*}" + if [ ${#a} -lt ${#b} ]; then + s="${s#*\*}" + r="$r\"$a\"*" + else + s="${s#*\?}" + r="$r\"$b\"?" + fi + else + a="${s%%\?*}" + s="${s#*\?}" + r="$r\"$a\"?" + fi + else + r="$r\"$s\"" + break + fi + done + recho_ "$r" +} function qlines() { sed "s/'/'\\\\''/g; s/.*/'&'/g" } @@ -6110,6 +10848,84 @@ function testrp() { function err2out() { "$@" 2>&1 } + +function is_defined() { + [ -n "$(declare -p "$1" 2>/dev/null)" ] +} +function is_array() { + case "$(declare -p "$1" 2>/dev/null)" in declare\ -a*) return 0;; esac + return 1 +} + +function upvar() { + if unset -v "$1"; then + if [ $# -eq 2 ]; then + eval "$1=\"\$2\"" + else + eval "$1=(\"\${@:2}\")" + fi + fi +} +function array_upvar() { + unset -v "$1" && eval "$1=(\"\${@:2}\")" +} +function upvars() { + while [ $# -gt 0 ]; do + case "$1" in + -a) + unset -v "$2" && eval "$2=(\"\${@:3}\")" + break + ;; + -a*) + unset -v "$2" && eval "$2=(\"\${@:3:${1#-a}}\")" + shift $((${1#-a} + 2)) || return 1 + ;; + *) + unset -v "$1" && eval "$1=\"\$2\"" + shift; shift + ;; + esac + done +} + +function __ab_process_pending() { + local -a values + case "$mode" in + cmd) values="$("${pending[@]}")";; + ssplit) eval "values=($("${pending[@]}"))";; + lsplit) eval "values=($("${pending[@]}" | qlines))";; + add) values=("${pending[@]}");; + esac + cmd=("${cmd[@]}" "${values[@]}") + pending=() +} +function array_buildcmd() { + local desta="$1"; shift; local "$desta" + local mode=add + local -a pending cmd + while [ $# -gt 0 ]; do + case "$1" in + ++c|++cmd|++) __ab_process_pending; mode=cmd;; + ++s|++ssplit) __ab_process_pending; mode=ssplit;; + ++l|++lsplit) __ab_process_pending; mode=lsplit;; + ++a|++add) __ab_process_pending; mode=add;; + *) pending=("${pending[@]}" "$1");; + esac + shift + done + __ab_process_pending + array_upvar "$desta" "${cmd[@]}" +} +function buildcmd() { + local -a args + array_buildcmd args "$@" + qvals "${args[@]}" +} +function evalcmd() { + local -a args + array_buildcmd args "$@" + "${args[@]}" +} ##@inc]base.core ##@inc[base.num ## Fonctions de base: gestion des valeurs numériques @@ -6117,21 +10933,19 @@ uprovide base.num function isnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//[0-9]/}" [ -z "$v" ] } function ispnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v//[0-9]/}" - [ -z "$v" ] + [ -z "${1//[0-9]/}" ] } function isrnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//./}" v="${v//,/}" v="${v//[0-9]/}" @@ -6146,21 +10960,19 @@ uprovide base.num function isnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//[0-9]/}" [ -z "$v" ] } function ispnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v//[0-9]/}" - [ -z "$v" ] + [ -z "${1//[0-9]/}" ] } function isrnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//./}" v="${v//,/}" v="${v//[0-9]/}" @@ -6250,6 +11062,8 @@ function qseds() { local s="$*" s="${s//\\/\\\\}" s="${s//\//\\/}" + s="${s// +/\\n}" recho "$s" } function _qform() { @@ -6273,6 +11087,14 @@ function qform() { echo fi } +function _qsql() { + local q="'" qq="''" + echo "${*//$q/$qq}" +} +function qsql() { + local q="'" qq="''" + echo "'${*//$q/$qq}'" +} ##@inc]base.quote uprovide base.compat urequire base.core base.num base.bool base.quote @@ -9511,16 +14333,6 @@ function recho_() { echo -n "$@" fi } -function _rval() { - local s="$*" - s="${s//\\/\\\\}" - s="${s//\"/\\\"}" - s="${s//\'/\'}" - s="${s//\$/\\\$}" - s="${s//\`/\\\`}" - s="${s// /\\ }" - recho_ "$s" -} function _qval() { local s="$*" s="${s//\\/\\\\}" @@ -9582,6 +14394,53 @@ function qvals() { done [ -z "$first" ] && echo } +function qwc() { + local s="$*" + s="${s//\\/\\\\}" + s="${s//\"/\\\"}" + s="${s//\$/\\\$}" + s="${s//\`/\\\`}" + local r a b + while [ -n "$s" ]; do + if [[ "$s" == *\** ]]; then + if [[ "$s" == *\?* ]]; then + a="${s%%\**}" + b="${s%%\?*}" + if [ ${#a} -lt ${#b} ]; then + s="${s#*\*}" + r="$r\"$a\"*" + else + s="${s#*\?}" + r="$r\"$b\"?" + fi + else + a="${s%%\**}" + s="${s#*\*}" + r="$r\"$a\"*" + fi + elif [[ "$s" == *\?* ]]; then + if [[ "$s" == *\** ]]; then + a="${s%%\**}" + b="${s%%\?*}" + if [ ${#a} -lt ${#b} ]; then + s="${s#*\*}" + r="$r\"$a\"*" + else + s="${s#*\?}" + r="$r\"$b\"?" + fi + else + a="${s%%\?*}" + s="${s#*\?}" + r="$r\"$a\"?" + fi + else + r="$r\"$s\"" + break + fi + done + recho_ "$r" +} function qlines() { sed "s/'/'\\\\''/g; s/.*/'&'/g" } @@ -9740,6 +14599,84 @@ function testrp() { function err2out() { "$@" 2>&1 } + +function is_defined() { + [ -n "$(declare -p "$1" 2>/dev/null)" ] +} +function is_array() { + case "$(declare -p "$1" 2>/dev/null)" in declare\ -a*) return 0;; esac + return 1 +} + +function upvar() { + if unset -v "$1"; then + if [ $# -eq 2 ]; then + eval "$1=\"\$2\"" + else + eval "$1=(\"\${@:2}\")" + fi + fi +} +function array_upvar() { + unset -v "$1" && eval "$1=(\"\${@:2}\")" +} +function upvars() { + while [ $# -gt 0 ]; do + case "$1" in + -a) + unset -v "$2" && eval "$2=(\"\${@:3}\")" + break + ;; + -a*) + unset -v "$2" && eval "$2=(\"\${@:3:${1#-a}}\")" + shift $((${1#-a} + 2)) || return 1 + ;; + *) + unset -v "$1" && eval "$1=\"\$2\"" + shift; shift + ;; + esac + done +} + +function __ab_process_pending() { + local -a values + case "$mode" in + cmd) values="$("${pending[@]}")";; + ssplit) eval "values=($("${pending[@]}"))";; + lsplit) eval "values=($("${pending[@]}" | qlines))";; + add) values=("${pending[@]}");; + esac + cmd=("${cmd[@]}" "${values[@]}") + pending=() +} +function array_buildcmd() { + local desta="$1"; shift; local "$desta" + local mode=add + local -a pending cmd + while [ $# -gt 0 ]; do + case "$1" in + ++c|++cmd|++) __ab_process_pending; mode=cmd;; + ++s|++ssplit) __ab_process_pending; mode=ssplit;; + ++l|++lsplit) __ab_process_pending; mode=lsplit;; + ++a|++add) __ab_process_pending; mode=add;; + *) pending=("${pending[@]}" "$1");; + esac + shift + done + __ab_process_pending + array_upvar "$desta" "${cmd[@]}" +} +function buildcmd() { + local -a args + array_buildcmd args "$@" + qvals "${args[@]}" +} +function evalcmd() { + local -a args + array_buildcmd args "$@" + "${args[@]}" +} ##@inc]base.core ##@inc[base.num ## Fonctions de base: gestion des valeurs numériques @@ -9747,21 +14684,19 @@ uprovide base.num function isnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//[0-9]/}" [ -z "$v" ] } function ispnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v//[0-9]/}" - [ -z "$v" ] + [ -z "${1//[0-9]/}" ] } function isrnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//./}" v="${v//,/}" v="${v//[0-9]/}" @@ -9776,21 +14711,19 @@ uprovide base.num function isnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//[0-9]/}" [ -z "$v" ] } function ispnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v//[0-9]/}" - [ -z "$v" ] + [ -z "${1//[0-9]/}" ] } function isrnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//./}" v="${v//,/}" v="${v//[0-9]/}" @@ -9880,6 +14813,8 @@ function qseds() { local s="$*" s="${s//\\/\\\\}" s="${s//\//\\/}" + s="${s// +/\\n}" recho "$s" } function _qform() { @@ -9903,6 +14838,14 @@ function qform() { echo fi } +function _qsql() { + local q="'" qq="''" + echo "${*//$q/$qq}" +} +function qsql() { + local q="'" qq="''" + echo "'${*//$q/$qq}'" +} ##@inc]base.quote uprovide base.compat urequire base.core base.num base.bool base.quote @@ -13141,16 +18084,6 @@ function recho_() { echo -n "$@" fi } -function _rval() { - local s="$*" - s="${s//\\/\\\\}" - s="${s//\"/\\\"}" - s="${s//\'/\'}" - s="${s//\$/\\\$}" - s="${s//\`/\\\`}" - s="${s// /\\ }" - recho_ "$s" -} function _qval() { local s="$*" s="${s//\\/\\\\}" @@ -13212,6 +18145,53 @@ function qvals() { done [ -z "$first" ] && echo } +function qwc() { + local s="$*" + s="${s//\\/\\\\}" + s="${s//\"/\\\"}" + s="${s//\$/\\\$}" + s="${s//\`/\\\`}" + local r a b + while [ -n "$s" ]; do + if [[ "$s" == *\** ]]; then + if [[ "$s" == *\?* ]]; then + a="${s%%\**}" + b="${s%%\?*}" + if [ ${#a} -lt ${#b} ]; then + s="${s#*\*}" + r="$r\"$a\"*" + else + s="${s#*\?}" + r="$r\"$b\"?" + fi + else + a="${s%%\**}" + s="${s#*\*}" + r="$r\"$a\"*" + fi + elif [[ "$s" == *\?* ]]; then + if [[ "$s" == *\** ]]; then + a="${s%%\**}" + b="${s%%\?*}" + if [ ${#a} -lt ${#b} ]; then + s="${s#*\*}" + r="$r\"$a\"*" + else + s="${s#*\?}" + r="$r\"$b\"?" + fi + else + a="${s%%\?*}" + s="${s#*\?}" + r="$r\"$a\"?" + fi + else + r="$r\"$s\"" + break + fi + done + recho_ "$r" +} function qlines() { sed "s/'/'\\\\''/g; s/.*/'&'/g" } @@ -13370,6 +18350,84 @@ function testrp() { function err2out() { "$@" 2>&1 } + +function is_defined() { + [ -n "$(declare -p "$1" 2>/dev/null)" ] +} +function is_array() { + case "$(declare -p "$1" 2>/dev/null)" in declare\ -a*) return 0;; esac + return 1 +} + +function upvar() { + if unset -v "$1"; then + if [ $# -eq 2 ]; then + eval "$1=\"\$2\"" + else + eval "$1=(\"\${@:2}\")" + fi + fi +} +function array_upvar() { + unset -v "$1" && eval "$1=(\"\${@:2}\")" +} +function upvars() { + while [ $# -gt 0 ]; do + case "$1" in + -a) + unset -v "$2" && eval "$2=(\"\${@:3}\")" + break + ;; + -a*) + unset -v "$2" && eval "$2=(\"\${@:3:${1#-a}}\")" + shift $((${1#-a} + 2)) || return 1 + ;; + *) + unset -v "$1" && eval "$1=\"\$2\"" + shift; shift + ;; + esac + done +} + +function __ab_process_pending() { + local -a values + case "$mode" in + cmd) values="$("${pending[@]}")";; + ssplit) eval "values=($("${pending[@]}"))";; + lsplit) eval "values=($("${pending[@]}" | qlines))";; + add) values=("${pending[@]}");; + esac + cmd=("${cmd[@]}" "${values[@]}") + pending=() +} +function array_buildcmd() { + local desta="$1"; shift; local "$desta" + local mode=add + local -a pending cmd + while [ $# -gt 0 ]; do + case "$1" in + ++c|++cmd|++) __ab_process_pending; mode=cmd;; + ++s|++ssplit) __ab_process_pending; mode=ssplit;; + ++l|++lsplit) __ab_process_pending; mode=lsplit;; + ++a|++add) __ab_process_pending; mode=add;; + *) pending=("${pending[@]}" "$1");; + esac + shift + done + __ab_process_pending + array_upvar "$desta" "${cmd[@]}" +} +function buildcmd() { + local -a args + array_buildcmd args "$@" + qvals "${args[@]}" +} +function evalcmd() { + local -a args + array_buildcmd args "$@" + "${args[@]}" +} ##@inc]base.core ##@inc[base.num ## Fonctions de base: gestion des valeurs numériques @@ -13377,21 +18435,19 @@ uprovide base.num function isnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//[0-9]/}" [ -z "$v" ] } function ispnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v//[0-9]/}" - [ -z "$v" ] + [ -z "${1//[0-9]/}" ] } function isrnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//./}" v="${v//,/}" v="${v//[0-9]/}" @@ -13406,21 +18462,19 @@ uprovide base.num function isnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//[0-9]/}" [ -z "$v" ] } function ispnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v//[0-9]/}" - [ -z "$v" ] + [ -z "${1//[0-9]/}" ] } function isrnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//./}" v="${v//,/}" v="${v//[0-9]/}" @@ -13510,6 +18564,8 @@ function qseds() { local s="$*" s="${s//\\/\\\\}" s="${s//\//\\/}" + s="${s// +/\\n}" recho "$s" } function _qform() { @@ -13533,6 +18589,14 @@ function qform() { echo fi } +function _qsql() { + local q="'" qq="''" + echo "${*//$q/$qq}" +} +function qsql() { + local q="'" qq="''" + echo "'${*//$q/$qq}'" +} ##@inc]base.quote uprovide base.compat urequire base.core base.num base.bool base.quote @@ -16771,16 +21835,6 @@ function recho_() { echo -n "$@" fi } -function _rval() { - local s="$*" - s="${s//\\/\\\\}" - s="${s//\"/\\\"}" - s="${s//\'/\'}" - s="${s//\$/\\\$}" - s="${s//\`/\\\`}" - s="${s// /\\ }" - recho_ "$s" -} function _qval() { local s="$*" s="${s//\\/\\\\}" @@ -16842,6 +21896,53 @@ function qvals() { done [ -z "$first" ] && echo } +function qwc() { + local s="$*" + s="${s//\\/\\\\}" + s="${s//\"/\\\"}" + s="${s//\$/\\\$}" + s="${s//\`/\\\`}" + local r a b + while [ -n "$s" ]; do + if [[ "$s" == *\** ]]; then + if [[ "$s" == *\?* ]]; then + a="${s%%\**}" + b="${s%%\?*}" + if [ ${#a} -lt ${#b} ]; then + s="${s#*\*}" + r="$r\"$a\"*" + else + s="${s#*\?}" + r="$r\"$b\"?" + fi + else + a="${s%%\**}" + s="${s#*\*}" + r="$r\"$a\"*" + fi + elif [[ "$s" == *\?* ]]; then + if [[ "$s" == *\** ]]; then + a="${s%%\**}" + b="${s%%\?*}" + if [ ${#a} -lt ${#b} ]; then + s="${s#*\*}" + r="$r\"$a\"*" + else + s="${s#*\?}" + r="$r\"$b\"?" + fi + else + a="${s%%\?*}" + s="${s#*\?}" + r="$r\"$a\"?" + fi + else + r="$r\"$s\"" + break + fi + done + recho_ "$r" +} function qlines() { sed "s/'/'\\\\''/g; s/.*/'&'/g" } @@ -17000,6 +22101,84 @@ function testrp() { function err2out() { "$@" 2>&1 } + +function is_defined() { + [ -n "$(declare -p "$1" 2>/dev/null)" ] +} +function is_array() { + case "$(declare -p "$1" 2>/dev/null)" in declare\ -a*) return 0;; esac + return 1 +} + +function upvar() { + if unset -v "$1"; then + if [ $# -eq 2 ]; then + eval "$1=\"\$2\"" + else + eval "$1=(\"\${@:2}\")" + fi + fi +} +function array_upvar() { + unset -v "$1" && eval "$1=(\"\${@:2}\")" +} +function upvars() { + while [ $# -gt 0 ]; do + case "$1" in + -a) + unset -v "$2" && eval "$2=(\"\${@:3}\")" + break + ;; + -a*) + unset -v "$2" && eval "$2=(\"\${@:3:${1#-a}}\")" + shift $((${1#-a} + 2)) || return 1 + ;; + *) + unset -v "$1" && eval "$1=\"\$2\"" + shift; shift + ;; + esac + done +} + +function __ab_process_pending() { + local -a values + case "$mode" in + cmd) values="$("${pending[@]}")";; + ssplit) eval "values=($("${pending[@]}"))";; + lsplit) eval "values=($("${pending[@]}" | qlines))";; + add) values=("${pending[@]}");; + esac + cmd=("${cmd[@]}" "${values[@]}") + pending=() +} +function array_buildcmd() { + local desta="$1"; shift; local "$desta" + local mode=add + local -a pending cmd + while [ $# -gt 0 ]; do + case "$1" in + ++c|++cmd|++) __ab_process_pending; mode=cmd;; + ++s|++ssplit) __ab_process_pending; mode=ssplit;; + ++l|++lsplit) __ab_process_pending; mode=lsplit;; + ++a|++add) __ab_process_pending; mode=add;; + *) pending=("${pending[@]}" "$1");; + esac + shift + done + __ab_process_pending + array_upvar "$desta" "${cmd[@]}" +} +function buildcmd() { + local -a args + array_buildcmd args "$@" + qvals "${args[@]}" +} +function evalcmd() { + local -a args + array_buildcmd args "$@" + "${args[@]}" +} ##@inc]base.core ##@inc[base.num ## Fonctions de base: gestion des valeurs numériques @@ -17007,21 +22186,19 @@ uprovide base.num function isnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//[0-9]/}" [ -z "$v" ] } function ispnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v//[0-9]/}" - [ -z "$v" ] + [ -z "${1//[0-9]/}" ] } function isrnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//./}" v="${v//,/}" v="${v//[0-9]/}" @@ -17036,21 +22213,19 @@ uprovide base.num function isnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//[0-9]/}" [ -z "$v" ] } function ispnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v//[0-9]/}" - [ -z "$v" ] + [ -z "${1//[0-9]/}" ] } function isrnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//./}" v="${v//,/}" v="${v//[0-9]/}" @@ -17140,6 +22315,8 @@ function qseds() { local s="$*" s="${s//\\/\\\\}" s="${s//\//\\/}" + s="${s// +/\\n}" recho "$s" } function _qform() { @@ -17163,6 +22340,14 @@ function qform() { echo fi } +function _qsql() { + local q="'" qq="''" + echo "${*//$q/$qq}" +} +function qsql() { + local q="'" qq="''" + echo "'${*//$q/$qq}'" +} ##@inc]base.quote uprovide base.compat urequire base.core base.num base.bool base.quote @@ -20401,16 +25586,6 @@ function recho_() { echo -n "$@" fi } -function _rval() { - local s="$*" - s="${s//\\/\\\\}" - s="${s//\"/\\\"}" - s="${s//\'/\'}" - s="${s//\$/\\\$}" - s="${s//\`/\\\`}" - s="${s// /\\ }" - recho_ "$s" -} function _qval() { local s="$*" s="${s//\\/\\\\}" @@ -20472,6 +25647,53 @@ function qvals() { done [ -z "$first" ] && echo } +function qwc() { + local s="$*" + s="${s//\\/\\\\}" + s="${s//\"/\\\"}" + s="${s//\$/\\\$}" + s="${s//\`/\\\`}" + local r a b + while [ -n "$s" ]; do + if [[ "$s" == *\** ]]; then + if [[ "$s" == *\?* ]]; then + a="${s%%\**}" + b="${s%%\?*}" + if [ ${#a} -lt ${#b} ]; then + s="${s#*\*}" + r="$r\"$a\"*" + else + s="${s#*\?}" + r="$r\"$b\"?" + fi + else + a="${s%%\**}" + s="${s#*\*}" + r="$r\"$a\"*" + fi + elif [[ "$s" == *\?* ]]; then + if [[ "$s" == *\** ]]; then + a="${s%%\**}" + b="${s%%\?*}" + if [ ${#a} -lt ${#b} ]; then + s="${s#*\*}" + r="$r\"$a\"*" + else + s="${s#*\?}" + r="$r\"$b\"?" + fi + else + a="${s%%\?*}" + s="${s#*\?}" + r="$r\"$a\"?" + fi + else + r="$r\"$s\"" + break + fi + done + recho_ "$r" +} function qlines() { sed "s/'/'\\\\''/g; s/.*/'&'/g" } @@ -20630,6 +25852,84 @@ function testrp() { function err2out() { "$@" 2>&1 } + +function is_defined() { + [ -n "$(declare -p "$1" 2>/dev/null)" ] +} +function is_array() { + case "$(declare -p "$1" 2>/dev/null)" in declare\ -a*) return 0;; esac + return 1 +} + +function upvar() { + if unset -v "$1"; then + if [ $# -eq 2 ]; then + eval "$1=\"\$2\"" + else + eval "$1=(\"\${@:2}\")" + fi + fi +} +function array_upvar() { + unset -v "$1" && eval "$1=(\"\${@:2}\")" +} +function upvars() { + while [ $# -gt 0 ]; do + case "$1" in + -a) + unset -v "$2" && eval "$2=(\"\${@:3}\")" + break + ;; + -a*) + unset -v "$2" && eval "$2=(\"\${@:3:${1#-a}}\")" + shift $((${1#-a} + 2)) || return 1 + ;; + *) + unset -v "$1" && eval "$1=\"\$2\"" + shift; shift + ;; + esac + done +} + +function __ab_process_pending() { + local -a values + case "$mode" in + cmd) values="$("${pending[@]}")";; + ssplit) eval "values=($("${pending[@]}"))";; + lsplit) eval "values=($("${pending[@]}" | qlines))";; + add) values=("${pending[@]}");; + esac + cmd=("${cmd[@]}" "${values[@]}") + pending=() +} +function array_buildcmd() { + local desta="$1"; shift; local "$desta" + local mode=add + local -a pending cmd + while [ $# -gt 0 ]; do + case "$1" in + ++c|++cmd|++) __ab_process_pending; mode=cmd;; + ++s|++ssplit) __ab_process_pending; mode=ssplit;; + ++l|++lsplit) __ab_process_pending; mode=lsplit;; + ++a|++add) __ab_process_pending; mode=add;; + *) pending=("${pending[@]}" "$1");; + esac + shift + done + __ab_process_pending + array_upvar "$desta" "${cmd[@]}" +} +function buildcmd() { + local -a args + array_buildcmd args "$@" + qvals "${args[@]}" +} +function evalcmd() { + local -a args + array_buildcmd args "$@" + "${args[@]}" +} ##@inc]base.core ##@inc[base.num ## Fonctions de base: gestion des valeurs numériques @@ -20637,21 +25937,19 @@ uprovide base.num function isnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//[0-9]/}" [ -z "$v" ] } function ispnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v//[0-9]/}" - [ -z "$v" ] + [ -z "${1//[0-9]/}" ] } function isrnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//./}" v="${v//,/}" v="${v//[0-9]/}" @@ -20666,21 +25964,19 @@ uprovide base.num function isnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//[0-9]/}" [ -z "$v" ] } function ispnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v//[0-9]/}" - [ -z "$v" ] + [ -z "${1//[0-9]/}" ] } function isrnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//./}" v="${v//,/}" v="${v//[0-9]/}" @@ -20770,6 +26066,8 @@ function qseds() { local s="$*" s="${s//\\/\\\\}" s="${s//\//\\/}" + s="${s// +/\\n}" recho "$s" } function _qform() { @@ -20793,6 +26091,14 @@ function qform() { echo fi } +function _qsql() { + local q="'" qq="''" + echo "${*//$q/$qq}" +} +function qsql() { + local q="'" qq="''" + echo "'${*//$q/$qq}'" +} ##@inc]base.quote uprovide base.compat urequire base.core base.num base.bool base.quote @@ -24031,16 +29337,6 @@ function recho_() { echo -n "$@" fi } -function _rval() { - local s="$*" - s="${s//\\/\\\\}" - s="${s//\"/\\\"}" - s="${s//\'/\'}" - s="${s//\$/\\\$}" - s="${s//\`/\\\`}" - s="${s// /\\ }" - recho_ "$s" -} function _qval() { local s="$*" s="${s//\\/\\\\}" @@ -24102,6 +29398,53 @@ function qvals() { done [ -z "$first" ] && echo } +function qwc() { + local s="$*" + s="${s//\\/\\\\}" + s="${s//\"/\\\"}" + s="${s//\$/\\\$}" + s="${s//\`/\\\`}" + local r a b + while [ -n "$s" ]; do + if [[ "$s" == *\** ]]; then + if [[ "$s" == *\?* ]]; then + a="${s%%\**}" + b="${s%%\?*}" + if [ ${#a} -lt ${#b} ]; then + s="${s#*\*}" + r="$r\"$a\"*" + else + s="${s#*\?}" + r="$r\"$b\"?" + fi + else + a="${s%%\**}" + s="${s#*\*}" + r="$r\"$a\"*" + fi + elif [[ "$s" == *\?* ]]; then + if [[ "$s" == *\** ]]; then + a="${s%%\**}" + b="${s%%\?*}" + if [ ${#a} -lt ${#b} ]; then + s="${s#*\*}" + r="$r\"$a\"*" + else + s="${s#*\?}" + r="$r\"$b\"?" + fi + else + a="${s%%\?*}" + s="${s#*\?}" + r="$r\"$a\"?" + fi + else + r="$r\"$s\"" + break + fi + done + recho_ "$r" +} function qlines() { sed "s/'/'\\\\''/g; s/.*/'&'/g" } @@ -24260,3635 +29603,83 @@ function testrp() { function err2out() { "$@" 2>&1 } -##@inc]base.core -##@inc[base.num -## Fonctions de base: gestion des valeurs numériques -uprovide base.num -function isnum() { - [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" - v="${v//[0-9]/}" - [ -z "$v" ] +function is_defined() { + [ -n "$(declare -p "$1" 2>/dev/null)" ] } -function ispnum() { - [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v//[0-9]/}" - [ -z "$v" ] -} -function isrnum() { - [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" - v="${v//./}" - v="${v//,/}" - v="${v//[0-9]/}" - [ -z "$v" ] -} -##@inc]base.num -##@inc[base.bool -## Fonctions de base: valeurs booléennes -##@inc[base.num -## Fonctions de base: gestion des valeurs numériques -uprovide base.num - -function isnum() { - [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" - v="${v//[0-9]/}" - [ -z "$v" ] -} -function ispnum() { - [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v//[0-9]/}" - [ -z "$v" ] -} -function isrnum() { - [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" - v="${v//./}" - v="${v//,/}" - v="${v//[0-9]/}" - [ -z "$v" ] -} -##@inc]base.num -uprovide base.bool -urequire base.num - -function is_yes() { - case "${1,,}" in - o|oui|y|yes|v|vrai|t|true|on) return 0;; - esac - isnum "$1" && [ "$1" -ne 0 ] && return 0 +function is_array() { + case "$(declare -p "$1" 2>/dev/null)" in declare\ -a*) return 0;; esac return 1 } -function is_no() { - case "${1,,}" in - n|non|no|f|faux|false|off) return 0;; - esac - isnum "$1" && [ "$1" -eq 0 ] && return 0 - return 1 -} -function yesval() { - is_yes "$1" && echo 1 -} -function setb() { - local __s_var="$1"; shift - if [[ "$__s_var" == *=* ]]; then - set -- "${__s_var#*=}" "$@" - __s_var="${__s_var%%=*}" - fi - local __s_r - if "$@" >/dev/null; then - eval "$__s_var=1" - else - __s_r=$? - eval "$__s_var=" - return $__s_r - fi -} -function _setb() { - local __s_var="$1"; shift - if "$@" >/dev/null; then - eval "$__s_var=1" - else - eval "$__s_var=" - fi -} - -function evalb() { - if evalx "$@" >/dev/null; then - echo 1 - else - return $? - fi -} -function setxb() { - local __s_var="$1"; shift - if [[ "$__s_var" == *=* ]]; then - set -- "${__s_var#*=}" "$@" - __s_var="${__s_var%%=*}" - fi - setx "$__s_var" evalb "$@" -} -##@inc]base.bool -##@inc[base.quote -## Fonctions de base: protection de valeurs chaine -uprovide base.quote -urequire base.core - -function _qawk() { - local s="$*" - s="${s//\\/\\\\}" - s="${s//\"/\\\"}" - s="${s// -/\\n}" - recho_ "$s" -} -function qawk() { - echo -n \" - _qawk "$@" - echo \" -} -function qseds() { - local s="$*" - s="${s//\\/\\\\}" - s="${s//\//\\/}" - recho "$s" -} -function _qform() { - local s="$*" - s="${s//\%/%25}" - s="${s//+/%2B}" - s="${s//&/%26}" - s="${s//=/%3D}" - s="${s// /+}" - recho_ "$s" -} -function qform() { - local s="$*" - if [[ "$s" == *=* ]]; then - _qform "${s%%=*}" - echo -n = - _qform "${s#*=}" - echo - else - _qform "$s" - echo - fi -} -##@inc]base.quote -uprovide base.compat -urequire base.core base.num base.bool base.quote - - -function setx2() { setxx "$@"; } -function rawecho() { recho "$@"; } -function rawecho_() { recho_ "$@"; } -function quote_arg() { _qval "$@"; } -function quoted_arg() { qvalm "$@"; } -function quoted_args() { qvals "$@"; } -function set_var() { setv "$@"; } -function set_var_cmd() { echo_setv "$@"; } -function set_var_literal() { eval "$1=$2"; } - -function quote_awk() { _qawk "$@"; } -function quoted_awk() { qawk "$@"; } -function quote_seds() { qseds "$@"; } -function quote_form() { _qform "$@"; } -function quoted_form() { qform "$@"; } - - -if [ -n "$BASH_VERSINFO" -a "${BASH_VERSINFO[0]}" -lt 4 ]; then - function strlower() { tr A-Z a-z <<<"$*"; } - function strlower1() { - local str="$*" - local h="${str:0:1}" r="${str:1}" - echo "$(tr A-Z a-z <<<"$h")$r" - } - function strlowers() { - local -a vs; local v - for v in "$@"; do - vs=("${vs[@]}" "$(strlower1 "$v")") - done - echo "${vs[*]}" - } - function strupper() { tr a-z A-Z <<<"$*"; } - function strupper1() { - local str="$*" - local h="${str:0:1}" r="${str:1}" - echo "$(tr a-z A-Z <<<"$h")$r" - } - function struppers() { - local -a vs; local v - for v in "$@"; do - vs=("${vs[@]}" "$(strupper1 "$v")") - done - echo "${vs[*]}" - } - - function is_yes() { - case "$1" in - o|oui|y|yes|v|vrai|t|true|on) return 0;; - O|OUI|Y|YES|V|VRAI|T|TRUE|ON) return 0;; - esac - isnum "$1" && [ "$1" -ne 0 ] && return 0 - case "$(strlower "$1")" in - o|oui|y|yes|v|vrai|t|true|on) return 0;; - esac - return 1 - } - function is_no() { - case "$1" in - n|non|no|f|faux|false|off) return 0;; - N|NON|NO|F|FAUX|FALSE|OFF) return 0;; - esac - isnum "$1" && [ "$1" -eq 0 ] && return 0 - case "$(strlower "$1")" in - n|non|no|f|faux|false|off) return 0;; - esac - return 1 - } -fi -##@inc]base.compat -uprovide base -urequire base.init base.core base.string base.num base.bool base.array base.quote base.split base.args base.tools base.compat - -UNAME_SYSTEM=`uname -s` -[ "${UNAME_SYSTEM#CYGWIN}" != "$UNAME_SYSTEM" ] && UNAME_SYSTEM=Cygwin -[ "${UNAME_SYSTEM#MINGW32}" != "$UNAME_SYSTEM" ] && UNAME_SYSTEM=Mingw -UNAME_MACHINE=`uname -m` -if [ -n "$UTOOLS_CHROOT" ]; then - [ -n "$UTOOLS_UNAME_SYSTEM" ] && eval "UNAME_SYSTEM=$UTOOLS_UNAME_SYSTEM" - [ -n "$UTOOLS_UNAME_MACHINE" ] && eval "UNAME_MACHINE=$UTOOLS_UNAME_MACHINE" -fi - -function setyesval() { - is_yes "$2" && set_var "$1" 1 || set_var "$1" "" -} -function normyesval() { - is_yes "${2:-"${!1}"}" && set_var "$1" 1 || set_var "$1" "" -} -function normyesvals() { - local __nyv_yesvar - for __nyv_yesvar in "$@"; do - is_yes "${!__nyv_yesvar}" && set_var "$__nyv_yesvar" 1 || set_var "$__nyv_yesvar" "" - done -} -function quote_in() { - sed 's/\\/\\\\/g -s/"/\\"/g -s/\$/\\$/g -s/`/\\`/g' -} -function quote_sin() { - sed "s/'/'\\\\''/g" -} -function quote_sarg() { - quote_sin <<<"$1" -} -function quoted_sarg() { - echo "'$(quote_sarg "$1")'" -} -function quoted_sargs() { - local a s - for a in "$@"; do - s="${s:+$s }$(quoted_sarg "$a")" - done - rawecho "$s" -} - -function set_array_cmd() { - [ $# -eq 1 ] && set -- "$1" "$1" - local __sac_s __sac_v __sac_f - __sac_s="$1=("; shift - if [ "$1" == "@" ]; then - shift - else - eval "set -- \"\${$1[@]}\"" - fi - __sac_f=1 - for __sac_v in "$@"; do - [ -n "$__sac_f" ] && __sac_f= || __sac_s="$__sac_s " - __sac_s="$__sac_s$(quoted_arg "$__sac_v")" - done - __sac_s="$__sac_s)" - echo "$__sac_s" -} -function set_array() { - eval "$(set_array_cmd "$@")" -} -function array_count() { - eval "echo \${#$1[*]}" -} -function array_isempty() { - [ $(array_count "$1") -eq 0 ] -} -function array_new() { - eval "$1=()" -} -function array_add() { - local __aa_a="$1"; shift - eval "$__aa_a=(\"\${$__aa_a[@]}\" \"\$@\")" -} -function array_ins() { - local __aa_a="$1"; shift - eval "$__aa_a=(\"\$@\" \"\${$__aa_a[@]}\")" -} -function array_del() { - local __ad_v - local -a __ad_vs - eval 'for __ad_v in "${'"$1"'[@]}"; do - if [ "$__ad_v" != '"$(quoted_arg "$2")"' ]; then - array_add __ad_vs "$__ad_v" - fi -done' - array_copy "$1" __ad_vs -} -function array_addu() { - local __as_v - eval 'for __as_v in "${'"$1"'[@]}"; do - if [ "$__as_v" == '"$(quoted_arg "$2")"' ]; then - return 1 - fi -done' - array_add "$1" "$2" - return 0 -} -function array_set() { - array_addu "$@" -} -function array_insu() { - local __as_v - eval 'for __as_v in "${'"$1"'[@]}"; do - if [ "$__as_v" == '"$(quoted_arg "$2")"' ]; then - return 1 - fi -done' - array_ins "$1" "$2" - return 0 -} -function array_fillrange() { - local -a __af_vs - local __af_i="${2:-1}" __af_to="${3:-10}" __af_step="${4:-1}" - while [ "$__af_i" -le "$__af_to" ]; do - __af_vs=("${__af_vs[@]}" "$__af_i") - __af_i=$(($__af_i + $__af_step)) - done - array_copy "$1" __af_vs -} -function array_eq() { - local -a __ae_a1 __ae_a2 - array_copy __ae_a1 "$1" - array_copy __ae_a2 "$2" - [ ${#__ae_a1[*]} -eq ${#__ae_a2[*]} ] || return 1 - local __ae_v __ae_i=0 - for __ae_v in "${__ae_a1[@]}"; do - [ "$__ae_v" == "${__ae_a2[$__ae_i]}" ] || return 1 - __ae_i=$(($__ae_i + 1)) - done - return 0 -} -function array_contains() { - local __ac_v - eval 'for __ac_v in "${'"$1"'[@]}"; do - if [ "$__ac_v" == '"$(quoted_arg "$2")"' ]; then - return 0 - fi -done' - return 1 -} -function array_find() { - local __af_i __af_v - __af_i=0 - eval 'for __af_v in "${'"$1"'[@]}"; do - if [ "$__af_v" == '"$(quoted_arg "$2")"' ]; then - if [ -n "$3" ]; then - echo "${'"$3"'[$__af_i]}" - else - echo "$__af_i" - fi - return 0 - fi - __af_i=$(($__af_i + 1)) -done' - return 1 -} -function array_reverse() { - local -a __ar_vs - local __ar_v - array_copy __ar_vs "$1" - array_new "$1" - for __ar_v in "${__ar_vs[@]}"; do - array_ins "$1" "$__ar_v" - done -} - -function array_replace() { - local __ar_sn="$1"; shift - local __ar_f="$1"; shift - local -a __ar_s __ar_d - local __ar_v - array_copy __ar_s "$__ar_sn" - for __ar_v in "${__ar_s[@]}"; do - if [ "$__ar_v" == "$__ar_f" ]; then - __ar_d=("${__ar_d[@]}" "$@") +function upvar() { + if unset -v "$1"; then + if [ $# -eq 2 ]; then + eval "$1=\"\$2\"" else - __ar_d=("${__ar_d[@]}" "$__ar_v") - fi - done - array_copy "$__ar_sn" __ar_d -} -function array_each() { - local __ae_an="$1"; shift - local __ae_f="$1"; shift - local -a __ae_a - local __ae_v - array_copy __ae_a "$__ae_an" - for __ae_v in "${__ae_a[@]}"; do - "$__ae_f" "$__ae_v" "$@" - done -} -function array_map() { - local __am_an="$1"; shift - local __am_f="$1"; shift - local -a __am_a __am_vs - local __am_v - array_copy __am_a "$__am_an" - for __am_v in "${__am_a[@]}"; do - __am_vs=("${__am_vs[@]}" "$("$__am_f" "$__am_v" "$@")") - done - array_copy "$__am_an" __am_vs -} -function first_value() { - eval "rawecho \"\${$1[@]:0:1}\"" -} -function last_value() { - eval "rawecho \"\${$1[@]:\$((-1)):1}\"" -} -function array_copy() { - eval "$1=(\"\${$2[@]}\")" -} -function array_copy_firsts() { - eval "$1=(\"\${${2:-$1}[@]:0:\$((\${#${2:-$1}[@]}-1))}\")" -} -function array_del_last() { - array_copy_firsts "$1" -} -function array_copy_lasts() { - eval "$1=(\"\${${2:-$1}[@]:1}\")" -} -function array_del_first() { - array_copy_lasts "$1" -} -function array_extend() { - eval "$1=(\"\${$1[@]}\" \"\${$2[@]}\")" -} -function array_extendu() { - local __ae_v __ae_s=1 - eval 'for __ae_v in "${'"$2"'[@]}"; do - array_addu "$1" "$__ae_v" && __ae_s=0 -done' - return "$__ae_s" -} -function array_extend_firsts() { - eval "$1=(\"\${$1[@]}\" \"\${$2[@]:0:\$((\${#$2[@]}-1))}\")" -} -function array_extend_lasts() { - eval "$1=(\"\${$1[@]}\" \"\${$2[@]:1}\")" -} -function array_xsplit() { - eval "$1=($(recho_ "$2" | awkrun RS="${3:-:}" ' -{ - gsub(/'\''/, "'\'\\\\\'\''") - print "'\''" $0 "'\''" -}'))" #" -} -function array_split() { - eval "$1=($(recho_ "$2" | awkrun RS="${3:-:}" ' -/^$/ { next } -{ - gsub(/'\''/, "'\'\\\\\'\''") - print "'\''" $0 "'\''" -}'))" #" -} -function array_from_path() { - array_split "$1" "$2" ":" -} -function array_from_xlines() { - eval "$1=($(recho_ "$2" | _nl2lf | awk ' -{ - gsub(/'\''/, "'\'\\\\\'\''") - print "'\''" $0 "'\''" -}'))" #" -} -function array_from_lines() { - eval "$1=($(recho_ "$2" | _nl2lf | awk ' -/^$/ { next } -{ - gsub(/'\''/, "'\'\\\\\'\''") - print "'\''" $0 "'\''" -}'))" #" -} -function array_join() { - local __aj_an __aj_l __aj_j __aj_s="${2:-,}" __aj_pf __aj_sf - if [ "$1" == "@" ]; then - __aj_an="\$@" - shift; shift - else - __aj_an="\${$1[@]}" - __aj_pf="$4" - __aj_sf="$5" - fi - eval 'for __aj_l in "'"$__aj_an"'"; do - __aj_j="${__aj_j:+$__aj_j'"$__aj_s"'}$__aj_pf$__aj_l$__aj_sf" -done' - if [ -n "$__aj_j" ]; then - rawecho "$__aj_j" - elif [ "$__aj_an" != "\$@" -a -n "$3" ]; then - rawecho "$3" - fi -} -function array_mapjoin() { - local __amj_src="$1" __amj_func="$2" __amj_sep="$3" - shift; shift; shift - if [ "$__amj_src" == "@" ]; then - local -a __amj_tmpsrc - __amj_tmpsrc=("$@") - __amj_src=__amj_tmpsrc - set -- - fi - local -a __amj_tmp - array_copy __amj_tmp "$__amj_src" - array_map __amj_tmp "$__amj_func" - array_join __amj_tmp "$__amj_sep" "$@" -} -function array_to_lines() { - array_join "$1" " -" "$2" "$3" "$4" -} -function array_to_path() { - array_join "$1" ":" "$2" "$3" "$4" -} -function array_fix_paths() { - local __afp_an="$1" __afp_s="${2:-:}" - local -a __afp_vs - local __afp_v - array_copy __afp_vs "$__afp_an" - array_new "$__afp_an" - for __afp_v in "${__afp_vs[@]}"; do - array_split __afp_v "$__afp_v" "$__afp_s" - array_extend "$__afp_an" __afp_v - done -} - - -function get_date_rfc822() { - LC_TIME=C date +"%a, %d %b %Y %H:%M:%S %Z" -} -function get_date_fr() { - LC_TIME=C date +"%d/%m/%Y" -} -function get_time_fr() { - LC_TIME=C date +"%Hh%M" -} -function parse_date() { - local value="$1" type="${2:-date}" - local now="$(awk 'BEGIN { print mktime(strftime("%Y %m %d 00 00 00 +0400")) }')" - case "$value" in - +*) - value="$(($now + ${value#+} * 86400))" - ;; - *) - value="$(<<<"$value" awk -F/ '{ - nd = strftime("%d"); nm = strftime("%m"); ny = strftime("%Y") - d = $1 + 0; if (d < 1) d = nd; - m = $2 + 0; if (m < 1) m = nm; - if ($3 == "") y = ny; - else { y = $3 + 0; if (y < 100) y = y + 2000; } - print mktime(sprintf("%04i %02i %02i 00 00 00 +0400", y, m, d)); - }')" - esac - case "$type" in - d|date) awk '{ print strftime("%d/%m/%Y", $0 + 0) }' <<<"$value";; - l|ldap) awk '{ print strftime("%Y%m%d%H%M%S+0400", $0 + 0) }' <<<"$value";; - m|mysql) awk '{ print strftime("%Y-%m-%d", $0 + 0) }' <<<"$value";; - *) - rawecho "$value" - ;; - esac -} - - -function udelpath() { - local _qdir="${1//\//\\/}" - eval "export ${2:-PATH}; ${2:-PATH}"'="${'"${2:-PATH}"'#$1:}"; '"${2:-PATH}"'="${'"${2:-PATH}"'%:$1}"; '"${2:-PATH}"'="${'"${2:-PATH}"'//:$_qdir:/:}"; [ "$'"${2:-PATH}"'" == "$1" ] && '"${2:-PATH}"'=' -} -function uaddpath() { - local _qdir="${1//\//\\/}" - eval "export ${2:-PATH}; "'[ "${'"${2:-PATH}"'#$1:}" == "$'"${2:-PATH}"'" -a "${'"${2:-PATH}"'%:$1}" == "$'"${2:-PATH}"'" -a "${'"${2:-PATH}"'//:$_qdir:/:}" == "$'"${2:-PATH}"'" -a "$'"${2:-PATH}"'" != "$1" ] && '"${2:-PATH}"'="${'"${2:-PATH}"':+$'"${2:-PATH}"':}$1"' -} -function uinspathm() { - local _qdir="${1//\//\\/}" - eval "export ${2:-PATH}; "'[ "${'"${2:-PATH}"'#$1:}" == "$'"${2:-PATH}"'" -a "${'"${2:-PATH}"'%:$1}" == "$'"${2:-PATH}"'" -a "${'"${2:-PATH}"'//:$_qdir:/:}" == "$'"${2:-PATH}"'" -a "$'"${2:-PATH}"'" != "$1" ] && '"${2:-PATH}"'="$1${'"${2:-PATH}"':+:$'"${2:-PATH}"'}"' -} -function uinspath() { - udelpath "$@" - uinspathm "$@" -} - -function withpath() { - [ "${1#./}" != "$1" -o "${1#../}" != "$1" -o "${1#/}" != "$1" ] -} -function withext() { - local basename="$(basename -- "$1")" - [ "${basename%.*}" != "$basename" ] -} -function normpath() { - local -a parts - local part ap - array_split parts "$1" / - if [ "${1#/}" != "$1" ]; then - ap=/ - elif [ -n "$2" ]; then - ap="$2" - else - ap="$(pwd)" - fi - for part in "${parts[@]}"; do - if [ "$part" == "." ]; then - continue - elif [ "$part" == ".." ]; then - ap="${ap%/*}" - [ -n "$ap" ] || ap=/ - else - [ "$ap" != "/" ] && ap="$ap/" - ap="$ap$part" - fi - done - rawecho "$ap" -} -function abspath() { - local ap="$1" - if [ "${ap#/}" != "$ap" ]; then - __normpath "$ap" && return - else - local cwd - if [ -n "$2" ]; then - cwd="$(abspath "$2")" - else - cwd="$(pwd)" - fi - ap="$cwd/$ap" - __normpath "$ap" && return - fi - normpath "$ap" -} -function __normpath() { - if [ -d "$1" ]; then - if [ -x "$1" ]; then - (cd "$1"; pwd) - return 0 - fi - elif [ -f "$1" ]; then - local dn="$(dirname -- "$1")" bn="$(basename -- "$1")" - if [ -x "$dn" ]; then - (cd "$dn"; echo "$(pwd)/$bn") - return 0 - fi - fi - return 1 -} -function parentdirs() { - array_new "$1" - local __pd_d="$(abspath "$2")" - if [[ "$3" == r* ]]; then - while [ "$__pd_d" != "/" ]; do - array_ins "$1" "$__pd_d" - __pd_d="$(dirname "$__pd_d")" - done - else - while [ "$__pd_d" != "/" ]; do - array_add "$1" "$__pd_d" - __pd_d="$(dirname "$__pd_d")" - done - fi -} -function ppath() { - local path="$1" cwd="$2" - - path="$(abspath "$path")" # essayer de normaliser le chemin - [ -n "$cwd" ] || cwd="$(pwd)" - - [ "$path" = "$cwd" ] && path="." - [ "$cwd" != "/" -a "$cwd" != "$HOME" ] && path="${path/#$cwd\//}" - path="${path/#$HOME/~}" - - rawecho "$path" -} -function relpath() { - local p="$(abspath "$1" "$3")" cwd="$2" - if [ -z "$cwd" ]; then - cwd="$(pwd)" - else - cwd="$(abspath "$cwd" "$3")" - fi - if [ "$p" == "$cwd" ]; then - echo "" - elif [ "${p#$cwd/}" != "$p" ]; then - rawecho "${p#$cwd/}" - else - local rp - while [ -n "$cwd" -a "${p#$cwd/}" == "$p" ]; do - rp="${rp:+$rp/}.." - cwd="${cwd%/*}" - done - rp="$rp/${p#$cwd/}" - echo "${rp%//}" - fi -} -function relpathx() { - local p="$(relpath "$@")" - if [ -z "$p" ]; then - echo . - elif [ "${p#../}" != "$p" -o "${p#./}" != "$p" ]; then - echo "$p" - else - echo "./$p" - fi -} -function withinpath() { - local b="$1" p="$2" strict="${3:-N}" - b="$(abspath "$b")" - p="$(abspath "$p")" - if is_yes "$strict"; then - [ "${p#$b/}" != "$p" ] - else - [ "$p" == "$b" -o "${p#$b/}" != "$p" ] - fi -} -function safe_abspath() { - local p="$1" ba="$2" br="$3" - if [ -n "$ba" ]; then - ba="$(abspath "$ba")" - else - ba="$(pwd)" - fi - [ -n "$br" ] || br="$ba" - br="$(abspath "$br" "$ba")" - p="$(abspath "$p" "$ba")" - if [ "$p" == "$br" -o "${p#$br/}" != "$p" ]; then - echo "$p" - else - return 1 - fi -} -function safe_relpath() { - local p - if p="$(safe_abspath "$1" "$2" "$3")"; then - relpath "$p" "$2" "$(pwd)" - else - return 1 - fi -} -function splitwcs() { - local __sw_p="$1" - local __sw_dd="${2:-basedir}" __sw_df="${3:-filespec}" __sw_part __sw_d __sw_f - local -a __sw_parts - array_split __sw_parts "$__sw_p" "/" - for __sw_part in "${__sw_parts[@]}"; do - if [[ "$__sw_part" == *\** ]] || [[ "$__sw_part" == *\?* ]] || [ -n "$__sw_f" ]; then - __sw_f="${__sw_f:+$__sw_f/}$__sw_part" - else - __sw_d="${__sw_d:+$__sw_d/}$__sw_part" - fi - done - [ "${__sw_p#/}" != "$__sw_p" ] && __sw_d="/$__sw_d" - set_var "$__sw_dd" "$__sw_d" - set_var "$__sw_df" "$__sw_f" -} -function deref() { - local OENC="$UTF8" - - local max_deref=50 - local file="$1" - local basedir link - while [ -L "$file" ]; do - basedir="$(dirname "$file")" - link="$(readlink "$file")" - if first_char_is "$link" "/"; then - file="$link" - else - file="$basedir/$link" - fi - - max_deref=$(($max_deref - 1)) - [ $max_deref -eq 0 ] && die "Plus de 50 indirection. Le lien $file est-il récursif?" - done - abspath "$file" -} -function readlinka() { - if [ -L "$1" ]; then - local linkdir="$(dirname -- "$1")" - abspath "$(readlink "$1")" "$linkdir" - else - abspath "$1" - fi -} -function readlinkm() { - readlink -m "$1" -} -function path_if_test() { - local op="$1"; shift - local file="$1"; shift - local rel="$1" reldir=; shift - if beginswith "$rel" relative; then - reldir="${rel#relative}" - if beginswith "$reldir" :; then - reldir="${reldir#:}" - if [ -n "$reldir" ]; then - reldir="${reldir}/" - fi - else - reldir= - fi - else - rel= - fi - - while [ -n "$1" ]; do - local basedir="$1" - if [ $op "$basedir/$file" ]; then - if [ -n "$rel" ]; then - rawecho "$reldir$file" - else - rawecho "$basedir/$file" - fi - break - fi - shift - done -} -function update_link() { - [ -L "$2" ] || return 1 - local dest link="$2" - local linkdir="$(dirname "$link")" - local ldest="$(readlink "$link")" - if [ "${ldest#/}" != "$ldest" ]; then - dest="$(abspath "$1")" - else - dest="$(relpath "$1" "$linkdir")" - fi - if [ "$dest" == "$ldest" ]; then - : # pas besoin de mettre à jour - elif [ -d "$link" ]; then - rm -f "$link" && ln -s "$dest" "$link" - else - ln -sf "$dest" "$link" - fi -} -function update_links() { - [ -n "$1" ] || return 1 - local dest="$1"; shift - local r=0 link - for link in "$@"; do - update_link "$dest" "$link" || r=$? - done - return $r -} -function move_link() { - [ -n "$1" -a -n "$2" ] || return 1 - local link="$1" dest="$2" - [ -d "$dest" ] && dest="$dest/$(basename -- "$link")" - dest="$(abspath "$dest")" - if [ -L "$link" ]; then - link="$(abspath "$link")" - [ "$dest" == "$link" ] && return 0 - ldest="$(readlinka "$link")" - mv "$link" "$dest" || return 1 - update_link "$ldest" "$dest" - else - [ "$dest" == "$link" ] && return 0 - mv "$link" "$dest" - fi -} -function array_find_links() { - local -a __afl_links __afl_result - local __afl_dir="${3:-.}" - local __afl_dest __afl_destname __afl_link __afl_linkdir __afl_ldest - __afl_dest="$(abspath "$2")" - __afl_destname="${__afl_dest##*/}" - array_from_lines __afl_links "$(find "$__afl_dir" -type l)" - for __afl_link in "${__afl_links[@]}"; do - __afl_ldest="$(readlink "$__afl_link")" - if [ "$__afl_ldest" != "$__afl_destname" ]; then - [[ "$__afl_ldest" == */"$__afl_destname" ]] || continue - fi - __afl_link="$(abspath "$__afl_link" "$__afl_dir")" - __afl_linkdir="$(dirname -- "$__afl_link")" - __afl_ldest="$(abspath "$__afl_ldest" "$__afl_linkdir")" - if [ "$__afl_ldest" == "$__afl_dest" ]; then - array_add __afl_result "$__afl_link" - fi - done - array_copy "$1" __afl_result -} -function list_links() { - local -a links - array_find_links links "$@" - array_to_lines links -} -function move_file() { - [ -n "$1" -a -n "$2" ] || return 1 - local src="$1" dest="$2" link - shift; shift - [ -d "$dest" ] && dest="$dest/$(basename -- "$src")" - move_link "$src" "$dest" || return 1 - update_links "$dest" "$@" -} - -function get_nblines() { - [ -f "$1" ] && sed -ne '$=' "$1" || echo 0 -} -function mktempf() { - mktemp "${1:-"$TMPDIR/tmp.XXXXXX"}" -} -function mktempd() { - mktemp -d "${1:-"$TMPDIR/tmp.XXXXXX"}" -} -function mkdirof() { - mkdir -p "$(dirname -- "$1")" -} -function cp_a() { - /bin/cp -a "$@" -} -function cp_R() { - /bin/cp -pR "$@" -} -function quietgrep() { - grep -q "$@" 2>/dev/null -} -function quietdiff() { - diff -q "$@" >&/dev/null -} -function testsame() { - quietdiff "$@" -} -function testdiff() { - ! quietdiff "$@" -} -function testupdated() { - if [ -f "$2" ]; then - testdiff "$1" "$2" - else - return 0 - fi -} -function testnewer() { - test ! -e "$2" -o "$1" -nt "$2" -} -function ps_all() { - ps -axww -} -function progexists() { - test -n "$1" -a -x "$(which "$1" 2>/dev/null)" -} -function has_python() { - progexists python -} -function has_gawk() { - progexists gawk -} -function is_root() { - test `id -u` -eq 0 -} -function source_ifexists() { - if [ -f "$1" ]; then source "$1" || die; fi -} -function little_sleep { - LC_NUMERIC=C sleep 0.1 -} -function random_sleep { - sleep $(($RANDOM % ${1:-1800})) -} -function is_running() { - kill -0 "$1" >&/dev/null -} -function sedi() { - sed -i "$@" -} -function csort() { - LANG=C sort "$@" -} -function lsort() { sort "$@"; } -function cgrep() { - LANG=C grep "$@" -} -function lgrep() { grep "$@"; } -function csed() { - LANG=C sed "$@" -} -function lsed() { sed "$@"; } -function cawk() { - LANG=C awk "$@" -} -function lawk() { awk "$@"; } -function cdiff() { - LANG=C diff "$@" -} -function ldiff() { diff "$@"; } - - -function fix_mode() { - local file="$1" - [ -f "$file" ] || touch "$file" || return 1 - if [ ! -w "$file" ]; then - local mode="$(stat -c %a "$file")" - chmod ${mode:0:${#mode}-3}6${mode:${#mode}-2:2} "$file" - echo "$mode" - fi -} -function unfix_mode() { - [ -n "$2" ] && chmod "$2" "$1" -} -function get_mode() { - [ -f "$1" ] || touch "$1" || return 1 - stat -c %a "$1" -} -function rm_maybe() { - local parse_opts=1 arg rm - for arg in "$@"; do - if [ -n "$parse_opts" ]; then - if [ "$arg" == "--" ]; then - parse_opts= - elif [[ "$arg" == "-*" ]]; then - continue - elif [ -n "$arg" ]; then - rm=1 - break - fi - elif [ -n "$arg" ]; then - rm=1 - break - fi - done - [ -n "$rm" ] && /bin/rm "$@" -} -__CPDIR_RSYNC_SLOW=1 # synchro potentiellement plus lente, mais plus fidèle (option -c) -__CPDIR_RSYNC_ARGS=(-q) -function cpdir() { - - if progexists rsync; then - [ -d "$2" ] || mkdir -p "$2" || return 1 - if [ -d "$1" ]; then - rsync -a ${__CPDIR_RSYNC_SLOW:+-c} "${__CPDIR_RSYNC_ARGS[@]}" "$1/" "$2/" - else - rsync -a ${__CPDIR_RSYNC_SLOW:+-c} "${__CPDIR_RSYNC_ARGS[@]}" "$1" "$2/" - fi - else - __cpdir "$@" - fi -} -function __cpdir() { - local src="$1" dest="$2" method="${3:-cp_a}" - - if [ -d "$src" ]; then - [ -d "$dest" ] || mkdir -p "$dest" || return 1 - - local prevdir="$(pwd)" - - dest="$(abspath "$dest")" - cd "$src" - if [ -n "$(/bin/ls -a1)" ]; then - [ -n "$(/bin/ls -1)" ] && "$method" * "$dest" - local i - for i in .*; do - [ "$i" == "." -o "$i" == ".." ] && continue - "$method" "$i" "$dest" - done - fi - cd "$prevdir" - else - if [ -f "$dest" ]; then - "$method" "$src" "$dest" - elif [ -d "$dest" ]; then - "$method" "$src" "$dest" - else - mkdir -p "$dest" - "$method" "$src" "$dest" + eval "$1=(\"\${@:2}\")" fi fi } -__CPNOVCS_RSYNC_SLOW=1 # synchro potentiellement plus lente, mais plus fidèle (option -c) -__CPNOVCS_RSYNC_ARGS=(-q) -function cpnovcs() { - local src="$1" destdir="$2" - [ -d "$destdir" ] || mkdir -p "$destdir" || return 1 - if progexists rsync; then - local gitexclude=/.git/ - if [ "${src%/}" == "$src" ]; then - gitexclude="/$(basename -- "$src")$gitexclude" - fi - rsync -a ${__CPNOVCS_RSYNC_SLOW:+-c} --exclude CVS/ --exclude .svn/ --exclude "$gitexclude" "${__CPNOVCS_RSYNC_ARGS[@]}" "$src" "$destdir/" - elif [ "${src%/}" != "$src" ]; then - __cpdir "$src" "$destdir" - else - local srcname="$(basename -- "$src")" - mkdir -p "$destdir/$srcname" - __cpdir "$src" "$destdir/$srcname" - fi +function array_upvar() { + unset -v "$1" && eval "$1=(\"\${@:2}\")" } -function cpdirnovcs() { - if [ -d "$1" ]; then - cpnovcs "$1/" "$2" - else - cpnovcs "$1" "$2" - fi -} -function doinplace() { - if [ -n "$1" -a "$1" != "-" ]; then - local __dip_file="$1"; shift - autoclean "$__dip_file.tmp.$$" - "$@" <"$__dip_file" >"$__dip_file.tmp.$$" - local s=$? - [ "$s" == 0 ] && /bin/cat "$__dip_file.tmp.$$" >"$__dip_file" - /bin/rm -f "$__dip_file.tmp.$$" - return $s - else - shift - "$@" - fi -} -function doinplacef() { - if [ -n "$1" -a "$1" != "-" ]; then - local __dip_file="$1"; shift - autoclean "$__dip_file.tmp.$$" - "$@" <"$__dip_file" >"$__dip_file.tmp.$$" - local s=$? - /bin/cat "$__dip_file.tmp.$$" >"$__dip_file" - /bin/rm -f "$__dip_file.tmp.$$" - return $s - else - shift - "$@" - fi -} -function stripnl() { - tr -d '\r\n' -} -function _nl2lf() { - awk 'BEGIN {RS="\r|\r\n|\n"} {print}' -} -function nl2lf() { - doinplace "$1" _nl2lf -} -function _nl2crlf() { - awk 'BEGIN {RS="\r|\r\n|\n"} {print $0 "\r"}' -} -function nl2crlf() { - doinplace "$1" _nl2crlf -} -function _nl2cr() { - awk 'BEGIN {RS="\r|\r\n|\n"; ORS=""} {print $0 "\r"}' -} -function nl2cr() { - doinplace "$1" _nl2cr -} -function _latin1compat() { - LANG=fr_FR.UTF-8 sed $' -s/[‘’]/\x27/g -s/[«»“”]/"/g -s/[\xC2\xA0\xE2\x80\x87\xE2\x80\xAF\xE2\x81\xA0]/ /g -' -} -function _noaccents() { - LANG=fr_FR.UTF-8 sed ' -s/[à]/a/g -s/[éèêë]/e/g -s/[ïî]/i/g -s/[ôö]/o/g -s/[üû]/u/g -s/[ç]/c/g -s/[À]/A/g -s/[ÉÈÊË]/E/g -s/[ÏÎ]/I/g -s/[ÔÖ]/O/g -s/[ÜÛ]/U/g -s/[Ç]/C/g -' -} -function list_all() { - local curdir="$(pwd)" - local b="${1:-.}"; shift - - cd "$b" 2>/dev/null || return - eval "$(__la_cmd "$@")" | while read f; do - [ "$f" == "." -o "$f" == ".." ] && continue - rawecho "$f" - done - cd "$curdir" -} -function __la_cmd() { - [ $# -gt 0 ] || set '*' - local arg - local cmd="/bin/ls -1d" - for arg in "$@"; do - arg="$(_rval "$arg")" - cmd="$cmd $arg" - done - cmd="$cmd 2>/dev/null" - echo "$cmd" -} -function list_files() { - local f - local curdir="$(pwd)" - local b="${1:-.}"; shift - - cd "$b" 2>/dev/null || return - eval "$(__la_cmd "$@")" | while read f; do - [ -f "$f" ] && rawecho "$f" - done - cd "$curdir" -} -function list_dirs() { - local f - local curdir="$(pwd)" - local b="${1:-.}"; shift - - cd "$b" 2>/dev/null || return - eval "$(__la_cmd "$@")" | while read f; do - [ "$f" == "." -o "$f" == ".." ] && continue - [ -d "$f" ] && rawecho "$f" - done - cd "$curdir" -} -function __array_ls() { - local __al_l="list_${1:-all}"; shift - local __al_an="$1"; shift - local __al_d="${1:-.}"; shift - local -a __al_fs - array_from_lines __al_fs "$("$__al_l" "$__al_d" "$@")" - local __al_f - array_new "$__al_an" - for __al_f in "${__al_fs[@]}"; do - array_add "$__al_an" "$__al_d/$__al_f" - done -} -function array_lsall() { - __array_ls all "$@" -} -function array_lsdirs() { - __array_ls dirs "$@" -} -function array_lsfiles() { - __array_ls files "$@" -} -function filter_empty() { - sed '/^$/d' -} -function filter_vcspath() { - sed ' -/^.git$/d -/^.git\//d -/\/.git$/d -/\/.git\//d -/^.svn$/d -/^.svn\//d -/\/.svn$/d -/\/.svn\//d -' -} -function merge_contlines() { - awk 'substr($0, length($0)) == "\\" { - while (getline nextline) { - $0 = substr($0, 1, length($0) - 1) nextline - if (substr($0, length($0)) != "\\") break - } - print - next -} -{print}' -} -function filter_comment() { - local -a merge - [ "$1" == -m ] && merge=(merge_contlines) || merge=(cat) - awk ' - /^[ \t]*#/ { next } - /^[ \t]*$/ { next } - { print }' | "${merge[@]}" -} -function filter_conf() { - local -a merge - [ "$1" == -m ] && merge=(merge_contlines) || merge=(cat) - grep -v '^#' | grep -v '^$' | "${merge[@]}" -} -function is_archive() { - local name="${1%.zip}" - name="${name%.tgz}" - name="${name%.tbz2}" - name="${name%.tar.gz}" - name="${name%.tar.bz2}" - name="${name%.tar}" - name="${name%.jar}" - name="${name%.war}" - name="${name%.ear}" - [ "$name" != "$1" ] -} -function extract_archive() { - local arch="$1" destdir="${2:-.}" - shift; shift - if endswith "$arch" .zip; then - unzip -q -d "$destdir" "$arch" "$@" || return - elif endswith "$arch" .tgz || endswith "$arch" .tar.gz; then - tar xzf "$arch" -C "$destdir" "$@" || return - elif endswith "$arch" .tbz2 || endswith "$arch" .tar.bz2; then - tar xjf "$arch" -C "$destdir" "$@" || return - elif endswith "$arch" .tar; then - tar xf "$arch" -C "$destdir" "$@" || return - elif endswith "$arch" .jar || endswith "$arch" .war || endswith "$arch" .ear; then - ( - arch="$(abspath "$arch")" - cd "$destdir" - jar xf "$arch" "$@" - ) || return - else - return 1 - fi -} -function get_archive_basename() { - local basename="$(basename -- "$1")" - basename="${basename%.zip}" - basename="${basename%.tgz}" - basename="${basename%.tbz2}" - basename="${basename%.gz}" - basename="${basename%.bz2}" - basename="${basename%.tar}" - basename="${basename%.jar}" - basename="${basename%.war}" - basename="${basename%.ear}" - echo "$basename" -} -function get_archive_appname() { - local appname="$(basename -- "$1")" - appname="${appname%.zip}" - appname="${appname%.tgz}" - appname="${appname%.tbz2}" - appname="${appname%.gz}" - appname="${appname%.bz2}" - appname="${appname%.tar}" - appname="${appname%.jar}" - appname="${appname%.war}" - appname="${appname%.ear}" - echo "$appname" | awk '{ - if (match($0, /[-_.]([0-9]+([-_.][0-9]+)*([a-zA-Z][0-9]*|[-_.][0-9]+[a-zA-Z][0-9]*)?)$/)) { - print substr($0, 1, RSTART - 1) - } else if (match($0, /([0-9]+([-_.][0-9]+)*([a-zA-Z][0-9]*|[-_.][0-9]+[a-zA-Z][0-9]*)?)$/)) { - print substr($0, 1, RSTART - 1) - } else if (match($0, /([0-9]+[a-z][a-z][a-z0-9]?)$/, vs)) { - print substr($0, 1, RSTART - 1) - } else { - print $0 - } -}' -} -function get_archive_versionsuffix() { - local basename="$(get_archive_basename "$1")" - echo "$basename" | awk '{ - if (match($0, /([-_.][0-9]+([-_.][0-9]+)*([a-zA-Z][0-9]*|[-_.][0-9]+[a-zA-Z][0-9]*)?)$/, vs)) { - print vs["1"] - } else if (match($0, /([0-9]+([-_.][0-9]+)*([a-zA-Z][0-9]*|[-_.][0-9]+[a-zA-Z][0-9]*)?)$/, vs)) { - print vs["1"] - } else if (match($0, /([0-9]+[a-z][a-z][a-z0-9]?)$/, vs)) { - print vs["1"] - } -}' -} -function get_archive_version() { - local basename="$(get_archive_basename "$1")" - echo "$basename" | awk '{ - if (match($0, /[-_.]([0-9]+([-_.][0-9]+)*([a-zA-Z][0-9]*|[-_.][0-9]+[a-zA-Z][0-9]*)?)$/, vs)) { - print vs["1"] - } else if (match($0, /([0-9]+([-_.][0-9]+)*([a-zA-Z][0-9]*|[-_.][0-9]+[a-zA-Z][0-9]*)?)$/, vs)) { - print vs["1"] - } else if (match($0, /([0-9]+[a-z][a-z][a-z0-9]?)$/, vs)) { - print vs["1"] - } -}' -} -function __dump_usernames() { - = 500 && $6 ~ /^\/home\// { print $1 }' -} -function dump_usernames() { - array_from_lines "${1:-usernames}" "$(__dump_usernames)" -} -function __resolv_ips() { - LANG=C host "$1" 2>/dev/null | awk '/address / { gsub(/^.*address /, ""); print }' -} -function resolv_ips() { - array_from_lines "${1:-ips}" "$(__resolv_ips "$2")" -} -function __resolv_hosts() { - LANG=C host "$1" 2>/dev/null | awk '/domain name pointer / { gsub(/^.*domain name pointer /, ""); gsub(/\.$/, ""); print }' -} -function resolv_hosts() { - array_from_lines "${1:-hosts}" "$(__resolv_hosts "$2")" -} -function runscript_as() { - local OENC="$UTF8" - local user="${1:-root}"; shift - local exec_maybe= - if [ "$1" = "exec" ]; then - exec_maybe=exec - shift - fi - - local cmd - cmd="\ -__estack=$(quoted_arg "$__estack") -__tlevel=$(quoted_args "$__tlevel") -export __estack __tlevel -exec ${BASH:-/bin/sh} $(quoted_args "$@")" - - if is_yes "$UTOOLS_USES_SU" || ! progexists sudo; then - eecho "Entrez le mot de passe de root" - $exec_maybe su "$user" -c "$cmd" - else - if [ "$user" == "root" ]; then - $exec_maybe sudo -p "Entrez le mot de passe de %u: " "${BASH:-/bin/sh}" -c "$cmd" - else - $exec_maybe sudo -p "Entrez le mot de passe de %u: " su "$user" -c "$cmd" - fi - fi -} -function runscript_as_root() { - if is_root; then - local exec_maybe= - if [ "$1" = "exec" ]; then - exec_maybe=exec - shift - fi - $exec_maybe "${BASH:-/bin/sh}" "$@" - else - runscript_as root "$@" - fi -} -function run_as() { - local user="${1:-root}"; shift - local exec_maybe=exec - if [ "$1" = "--noexec" ]; then - exec_maybe= - shift - fi - - runscript_as "$user" $exec_maybe "$0" "$@" -} -function run_as_root() { - is_root || run_as root "$@" -} -function check_user() { - local user - for user in "$@"; do - [ "$USER" == "$user" ] && return 0 - done - return 1 -} -function ensure_user() { - local -a users - while [ $# -gt 0 -a "$1" != "--" ]; do - array_add users "$1" - shift - done - [ "$1" == "--" ] && shift - - if ! check_user "${users[@]}"; then - if [ ${#users[*]} -gt 1 ]; then - ewarn "Cette commande doit être lancée avec l'un des users ${users[*]}" - else - ewarn "Cette commande doit être lancée avec le user ${users[0]}" - fi - if ask_yesno "Voulez-vous tenter de relancer la commande avec le bon user?" O; then - estep "Lancement du script avec le user ${users[0]}" - run_as "${users[0]}" "$@" - return 1 - elif is_root; then - return 11 - else - return 10 - fi - fi - return 0 -} -function check_hostname() { - local userhost user host path - for userhost in "$@"; do - splitfsep "$userhost" : userhost path - splituserhost "$userhost" user host - [ "$MYHOSTNAME" == "${host%%.*}" ] && return 0 - done - return 1 -} -function check_userhostname() { - local userhost path user host - for userhost in "$@"; do - if check_hostname "$userhost"; then - [[ "$userhost" == *@* ]] || return 0 - splitfsep "$userhost" : userhost path - splituserhost "$userhost" user host - check_user "$user" && return 0 - fi - done - return 1 -} -UTOOLS_ENSURE_HOSTNAME_SSH_OPTS=() -function ensure_hostname() { - local -a userhosts - while [ $# -gt 0 -a "$1" != "--" ]; do - array_add userhosts "$1" - shift - done - [ "$1" == "--" ] && shift - - local userhost user host path - if ! check_hostname "${userhosts[@]}"; then - if [ ${#userhosts[*]} -gt 1 ]; then - ewarn "Cette commande n'est valide que sur l'un des hôtes ${userhosts[*]}" - else - ewarn "Cette commande n'est valide que sur l'hôte ${userhosts[0]}" - fi - - enote "Vous pouvez tenter de relancer le script sur ${userhosts[0]}, mais cela requière que ce script ET les données dont il a besoin soient installés dans la même version et dans le même répertoire sur l'hôte distant" - if ask_yesno "Voulez-vous tenter de relancer le script sur l'hôte distant?" N; then - splitfsep "${userhosts[0]}" : userhost path - splituserhost "$userhost" user host - [ -n "$user" ] || user=root - - estep "Lancement de la commande sur l'hôte distant $user@$host" - local cmd - [ -n "$path" ] && cmd="$(quoted_args cd "$path"); " - cmd="$cmd$(quoted_args "$script" "$@")" - ssh -qt "${UTOOLS_ENSURE_HOSTNAME_SSH_OPTS[@]}" "$user@$host" "$cmd" - [ $? -eq 255 ] && return 12 - return 1 - else - return 11 - fi - fi - local userhost user host - for userhost in "${userhosts[@]}"; do - [[ "$userhost" == *@* ]] || continue - if check_hostname "$userhost"; then - splitfsep "$userhost" : userhost path - splituserhost "$userhost" user host - [ -n "$path" ] && cd "$path" - ensure_user "$user" -- "$@" - return $? - fi - done - return 0 -} - -__AWKDEF_FUNCTIONS=' -function quote_html(s) { - gsub(/&/, "\\&", s) - gsub(/"/, "\\"", s) - gsub(/>/, "\\>", s) - gsub(/", s) - gsub(/"/, "\"", s) - gsub(/&/, "\\&", s) - return s -} -function quote_value(s) {'" - gsub(/'/, \"'\\\\''\", s) - return \"'\" s \"'\" -"'} -function quoted_values( i, line) { - line = "" - for (i = 1; i <= NF; i++) { - if (i > 1) line = line " " - line = line quote_value($i) - } - return line -} -function quote_subrepl(s) { - gsub(/\\/, "\\\\", s) - gsub(/&/, "\\\\&", s) - return s -} -function quote_grep(s) { - gsub(/[[\\.^$*]/, "\\\\&", s) - return s -} -function quote_egrep(s) { - gsub(/[[\\.^$*+?()|{]/, "\\\\&", s) - return s -} -function quote_sql(s) {'" - gsub(/'/, \"''\", s) - return \"'\" s \"'\" -"'} -function unquote_mysqlcsv(s) { - gsub(/\\n/, "\n", s) - gsub(/\\t/, "\t", s) - gsub(/\\0/, "\0", s) - gsub(/\\\\/, "\\", s) - return s -} -function array_new(dest) { - dest[0] = 0 # forcer awk à considérer dest comme un tableau - delete dest -} -function array_newsize(dest, size, i) { - dest[0] = 0 # forcer awk à considérer dest comme un tableau - delete dest - size = int(size) - for (i = 1; i <= size; i++) { - dest[i] = "" - } -} -function array_len(values, count, i) { - count = 0 - for (i in values) { - count++ - } - return count -} -function mkindices(values, indices, i, j) { - array_new(indices) - j = 1 - for (i in values) { - indices[j++] = int(i) - } - return asort(indices) -} -function array_copy(dest, src, count, indices, i) { - array_new(dest) - count = mkindices(src, indices) - for (i = 1; i <= count; i++) { - dest[indices[i]] = src[indices[i]] - } -} -function array_getlastindex(src, count, indices) { - count = mkindices(src, indices) - if (count == 0) return 0 - return indices[count] -} -function array_add(dest, value, lastindex) { - lastindex = array_getlastindex(dest) - dest[lastindex + 1] = value -} -function array_deli(dest, i, l) { - i = int(i) - if (i == 0) return - l = array_len(dest) - while (i < l) { - dest[i] = dest[i + 1] - i++ - } - delete dest[l] -} -function array_del(dest, value, ignoreCase, i) { - do { - i = key_index(value, dest, ignoreCase) - if (i != 0) array_deli(dest, i) - } while (i != 0) -} -function array_extend(dest, src, count, lastindex, indices, i) { - lastindex = array_getlastindex(dest) - count = mkindices(src, indices) - for (i = 1; i <= count; i++) { - dest[lastindex + i] = src[indices[i]] - } -} -function array_fill(dest, i) { - array_new(dest) - for (i = 1; i <= NF; i++) { - dest[i] = $i - } -} -function array_getline(src, count, indices, i, j) { - $0 = "" - count = mkindices(src, indices) - for (i = 1; i <= count; i++) { - j = indices[i] - $j = src[j] - } -} -function array_appendline(src, count, indices, i, nf, j) { - count = mkindices(src, indices) - nf = NF - for (i = 1; i <= count; i++) { - j = nf + indices[i] - $j = src[indices[i]] - } -} -function in_array(value, values, ignoreCase, i) { - if (ignoreCase) { - value = tolower(value) - for (i in values) { - if (tolower(values[i]) == value) return 1 - } - } else { - for (i in values) { - if (values[i] == value) return 1 - } - } - return 0 -} -function key_index(value, values, ignoreCase, i) { - if (ignoreCase) { - value = tolower(value) - for (i in values) { - if (tolower(values[i]) == value) return int(i) - } - } else { - for (i in values) { - if (values[i] == value) return int(i) - } - } - return 0 -} -function array2s(values, prefix, sep, suffix, noindices, first, i, s) { - if (!prefix) prefix = "[" - if (!sep) sep = ", " - if (!suffix) suffix = "]" - s = prefix - first = 1 - for (i in values) { - if (first) first = 0 - else s = s sep - if (!noindices) s = s "[" i "]=" - s = s values[i] - } - s = s suffix - return s -} -function array2so(values, prefix, sep, suffix, noindices, count, indices, i, s) { - if (!prefix) prefix = "[" - if (!sep) sep = ", " - if (!suffix) suffix = "]" - s = prefix - count = mkindices(values, indices) - for (i = 1; i <= count; i++) { - if (i > 1) s = s sep - if (!noindices) s = s "[" indices[i] "]=" - s = s values[indices[i]] - } - s = s suffix - return s -} -function array_join(values, sep, prefix, suffix, count, indices, i, s) { - s = prefix - count = mkindices(values, indices) - for (i = 1; i <= count; i++) { - if (i > 1) s = s sep - s = s values[indices[i]] - } - s = s suffix - return s -} -function printto(s, output) { - if (output == "") { - print s - } else if (output ~ /^>>/) { - sub(/^>>/, "", output) - print s >>output - } else if (output ~ /^>/) { - sub(/^>/, "", output) - print s >output - } else { - print s >output - } -} -function find_line(input, field, value, orig, line) { - orig = $0 - line = "" - while ((getline 0) { - if ($field == value) { - line = $0 - break - } - } - close(input) - $0 = orig - return line -} -function merge_line(input, field, key, line) { - line = find_line(input, field, $key) - if (line != "") $0 = $0 FS line -} -function __csv_parse_quoted(line, destl, colsep, qchar, echar, pos, tmpl, nextc, resl) { - line = substr(line, 2) - resl = "" - while (1) { - pos = index(line, qchar) - if (pos == 0) { - resl = resl line - destl[0] = "" - destl[1] = 0 - return resl - } - if (echar != "" && pos > 1) { - prevc = substr(line, pos - 1, 1) - quotec = substr(line, pos, 1) - nextc = substr(line, pos + 1, 1) - if (prevc == echar) { - tmpl = substr(line, 1, pos - 2) - resl = resl tmpl quotec - line = substr(line, pos + 1) - continue - } - tmpl = substr(line, 1, pos - 1) - if (nextc == colsep || nextc == "") { - resl = resl tmpl - destl[0] = substr(line, pos + 2) - destl[1] = nextc == colsep - return resl - } else { - resl = resl tmpl quotec - line = substr(line, pos + 1) - } - } else { - tmpl = substr(line, 1, pos - 1) - quotec = substr(line, pos, 1) - nextc = substr(line, pos + 1, 1) - if (nextc == colsep || nextc == "") { - resl = resl tmpl - destl[0] = substr(line, pos + 2) - destl[1] = nextc == colsep - return resl - } else if (nextc == qchar) { - resl = resl tmpl quotec - line = substr(line, pos + 2) - } else { - resl = resl tmpl quotec - line = substr(line, pos + 1) - } - } - } -} -function __csv_parse_unquoted(line, destl, colsep, qchar, echar, pos) { - pos = index(line, colsep) - if (pos == 0) { - destl[0] = "" - destl[1] = 0 - return line - } else { - destl[0] = substr(line, pos + 1) - destl[1] = 1 - return substr(line, 1, pos - 1) - } -} -function __array_parsecsv(fields, line, nbfields, colsep, qchar, echar, shouldparse, destl, i) { - array_new(fields) - array_new(destl) - i = 1 - shouldparse = 0 - while (shouldparse || line != "") { - if (index(line, qchar) == 1) { - value = __csv_parse_quoted(line, destl, colsep, qchar, echar) - line = destl[0] - shouldparse = destl[1] - } else { - value = __csv_parse_unquoted(line, destl, colsep, qchar, echar) - line = destl[0] - shouldparse = destl[1] - } - fields[i] = value - i = i + 1 - } - if (nbfields) { - nbfields = int(nbfields) - i = array_len(fields) - while (i < nbfields) { - i++ - fields[i] = "" - } - } - return array_len(fields) -} -BEGIN { - DEFAULT_COLSEP = "," - DEFAULT_QCHAR = "\"" - DEFAULT_ECHAR = "" -} -function array_parsecsv2(fields, line, nbfields, colsep, qchar, echar) { - return __array_parsecsv(fields, line, nbfields, colsep, qchar, echar) -} -function array_parsecsv(fields, line, nbfields, colsep, qchar, echar) { - if (colsep == "") colsep = DEFAULT_COLSEP - if (qchar == "") qchar = DEFAULT_QCHAR - if (echar == "") echar = DEFAULT_ECHAR - return __array_parsecsv(fields, line, nbfields, colsep, qchar, echar) -} -function parsecsv(line, fields) { - array_parsecsv(fields, line) - array_getline(fields) - return NF -} -function getlinecsv(file, fields) { - if (file) { - getline 1) line = line colsep - if (qchar != "" && index(value, qchar) != 0) { - if (echar != "") gsub(qchar, quote_subrepl(echar) "&", value); - else gsub(qchar, "&&", value); - } - if (qchar != "" && (index(value, mvsep) != 0 || index(value, colsep) != 0 || index(value, qchar) != 0 || __csv_should_quote(value))) { - line = line qchar value qchar - } else { - line = line value - } - } - return line -} -function array_formatcsv(fields) { - return array_formatcsv2(fields, ",", ";", "\"", "") -} -function array_printcsv(fields, output) { - printto(array_formatcsv(fields), output) -} -function get_formatcsv( fields) { - array_fill(fields) - return array_formatcsv(fields) -} -function formatcsv() { - $0 = get_formatcsv() -} -function printcsv(output, fields) { - array_fill(fields) - array_printcsv(fields, output) -} -function array_findcsv(fields, input, field, value, nbfields, orig, found, i) { - array_new(orig) - array_fill(orig) - array_new(fields) - found = 0 - while ((getline 0) { - array_parsecsv(fields, $0, nbfields) - if (fields[field] == value) { - found = 1 - break - } - } - close(input) - array_getline(orig) - if (!found) { - delete fields - if (nbfields) { - nbfields = int(nbfields) - i = array_len(fields) - while (i < nbfields) { - i++ - fields[i] = "" - } - } - } - return found -} - -function __and(var, x, l_res, l_i) { - l_res=0; - for (l_i=0; l_i < 8; l_i++){ - if (var%2 == 1 && x%2 == 1) l_res=l_res/2 + 128; - else l_res/=2; - var=int(var/2); - x=int(x/2); - } - return l_res; -} -function __lshift(var, x) { - while(x > 0){ - var*=2; - x--; - } - return var; -} -function __rshift(var, x) { - while(x > 0){ - var=int(var/2); - x--; - } - return var; -} -BEGIN { - __BASE64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" -} -function b64decode(src, result, base1, base2, base3, base4) { - result = "" - while (length(src) > 0) { - base1 = substr(src, 1, 1) - base2 = substr(src, 2, 1) - base3 = substr(src, 3, 1); if (base3 == "") base3 = "=" - base4 = substr(src, 4, 1); if (base4 == "") base4 = "=" - byte1 = index(__BASE64, base1) - 1 - if (byte1 < 0) byte1 = 0 - byte2 = index(__BASE64, base2) - 1 - if (byte2 < 0) byte2 = 0 - byte3 = index(__BASE64, base3) - 1 - if (byte3 < 0) byte3 = 0 - byte4 = index(__BASE64, base4) - 1 - if (byte4 < 0) byte4 = 0 - result = result sprintf( "%c", __lshift(__and(byte1, 63), 2) + __rshift(__and(byte2, 48), 4) ) - if (base3 != "=") result = result sprintf( "%c", __lshift(__and(byte2, 15), 4) + __rshift(__and(byte3, 60), 2) ) - if (base4 != "=") result = result sprintf( "%c", __lshift(__and(byte3, 3), 6) + byte4 ) - src = substr(src, 5) - } - return result -} -' -function awkdef() { - - if [ "${1:0:3}" == "-f" ]; then - shift - echo "$__AWKDEF_FUNCTIONS" - fi - if [ $# -gt 0 ]; then - local __ad_arg __ad_vpos __ad_name __ad_value - echo "BEGIN {" - while [ -n "${1:0:1}" ]; do - __ad_arg="${1:0:256}" - local __ad_array= - if [ "${__ad_arg%\[@\]}" != "$__ad_arg" ]; then - __ad_array=1 - __ad_name="${__ad_arg%\[@\]}" - [ -z "${__ad_name//[a-zA-Z0-9_]/}" ] || break - __ad_value="$__ad_name" - elif [[ "$__ad_arg" == *\[@\]=* ]]; then - __ad_array=1 - __ad_name="${__ad_arg%%\[@\]=*}" - [ -z "${__ad_name//[a-zA-Z0-9_]/}" ] || break - __ad_vpos=$((${#__ad_name} + 4)) - __ad_value="${1:$__ad_vpos}" - [ ${#__ad_value} -ne 0 ] || __ad_value="$__ad_name" - elif [[ "$__ad_arg" == *=* ]]; then - local __ad_int= __ad_str= - __ad_name="${__ad_arg%%=*}" - __ad_vpos=$((${#__ad_name} + 1)) - if [ "${__ad_name%:int}" != "$__ad_name" ]; then - __ad_int=1 - __ad_name="${__ad_name%:int}" - elif [ "${__ad_name%:str}" != "$__ad_name" ]; then - __ad_str=1 - __ad_name="${__ad_name%:str}" - fi - [ -z "${__ad_name//[a-zA-Z0-9_]/}" ] || break - __ad_value="${1:$__ad_vpos}" - if [ -n "$__ad_int" ]; then - echo "$__ad_name = int($(quoted_awk "$__ad_value") + 0)" - elif [ -n "$__ad_str" ]; then - echo "$__ad_name = $(quoted_awk "$__ad_value")" - elif [ ${#__ad_value} -lt 256 ] && isnum "$__ad_value"; then - echo "$__ad_name = $__ad_value" - else - echo "$__ad_name = $(quoted_awk "$__ad_value")" - fi - else - break - fi - if [ -n "$__ad_array" ]; then - if [ "${__ad_value:0:2}" == $'<\n' ]; then - local -a __ad_values - array_from_lines __ad_values "${__ad_value:2}" - __ad_value=__ad_values - fi - __ad_value="${__ad_value}[@]" - local __ad_i=1 - echo "$__ad_name[0] = 0; delete $__ad_name" - for __ad_arg in "${!__ad_value}"; do - echo "$__ad_name[$__ad_i]=$(quoted_awk "$__ad_arg")" - __ad_i=$(($__ad_i + 1)) - done - eval "echo \"\${__ad_name}_count = \${#$__ad_value}\"" - fi - shift - done - echo "}" - for __ad_arg in "$@"; do - rawecho "$__ad_arg" - done - fi -} -function lawkrun() { - local -a __ar_defs __ar_args - while [ $# -gt 0 -a "$1" != "--" ]; do - __ar_defs=("${__ar_defs[@]}" "$1") - shift - done - shift +function upvars() { while [ $# -gt 0 ]; do - __ar_args=("${__ar_args[@]}" "$1") - shift - done - local __ar_script="$(awkdef "${__ar_defs[@]}")" - awk "$__ar_script" "${__ar_args[@]}" -} -function cawkrun() { LANG=C lawkrun "$@"; } -function awkrun() { LANG=C lawkrun "$@"; } - -function __lf_get_age() { - local y=$(date "+%Y") - local dy=$(date "+%j"); while [ "${dy#0}" != "$dy" ]; do dy="${dy#0}"; done - [ -n "$dy" ] || dy=0 - local h=$(date "+%H"); while [ "${h#0}" != "$h" ]; do h="${h#0}"; done - [ -n "$h" ] || h=0 - echo $((($y * 365 + $dy) * 24 + $h)) -} -function lf_trylock() { - local eoo lockfile max_hours=4 - while [ -n "$1" ]; do case "$1" in - -h) shift; max_hours="$1";; - --) shift; eoo=1;; - *) eoo=1;; - esac - [ -n "$eoo" ] && break - shift - done - - lockfile="$1" - [ -n "$lockfile" ] || die "il faut spécifier un fichier pour le verrou" - - local now="$(__lf_get_age)" - if (set -C; echo "$now" >"$lockfile") 2>/dev/null; then - return 0 - fi - local prev diff - if prev="$(<"$lockfile")"; then - diff="$(($now - $prev))" - if [ "$diff" -gt "$max_hours" ]; then - echo stale - else - echo locked - fi - elif [ -f "$lockfile" ]; then - echo retry - fi - return 1 -} -function pidfile_set() { - local eoo pidfile pid=$$ replace= - while [ -n "$1" ]; do - case "$1" in - -p) - shift - pid="$1" + -a) + unset -v "$2" && eval "$2=(\"\${@:3}\")" + break ;; - -r) - replace=1 - ;; - --) - shift - eoo=1 + -a*) + unset -v "$2" && eval "$2=(\"\${@:3:${1#-a}}\")" + shift $((${1#-a} + 2)) || return 1 ;; *) - eoo=1 + unset -v "$1" && eval "$1=\"\$2\"" + shift; shift ;; esac - [ -n "$eoo" ] && break - shift - done - - pidfile="$1" - [ -n "$pidfile" ] || return 10 - - if [ -f "$pidfile" ]; then - local curpid="$(<"$pidfile")" - if is_running "$curpid"; then - return 1 - elif [ -n "$replace" ]; then - /bin/rm -f "$pidfile" || return 10 - else - return 2 - fi - fi - - echo_ "$pid" >"$pidfile" || return 10 - autoclean "$pidfile" - return 0 -} -function pidfile_check() { - local pidfile="$1" - [ -n "$pidfile" ] || return 10 - - if [ -f "$pidfile" ]; then - [ -r "$pidfile" ] || return 10 - local pid="$(<"$pidfile")" - is_running "$pid" && return 0 - fi - return 1 -} -function page_maybe() { - if isatty; then - less -XF "$@" - else - cat - fi -} - - -function utools_local() { - local arg - [ $# -gt 0 ] || set -- opts verbosity interaction - for arg in "$@"; do - case "$arg" in - parse_opts|opts|o|args) echo "local -a args";; - verbosity|v) echo "local __verbosity='$__verbosity'";; - interaction|i) echo "local __interaction='$__interaction'";; - esac done } -function isatty() { - tty -s <&1 -} -function in_isatty() { - tty -s -} -function out_isatty() { - tty -s <&1 -} -function err_isatty() { - tty -s <&2 -} -function die() { [ $# -gt 0 ] && eerror "$@"; exit 1; } -function exit_with { if [ $# -gt 0 ]; then "$@"; fi; exit $?; } -function die_with { [ $# -gt 0 ] && eerror "$1"; shift; [ $# -gt 0 ] && "$@"; exit 1; } -function die_unless() { - local count=$# - if [ $count -eq 0 ]; then - exit 1 - elif [ $count -eq 1 ]; then - "$@" || exit $? - else - local m r - m="${@:$count}" - count=$(($count - 1)) - set -- "${@:1:$count}" - if "$@"; then - : - else - r=$? - eerror "$m" - exit $r - fi - fi -} -function eerror_unless() { - local count=$# - if [ $count -eq 0 ]; then - return 1 - elif [ $count -eq 1 ]; then - "$@" || return $? - else - local m r - m="${@:$count}" - count=$(($count - 1)) - set -- "${@:1:$count}" - if "$@"; then - : - else - r=$? - eerror "$m" - return $r - fi - fi -} -function die_if() { - local count=$# - if [ $count -eq 0 ]; then - : - elif [ $count -eq 1 ]; then - "$@" && exit 1 - else - local m r - m="${@:$count}" - count=$(($count - 1)) - set -- "${@:1:$count}" - if "$@"; then - eerror "$m" - exit 1 - fi - fi -} -function eerror_if() { - local count=$# - if [ $count -eq 0 ]; then - : - elif [ $count -eq 1 ]; then - "$@" && return 1 - else - local m r - m="${@:$count}" - count=$(($count - 1)) - set -- "${@:1:$count}" - if "$@"; then - eerror "$m" - return 1 - fi - fi -} - -TAB=$'\t' -LATIN1=iso-8859-1 -LATIN9=iso-8859-15 -UTF8=utf-8 -OENC="$UTF8" - -if ! progexists iconv; then - function iconv() { cat; } -fi - -function __lang_encoding() { - local lang="$(<<<"$LANG" awk '{ print tolower($0) }')" - case "$lang" in - *@euro) echo "iso-8859-15";; - *.utf-8|*.utf8) echo "utf-8";; - *) echo "iso-8859-1";; +function __ab_process_pending() { + local -a values + case "$mode" in + cmd) values="$("${pending[@]}")";; + ssplit) eval "values=($("${pending[@]}"))";; + lsplit) eval "values=($("${pending[@]}" | qlines))";; + add) values=("${pending[@]}");; esac + cmd=("${cmd[@]}" "${values[@]}") + pending=() } -function __norm_encoding() { - awk '{ - enc = tolower($0) - gsub(/^latin$/, "latin1", enc) - gsub(/^latin1$/, "iso-8859-1", enc) - gsub(/^latin9$/, "iso-8859-15", enc) - gsub(/[-_]/, "", enc) - if (enc == "iso8859" || enc == "iso88591" || enc == "8859" || enc == "88591") print "iso-8859-1" - else if (enc == "iso885915" || enc == "885915") print "iso-8859-15" - else if (enc == "utf" || enc == "utf8") print "utf-8" - else print $0 - }' <<<"$1" -} -function __init_encoding() { - local DEFAULT_ENCODING="$(__lang_encoding)" - [ -n "$DEFAULT_ENCODING" ] || DEFAULT_ENCODING=utf-8 - [ -n "$UTOOLS_OUTPUT_ENCODING" ] || UTOOLS_OUTPUT_ENCODING="$DEFAULT_ENCODING" - UTOOLS_OUTPUT_ENCODING="$(__norm_encoding "$UTOOLS_OUTPUT_ENCODING")" - [ -n "$UTOOLS_INPUT_ENCODING" ] || UTOOLS_INPUT_ENCODING="$UTOOLS_OUTPUT_ENCODING" - UTOOLS_INPUT_ENCODING="$(__norm_encoding "$UTOOLS_INPUT_ENCODING")" - [ -n "$UTOOLS_EDITOR_ENCODING" ] || UTOOLS_EDITOR_ENCODING="$UTOOLS_INPUT_ENCODING" - UTOOLS_EDITOR_ENCODING="$(__norm_encoding "$UTOOLS_EDITOR_ENCODING")" - - IENC="$UTOOLS_INPUT_ENCODING" - OENC="$UTOOLS_OUTPUT_ENCODING" -} - -if [ -n "$UTOOLS_LANG" -a -z "$LANG" ]; then - export UTOOLS_LANG - export LANG="$UTOOLS_LANG" -fi -__init_encoding - -function tooenc() { - local src="$1" from="${2:-$OENC}" to="${3:-$UTOOLS_OUTPUT_ENCODING}" - if [ "$from" == "$to" ]; then - rawecho "$src" - else - iconv -f "$from" -t "$to" <<<"$src" - fi -} -function uecho() { - tooenc "$*" -} -function tooenc_() { - local src="$1" from="${2:-$OENC}" to="${3:-$UTOOLS_OUTPUT_ENCODING}" - if [ "$from" == "$to" ]; then - rawecho_ "$src" - else - rawecho_ "$src" | iconv -f "$from" -t "$to" - fi -} -function uecho_() { - tooenc_ "$*" -} -function toienc() { - local __tie_var="$1" __tie_to="${2:-$IENC}" __tie_from="${3:-$UTOOLS_INPUT_ENCODING}" - if [ "$__tie_from" != "$__tie_to" ]; then - set_var "$__tie_var" "$(iconv -f "$__tie_from" -t "$__tie_to" <<<"${!__tie_var}")" - fi -} -function uread() { - [ $# -gt 0 ] || set -- REPLY - local __r_var - read "$@" - for __r_var in "$@"; do - [ -z "$__r_var" -o "${__r_var:0:1}" == "-" ] && continue # ignorer les options - toienc "$__r_var" - done -} - -function stooenc() { - local from="${1:-$OENC}" to="${2:-$UTOOLS_OUTPUT_ENCODING}" - if [ "$from" == "$to" ]; then - cat - else - iconv -f "$from" -t "$to" - fi -} -function stoienc() { - local to="${1:-$IENC}" from="${2:-$UTOOLS_INPUT_ENCODING}" - if [ "$from" == "$to" ]; then - cat - else - iconv -f "$from" -t "$to" - fi -} - -export UTOOLS_EDATE -function __edate() { [ -n "$UTOOLS_EDATE" ] && date +"[%d/%m/%Y-%H:%M:%S] "; } - -export UTOOLS_ELOG_OVERWRITE -function __set_no_colors() { :; } -function elogto() { - UTOOLS_EDATE=1 - if [ -n "$1" -a -n "$2" ]; then - LANG=fr_FR.UTF8 - UTOOLS_OUTPUT_ENCODING="$UTF8" - __set_no_colors 1 - if [ -n "$UTOOLS_ELOG_OVERWRITE" ]; then - exec >"$1" 2>"$2" - else - exec >>"$1" 2>>"$2" - fi - elif [ -n "$1" ]; then - LANG=fr_FR.UTF8 - UTOOLS_OUTPUT_ENCODING="$UTF8" - __set_no_colors 1 - if [ -n "$UTOOLS_ELOG_OVERWRITE" ]; then - exec >"$1" 2>&1 - else - exec >>"$1" 2>&1 - fi - fi -} - -export __estack __tlevel -function __indent() { - if [ "${1/ -/}" != "$1" ]; then - sed "2,\$s/^/${__tlevel}/g" <<<"$1" - else - rawecho "$1" - fi -} -function __eerror() { tooenc "$(__edate)${__tlevel}* error: $(__indent "$1")"; } -function __ewarn() { tooenc "$(__edate)${__tlevel}* warning: $(__indent "$1")"; } -function __enote() { tooenc "$(__edate)${__tlevel}* note: $(__indent "$1")"; } -function __ebanner() { - local maxi="${COLUMNS:-80}" - local -a lines - local psfix line - - psfix="$(__edate)${__tlevel}" - while [ ${#psfix} -lt $maxi ]; do psfix="$psfix="; done - - tooenc "$psfix" - maxi=$(($maxi - 1)) - array_from_xlines lines "$1" - for line in "" "${lines[@]}" ""; do - line="$(__edate)${__tlevel}= $line" - if [ ${#line} -le $maxi ]; then - while [ ${#line} -lt $maxi ]; do line="$line "; done - line="$line=" - fi - tooenc "$line" - done - tooenc "$psfix" -} -function __eimportant() { tooenc "$(__edate)${__tlevel}* important: $(__indent "$1")"; } -function __eattention() { tooenc "$(__edate)${__tlevel}* attention: $(__indent "$1")"; } -function __einfo() { tooenc "$(__edate)${__tlevel}* info: $(__indent "$1")"; } -function __eecho() { tooenc "$(__edate)${__tlevel}$(__indent "$1")"; } -function __eecho_() { tooenc_ "$(__edate)${__tlevel}$(__indent "$1")"; } -function __edebug() { tooenc "$(__edate)${__tlevel}* debug: $(__indent "$1")"; } -function __estep() { tooenc "$(__edate)${__tlevel}* $(__indent "$1")"; } -function __estepe() { __estep "$@"; } -function __estepw() { __estep "$@"; } -function __estepn() { __estep "$@"; } -function __estepi() { __estep "$@"; } -function __estep_() { tooenc_ "$(__edate)${__tlevel}* $(__indent "$1")"; } -function __estepe_() { __estep_ "$@"; } -function __estepw_() { __estep_ "$@"; } -function __estepn_() { __estep_ "$@"; } -function __estepi_() { __estep_ "$@"; } -function __etitle() { tooenc "$(__edate)${__tlevel}+++ $(__indent "$1")"; } -function __ebegin() { tooenc_ "$(__edate)${__tlevel}* $(__indent "$1"): "; } -function __edoto() { echo_ "."; } -function __edotw() { echo_ "w"; } -function __edotx() { echo_ "x"; } -function __edotp() { echo_ "+"; } -function __edotd() { tooenc "($1)"; } -function __eendo() { echo "[ok]"; } -function __eendx() { echo "[error]"; } -PRETTYOPTS=() -function set_verbosity() { :;} -function set_interaction() { :;} -function show_error() { - return 0 -} -function show_warn() { - return 0 -} -function show_info() { - return 0 -} -function show_verbose() { - return 0 -} -function show_debug() { - [ -n "$DEBUG" ] -} -function check_verbosity() { - return 0 -} -function get_verbosity_option() { :;} -function check_interaction() { - return 0 -} -function is_interaction() { - return 1 -} -function get_interaction_option() { :;} -__epending= -function eflush() { - if [ -n "$__epending" ]; then rawecho "$__epending" 1>&2; __epending=; fi -} -function eclearp() { - __epending= -} -function eerror() { - show_error || return; eflush; __eerror "$*" 1>&2 -} -function ewarn() { - show_warn || return; eflush; __ewarn "$*" 1>&2 -} -function enote() { - show_info || return; eflush; __enote "$*" 1>&2 -} -function ebanner() { - show_error || return; eflush; __ebanner "$*" 1>&2; sleep 5 -} -function eimportant() { - show_error || return; eflush; __eimportant "$*" 1>&2 -} -function eattention() { - show_warn || return; eflush; __eattention "$*" 1>&2 -} -function einfo() { - show_info || return; eflush; __einfo "$*" 1>&2 -} -function eecho() { - show_info || return; eflush; __eecho "$*" 1>&2 -} -function eecho_() { - show_info || return; eflush; __eecho_ "$*" 1>&2 -} -function edebug() { - show_debug || return; eflush; __edebug "$*" 1>&2 -} -function trace() { - local r cmd="$(quoted_args "$@")" - show_info && { eflush; __eecho "\$ $cmd" 1>&2; } - "$@"; r=$? - if [ $r -ne 0 ]; then - if show_info; then - eflush; __eecho "^ [EC #$r]" 1>&2 - elif show_error; then - eflush; __eecho "^ $cmd [EC #$r]" 1>&2; - fi - fi - return $r -} -function trace_error() { - local r - "$@"; r=$? - if [ $r -ne 0 ]; then - local cmd="$(quoted_args "$@")" - show_error && { eflush; __eecho "^ $cmd [EC #$r]" 1>&2; } - fi - return $r -} - -function etitle() { - local __t_deferred= - __t_etitle "$@" -} -function etitled() { - local __t_deferred=1 - __t_etitle "$@" -} -function __t_etitle() { - local __t_eend=default - local __t_clearp= - while [ -n "$1" ]; do - if [ "$1" == "--" ]; then - shift - break - elif [ "$1" == "-s" ]; then - __t_eend= - shift - elif [ "$1" == "--eend" ]; then - __t_eend=1 - shift - elif [ "$1" == "-p" ]; then - __t_clearp=1 - shift - else - break - fi - done - local __t_title="$1"; shift - local __t_s=0 - [ -n "$__estack" ] && __tlevel="${__tlevel} " - __estack="$__estack:t" - if show_info; then - if [ -n "$__t_deferred" ]; then - __epending="${__epending:+$__epending -}$(__etitle "$__t_title")" - else - eflush - __etitle "$__t_title" 1>&2 - fi - fi - if [ $# -gt 0 ]; then - "$@" - __t_s=$? - [ "$__t_eend" == "default" ] && __t_eend=1 - fi - [ "$__t_eend" == "default" ] && __t_eend= - if [ -n "$__t_eend" ]; then - eend $__t_s - [ -n "$__t_clearp" ] && eclearp - fi - return $__t_s -} -function estep() { - show_info || return; eflush; __estep "$*" 1>&2 -} -function estepe() { - show_info || return; eflush; __estepe "$*" 1>&2 -} -function estepw() { - show_info || return; eflush; __estepw "$*" 1>&2 -} -function estepn() { - show_info || return; eflush; __estepn "$*" 1>&2 -} -function estepi() { - show_info || return; eflush; __estepi "$*" 1>&2 -} -function estep_() { - show_info || return; eflush; __estep_ "$*" 1>&2 -} -function estepe_() { - show_info || return; eflush; __estepe_ "$*" 1>&2 -} -function estepw_() { - show_info || return; eflush; __estepw_ "$*" 1>&2 -} -function estepn_() { - show_info || return; eflush; __estepn_ "$*" 1>&2 -} -function estepi_() { - show_info || return; eflush; __estepi_ "$*" 1>&2 -} -function ebegin() { - local __b_eend=default - while [ -n "$1" ]; do - if [ "$1" == "--" ]; then - shift - break - elif [ "$1" == "-s" ]; then - __b_eend= - shift - elif [ "$1" == "--eend" ]; then - __b_eend=1 - shift - else - break - fi - done - local __b_msg="$1"; shift - local __b_s=0 - __estack="$__estack:b" - if show_info; then - eflush - __ebegin "$__b_msg" 1>&2 - fi - if [ $# -gt 0 ]; then - "$@" - __b_s=$? - [ "$__b_eend" == "default" ] && __b_eend=1 - fi - [ "$__b_eend" == "default" ] && __b_eend= - [ -n "$__b_eend" ] && eend $__b_s - return $__b_s -} -function edot() { - local s=$? - show_info || return - eflush - [ -n "$1" ] && s="$1" - shift - if [ "$s" == "0" ]; then - __edoto 1>&2 - else - __edotx 1>&2 - fi - show_verbose && [ $# -gt 0 ] && __edotd "$*" 1>&2 - return $s -} -function edotw() { - local s=$? - show_info || return - eflush - [ -n "$1" ] && s="$1" - shift - __edotw 1>&2 - show_verbose && [ $# -gt 0 ] && __edotd "$*" 1>&2 - return $s -} -function ewait() { - [ -n "$1" ] || return 1 - if show_info; then - local count=2 - eflush - little_sleep # certains processus retournent tout de suite - while is_running "$1"; do - sleep 1 - if [ $count -gt 0 ]; then - count=$(($count - 1)) - else - __edotp 1>&2 - fi - done - __edoto 1>&2 - else - wait "$1" - fi -} -function eend() { - local s=$? - if [ "$1" == "-c" ]; then - __estack= - __tlevel= - elif [ "${__estack%:b}" != "$__estack" ]; then - __estack="${__estack%:b}" - show_info || return - eflush - [ -n "$1" ] && s="$1" - if [ "$s" == "0" ]; then - __eendo 1>&2 - else - __eendx 1>&2 - fi - elif [ "${__estack%:t}" != "$__estack" ]; then - __estack="${__estack%:t}" - __tlevel="${__tlevel% }" - fi -} -function ask_yesno() { - local interactive=1 - if [[ "$1" == -* ]]; then - if [ "$1" != -- ]; then - check_interaction "$1" || interactive= - fi +function array_buildcmd() { + local desta="$1"; shift; local "$desta" + local mode=add + local -a pending cmd + while [ $# -gt 0 ]; do + case "$1" in + ++c|++cmd|++) __ab_process_pending; mode=cmd;; + ++s|++ssplit) __ab_process_pending; mode=ssplit;; + ++l|++lsplit) __ab_process_pending; mode=lsplit;; + ++a|++add) __ab_process_pending; mode=add;; + *) pending=("${pending[@]}" "$1");; + esac shift - else - check_interaction -c || interactive= - fi - local default="${2:-N}" - if [ "$default" == "C" ]; then - [ -n "$interactive" ] && default=N || default=O - elif [ "$default" == "X" ]; then - [ -n "$interactive" ] && default=O || default=N - fi - if [ -n "$interactive" ]; then - eflush - local message="$1" - local prompt="[oN]" - local r - is_yes "$default" && prompt="[On]" - if [ -n "$message" ]; then - tooenc_ "$message" 1>&2 - else - tooenc_ "Voulez-vous continuer?" "$UTF8" 1>&2 - fi - tooenc_ " $prompt " "$UTF8" 1>&2 - uread r - is_yes "${r:-$default}" - else - is_yes "$default" - fi -} -function read_value() { - local -a __rv_opts __rv_readline=1 __rv_showdef=1 __rv_nl= - __rv_opts=() - [ -n "$UTOOLS_NO_READLINE" ] && __rv_readline= - __rv_read "$@" -} -function read_password() { - local -a __rv_opts __rv_readline= __rv_showdef= __rv_nl=1 - __rv_opts=(-s) - __rv_read "$@" -} -function __rv_read() { - local __rv_int=1 - if [[ "$1" == -* ]]; then - if [ "$1" != -- ]; then - check_interaction "$1" || __rv_int= - fi - shift - else - check_interaction -c || __rv_int= - fi - local __rv_msg="$1" __rv_v="${2:-value}" __rv_d="$3" __rv_re="${4:-O}" - if [ -z "$__rv_int" ]; then - if is_yes "$__rv_re" && [ -z "$__rv_d" ]; then - OENC="$UTF8" eerror "La valeur par défaut de $__rv_v doit être non vide" - return 1 - fi - set_var "$__rv_v" "$__rv_d" - return 0 - fi - - eflush - local __rv_r - while true; do - if [ -n "$__rv_msg" ]; then - tooenc_ "$__rv_msg" 1>&2 - else - tooenc_ "Entrez la valeur" "$UTF8" 1>&2 - fi - if [ -n "$__rv_readline" ]; then - tooenc_ ": " "$UTF8" 1>&2 - uread -e ${__rv_d:+-i"$__rv_d"} "${__rv_opts[@]}" __rv_r - else - if [ -n "$__rv_d" ]; then - if [ -n "$__rv_showdef" ]; then - tooenc_ " [$__rv_d]" 1>&2 - else - tooenc_ " [****]" 1>&2 - fi - fi - tooenc_ ": " "$UTF8" 1>&2 - uread "${__rv_opts[@]}" __rv_r - [ -n "$__rv_nl" ] && echo - fi - __rv_r="${__rv_r:-$__rv_d}" - if [ -n "$__rv_r" ] || ! is_yes "$__rv_re"; then - set_var "$__rv_v" "$__rv_r" - return 0 - fi done + __ab_process_pending + array_upvar "$desta" "${cmd[@]}" } -function simple_menu() { - local __sm_title= __sm_yourchoice= __sm_default= - local -a __sm_args - parse_opts -t: __sm_title= -m: __sm_yourchoice= -d: __sm_default= @ __sm_args -- "$@" && - set -- "${__sm_args[@]}" || ewarn "$__sm_args" - - local __sm_option_var="${1:-option}" __sm_options_var="${2:-options}" - local __sm_option __sm_options - __sm_options="$__sm_options_var[*]" - if [ -z "${!__sm_options}" ]; then - OENC="$UTF8" eerror "Le tableau $__sm_options_var doit être non vide" - return 1 - fi - [ -z "$__sm_default" ] && __sm_default="${!__sm_option_var}" - - eflush - array_copy __sm_options "$__sm_options_var" - local __sm_c=0 __sm_i __sm_choice - while true; do - if [ "$__sm_c" == "0" ]; then - [ -n "$__sm_title" ] && tooenc "=== $__sm_title ===" 1>&2 - __sm_i=1 - for __sm_option in "${__sm_options[@]}"; do - if [ "$__sm_option" == "$__sm_default" ]; then - tooenc "$__sm_i*- $__sm_option" 1>&2 - else - tooenc "$__sm_i - $__sm_option" 1>&2 - fi - let __sm_i=$__sm_i+1 - done - fi - - if [ -n "$__sm_yourchoice" ]; then - tooenc_ "$__sm_yourchoice" 1>&2 - else - tooenc_ "Entrez le numéro de l'option choisie" "$UTF8" 1>&2 - fi - tooenc_ ": " "$UTF8" 1>&2 - uread __sm_choice - - if [ -z "$__sm_choice" -a -n "$__sm_default" ]; then - __sm_option="$__sm_default" - break - fi - if [ -n "$__sm_choice" -a -z "${__sm_choice//[0-9]/}" ]; then - if [ "$__sm_choice" -gt 0 -a "$__sm_choice" -le "${#__sm_options[*]}" ]; then - __sm_option="${__sm_options[$(($__sm_choice - 1))]}" - break - else - OENC="$UTF8" eerror "Numéro d'option incorrect" - fi - else - OENC="$UTF8" eerror "Vous devez saisir le numéro de l'option choisie" - fi - - let __sm_c=$__sm_c+1 - if [ "$__sm_c" -eq 5 ]; then - tooenc "" "$UTF8" 1>&2 - __sm_c=0 - fi - done - set_var "$__sm_option_var" "$__sm_option" -} - -function actions_menu() { - local -a __am_action_descs __am_options __am_void_actions - local __am_tmp __am_select_action __am_select_option __am_title __am_optyc __am_actyc - local __am_default_action=auto __am_quit_action=auto - local __am_default_option= - local -a __am_args - parse_opts \ - -t: __am_title= \ - -m: __am_optyc= \ - -M: __am_actyc= \ - -e: __am_void_actions \ - -d: __am_default_action= \ - -q: __am_quit_action= \ - -o: __am_default_option= \ - @ __am_args -- "$@" && set -- "${__am_args[@]}" || { eerror "$__am_args"; return 1; } - - __am_tmp="${1:-action}"; __am_select_action="${!__am_tmp}" - __am_tmp="${2:-option}"; __am_select_option="${!__am_tmp}" - [ -n "$__am_default_option" ] && __am_select_option="$__am_default_option" - array_copy __am_action_descs "${3:-actions}" - array_copy __am_options "${4:-options}" - - eerror_unless [ ${#__am_action_descs[*]} -gt 0 ] "Vous devez spécifier le tableau des actions" || return - __actions_menu || return 1 - setv "${1:-action}" "$__am_select_action" - setv "${2:-option}" "$__am_select_option" -} -function __actions_menu() { - local title="$__am_title" - local optyc="$__am_optyc" actyc="$__am_actyc" - local default_action="$__am_default_action" - local quit_action="$__am_quit_action" - local select_action="$__am_select_action" - local select_option="$__am_select_option" - local -a action_descs options void_actions - array_copy action_descs __am_action_descs - array_copy options __am_options - array_copy void_actions __am_void_actions - - local no_options - array_isempty options && no_options=1 - - local -a actions - local tmp action name - for tmp in "${action_descs[@]}"; do - splitfsep2 "$tmp" : action name - [ -n "$action" ] || action="${name:0:1}" - action="$(strlower "$action")" - array_addu actions "$action" - done - - if [ "$default_action" == auto ]; then - default_action="$select_action" - if [ -n "$default_action" ]; then - array_contains actions "$default_action" || default_action= - fi - [ -n "$default_action" ] || default_action="${actions[0]}" - fi - default_action="${default_action:0:1}" - default_action="$(strlower "$default_action")" - - if [ "$quit_action" == auto ]; then - if [ ${#actions[*]} -gt 1 ]; then - quit_action="${actions[@]:$((-1)):1}" - array_addu void_actions "$quit_action" - fi - fi - quit_action="${quit_action:0:1}" - quit_action="$(strlower "$quit_action")" - - local action_title - for tmp in "${action_descs[@]}"; do - splitfsep2 "$tmp" : action name - [ -n "$action" ] || action="${name:0:1}" - [ -n "$name" ] || name="$action" - action="$(strlower "$action")" - if [ -n "$no_options" ]; then - if ! array_contains void_actions "$action"; then - array_del actions "$action" - continue - fi - fi - [ "$action" == "$default_action" ] && name="$name*" - action_title="${action_title:+$action_title/}$name" - done - if [ -n "$default_action" ]; then - array_contains actions "$default_action" || default_action= - fi - if [ -n "$quit_action" ]; then - array_contains actions "$quit_action" || quit_action= - fi - - if [ -n "$no_options" ]; then - if array_isempty void_actions; then - eerror "Aucune option n'est définie. Il faut définir le tableau des actions vides" - return 1 - fi - __void_actions_menu - else - __options_actions_menu - fi -} -function __void_actions_menu() { - eflush - local c=0 choice - while true; do - if [ $c -eq 0 ]; then - [ -n "$title" ] && __etitle "$title" 1>&2 - __eecho_ "=== Actions disponibles: " 1>&2 - tooenc "$action_title" 1>&2 - fi - if [ -n "$actyc" ]; then - __eecho_ "$actyc" 1>&2 - elif [ -n "$optyc" ]; then - __eecho_ "$optyc" 1>&2 - else - __eecho_ "Entrez l'action à effectuer" 1>&2 - fi - tooenc_ ": " 1>&2 - uread choice - if [ -z "$choice" -a -n "$default_action" ]; then - select_action="$default_action" - break - fi - - choice="${choice:0:1}" - choice="$(strlower "$choice")" - if array_contains actions "$choice"; then - select_action="$choice" - break - elif [ -n "$choice" ]; then - eerror "$choice: action incorrecte" - else - eerror "vous devez saisir l'action à effectuer" - fi - let c=$c+1 - if [ $c -eq 5 ]; then - tooenc "" 1>&2 - c=0 - fi - done - __am_select_action="$select_action" - __am_select_option= -} -function __options_actions_menu() { - eflush - local c=0 option choice action option - while true; do - if [ $c -eq 0 ]; then - [ -n "$title" ] && __etitle "$title" 1>&2 - i=1 - for option in "${options[@]}"; do - if [ "$option" == "$select_option" ]; then - tooenc "$i*- $option" 1>&2 - else - tooenc "$i - $option" 1>&2 - fi - let i=$i+1 - done - __estepn_ "Actions disponibles: " 1>&2 - tooenc "$action_title" 1>&2 - fi - if [ -n "$optyc" ]; then - __eecho_ "$optyc" 1>&2 - else - __eecho_ "Entrez l'action et le numéro de l'option choisie" 1>&2 - fi - tooenc_ ": " 1>&2 - uread choice - - if [ -z "$choice" -a -n "$default_action" ]; then - action="$default_action" - if array_contains void_actions "$action"; then - select_action="$action" - select_option= - break - elif [ -n "$select_option" ]; then - select_action="$action" - break - fi - fi - action="${choice:0:1}" - action="$(strlower "$action")" - if array_contains actions "$action"; then - if array_contains void_actions "$action"; then - select_action="$action" - select_option= - break - else - option="${choice:1}" - option="${option// /}" - if [ -z "$option" -a -n "$select_option" ]; then - select_action="$action" - break - elif [ -z "$option" ]; then - eerror "vous devez saisir le numéro de l'option" - elif isnum "$option"; then - if [ $option -gt 0 -a $option -le ${#options[*]} ]; then - select_action="$action" - select_option="${options[$(($option - 1))]}" - break - fi - else - eerror "$option: numéro d'option incorrecte" - fi - fi - elif isnum "$choice"; then - action="$default_action" - if [ -n "$action" ]; then - if array_contains void_actions "$action"; then - select_action="$action" - select_option= - break - else - option="${choice// /}" - if [ -z "$option" ]; then - eerror "vous devez saisir le numéro de l'option" - elif isnum "$option"; then - if [ $option -gt 0 -a $option -le ${#options[*]} ]; then - select_action="$action" - select_option="${options[$(($option - 1))]}" - break - fi - else - eerror "$option: numéro d'option incorrecte" - fi - fi - else - eerror "Vous devez spécifier l'action à effectuer" - fi - elif [ -n "$choice" ]; then - eerror "$choice: action et/ou option incorrecte" - else - eerror "vous devez saisir l'action à effectuer" - fi - let c=$c+1 - if [ $c -eq 5 ]; then - tooenc "" 1>&2 - c=0 - fi - done - __am_select_action="$select_action" - __am_select_option="$select_option" -} - - -function __ac_forgetall() { __ac_files=(); } -__ac_forgetall -function __ac_trap() { - local file - for file in "${__ac_files[@]}"; do - [ -e "$file" ] && rm -rf "$file" 2>/dev/null - done - __ac_forgetall -} -trap __ac_trap 1 3 15 EXIT -function autoclean() { - local file - for file in "$@"; do - [ -n "$file" ] && array_add __ac_files "$file" - done -} -function ac_cleanall() { - __ac_trap -} -function ac_clean() { - local file - for file in "$@"; do - if array_contains __ac_files "$file"; then - [ -e "$file" ] && rm -rf "$file" 2>/dev/null - array_del __ac_files "$file" - fi - done -} -function ac_set_tmpfile() { - local __acst_d - if show_debug; then - if [ -n "$5" ]; then - is_yes "${!5}" && __acst_d=1 - else - __acst_d=1 - fi - fi - if [ -n "$__acst_d" -a -n "$3" ]; then - set_var "$1" "$3" - [ -f "$3" -a "$4" == keep ] || >"$3" - else - local __acst_t="$(mktempf "$2")" - autoclean "$__acst_t" - set_var "$1" "$__acst_t" - fi -} -function ac_set_tmpdir() { - local __acst_d - if show_debug; then - if [ -n "$4" ]; then - is_yes "${!4}" && __acst_d=1 - else - __acst_d=1 - fi - fi - if [ -n "$__acst_d" -a -n "$3" ]; then - set_var "$1" "$3" - mkdir -p "$3" - else - local __acst_t="$(mktempd "$2")" - autoclean "$__acst_t" - set_var "$1" "$__acst_t" - fi -} -function debug_tee() { - if show_debug; then - tee "$@" - else - cat - fi -} - - -function get_defaults_files() { - local __gd_dest="${1:-defaults}"; shift - local -a __gd_fs - local __gd_f __gd_found - for __gd_f in "$@"; do - __gd_found= - if [ -r "/etc/default/$__gd_f" ]; then - __gd_fs=("${__gd_fs[@]}" "/etc/default/$__gd_f") - __gd_found=1 - fi - if [ -r "$HOME/etc/default/$__gd_f" ]; then - __gd_fs=("${__gd_fs[@]}" "$HOME/etc/default/$__gd_f") - __gd_found=1 - fi - if [ -z "$__gd_found" -a -r "$scriptdir/lib/default/$__gd_f" ]; then - __gd_fs=("${__gd_fs[@]}" "$scriptdir/lib/default/$__gd_f") - fi - done - array_copy "$__gd_dest" __gd_fs -} - -function set_defaults() { - local -a __sd_fs - local __sd_f - get_defaults_files __sd_fs "$@" - for __sd_f in "${__sd_fs[@]}"; do - source "$__sd_f" - done -} - - -: "${MYHOST:=$HOSTNAME}" -: "${MYHOSTNAME:=${MYHOST%%.*}}" -export MYHOST MYHOSTNAME - -function myhost() { - hostname -f 2>/dev/null || echo "$MYHOST" -} -function myhostname() { - hostname -s 2>/dev/null || echo "$MYHOSTNAME" -} -##@inc]base -uprovide base.tools -urequire base - -function base_umove() { +function buildcmd() { local -a args - local updatedir - args=(-d:,--updatedir: .) - parse_args_check "$@" || return; set -- "${args[@]}" - - eerror_unless [ -z "$updatedir" -o -d "$updatedir" ] "$updatedir: doit être un répertoire" || return - eerror_if [ $# -eq 0 ] "Vous devez spécifier les fichiers à déplacer" || return - eerror_if [ $# -eq 1 ] "Vous devez spécifier la destination" || return - - local -a srcs - local dest - - srcs=("$@") - setx dest=last_value srcs - array_del_last srcs - - if [ $# -eq 2 ]; then - if [ -d "$dest" ]; then - : # ce cas sera traité ci-dessous - elif [ -e "$dest" ]; then - eerror "$dest: refus d'écraser la destination" - return 1 - else - src="${srcs[0]}" - if [ -n "$updatedir" ]; then - if [ -L "$src" ]; then - ldest="$(readlinka "$src")" - array_find_links update_links "$ldest" "$updatedir" - else - array_find_links update_links "$src" "$updatedir" - fi - move_file "$src" "$dest" "${update_links[@]}" - else - move_link "$src" "$dest" - fi - return $? - fi - fi - - [ -d "$dest" ] || { - eerror "$dest: doit être un répertoire" - return 1 - } - for src in "${srcs[@]}"; do - if [ -n "$updatedir" ]; then - if [ -L "$src" ]; then - move_link "$src" "$dest" - else - array_find_links update_links "$src" "$updatedir" - move_file "$src" "$dest" "${update_links[@]}" - fi - else - move_link "$src" "$dest" - fi - done + array_buildcmd args "$@" + qvals "${args[@]}" } -##@inc]base.tools -##@inc[base.compat -## Fonctions de base: support des fonctions obsolètes et des versions de bash < 4.x -##@inc[base.core -## Fonctions de base: fondement -uprovide base.core - -function echo_() { - echo -n "$*" -} -function recho() { - if [[ "${1:0:2}" == -[eEn] ]]; then - echo -n - - local first="${1:1}"; shift - echo "$first$@" - else - echo "$@" - fi -} -function recho_() { - if [[ "${1:0:2}" == -[eEn] ]]; then - echo -n - - local first="${1:1}"; shift - echo -n "$first$@" - else - echo -n "$@" - fi -} -function _rval() { - local s="$*" - s="${s//\\/\\\\}" - s="${s//\"/\\\"}" - s="${s//\'/\'}" - s="${s//\$/\\\$}" - s="${s//\`/\\\`}" - s="${s// /\\ }" - recho_ "$s" -} -function _qval() { - local s="$*" - s="${s//\\/\\\\}" - s="${s//\"/\\\"}" - s="${s//\$/\\\$}" - s="${s//\`/\\\`}" - recho_ "$s" -} -function should_quote() { - local l="${#1}" - [ $l -eq 0 -o $l -gt 80 ] && return 0 - local s="${*//[a-zA-Z0-9]/}" - s="${s//,/}" - s="${s//./}" - s="${s//+/}" - s="${s//\//}" - s="${s//-/}" - s="${s//_/}" - s="${s//=/}" - [ -n "$s" ] -} -function qval() { - echo -n \" - _qval "$@" - echo \" -} -function qvalm() { - if should_quote "$*"; then - echo -n \" - _qval "$@" - echo \" - else - recho "$*" - fi -} -function qvalr() { - if [ -z "$*" ]; then - : - elif should_quote "$*"; then - echo -n \" - _qval "$@" - echo \" - else - recho "$*" - fi -} -function qvals() { - local arg first=1 - for arg in "$@"; do - [ -z "$first" ] && echo -n " " - if should_quote "$arg"; then - echo -n \" - _qval "$arg" - echo -n \" - else - recho_ "$arg" - fi - first= - done - [ -z "$first" ] && echo -} -function qlines() { - sed "s/'/'\\\\''/g; s/.*/'&'/g" -} -function setv() { - local __s_var="$1"; shift - if [[ "$__s_var" == *=* ]]; then - set -- "${__s_var#*=}" "$@" - __s_var="${__s_var%%=*}" - fi - eval "$__s_var=\"\$*\"" -} -function _setv() { - local __s_var="$1"; shift - eval "$__s_var=\"\$*\"" -} -function echo_setv() { - local __s_var="$1"; shift - if [[ "$__s_var" == *=* ]]; then - set -- "${__s_var#*=}" "$@" - __s_var="${__s_var%%=*}" - fi - echo "$__s_var=$(qvalr "$*")" -} -function setx() { - if [ "$1" == -a ]; then - shift - local __s_array="$1"; shift - if [[ "$__s_array" == *=* ]]; then - set -- "${__s_array#*=}" "$@" - __s_array="${__s_array%%=*}" - fi - eval "$__s_array=($("$@" | qlines))" - else - local __s_var="$1"; shift - if [[ "$__s_var" == *=* ]]; then - set -- "${__s_var#*=}" "$@" - __s_var="${__s_var%%=*}" - fi - eval "$__s_var="'"$("$@")"' - fi -} -function _setvx() { - local __s_var="$1"; shift - eval "$__s_var="'"$("$@")"' -} -function _setax() { - local __s_array="$1"; shift - eval "$__s_array=($("$@" | qlines))" -} -function evalx() { - local __e_val __e_arg __e_r=0 - local -a __e_cmd - - local __e_first=1 - while [ $# -gt 0 ]; do - __e_cmd=() - while [ $# -gt 0 ]; do - __e_arg="$1"; shift - [ "$__e_arg" == // ] && break - if [ "${__e_arg%//}" != "$__e_arg" ]; then - local __e_tmp="${__e_arg%//}" - if [ -z "${__e_tmp//\\/}" ]; then - __e_arg="${__e_arg#\\}" - __e_cmd=("${__e_cmd[@]}" "$__e_arg") - continue - fi - fi - __e_cmd=("${__e_cmd[@]}" "$__e_arg") - done - - if [ -n "$__e_first" ]; then - __e_val="$("${__e_cmd[@]}")" || __e_r=$? - else - __e_val="$("${__e_cmd[@]}" "$__e_val")" || __e_r=$? - fi - __e_first= - done - [ -n "$__e_val" ] && echo "$__e_val" - return $__e_r -} -function setxx() { - local -a __s_args - if [ "$1" == -a ]; then __s_args=(-a); shift; fi - local __s_var="$1"; shift - if [[ "$__s_var" == *=* ]]; then - set -- "${__s_var#*=}" "$@" - __s_var="${__s_var%%=*}" - fi - __s_args=("${__s_args[@]}" "$__s_var") - setx "${__s_args[@]}" evalx "$@" -} -function evalp() { - local __e_arg __e_cmd - - while [ $# -gt 0 ]; do - __e_arg="$1"; shift - if [ "$__e_arg" == // ]; then - __e_cmd="$__e_cmd |" - continue - elif [ "${__e_arg%//}" != "$__e_arg" ]; then - local __e_tmp="${__e_arg%//}" - if [ -z "${__e_tmp//\\/}" ]; then - __e_arg="${__e_arg#\\}" - fi - fi - __e_cmd="${__e_cmd:+$__e_cmd }\"$(_qval "$__e_arg")\"" - done - eval "$__e_cmd" -} -function setxp() { - local -a __s_args - if [ "$1" == -a ]; then __s_args=(-a); shift; fi - local __s_var="$1"; shift - if [[ "$__s_var" == *=* ]]; then - set -- "${__s_var#*=}" "$@" - __s_var="${__s_var%%=*}" - fi - __s_args=("${__s_args[@]}" "$__s_var") - setx "${__s_args[@]}" evalp "$@" -} -function testx() { - local __t_op="$1"; shift - local __t_val="$(evalx "$@")" - [ $__t_op "$__t_val" ] -} -function test2x() { - local __t_val1="$1"; shift - local __t_op="$1"; shift - local __t_val2="$(evalx "$@")" - [ "$__t_val1" $__t_op "$__t_val2" ] -} -function testrx() { - local __t_val1="$1"; shift - local __t_op="$1"; shift - local __t_val2="$(evalx "$@")" - eval '[[ "$__t_val1" '"$__t_op"' "$__t_val2" ]]' -} -function testp() { - local __t_op="$1"; shift - local __t_val="$(evalp "$@")" - [ $__t_op "$__t_val" ] -} -function test2p() { - local __t_val1="$1"; shift - local __t_op="$1"; shift - local __t_val2="$(evalp "$@")" - [ "$__t_val1" $__t_op "$__t_val2" ] -} -function testrp() { - local __t_val1="$1"; shift - local __t_op="$1"; shift - local __t_val2="$(evalp "$@")" - eval '[[ "$__t_val1" '"$__t_op"' "$__t_val2" ]]' -} - -function err2out() { - "$@" 2>&1 +function evalcmd() { + local -a args + array_buildcmd args "$@" + "${args[@]}" } ##@inc]base.core ##@inc[base.num @@ -27897,21 +29688,19 @@ uprovide base.num function isnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//[0-9]/}" [ -z "$v" ] } function ispnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v//[0-9]/}" - [ -z "$v" ] + [ -z "${1//[0-9]/}" ] } function isrnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//./}" v="${v//,/}" v="${v//[0-9]/}" @@ -27926,21 +29715,19 @@ uprovide base.num function isnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//[0-9]/}" [ -z "$v" ] } function ispnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v//[0-9]/}" - [ -z "$v" ] + [ -z "${1//[0-9]/}" ] } function isrnum() { [ ${#1} -gt 0 ] || return 1 - local v="$1" - v="${v#-}" + local v="${1#-}" + [ ${#v} -gt 0 ] || return 1 v="${v//./}" v="${v//,/}" v="${v//[0-9]/}" @@ -28030,6 +29817,8 @@ function qseds() { local s="$*" s="${s//\\/\\\\}" s="${s//\//\\/}" + s="${s// +/\\n}" recho "$s" } function _qform() { @@ -28053,6 +29842,14 @@ function qform() { echo fi } +function _qsql() { + local q="'" qq="''" + echo "${*//$q/$qq}" +} +function qsql() { + local q="'" qq="''" + echo "'${*//$q/$qq}'" +} ##@inc]base.quote uprovide base.compat urequire base.core base.num base.bool base.quote @@ -31269,9 +33066,9 @@ function __set_no_colors() { } __set_no_colors -function __eerror() { tooenc "$(__edate)${__tlevel}${COULEUR_ROUGE}* error:${COULEUR_NORMALE} $(__indent "$1")"; } -function __ewarn() { tooenc "$(__edate)${__tlevel}${COULEUR_JAUNE}* warning:${COULEUR_NORMALE} $(__indent "$1")"; } -function __enote() { tooenc "$(__edate)${__tlevel}${COULEUR_VERTE}* note:${COULEUR_NORMALE} $(__indent "$1")"; } +function __eerror() { local p; [ -z "$NO_COLORS" ] && p="E" || p="ERROR"; tooenc "$(__edate)${__tlevel}${COULEUR_ROUGE}${p}${COULEUR_NORMALE} $(__indent "$1")"; } +function __ewarn() { local p; [ -z "$NO_COLORS" ] && p="W" || p="WARNING"; tooenc "$(__edate)${__tlevel}${COULEUR_JAUNE}${p}${COULEUR_NORMALE} $(__indent "$1")"; } +function __enote() { local p; [ -z "$NO_COLORS" ] && p="N" || p="NOTE"; tooenc "$(__edate)${__tlevel}${COULEUR_VERTE}${p}${COULEUR_NORMALE} $(__indent "$1")"; } function __ebanner() { local maxi="${COLUMNS:-80}" local -a lines @@ -31293,22 +33090,22 @@ function __ebanner() { done tooenc "$psfix$COULEUR_NORMALE" } -function __eimportant() { tooenc "$(__edate)${__tlevel}${COULEUR_ROUGE}* important:${COULEUR_NORMALE} $(__indent "$1")"; } -function __eattention() { tooenc "$(__edate)${__tlevel}${COULEUR_JAUNE}* attention:${COULEUR_NORMALE} $(__indent "$1")"; } -function __einfo() { tooenc "$(__edate)${__tlevel}${COULEUR_BLEUE}* info:${COULEUR_NORMALE} $(__indent "$1")"; } -function __edebug() { tooenc "$(__edate)${__tlevel}${COULEUR_BLANCHE}* debug:${COULEUR_NORMALE} $(__indent "$1")"; } -function __estep() { tooenc "$(__edate)${__tlevel}${COULEUR_BLANCHE}*${COULEUR_NORMALE} $(__indent "$1")"; } -function __estepe() { tooenc "$(__edate)${__tlevel}${COULEUR_ROUGE}*${COULEUR_NORMALE} $(__indent "$1")"; } -function __estepw() { tooenc "$(__edate)${__tlevel}${COULEUR_JAUNE}*${COULEUR_NORMALE} $(__indent "$1")"; } -function __estepn() { tooenc "$(__edate)${__tlevel}${COULEUR_VERTE}*${COULEUR_NORMALE} $(__indent "$1")"; } -function __estepi() { tooenc "$(__edate)${__tlevel}${COULEUR_BLEUE}*${COULEUR_NORMALE} $(__indent "$1")"; } -function __estep_() { tooenc_ "$(__edate)${__tlevel}${COULEUR_BLANCHE}*${COULEUR_NORMALE} $(__indent "$1")"; } -function __estepe_() { tooenc_ "$(__edate)${__tlevel}${COULEUR_ROUGE}*${COULEUR_NORMALE} $(__indent "$1")"; } -function __estepw_() { tooenc_ "$(__edate)${__tlevel}${COULEUR_JAUNE}*${COULEUR_NORMALE} $(__indent "$1")"; } -function __estepn_() { tooenc_ "$(__edate)${__tlevel}${COULEUR_VERTE}*${COULEUR_NORMALE} $(__indent "$1")"; } -function __estepi_() { tooenc_ "$(__edate)${__tlevel}${COULEUR_BLEUE}*${COULEUR_NORMALE} $(__indent "$1")"; } -function __etitle() { tooenc "$(__edate)${__tlevel}${COULEUR_BLEUE}+++ $(get_color _)$(__indent "$1")${COULEUR_NORMALE}"; } -function __ebegin() { tooenc_ "$(__edate)${__tlevel}${COULEUR_BLANCHE}*${COULEUR_NORMALE} $(__indent "$1"): "; } +function __eimportant() { local p; [ -z "$NO_COLORS" ] && p="!" || p="IMPORTANT"; tooenc "$(__edate)${__tlevel}${COULEUR_ROUGE}${p}${COULEUR_NORMALE} $(__indent "$1")"; } +function __eattention() { local p; [ -z "$NO_COLORS" ] && p="*" || p="ATTENTION"; tooenc "$(__edate)${__tlevel}${COULEUR_JAUNE}${p}${COULEUR_NORMALE} $(__indent "$1")"; } +function __einfo() { local p; [ -z "$NO_COLORS" ] && p="I" || p="INFO"; tooenc "$(__edate)${__tlevel}${COULEUR_BLEUE}${p}${COULEUR_NORMALE} $(__indent "$1")"; } +function __edebug() { local p; [ -z "$NO_COLORS" ] && p="D" || p="DEBUG"; tooenc "$(__edate)${__tlevel}${COULEUR_BLANCHE}${p}${COULEUR_NORMALE} $(__indent "$1")"; } +function __estep() { local p; [ -z "$NO_COLORS" ] && p="." || p="."; tooenc "$(__edate)${__tlevel}${COULEUR_BLANCHE}${p}${COULEUR_NORMALE} $(__indent "$1")"; } +function __estepe() { local p; [ -z "$NO_COLORS" ] && p="." || p=".E"; tooenc "$(__edate)${__tlevel}${COULEUR_ROUGE}${p}${COULEUR_NORMALE} $(__indent "$1")"; } +function __estepw() { local p; [ -z "$NO_COLORS" ] && p="." || p=".W"; tooenc "$(__edate)${__tlevel}${COULEUR_JAUNE}${p}${COULEUR_NORMALE} $(__indent "$1")"; } +function __estepn() { local p; [ -z "$NO_COLORS" ] && p="." || p=".N"; tooenc "$(__edate)${__tlevel}${COULEUR_VERTE}${p}${COULEUR_NORMALE} $(__indent "$1")"; } +function __estepi() { local p; [ -z "$NO_COLORS" ] && p="." || p=".I"; tooenc "$(__edate)${__tlevel}${COULEUR_BLEUE}${p}${COULEUR_NORMALE} $(__indent "$1")"; } +function __estep_() { local p; [ -z "$NO_COLORS" ] && p="." || p="."; tooenc_ "$(__edate)${__tlevel}${COULEUR_BLANCHE}${p}${COULEUR_NORMALE} $(__indent "$1")"; } +function __estepe_() { local p; [ -z "$NO_COLORS" ] && p="." || p=".E"; tooenc_ "$(__edate)${__tlevel}${COULEUR_ROUGE}${p}${COULEUR_NORMALE} $(__indent "$1")"; } +function __estepw_() { local p; [ -z "$NO_COLORS" ] && p="." || p=".W"; tooenc_ "$(__edate)${__tlevel}${COULEUR_JAUNE}${p}${COULEUR_NORMALE} $(__indent "$1")"; } +function __estepn_() { local p; [ -z "$NO_COLORS" ] && p="." || p=".N"; tooenc_ "$(__edate)${__tlevel}${COULEUR_VERTE}${p}${COULEUR_NORMALE} $(__indent "$1")"; } +function __estepi_() { local p; [ -z "$NO_COLORS" ] && p="." || p=".I"; tooenc_ "$(__edate)${__tlevel}${COULEUR_BLEUE}${p}${COULEUR_NORMALE} $(__indent "$1")"; } +function __etitle() { local p; [ -z "$NO_COLORS" ] && p="T" || p="==="; tooenc "$(__edate)${__tlevel}${COULEUR_BLEUE}${p} $(get_color _)$(__indent "$1")${COULEUR_NORMALE}"; } +function __ebegin() { local p; [ -z "$NO_COLORS" ] && p="." || p="."; tooenc_ "$(__edate)${__tlevel}${COULEUR_BLANCHE}${p}${COULEUR_NORMALE} $(__indent "$1"): "; } function __edoto() { echo_ "."; } function __edotw() { echo_ "${COULEUR_JAUNE}w${COULEUR_NORMALE}"; } function __edotx() { echo_ "${COULEUR_ROUGE}x${COULEUR_NORMALE}"; } @@ -31422,16 +33219,16 @@ SYSDIST_ALIASES=( 10.7=lion 10.6=snowleopard 10.5=leopard 10.4=tiger 10.3=panther ) debianlike_SYSVERS=() -debian_SYSVERS=(wheezy squeeze lenny etch) +debian_SYSVERS=(stretch jessie wheezy squeeze lenny etch) ubuntu_SYSVERS=(oneiric natty maverick lucid karmic jaunty intrepid hardy) redhatlike_SYSVERS=() -rhel_SYSVERS=(rhel6 rhel5 rhel4 redhat6 redhat5 redhat4) +rhel_SYSVERS=(rhel7 rhel6 rhel5 rhel4 redhat7 redhat6 redhat5 redhat4) fedora_SYSVERS=(fedora14 fedora13 fedora12 fedora11) -centos_SYSVERS=(centos6 centos5 centos4 redhat6 redhat5 redhat4) +centos_SYSVERS=(centos7 centos6 centos5 centos4 redhat7 redhat6 redhat5 redhat4) suse_SYSVERS=() gentoo_SYSVERS=() SYSVER_ALIASES=( - 7=wheezy 6=squeeze 5=lenny 4=etch + 9=stretch 8=jessie 7=wheezy 6=squeeze 5=lenny 4=etch 11.10=oneiric 11.04=natty 10.10=maverick 10.04=lucid 9.10=karmic 9.04=jaunty 8.10=intrepid 8.04=hardy ) @@ -31456,92 +33253,158 @@ function __setup_ALL_SYSvars() { __setup_ALL_SYSvars unset -f __setup_ALL_SYSvars +function __compute_local_sysinfos_data() { + SYSINFOS_DATA=( + "$UNAME_SYSTEM" + "$UNAME_MACHINE" + "$([ -f /etc/debian_version ] && cat /etc/debian_version)" + "$([ -f /etc/gentoo-release ] && cat /etc/gentoo-release)" + "$([ -f /etc/redhat-release ] && cat /etc/redhat-release)" + "$([ -f /System/Library/Frameworks/CoreServices.framework/Frameworks/Metadata.framework/Resources/version.plist ] && cat /System/Library/Frameworks/CoreServices.framework/Frameworks/Metadata.framework/Resources/version.plist)" + "$([ -f /System/Library/Frameworks/CoreServices.framework/Resources/version.plist ] && cat /System/Library/Frameworks/CoreServices.framework/Resources/version.plist)" + ) +} +function __dump_remote_sysinfos_data() { + "${2:-ssh}" "$1" "\ +uname -s +echo .----------------. +uname -m +echo .----------------. +[ -f /etc/debian_version ] && cat /etc/debian_version +echo .----------------. +[ -f /etc/gentoo-release ] && cat /etc/gentoo-release +echo .----------------. +[ -f /etc/redhat-release ] && cat /etc/redhat-release +echo .----------------. +[ -f /System/Library/Frameworks/CoreServices.framework/Frameworks/Metadata.framework/Resources/version.plist ] && cat /System/Library/Frameworks/CoreServices.framework/Frameworks/Metadata.framework/Resources/version.plist +echo .----------------. +[ -f /System/Library/Frameworks/CoreServices.framework/Resources/version.plist ] && cat /System/Library/Frameworks/CoreServices.framework/Resources/version.plist +echo .----------------." +} +function __build_sysinfos_data() { + awk ' +BEGIN { + data = "" + have_data = 0 + print "SYSINFOS_DATA=(" +} +function read_data() { + if (have_data) data = data "\n" + else have_data = 1 + data = data $0 +} +function dump_data() { + gsub(/'\''/, "'\'\\\\\'\''", data) + print "'\''" data "'\''" + data = "" + have_data = 0 +} +$0 == ".----------------." { dump_data(); next } +{ read_data() } +END { + dump_data() + print ")" +} +' +} +function __compute_sysinfos() { + local system="${SYSINFOS_DATA[0]}" + local machine="${SYSINFOS_DATA[1]}" + local debian_version="${SYSINFOS_DATA[2]}" + local gentoo_release="${SYSINFOS_DATA[3]}" + local redhat_release="${SYSINFOS_DATA[4]}" + local macosx_plist1="${SYSINFOS_DATA[5]}" + local macosx_plist2="${SYSINFOS_DATA[6]}" + + if [ "$system" == "Linux" ]; then + case "$machine" in + x86_64) MYSYSNAME=(linux64 linux); MYBITS=64;; + i386|i586|i686) MYSYSNAME=(linux32 linux); MYBITS=32;; + ppc) MYSYSNAME=(linuxppc32 linuxppc linux); MYBITS=32;; + ppc64) MYSYSNAME=(linuxppc64 linuxppc linux); MYBITS=64;; + arm*) MYSYSNAME=(linuxarm linux);; + *) MYSYSNAME=(linux);; + esac + if [ -n "$debian_version" ]; then + case "$debian_version" in + 9*|stretch*) MYSYSDIST=(debian debianlike); MYSYSVER=(stretch);; + 8*|jessie*) MYSYSDIST=(debian debianlike); MYSYSVER=(jessie);; + 7*|wheezy*) MYSYSDIST=(debian debianlike); MYSYSVER=(wheezy);; + 6*|squeeze*) MYSYSDIST=(debian debianlike); MYSYSVER=(squeeze);; + 5*) MYSYSDIST=(debian debianlike); MYSYSVER=(lenny);; + 4*) MYSYSDIST=(debian debianlike); MYSYSVER=(etch);; + *) MYSYSDIST=(debianlike);; + esac + elif [ -n "$gentoo_release" ]; then + MYSYSDIST=(gentoo) + elif [ -n "$redhat_release" ]; then + case "$redhat_release" in + Fedora*) MYSYSDIST=(fedora redhatlike);; + Red*Hat*Enterprise*Linux*) MYSYSDIST=(rhel redhatlike);; + CentOS*) MYSYSDIST=(centos redhatlike);; + *) MYSYSDIST=(redhatlike);; + esac + case "$redhat_release" in + Fedora*14*) MYSYSVER=(fedora14);; + Fedora*13*) MYSYSVER=(fedora13);; + Fedora*12*) MYSYSVER=(fedora12);; + Fedora*11*) MYSYSVER=(fedora11);; + Red*Hat*Enterprise*Linux*release\ 7*) MYSYSVER=(rhel7 redhat7);; + Red*Hat*Enterprise*Linux*release\ 6*) MYSYSVER=(rhel6 redhat6);; + Red*Hat*Enterprise*Linux*release\ 5*) MYSYSVER=(rhel5 redhat5);; + Red*Hat*Enterprise*Linux*release\ 4*) MYSYSVER=(rhel4 redhat4);; + CentOS*release\ 7*) MYSYSVER=(centos7 redhat7);; + CentOS*release\ 6*) MYSYSVER=(centos6 redhat6);; + CentOS*release\ 5*) MYSYSVER=(centos5 redhat5);; + CentOS*release\ 4*) MYSYSVER=(centos4 redhat4);; + esac + fi + elif [ "$system" == "Darwin" ]; then + function get_macosx_version() { + local plist + for plist in "$@"; do + [ -n "$plist" ] || continue + echo "$plist" | grep -A 1 CFBundleShortVersionString | grep string | sed 's/.*//g +s/<\/string>.*$//g' + break + done + } + MYSYSNAME=(macosx darwin) + case "$(get_macosx_version)" in + 10.7*) MYSYSDIST=(lion);; + 10.6*) MYSYSDIST=(snowleopard);; + 10.5*) MYSYSDIST=(leopard);; + 10.4*) MYSYSDIST=(tiger);; + 10.3*) MYSYSDIST=(panther);; + esac + fi +} + +function compute_local_sysinfos() { + local SYSINFOS_DATA + __compute_local_sysinfos_data + __compute_sysinfos + if [ -n "$UTOOLS_CHROOT" ]; then + [ -n "$UTOOLS_SYSNAME" ] && eval "MYSYSNAME=($UTOOLS_SYSNAME)" + [ -n "$UTOOLS_BITS" ] && eval "MYBITS=$UTOOLS_BITS" + [ -n "$UTOOLS_SYSDIST" ] && eval "MYSYSDIST=($UTOOLS_SYSDIST)" + [ -n "$UTOOLS_SYSVER" ] && eval "MYSYSVER=($UTOOLS_SYSVER)" + fi +} +function compute_remote_sysinfos() { + local SYSINFOS_DATA + eval "$(__dump_remote_sysinfos_data "$@" | __build_sysinfos_data)" + __compute_sysinfos +} + +SYSINFOSLOCALS="\ +local -a MYSYSNAME MYSYSDIST MYSYSVER +local MYBITS" MYSYSNAME=() MYBITS= MYSYSDIST=() MYSYSVER=() -if [ "$UNAME_SYSTEM" == "Linux" ]; then - case "$UNAME_MACHINE" in - x86_64) - MYSYSNAME=(linux64 linux) - MYBITS=64 - ;; - i386|i586|i686) - MYSYSNAME=(linux32 linux) - MYBITS=32 - ;; - ppc) - MYSYSNAME=(linuxppc32 linuxppc linux) - MYBITS=32 - ;; - ppc64) - MYSYSNAME=(linuxppc64 linuxppc linux) - MYBITS=64 - ;; - arm*) - MYSYSNAME=(linuxarm linux) - ;; - *) - MYSYSNAME=(linux) - ;; - esac - - if [ -f /etc/debian_version ]; then - case "$(//g -s/<\/string>.*$//g' - break - fi - done - } - MYSYSNAME=(macosx darwin) - case "$(get_macosx_version)" in - 10.7*) MYSYSDIST=(lion);; - 10.6*) MYSYSDIST=(snowleopard);; - 10.5*) MYSYSDIST=(leopard);; - 10.4*) MYSYSDIST=(tiger);; - 10.3*) MYSYSDIST=(panther);; - esac -fi -if [ -n "$UTOOLS_CHROOT" ]; then - [ -n "$UTOOLS_SYSNAME" ] && eval "MYSYSNAME=($UTOOLS_SYSNAME)" - [ -n "$UTOOLS_BITS" ] && eval "MYBITS=$UTOOLS_BITS" - [ -n "$UTOOLS_SYSDIST" ] && eval "MYSYSDIST=($UTOOLS_SYSDIST)" - [ -n "$UTOOLS_SYSVER" ] && eval "MYSYSVER=($UTOOLS_SYSVER)" -fi +compute_local_sysinfos function __get_sysdist_alias() { if ! array_contains ALL_SYSDISTS "$1"; then @@ -31634,11 +33497,28 @@ function ensure_sysinfos() { __fix_sysinfos_downward } +function get_sysinfos_desc() { + local sysname_="${1:-MYSYSNAME}"; sysname_="${!sysname_}" + local sysdist_="${2:-MYSYSDIST}"; sysdist_="${!sysdist_}" + local sysver_="${3:-MYSYSVER}"; sysver_="${!sysver_}" + echo "$sysname_${sysdist_:+/$sysdist_}${sysver_:+/$sysver_}" +} + function check_sysinfos() { - local sysnamevar_="MYSYSNAME" - local sysdistvar_="MYSYSDIST" - local sysvervar_="MYSYSVER" - local bitsvar_="MYBITS" + local sysnamevar_ sysdistvar_ sysvervar_ bitsvar_ + if [ "$1" == --vars ]; then + shift + if [[ "$1" != -* ]]; then sysnamevar_="${1:-MYSYSNAME}"; shift; fi + if [[ "$1" != -* ]]; then sysdistvar_="${1:-MYSYSDIST}"; shift; fi + if [[ "$1" != -* ]]; then sysvervar_="${1:-MYSYSVER}"; shift; fi + if [[ "$1" != -* ]]; then bitsvar_="${1:-MYBITS}"; shift; fi + else + sysnamevar_="MYSYSNAME" + sysdistvar_="MYSYSDIST" + sysvervar_="MYSYSVER" + bitsvar_="MYBITS" + fi + local check_=sysname r_=0 while [ -n "$1" ]; do if [[ "$1" == -* ]]; then @@ -31682,6 +33562,7 @@ function check_sysinfos() { if array_contains "$sysdistvar_" "$sysdist_"; then r_=0 check_=skip + [ "$sysdist_" == "$value_" ] && break elif [ "$sysdist_" == "$value_" ]; then break fi @@ -31721,6 +33602,7 @@ function check_sysinfos() { if array_contains "$sysvervar_" "$sysver_"; then r_=0 check_=skip + [ "$sysver_" == "$value_" ] && break elif [ "$sysver_" == "$value_" ]; then break fi @@ -31749,6 +33631,59 @@ function check_sysinfos() { done return $r_ } + +function on_debian() { + NUTOOLS_ON_DEBIAN= + if check_sysinfos -d debian; then + urequire debian + if [ $# -gt 0 ]; then + NUTOOLS_ON_DEBIAN=debian + "$@" + else + NUTOOLS_ON_DEBIAN=1 + fi + return 0 + else + return 1 + fi +} +function on_debian:() { on_debian "$@"; } +function __on_debian() { + [ -z "$NUTOOLS_ON_DEBIAN" -o "$NUTOOLS_ON_DEBIAN" != 1 ] && return 1 + local sysver="$1"; shift + if [ $# -gt 0 ]; then + if check_sysinfos -d debian -v "$sysver"; then + NUTOOLS_ON_DEBIAN="$sysver" + "$@" + return 0 + else + return 1 + fi + else + if check_sysinfos -d debian -v "$sysver+"; then + NUTOOLS_ON_DEBIAN="$sysver" + return 0 + fi + fi +} + +function on_stretch() { __on_debian stretch "$@"; } +function on_jessie() { __on_debian jessie "$@"; } +function on_wheezy() { __on_debian wheezy "$@"; } +function on_squeeze() { __on_debian squeeze "$@"; } +function on_default() { + if [ "$NUTOOLS_ON_DEBIAN" == 1 ]; then + if [ $# -gt 0 ]; then + "$@" + return 0 + else + return 0 + fi + elif [ -n "$NUTOOLS_ON_DEBIAN" ]; then + return 1 + fi + return 1 +} ##@inc]sysinfos ##@inc[compat # Code de support pour les architectures autre que Linux @@ -32149,7 +34084,11 @@ function enable_in_crontab() { fi } function ctnow() { - date +"%-M %-H %-d %-m %u" + if [ -n "$1" ]; then + echo "$1" | awk '{ print strftime("%-M %-H %-d %-m %u", $0) }' + else + awk 'BEGIN { print strftime("%-M %-H %-d %-m %u", systime()) }' + fi } __CTRESOLVE_CTNOW="" function ctresolve() { @@ -32338,13 +34277,18 @@ function __compute_crontab_prefixes() { __crontab_prefixes=1 } -UTOOLS_PREFIXES=("${UTOOLS_PREFIXES[@]}" CRONTABDIR) +CRONTAB_PREFIXES=(CRONTABDIR) +UTOOLS_PREFIXES=("${UTOOLS_PREFIXES[@]}" "${CRONTAB_PREFIXES[@]}") function compute_crontab_prefixes() { __compute_crontab_prefixes } function recompute_crontab_prefixes() { + local v + for v in "${CRONTAB_PREFIXES[@]}"; do + eval "$v=" + done __crontab_prefixes= __compute_crontab_prefixes } diff --git a/update-nutools b/update-nutools index f939e82..1df08a2 100755 --- a/update-nutools +++ b/update-nutools @@ -9,7 +9,16 @@ NAME=nutools ################################################################################ if [ $# -eq 1 -a "$1" == --help ]; then - echo "update-nutools: mettre à jour nutools" + echo "update-nutools: mettre à jour nutools + +USAGE: + update-nutools [--develop] + +OPTIONS + -d, --develop + Mettre à jour avec la branche develop pour avoir les dernières fonctions + qui ne sont pas encore stabilisées. Par défaut, la mise à jour est faite + avec la branche master." exit 0 fi @@ -41,14 +50,20 @@ NOTE: si une erreur se produit, utiliser l'adresse privée, e.g. NUTOOLS_REPO=$PRIV_REPO $0" fi +case "$1" in +-d|--d|--dev|--develop) develop=develop;; +*) develop=;; +esac + scriptdir="$(dirname "$0")" -if [ $# -ne 2 -o "$1" != --do-update ]; then +if [ $# -ne 3 -o "$1" != --do-update ]; then cp "$0" "$TMPSCRIPT" chmod 755 "$TMPSCRIPT" - exec bash "$TMPSCRIPT" --do-update "$scriptdir" + exec bash "$TMPSCRIPT" --do-update "$scriptdir" "$develop" fi scriptdir="$2" +develop="$3" clonerepo= if [ -z "$NUTOOLS_REPO" -a -f "$scriptdir/.nutools-devel" -a -d "$scriptdir/.git" ]; then echo "NOTE: tentative de mise à jour du dépôt local" @@ -62,13 +77,13 @@ if [ -n "$clonerepo" ]; then echo "NOTE: clonage du dépôt distant $REPO" cd /tmp rm -rf "$NAME" - git clone --depth 1 "$REPO" || exit 1 + git clone --depth 1 ${develop:+--branch "$develop"} "$REPO" || exit 1 cd "$NAME" fi if ! diff -q "$SCRIPTNAME" "$0"; then echo "NOTE: Le script $SCRIPTNAME a été mis à jour. Il va être relancé." - exec bash "./$SCRIPTNAME" + exec bash "./$SCRIPTNAME" ${develop:+--develop} fi bash ./uinst -y || exit 1 diff --git a/uproject b/uproject index 9d0e14d..61f5a53 100755 --- a/uproject +++ b/uproject @@ -241,7 +241,12 @@ elif array_contains VCS_CMDS "$CMD"; then elif array_contains GITANNEX_CMDS "$CMD"; then function xsync() { if ! git_have_annex; then - git_commit -Al "Maj des fichiers" && git pull && git_push + setyesval offline "$UTOOLS_VCS_OFFLINE" + if git_commit -Al "Maj des fichiers"; then + [ -n "$offline" ] && return 0 + git_have_remote || return 0 + git pull && git_push + fi elif is_yes "$(git config --get annex.direct)"; then git annex add && git annex sync &&