head	1.3;
access;
symbols
	HELM_PEER_PORT_BRANCH:1.1.1.1 dlr:1.1.1;
locks; strict;
comment	@# @;


1.3
date	2001.02.22.08.19.54;	author edk;	state dead;
branches;
next	1.2;

1.2
date	2001.02.21.01.08.28;	author dlr;	state Exp;
branches;
next	1.1;

1.1
date	2001.02.21.00.36.23;	author dlr;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	2001.02.21.00.36.23;	author dlr;	state Exp;
branches;
next	;


desc
@@


1.3
log
@remove generated files which were added by accident
@
text
@#!/bin/sh
###############################################################################
#
# File:         all-list-archive-mh-fix
# RCS:          $Header: /cvs/helm/perl/scripts/all-list-archive-mh-fix,v 1.2 2001/02/21 01:08:28 dlr Exp $
# Description:  this transforms ezmlm archive directories into directories
#		readable by MH mail's 'scan' program. This script should
#		be run prior to other MH/ezmlm-archive scripts, e.g.
#		/usr/local/sbin/all-list-archive-mh-scan
# Author:       Niels P. Mayer
# Created:      Sun Jun 11 22:49:40 2000
# Modified:     Wed Jul  5 10:59:44 2000 (Niels Mayer) root@@h02.sny.collab.net
# Language:     Shell-script
# Package:      N/A
# Status:       Experimental (Do Not Distribute)
#
# (C) Copyright 2000, Collab.net.
#
###############################################################################

cd ~tigrisq

for i in *-*
do
    if [ -d $i ]
	then
	    cd $i
	    if [ -d "archive" ]
		then
		    cd archive
		    if [ -d "0" ]
			then
			    for j in [0-9]*
			    do
				cd  $j
				## BUGFIX/HACK: subfolders above '0' contain  archive/1-9/00
				## Make that message 100 since MH starts w/ 0.
				if [ -e 100 ]
				    then
					echo "$0: $i/archive/$j/100 already exists"
				    else
					ln -s 00 100
				    fi

				for k in 1 2 3 4 5 6 7 8 9
				do
				    if [ -e $k ]
					then
					    echo "$0: $i/archive/$j/$k already exists"
					else
					    ln -s 0$k $k
				    fi
				done
				cd  ..				
			    done
			else
			    echo "$0: warning -- $i/archive contains no subdirs!"
		    fi
		    cd ..
		else
		    echo "$0: warning -- $i/archive doesn't exist"
		fi
	    cd ~tigrisq
	fi
done

if [ ! -d ~tigrisq/Mail ]
    then
	echo "MH hasn't been setup for ~tigrisq -- please invoke following command"
	echo "	sudo -u tigrisq env HOME=/home/dlr/sandbox/data/helm/qmail /usr/lib/nmh/install-mh -auto"
	echo "  before issuing any other MH commands on ~tigrisq mail archives."
fi
@


1.2
log
@This is the highest revision from the HELM_PEER_PORT_BRANCH.  The previous import caused too many conflicts to resolve manually
@
text
@d5 1
a5 1
# RCS:          $Header: /cvs/helm/perl/scripts/all-list-archive-mh-fix.in,v 1.2 2000/11/12 22:57:33 dlr Exp $
@


1.1
log
@Initial revision
@
text
@@


1.1.1.1
log
@Replacing the HEAD with the HELM_PEER_PORT_BRANCH.
@
text
@@
