mirror of
https://gitlab.com/libvirt/libvirt.git
synced 2024-11-03 20:01:16 +00:00
97 lines
2.1 KiB
Plaintext
97 lines
2.1 KiB
Plaintext
|
#!/bin/sh
|
||
|
|
|
||
|
|
# A script to cleanup resource leases auto-created by
|
||
|
|
# the libvirt lock plugin for sanlock
|
||
|
|
|
||
|
|
verbose=1
|
||
|
|
if test "x$1" = "x-q" ; then
|
||
|
|
verbose=0
|
||
|
|
fi
|
||
|
|
|
||
|
|
LOCKSPACE="__LIBVIRT__DISKS__"
|
||
|
|
|
||
|
|
LOCKDIR=`augtool print '/files@SYSCONFDIR@/libvirt/qemu-sanlock.conf/disk_lease_dir'`
|
||
|
|
if test $? != 0 || "x$LOCKDIR" = "x" ; then
|
||
|
|
LOCKDIR="@LOCALSTATEDIR@/lib/libvirt/sanlock"
|
||
|
|
fi
|
||
|
|
|
||
|
|
notify() {
|
||
|
|
test $verbose = 1 || return
|
||
|
|
if test "x$1" = "x-n"; then
|
||
|
|
shift
|
||
|
|
printf %s "$*"
|
||
|
|
else
|
||
|
|
printf %s\\n "$*"
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
cd "$LOCKDIR" || exit 1
|
||
|
|
|
||
|
|
for MD5 in *
|
||
|
|
do
|
||
|
|
if test $MD5 != '*' && $MD5 != $LOCKSPACE ; then
|
||
|
|
RESOURCE="$LOCKSPACE:$MD5:$LOCKDIR/$MD5:0"
|
||
|
|
notify -n "Cleanup: $RESOURCE "
|
||
|
|
sanlock client command -r $RESOURCE -c /bin/rm -f "$LOCKDIR/$MD5" 2>/dev/null
|
||
|
|
if test $? = 0 ; then
|
||
|
|
notify "PASS"
|
||
|
|
else
|
||
|
|
notify "FAIL"
|
||
|
|
fi
|
||
|
|
fi
|
||
|
|
done
|
||
|
|
|
||
|
|
exit 0
|
||
|
|
|
||
|
|
: <<=cut
|
||
|
|
=pod
|
||
|
|
|
||
|
|
=head1 NAME
|
||
|
|
|
||
|
|
virt-sanlock-cleanup - remove stale sanlock resource lease files
|
||
|
|
|
||
|
|
=head1 SYNOPSIS
|
||
|
|
|
||
|
|
virt-sanlock-cleanup
|
||
|
|
|
||
|
|
=head1 DESCRIPTION
|
||
|
|
|
||
|
|
This tool removes any resource lease files created by the sanlock
|
||
|
|
lock manager plugin. The resource lease files only need to exist
|
||
|
|
on disks when a guest using the resource is active. This script
|
||
|
|
reclaims the disk space used by resources which are not currently
|
||
|
|
active.
|
||
|
|
|
||
|
|
=head1 EXIT STATUS
|
||
|
|
|
||
|
|
Upon successful processing of leases cleanup, the exit status
|
||
|
|
will be 0 will be set. Upon fatal error a non-zero status will
|
||
|
|
be set.
|
||
|
|
|
||
|
|
=head1 AUTHOR
|
||
|
|
|
||
|
|
Daniel Berrange
|
||
|
|
|
||
|
|
=head1 BUGS
|
||
|
|
|
||
|
|
Report any bugs discovered to the libvirt community via the
|
||
|
|
mailing list C<http://libvirt.org/contact.html> or bug tracker C<http://libvirt.org/bugs.html>.
|
||
|
|
Alternatively report bugs to your software distributor / vendor.
|
||
|
|
|
||
|
|
=head1 COPYRIGHT
|
||
|
|
|
||
|
|
Copyright (C) 2011 Red Hat, Inc.
|
||
|
|
|
||
|
|
=head1 LICENSE
|
||
|
|
|
||
|
|
virt-sanlock-cleanup is distributed under the terms of the GNU GPL v2+.
|
||
|
|
This is free software; see the source for copying conditions. There
|
||
|
|
is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR
|
||
|
|
PURPOSE
|
||
|
|
|
||
|
|
=head1 SEE ALSO
|
||
|
|
|
||
|
|
C<virsh(1)>, online instructions C<http://libvirt.org/locksanlock.html>
|
||
|
|
|
||
|
|
=cut
|