38 lines
616 B
Bash
38 lines
616 B
Bash
#!/bin/ksh
|
|
#
|
|
# mkexps - make export list
|
|
# This program creates an export list by combining all the "." and normal names
|
|
# into one list.
|
|
#
|
|
if [[ "$#" -ne 1 ]]
|
|
then
|
|
print "Usage: mkexps ArchiveFile"
|
|
exit -2
|
|
fi
|
|
if [[ ! -f $1 ]]
|
|
then
|
|
print "mkexps: Cannot open file \"$1\""
|
|
exit -1
|
|
fi
|
|
|
|
dump -g $1 | awk '
|
|
BEGIN {
|
|
top = 1
|
|
}
|
|
/^[ ]*[0-9][0-9]*/ {
|
|
if ( (n = index( $2, "." )) > 0 ) {
|
|
export_array[ top++ ] = substr( $2, n+1, length( $2 ))
|
|
}
|
|
else {
|
|
export_array[ top++ ] = $2
|
|
}
|
|
}
|
|
|
|
END {
|
|
for ( i = 1; i < top; i++ )
|
|
{
|
|
print export_array[ i ]
|
|
}
|
|
|
|
}' | sort | uniq
|