Script to move subdirectories

[proggybilly]

I am planning a migration from an old email server to a more up to date server. I need to migrate the users for each domain I host for, which is no problem cause I can tar the directory and sftp that tar file to the new server. The problem lies with needing to move directories around in the user accounts. Right now the directory structure looks like

domain/user/Maildir/mailboxes

I am trying to figure out how to setup a script that will move into each user directory and move the Maildir/mailboxes up one level so directory now looks like:

domain/user/mailboxes

So basically a script that will move all directories under Maildir up one level. I want this to be a perl script but since I have very little experience with perl I thought I'd come here to see if someone can get me started. I really just need to know how to tell perl to go into each user directory, then I can tell it to run a command to move the files.

 

[TrojanWarBlade]

Personally I'd probably do this with a unix "find".

Maybe something similar to this:

find domain/*/Maildir -name mailboxes -type d -exec mv {} .. \;

I've not tested that so it could be wildly wrong but I suspect it's not too far from the mark.



Trojan.

 

[Annihilannic]

find doesn't change the current working directory for each exec, so it wouldn't make that mv relative the the file's original location.

A perl solution might be something like this:

perl -we 'use File::Find; use Cwd; find(sub{$File::Find::name =~ /Maildir\/mailboxes/ && print "mv $File::Find::name $File::Find::dir/..\n";},getcwd);' > /tmp/somescript

You can then run /tmp/somescript... File::Find doesn't like stuff being moved around while it's running, hence the two-step process.

Or perhaps something like:

find domain/*/Maildir -name mailboxes -type d | while read m ; do echo mv $m $(echo $m | sed 's#/Maildir##') ; done > /tmp/somescript

Annihilannic.

 

[TrojanWarBlade]

Fair comment.


Trojan.

 

[proggybilly]

Thanks all, we ended up using find.