détection de presence par IP

Script Perl (package Perl Synology requis) de détection de présence. Tient à jour un fichier TSV des connexions/déconnexions (date/heure, nom, on|off) de différents équipements IP. Le format du fichier trace est adapté pour être facilement incorporé dans un tableur.

Configuration:

Créer un fichier de lignes de la forme <IP><espace><nom> (type "/etc/hosts"). Chemin par défaut, si non spécifié: "/etc/presence.conf"

Les espaces pour "<nom>" sont supportés mais pas recommandés.

Lancement:

<chemin>/presence -d <parametres>

Paramétres:

•     -v: augmente la verbosité
•     -d: se détache pour tourner en mode "démon" (pour tester en mode "normal", lancer avec "-v" et sans "-d")
•     -w <n>: timeout des pings en secondes  (défaut: -w 2)
•     -c <n> : nombre de pings (défaut: -c 2)
•     -i : intervalle en secondes entre les pings par appareil (défaut: -i 60)
•     -D <répertoire> : chemin du répertoire contenant les fichiers d'état des équipements (défaut: "/var/run/presence.d")
•     -H <chemin et nom fichier trace> : nom du fichier trace au format TSV. Défaut: "/site/var/log/presence-%Y-%m.tsv" (supporte les macros telles que documentées ici: posix strftime). Ce fichier n'est pas maintenu ouvert en permanence mais uniquement une fois par cycle (paramètre "-i")
•     -C <chemin fichier conf> : chemin fichier de configuration au format /etc/hosts, défaut :  "/site/etc/presence.conf"

Compléments:

URL pour acces direct au script: http://pastebin.com/VhTMvm6a

Ne pas hésiter à me contacter pour toute suggestion d'améliorations, demande d'infos complémentaires ou ou signaler un dysfonctionnement.