unblink

README.md

@@ -33,7 +33,10 @@ Usage
 	10      sdl     0x5000cca02ab9e0c0
 	11      sdm     0x5000cca02ab9b350
 
-`megablink` takes arguments of linux drives like `/dev/sda` or without the full path such as `sdb` and starts that drive blinking.  Unblinking happens when the drive is replaced automatically, so there is no reversal script at this point.
+`megablink` takes arguments of linux drives like `/dev/sda` or without the full
+path such as `sdb` and starts that drive blinking.  Unblinking happens when the
+drive is replaced automatically, but there is also a `megaunblink` in case you
+accidentally blink the wrong drive.  `megablink -u` also unblinks a drive.
 
 	$ sudo ./megablink /dev/sdn
 	blinking drive 8 (sdn), running megacli -PdLocate -start -physdrv[0:8] -a0

megablink

@@ -5,6 +5,7 @@ use warnings;
 use Data::Dumper;
 use Carp;
 use English qw( -no_match_vars );
+use Getopt::Long;
 
 our $VERSION = 0.3;
 
@@ -13,6 +14,12 @@ my $username = ( getpwuid $EUID );
 croak "megacli requires root" if $username ne 'root';
 
 # CLI arguments
+my $unblink = 0;
+
+GetOptions(
+        'u|unblink'  => \$unblink,
+) or croak "error in command line args";
+
 croak "no arguments... please specify which drives to blink" unless scalar @ARGV;
 my @drives = @ARGV;
 
@@ -46,7 +53,9 @@ foreach my $drive (@drives) {
 		$megaraid_id = $map{$drive} or croak "no mapping for $drive";
 	}
 	print "blinking drive $megaraid_id ($drive), ";
-	my $cmd = "megacli -PdLocate -start -physdrv[0:$megaraid_id] -a0";
+	my $gonogo = "-start";
+	$gonogo = "stop" if $unblink;
+	my $cmd = "megacli -PdLocate $gonogo -physdrv[0:$megaraid_id] -a0";
 	print "running $cmd\n";
 	system($cmd);
 }

megaunblink

@@ -0,0 +1,3 @@
+#!/bin/bash
+
+megablink -u $*