Line 0
Link Here
|
|
|
1 |
--- scripts/mtx-changer.in.orig 2018-01-12 13:20:04.913159000 -0600 |
2 |
+++ scripts/mtx-changer.in 2018-01-12 13:20:15.531373000 -0600 |
3 |
@@ -251,7 +251,7 @@ case $cmd in |
4 |
${MTX} -f $ctl status >${TMPFILE} |
5 |
rtn=$? |
6 |
# can be converted to awk+sed+cut, see below |
7 |
- perl -ne ' |
8 |
+ /usr/local/bin/perl -ne ' |
9 |
/Data Transfer Element (\d+):Empty/ && print "D:$1:E\n"; |
10 |
/Data Transfer Element (\d+):Full \(Storage Element (\d+) Loaded\)(:VolumeTag =\s*(.+))?/ && print "D:$1:F:$2:$4\n"; |
11 |
/Storage Element (\d+):Empty/ && print "S:$1:E\n"; |