This file is indexed.

/usr/sbin/virt-sanlock-cleanup is in libvirt-daemon 1.2.9-9+deb8u5.

This file is owned by root:root, with mode 0o755.

The actual contents of the file can be viewed below.

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
#!/bin/sh

# A script to cleanup resource leases auto-created by
# the libvirt lock plugin for sanlock

# Copyright (C) 2011, 2013 Red Hat, Inc.
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Lesser General Public
# License as published by the Free Software Foundation; either
# version 2.1 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with this library.  If not, see
# <http://www.gnu.org/licenses/>.

verbose=1
if test "x$1" = "x-q" ; then
  verbose=0
fi

LOCKSPACE="__LIBVIRT__DISKS__"

LOCKDIR=`augtool get '/files/etc/libvirt/qemu-sanlock.conf/disk_lease_dir'`
LOCKDIR=${LOCKDIR#* = }
if test $? != 0 || test "x$LOCKDIR" = "x" ; then
  LOCKDIR="/var/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 != '*' && test $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, an exit status
of 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, 2013 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/locking.html>

=cut