Lines Matching refs:dir1
232 my ($phase_num, $phase_name, $cmd, $dir1, $dir2, $flag, $processes) = @_ ;
259 $com .= "$cmd $dir1-$i-$j $flag";
262 $com .= "$cmd $dir1-$i-$j $dir2-$i-$j";
265 …$com .= "$cmd $dir1-$i-$j "."-type f | while read X; do echo \$X \$X.lnk ; done | $TOPDIR/mongo_sl…
274 $com .= "$cmd $dir1-$i-$j -type f | perl -e 'while (<>) { chomp; rename (\$_, \"\$_.r\"); };'";
279 $com .= "$cmd $dir1-$i-$j & $cmd $dir2-$i-$j";
282 $com .= "$cmd $dir1-$i-$j ; $cmd $dir2-$i-$j";
401 $dir1 = "$TESTDIR/testdir1";
415 mongo_launcher ( 1, "Create", $cmd_1, $dir1, $dir2, $flag, $p); # phase 1
416 mongo_launcher ( 2, "Copy ", $cmd_2, $dir1, $dir2, $flag, $p); # phase 2
417 mongo_launcher ( 3, "Slinks", $cmd_3, $dir1, $dir2, $flag, $p); # phase 3
418 mongo_launcher ( 4, "Read ", $cmd_4, $dir1, $dir2, $flag, $p); # phase 4
419 mongo_launcher ( 5, "Stats ", $cmd_5, $dir1, $dir2, $flag, $p); # phase 5
420 mongo_launcher ( 6, "Rename", $cmd_6, $dir1, $dir2, $flag, $p); # phase 6
421 mongo_launcher ( 7, "Delete", $cmd_7, $dir1, $dir2, $flag, $p); # phase 7