wme_test/more_sta/wclientpar

   1 #!/usr/bin/perl -w
   2
   3 sub get_output {
   4     my @a=@ARGV;
   5     my $output = "delay_stats";
   6     while ($#a >= 0) {
   7         if ($a[0] eq "-o") {
   8             $output = $a[1];
   9         };
  10         shift @a;
  11     }
  12     return $output;
  13 }
  14
  15 @run_at = qw!localhost localhost localhost/wlan1!;
  16 @run_at = split(/ +/, $ENV{'RUNAT'}) if $ENV{'RUNAT'};
  17
  18 $i = 0;
  19 my %outputs;
  20 foreach $run (@run_at) {
  21     ($host, $iface) = split(/\//, $run, 2);
  22     @args = ();
  23     push @args, ('ssh', $host) if ($host ne 'localhost');
  24     push @args, ('wclient');
  25     push @args, ('-I', $iface) if (defined $iface);
  26     push @args, @ARGV;
  27     $output = get_output();
  28     $output .= sprintf("-%s%s", $host, defined $iface ? "-$iface":"");
  29     if ($outputs{$output}) { $output .= sprintf("-%02d", $i); }
  30     $outputs{$output} = 1;
  31     push(@args, ('-o', $output));
  32     if (fork() == 0) {
  33         print "running ", join(' ', @args), "\n";
  34         exec(@args);
  35         exit();
  36     }
  37     $i++;
  38 }
  39 foreach $run (@run_at) {
  40     wait();
  41 }