mv_logs   [plain text]


#! /usr/bin/perl

use FindBin qw($Bin);
use lib "$Bin/lib";
use TestHelper;

my @exts, $exts, @dirs, $dirs;
GetOptions ('ext=s' => \@exts,
	    'dir=s' => \@dirs,
	    'flavors=s' => \@selected_flavors);

$exts = @exts; $dirs = @dirs;
if (!$exts) { $exts[0] = $exts[1] = ""; }
if ($exts == 1) { $exts[1] = $exts[0]; }
if (!$dirs) { $dirs[0] = $dirs[1] = "./"; }
if ($dirs == 1) { $dirs[1] = $dirs[0]; }
@selected_flavors = lookup_info (\@flavor_lists, @selected_flavors);

for $test (@selected_flavors) { move_logs (\@dirs, \@exts, $test); }