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-scan
# RCS:          $Header: /cvs/helm/perl/scripts/all-list-archive-count,v 1.2 2001/02/21 01:08:28 dlr Exp $
# Description:  Msgcount in all domain hosted mail lists
# Author:       Niels P. Mayer
# Created:      Sun Jun 11 22:48:52 2000
# Modified:     Wed Jul  5 10:45:33 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

if [ ! -d 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."
	exit 1
    else
	export HOME=~tigrisq
fi

declare -i msgcount=0

for i in *-*
do
    if [ -d $i ]
	then
	    cd $i
	    if [ -d "archive" ]
		then
		    cd archive
		    msgcount=0
		    if [ -d "0" ]
			then
			    for j in [0-9]*
			    do
				cd  $j
#				msgcount=msgcount+`scan +. 2>/dev/null | wc -l`
				msgcount=msgcount+`find . -type f -name '[0-9]*' | wc -l`
				cd  ..				
			    done
			else
			    echo "$0: warning -- $i/archive contains no subdirs!"
		    fi

		    printf "%30s : %d\n" \
			    ${i} \
			    $msgcount
		    cd ..
		else
		    echo "$0: warning -- $i/archive doesn't exist"
	    fi
	    cd ~tigrisq
    fi
done
@


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-count.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
@@
