From a2ac6761348756383d24143d0ec5df951637214b Mon Sep 17 00:00:00 2001
From: Stefan `Sec` Zehl <sec@42.org>
Date: Sat, 19 May 2012 18:20:53 +0200
Subject: [PATCH] Allow multiple commands separated by , in mesh/rf

---
 tools/mesh/rf | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/tools/mesh/rf b/tools/mesh/rf
index e0695d9..4d78ca3 100755
--- a/tools/mesh/rf
+++ b/tools/mesh/rf
@@ -73,6 +73,17 @@ $r0ket::verbose=1;
 my @fh;
 my $read;
 
+my @args=@ARGV;
+my $sidx=0;
+for my $eidx (0..$#args){
+    if($args[$eidx] eq ","){
+        dwim(@args[$sidx..$eidx-1]);
+        $sidx=$eidx+1;
+    }
+};
+dwim(@args[$sidx..$#args]);
+        
+sub dwim{
 my $cmd=shift;
 
 if($cmd =~ /^r/){
@@ -271,6 +282,7 @@ if($cmd =~ /^r/){
 }else{
     die "Option not understood\n";
 };
+};
 
 #if (@fh = $sel->can_read(10)) {
 #  sysread($fh[0],$read,1024);