From dc903a0ab065dc72c3eeede38d37bc68de2c7abd Mon Sep 17 00:00:00 2001
From: hadaq <hadaq>
Date: Mon, 29 Nov 2010 13:55:30 +0000
Subject: [PATCH] Cleanup remaining semaphores after EB. Sergey.

---
 disks/ipcrm.pl | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 disks/ipcrm.pl

diff --git a/disks/ipcrm.pl b/disks/ipcrm.pl
new file mode 100755
index 0000000..9eed181
--- /dev/null
+++ b/disks/ipcrm.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/perl -w
+
+use English;
+use strict;
+use Getopt::Long;
+use Data::Dumper;
+
+my @sem_list = `ipcs -s`;
+my @semid_list = ();
+
+foreach my $line (@sem_list){
+    if( $line =~ /\w+\s+(\d+)\s+\w+\s+\d+\s+\d+/){
+	my $semid = $1; 
+	push(@semid_list, $semid);
+    }
+}
+
+foreach my $semid (@semid_list){
+    my $cmd = "ipcrm -s " . $semid;
+    #print "exec: $cmd\n";
+    system("$cmd");
+}
+
-- 
2.43.0