- cosmetics

[projects/pld-ftp-admin.git] / bin / functions

# Note: all functions expect to get N-V-R strings as pkg arguments (unless
# it's obvious they shouldn't get them of course)

# Read config
if [ ! -f ~/.ftpadmrc ]; then
	echo "Config not found"
	exit
fi

. ~/.ftpadmrc

# For logging
scriptname=`basename $0`

# Log a message... useful for debugging
log() {
	echo `date "+%F %T"` "[$scriptname]" "--" "$@" >>~/pld-ftp-admin/log
}

# Wrapper so that we can test stuff without actually doing (allmost) anything
if [ "$DEBUG" == "yes" ]; then
	rm()
	{
		echo "RM: $@" >&2
	}
	mv()
	{
		echo "MV: $@" >&2
	}
	cd()
	{
		command cd $1
		echo "CD: $1" >&2
	}
fi

# Return a list of packages that differ only by version than the one given
# Args: $1 - the package we're intersted in (in N-V-R format)
# Note1: we assume we're in .metadata dir
# Note2: the list returned is newline, not space, separated
# Note3: sets $glob_basename to basename (without V-R) if anybody need's it
glob_packages()
{
	# Get just the name without the version tag
	basename=`echo $1|sed -e 's,-[^-]*-[^-]*$,,'`
	# Find packages beginning with that name
	allpkgs=`echo $basename*`
	if [ "$allpkgs" == "$basename*" ]; then
		# No files found
		return
	fi
	allpkgs=`echo "$allpkgs"|sed -e 's, ,\n,g' -e 's,.src.rpm.info,,g'`
	# Filter out pkgs that just begin with basename, but ain't other
	# versions of that package
	allpkgs=`echo "$allpkgs"|grep "$basename-[^-]*-[^-]*$"`
	echo "$allpkgs"
}

# Generate a list of older packages
# Args: $1 - ftp tree
#       $2 - packages we're interested in
find_older_pkgs()
{
	cd "$FTP_DIR/$1/SRPMS/.metadata/"
	list=""
	for pkg in $2; do
		# "Glob" for other pkgs
		allpkgs=`glob_packages $pkg`
		# Get just the name without the version tag (we need it)
		basename=`echo $pkg|sed -e 's,-[^-]*-[^-]*$,,'`
		# Get only versions
		allpkgs=`echo "$allpkgs"|sed -e "s,^$basename-,,"`
		# Sort (note - this ain't perfect sorting)
		allpkgs=`echo "$allpkgs"|sort -n`
		# Readd names
		allpkgs=`echo "$allpkgs"|sed -e "s,^,$basename-,"`
		# Grep packages < current package
		allpkgs=`echo "$allpkgs"|grep -B 999 "$pkg"|grep -v "^$pkg$"`
		# Add to the list
		allpkgs=`echo $allpkgs`
		list="$list $allpkgs"
	done
	echo $list
}

# Generate a list of all packages (glob name-*) except the one given
# Args: $1 - ftp tree
#       $2 - packages we're interested in
find_other_pkgs()
{
	cd "$FTP_DIR/$1/SRPMS/.metadata/"
	list=""
	for pkg in $2; do
		# "Glob" for other pkgs
		allpkgs=`glob_packages $pkg`
		# Cut out our own package
		allpkgs=`echo "$allpkgs"|grep -v "^$pkg$"`
		# Add to the list
		allpkgs=`echo $allpkgs`
		list="$list $allpkgs"
	done
	echo $list
}

# Remove packages in given tree
# Args: $1 - ftp tree
#       $2 - list of packages to remove
#       $3 - force option
remove_pkgs() {
	cd "$FTP_DIR/$1/SRPMS/.metadata/"
	rmopt=""
	if [ "$3" == "force" ]; then
		rmopt="-f"
	fi
	for pkg in $2; do
		# Remove all files connected to the old src.rpm
		# (+ the src.rpm itself)
		for i in `grep '^file:' $pkg.src.rpm.info`; do
			arch=`echo $i|cut -d: -f 2`
			file=`echo $i|cut -d: -f 3`
			rm $rmopt "$FTP_DIR/$1/$arch/RPMS/$file"
		done
		# And finally remove the .info file
		rm $rmopt $pkg.src.rpm.info
	done
}

# vi: syntax=sh