#!/bin/bash

# author: G.R.Keech <rkeech@redhat.com>
# name:   migrate-folders
# date:   2004-10-20

# This script assists in the conversion of mail boxes
# in mbox format to maildir format.
# See also migrate-users.

# Applicability.
#
# This script is intended for the common case on Red Hat systems
# where mail users have mail folders in their home directories
# under /home, and have inboxes in /var/spool/mail/
#==================================================================
# Change the value of the elements in this section as required.

#This is a list of folders, one per line.  This does not
#include the inboxes.  This might be prepared starting with
#the output of "find /home -type d".
FOLDERLIST=/root/migrate/folderlist
# folder is the existing mbox folder being migrated.
# It is a path under /home.
# eg if oldfolder is  fred/personal, then folder is personal,
# user is fred.

#Specify the location of the new location for mail folders.
#This cannot be the same as the old location because it will
#create directory names that contend with existing file names.
NEWBASE=/var/spool/mail2

#The script to convert invidual mail folders to maildir format.
#http://perfectmaildir.home-dn.net/
FOLDERCONVERT=/usr/local/bin/perfect_maildir.pl 

#This is a list of users to have their mail folders created.
#One user per line.
#Suggest create with cut -d: -f1 /etc/passwd > ~/migrate/u1
#then remove inappropriate entries by hand.
USERLIST=/root/migrate/userlist

# Detailed migration information is sent to this file
MIGRATELOG=/tmp/foldermigrationlog-$(date -I) 
#=================================================================
echo 
echo "Have you created the users' mail directories yet? (y/n)"
echo
read ans
if [ "$ans" != "y" ]
then
  echo Good Bye.
  echo use the migrate-users script first.
  exit 0
fi
echo
echo This will copy existing mbox-style mail folders listed
echo in the file $FOLDERLIST.  Maildir-style folders will
echo be created under $NEWBASE
echo
echo "Do you want to continue? (y/n)"
read ans
if [ "$ans" != "y" ]
then
  echo Good Bye.
  exit 0
fi
echo
echo Note: Detailed folder migration information will be sent to $MIGRATELOG
echo
echo Press enter to start
read ans

if [ ! -x ${FOLDERCONVERT} ]
then
  echo Error: file ${FOLDERCONVERT} is not available to execute.
  exit 1
fi

if [ ! -d ${NEWBASE} ]
then
  echo Error: directory $NEWBASE does not exist
  exit 1
fi

if [ ! -f "${USERLIST}" ]
then
  echo Error: user list file \"$USERLIST\" does not exist.
  exit 1
fi


#-----------------------------------------------------------------
echo
echo Testing that the base of the folderlist entries corresponds to usernames
while read oldfolder
do
  user="$(dirname "$oldfolder")"
  if grep ^${user}: /etc/passwd &> /dev/null
  then
    echo -n .
  else
    echo User \"$user\": is bogus.
    echo The string \"$user\" from the file \"$FOLDERLIST\" needs to
    echo correspond exactly to a username.  Edit the file accordingly.
    exit 1
  fi
done < $FOLDERLIST
echo
echo PASS
echo
nusers=$(wc -l $USERLIST | awk '{ print $1 }' )
n=1
#-----------------------------------------------------------------
# Iterate through user list and migrate folders.
while read user
do
  #-----------------------------------------------------------------
  # Step 1: Check stuff
  if grep ^${user}: /etc/passwd &> /dev/null
  then
    echo -n "$n / $nusers : User \"$user\" is OK: "
    n=$(( $n + 1 ))
    echo "User \"$user\"" >> $MIGRATELOG

    inbox=/var/spool/mail/${user}

    if [ \( ! -f "${inbox}" \) -o \( ! -s "${inbox}" \) ]
    then
	echo User \"${user}\" has no inbox to convert.
    else
      #-----------------------------------------------------------------
      # Step 2: Migrate user inboxes from /var/spool/mail/.
      newdir="${NEWBASE}/${user}/"
      $FOLDERCONVERT "$newdir" < "${inbox}" >> $MIGRATELOG 2>&1
      chown -R ${user}:mail "${newdir}"
      find "$newdir" -type f  -exec chmod 600 {} \;
      echo -n  " inbox "
    fi
    #-----------------------------------------------------------------
    # Step 3: Migrate other mail folders from user home directories.
    while read oldfolder
    do
      folder=$(basename "${oldfolder}")
      fuser="$(dirname "$oldfolder")"

      if [ "$user" = "$fuser" ]
      then
	if [ ! -f "/home/${oldfolder}" ]
	then
	  echo Error folder \"${folder}\" does not exist.
	  break
	fi

	if [ ! -d ${NEWBASE}/${fuser} ]
	then
	    echo Error ${NEWBASE}/${fuser} does not exist.
	    break
	fi

	newdir="${NEWBASE}/${fuser}/.$folder"
	mkdir -p "$newdir"/cur
	mkdir -p "$newdir"/new
	mkdir -p "$newdir"/tmp
	chmod -R 770  "${newdir}"
	$FOLDERCONVERT "$newdir" < "/home/$oldfolder" >> $MIGRATELOG 2>&1
	chown -R ${user}:mail "${newdir}"
        #chmod 600 "$newdir/cur/*"
	find "$newdir" -type f  -exec chmod 600 {} \;
  
	echo "$folder" >> ${NEWBASE}/${fuser}/.subscriptions
	chmod 600 ${NEWBASE}/${fuser}/.subscriptions
	chown ${fuser}:mail ${NEWBASE}/${fuser}/.subscriptions
	
	echo -n .
      fi
    done < $FOLDERLIST
    echo

  else
    echo User "$user: is bogus."
  fi

done < $USERLIST

echo
echo
echo To make the new base mail directory active, change the
echo mail_spool_directory setting for postfix using
echo postconf -e \"mail_spool_directory = ${NEWBASE}/\"
echo and change Dovecots default_mail_env setting in
echo /etc/dovecot.conf to
echo default_mail_env = maildir:${NEWBASE}/%u
echo