Créez automatiquement des fichiers "contact"
Le script suivant va automatiquement lire tous les messages dans votre boîte aux
lettres entrante (les messages que vous avez reçus), et créer un fichier
contact ("People") pour chaque personne qui vous a envoyé un courriel.
Les fichiers contacts existants ne vont pas être écrasés.
[Remarque de l'éditeur: Si vous utilisez Mail-It et voulez être un peu
plus sélectifs sur cette procédure, cliquez simplement sur l'adresse email
de l'auteur dans l'entête pour ajouter rapidemment cette personne dans la
base.]
#!/bin/sh
cd ~/mail/in
find . -type f | {
read file
while [ "$file" != "" ]
do
NAME=$(catattr MAIL:name "$file")
NAME=$(echo $NAME|awk '{print $3}' FS=" : ")
if [ "$NAME" != "" ]
then
EMAIL=$(catattr MAIL:from "$file")
EMAIL=$(echo $EMAIL|awk '{print $2}' FS="<")
EMAIL=$(echo $EMAIL|awk '{print $1}' FS=">")
if [ "$EMAIL" != "" ]
then
FILE=/boot/home/people/$NAME
if [ ! -f "$FILE" ]
then
touch "$FILE"
addattr -t string BEOS:TYPE application/x-person "$FILE"
addattr -t string META:name "$NAME" "$FILE"
addattr -t string META:email $EMAIL "$FILE"
echo $NAME : $EMAIL
fi
fi
fi
read file
done
}
Téléchargez
le script présenté dans cette astuce ici.
Read this Tip in English here
Hier findest Du den Tip in Deutsch
Cette astuce est une contribution de Marco Nelissen.
Site de l'auteur de cette astuce: http://www.xs4all.nl/~marcone/be.html.
Astuce traduite par: Sylvain.
Traduction
Française du Serveur BeTips © 2000 BeTrayer et équipe
|
