#!/bin/sh
#Tag 0x00010D0C
#
# Copyright (c) 1995-2001 Silicon Graphics, Inc.  All Rights Reserved.
#
# $Id: mkaf,v 1.2 2001/03/14 20:32:33 kenmcd Exp $

# Get standard environment
. /etc/pcp.env

_usage()
{
    echo "Usage: mkaf [findopts] filename ..."
}

if [ $# -eq 0 ]
then
    _usage
    exit 1
fi

tmp=/tmp/$$
status=0
trap "rm -f $tmp; exit \$status" 0 1 2 3 15
findopts=""

while [ $# -gt 0 ]
do
    case $1
    in
	-?)
	    _usage
	    exit 1
	    ;;
	-*)
	    findopts="$findopts $1"
	    ;;

	*)
	    unset MAGIC		# if set, file(1) may be confused!
	    type=`file $1 | sed -e 's/^[^ 	]*:[ 	]*//'`
	    case "$type"
	    in

		directory)
		    [ -z "$findopts" ] && findopts="-follow"
		    echo >&2 "Searching \"find $1 \\( $findopts \\) ...\" \c"
		    find $1 \( $findopts \) -type f -print \
		    | xargs file \
		    | sed -e 's/://' \
		    | while read file type
		    do
			case "$type"
			in
			    "PCP archive"*)
				echo $file >>$tmp
				;;
			esac
		    done
		    echo >&2 " done"
		    ;;

		"PCP archive"*)
		    echo $1 >>$tmp
		    ;;

	    esac
	    ;;

    esac

    shift
done


if [ ! -s $tmp ]
then
    echo >&2 "mkaf: Warning: no PCP archives found, so no folio created"
    status=1
    exit
fi

host=somehost
which hostname >/dev/null 2>&1 && host=`hostname`

cat <<End-of-File
PCPFolio
Version: 1
# use pmafm(1) to process this PCP archive folio
#
Created: on $host at `date`
Creator: pmchart
# 		Host			Basename
#
End-of-File

sed <$tmp \
    -e 's/\.[0-9][0-9]*$//' \
    -e 's/\.meta$//' \
    -e 's/\.index$//' \
| sort -u \
| while read base
do
    host=`pmdumplog -l $base 2>&1 | sed -n -e '/^Performance metrics/s/.* host //p'`
    if [ -z "$host" ]
    then
	echo >&2 "mkaf: Warning: cannot extract hostname from archive \"$base\" ... skipped"
    else
	printf "%-15s %-23s %s\n" "Archive:" "$host" "$base"
    fi
done

exit
