diff options
| author | Christophe Fergeau <cfergeau@mandriva.com> | 2009-10-15 17:44:35 +0000 |
|---|---|---|
| committer | Christophe Fergeau <cfergeau@mandriva.com> | 2009-10-15 17:44:35 +0000 |
| commit | 73e7e0ca86cd22631e6cb896801cb3612e32228e (patch) | |
| tree | bbb99e46b9695f12e5d189c0de214952ba7637f6 /urpm | |
| parent | 64f60e96cd8b895cfd908d030d5e6d482b53b98f (diff) | |
| download | urpmi-73e7e0ca86cd22631e6cb896801cb3612e32228e.tar urpmi-73e7e0ca86cd22631e6cb896801cb3612e32228e.tar.gz urpmi-73e7e0ca86cd22631e6cb896801cb3612e32228e.tar.bz2 urpmi-73e7e0ca86cd22631e6cb896801cb3612e32228e.tar.xz urpmi-73e7e0ca86cd22631e6cb896801cb3612e32228e.zip | |
print PID of process locking the URPMI database
Diffstat (limited to 'urpm')
| -rw-r--r-- | urpm/lock.pm | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/urpm/lock.pm b/urpm/lock.pm index 00baec12..687437d3 100644 --- a/urpm/lock.pm +++ b/urpm/lock.pm @@ -50,6 +50,18 @@ sub new { $lock; } +sub get_lock_pid { + my ($fh) = @_; + my ($dev,$ino,undef) = stat($fh); + my $major = int($dev/256); + my $minor = $dev % 256; + my $fileid = sprintf("%02x:%02x:%d",$major,$minor,$ino); + open(LOCKS, "/proc/locks") || return; + my @locks = <LOCKS>; + close(LOCKS); + foreach (@locks) { /FLOCK.*WRITE\s*(\d+)\s*$fileid\s/ && return $1 }; +} + sub _lock { my ($lock, $b_exclusive, $b_wait) = @_; $b_exclusive ||= ''; @@ -63,7 +75,15 @@ sub _lock { $lock->{info}(N("%s database is locked. Waiting...", $lock->{db_name})); flock($lock->{fh}, $mode) or $lock->{fatal}(N("aborting")); } else { - $lock->{fatal}(N("%s database is locked (another program is already using it)", $lock->{db_name})); + my $pid = get_lock_pid($lock->{fh}); + if($pid) { + my $name = urpm::util::cat_("/proc/$pid/cmdline"); + $name =~ tr/\0/ /; + $name =~ s/ *$//; + $lock->{fatal}(N("%s database is locked, process %d is already using it", $lock->{db_name}, $pid).($name?" ($name)":"")); + } else { + $lock->{fatal}(N("%s database is locked (another program is already using it)", $lock->{db_name})); + } } } $lock->{locked} = 1; |