ref: b67b2eeac8acf220d33c8e354fe17d8f1d1efdcc
dir: /rc/bin/splitmbox/
#!/bin/rc rfork en mbox = /mail/box/$user/mbox dest = /mail/box/$user/mboxdir- fn usage{ echo 'usage: splitmbox [[mbox] dest]'>[1=2] exit usage } fn dirbits{ awk -v 'isdir='$1 ' { str = $1 printf "0" for(i = 3; i < 12; i += 3){ s = substr(str, i, 3); b = 0; if(s ~ /r/) b += 2 if(s ~ /w/) b += 4 if(s ~ /x/ || isdir && s ~ /[rwx]/) b += 1 printf b } print "" } ' } fn docopy{ src=$1; shift dst=$dest/$1; shift echo $src '->' $dst # painful reminder that rc does need a break statement. done=() while(~ $#done 0){ if(! test -f $dst^.^$1){ if(! cp $src/rawunix $dst^.^$1) exit copy done = 1 } shift } } fn doit{ upas/fs -pf$mbox if(! test -d $dest) mkdir $dest #upas/nedmail -c $dest if(! test -d $dest) exits mkdir if(! chgrp $user $des) exits chgrp if(! chmod g+rwx $dest) exits chmod if(~ $mbox mbox */mbox) if(! chmod o+wx $dest) exits chmod cd /mail/fs/mbox l = `{{for(i in [0-9]*) echo $i} | sort -n} echo $l if(! ~ $l '[0-9]*') for(i in $l) docopy $i `{cat $i/fileid|sed 's/\.00$//g'} `{seq -w 0 99} } lucky = cat if(~ $1 -l){ shift lucky = rc } switch($#*){ case 0 case 1 mbox=`{cleanname -d `{pwd} $1} case 2 mbox=`{cleanname -d `{pwd} $1} dest=$2 case * usage } usenupas whatis dest doit bits=`{ls -ld $mbox | dirbits 1} chmod $bits $dest if(~ $mbox mbox || ~ `{ls -ld $mbox | sed 's/ .*//'} *w) chgrp $user $dest { echo '#' if everything is fine, execute the following commands echo mv $mbox $mbox^- '&&' mv $dest $mbox } | $lucky