[pve-devel] r5629 - in pve-cluster/trunk/data: . perl

[svn-commits at proxmox.com]

Author: dietmar
Date: 2011-02-25 13:20:05 +0100 (Fri, 25 Feb 2011)
New Revision: 5629

Modified:
   pve-cluster/trunk/data/ChangeLog
   pve-cluster/trunk/data/perl/Cluster.pm
Log:
impl. cfs_lock_storage


Modified: pve-cluster/trunk/data/ChangeLog
===================================================================
--- pve-cluster/trunk/data/ChangeLog	2011-02-25 10:29:44 UTC (rev 5628)
+++ pve-cluster/trunk/data/ChangeLog	2011-02-25 12:20:05 UTC (rev 5629)
@@ -1,3 +1,7 @@
+2011-02-25  Proxmox Support Team  <support at proxmox.com>
+
+	* perl/Cluster.pm (cfs_lock_storage): impl.
+
 2011-02-22  Proxmox Support Team  <support at proxmox.com>
 
 	* src/cfs-utils.c (path_is_private): skip '/'

Modified: pve-cluster/trunk/data/perl/Cluster.pm
===================================================================
--- pve-cluster/trunk/data/perl/Cluster.pm	2011-02-25 10:29:44 UTC (rev 5628)
+++ pve-cluster/trunk/data/perl/Cluster.pm	2011-02-25 12:20:05 UTC (rev 5629)
@@ -569,6 +569,14 @@
     &$cfs_lock($lockid, $timeout, $text, $code, @param);
 }
 
+sub cfs_lock_storage {
+    my ($storeid, $timeout, $text, $code, @param) = @_;
+
+    my $lockid = "storage-$storeid";
+
+    &$cfs_lock($lockid, $timeout, $text, $code, @param);
+}
+
 my $log_levels = {
     "emerg" => 0,
     "alert" => 1,