From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <anyr@tut.by>
X-VBA32: Checked
From: anyr <anyr@tut.by>
To: ALT Linux Community <community@lists.altlinux.org>
Subject: Re: [Comm]
	=?koi8-r?b?8MXSxcjPxCDTIEtNYWlsIM7BIFRodW5kZXJiaXJkIC0g0NLPwszFzcEg0w==?=
	=?koi8-r?b?IE1haWxkaXIu?=
Date: Thu, 3 Nov 2005 02:01:34 +0000
User-Agent: KMail/1.6.2
References: <200510242104.51633.altlinux-community@yandex.ru>
	<1130178581.18763.10.camel@yuk.home.int>
	<200510251110.10231.altlinux-community@yandex.ru>
In-Reply-To: <200510251110.10231.altlinux-community@yandex.ru>
MIME-Version: 1.0
Content-Disposition: inline
Message-Id: <200511030201.34843.anyr@tut.by>
Content-Type: text/plain;
  charset="koi8-r"
Content-Transfer-Encoding: 7bit
X-BeenThere: community@lists.altlinux.org
X-Mailman-Version: 2.1.5
Precedence: list
Reply-To: ALT Linux Community <community@lists.altlinux.org>
List-Id: ALT Linux Community <community.lists.altlinux.org>
List-Unsubscribe: <https://lists.altlinux.org/mailman/listinfo/community>,
	<mailto:community-request@lists.altlinux.org?subject=unsubscribe>
List-Archive: <http://lists.altlinux.org/pipermail/community>
List-Post: <mailto:community@lists.altlinux.org>
List-Help: <mailto:community-request@lists.altlinux.org?subject=help>
List-Subscribe: <https://lists.altlinux.org/mailman/listinfo/community>,
	<mailto:community-request@lists.altlinux.org?subject=subscribe>
X-List-Received-Date: Thu, 03 Nov 2005 00:02:52 -0000
Archived-At: <http://lore.altlinux.org/community/200511030201.34843.anyr@tut.by/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

#!/bin/bash
#Transformation d'une boite KMail en Thunderbird
#Preservation de la structure des messages
#
laDate=`date`;
from="From - "$laDate;

pwdX=`ls -dm ~/Mail`;

scandir() {
        echo "on scan "${pwdX}/$1;
        repCur=$1;
        x=`ls -m ${pwdX}/$repCur`; #On recupere les repertoires
        echo "-$x-";
        nbre=1; #On commence par le premier
        data=`echo $x | cut -d "," -f $nbre;`; #On recupre le premier 
repertoire
        echo $data;
        #On cree l'arborence
        curDir=KmailToThunderbird.sbd;
        if [[ ! -d $curDir ]]; then
                mkdir $curDir;
                touch KmailToThunderbird;
        fi;
        #On parcourt tous les repertoires
        while [[ "X"$data != "X" ]];do
                echo ${pwdX}/$repCur/${data}/cur;
                dirToCreate=`echo $repCur  | cut -c 2-`;
                #On cree le repetoire qui va bien
                mkdir "${curDir}/$dirToCreate/.${data}.directory";
                #ls -1 "${pwdX}/$1/${data}/cur"; #On liste les fichiers a 
recuperer
                #On tranform le format Kmail en format Thunderbird
                echo -n > Temp; #On cree le fichier pour etre sur d'en avoir 
un
                for leFichier in `ls "${pwdX}/$repCur/${data}/cur"`; do
                        #Test pour les pieces jointes
                        if [[ `fgrep -i "content-type: application" 
"${pwdX}/$repCur/${data}/cur/${leFichier}"` ]]; then
                                status2=10000000;
                        else
                                status2=00000000;
                        fi;
                        echo $from >> Temp;
                        echo "X-Mozilla-status: 0000" >> Temp #On les met en 
attente de lecture
                        echo "X-Mozilla-status2: "$status2 >> Temp
                        cat "${pwdX}/$repCur/${data}/cur/$leFichier" | mawk 
'{if (substr($0,0,6) ~ "From ") print "",$0; else print;}' >> Temp
                        echo >> Temp;
                done;

                #On deplace le fichier Temp vers le bon repertoire
                mv Temp "${curDir}/$dirToCreate/$data";


                #On doit aussi voir si il existe ou non un repertoire 
contenant messages
                if [ -d "${pwdX}/$repCur/.${data}.directory" ]; then
                        #On a un repertoire en dessous
                        echo "On doit analyser le contenu de : ".
${data}.directory;
                        $0 "$repCur/.${data}.directory";
                fi;
                #On adapte le nom pour un integration dans Thunderbird
                mv "${curDir}/$dirToCreate/.${data}.directory" 
"${curDir}/$dirToCreate/${data}.sbd";
                nbre=$[$nbre + 1];
                data=`echo $x | cut -s -d "," -f $nbre| cut -c 2-;`; #On passe 
au suivant
                echo "-$data-";
        done;
}

#On demarre le script
scandir "$1" ;