Lines Matching refs:workdir

662 	 "workdir|work-dir|wd=s" => \$opt::workdir,
2384     my $workdir;
2388 	if($file !~ m:^/: and $opt::workdir eq "...") {
2392 	$workdir ||= Job->new("")->workdir();
2393 	$cmd .= $sshlogin->rsync_transfer_cmd($file,$workdir) . "&";
2405     my $workdir = Job->new("")->workdir();
2409 	  $cmd .= $sshlogin->cleanup_cmd($file,$workdir)."&";
4715     my $workdir = shift;
4725 	$rsync_destdir = ::shell_quote_file($workdir);
4745     my $workdir = shift;
4750 	$f =~ s:.*/\./:$workdir/:;
4753 	$f = $workdir."/".$f;
4763     if(defined $opt::workdir and $opt::workdir eq "...") {
4764 	$rmdir .= "rm -rf " . ::shell_quote_file($workdir).';';
5583 	    if($opt::workdir) {
5584 		my $wd = ::shell_quote_file($self->workdir());
5659     my $workdir = $self->workdir();
5661       push @pre, $sshlogin->rsync_transfer_cmd($file,$workdir).";";
5707 	    $wd = ::shell_quote_file($self->workdir()."/");
5737     my $workdir = $self->workdir();
5742 	$cleancmd .= $sshlogin->cleanup_cmd($file,$workdir).";";
5744     if(defined $opt::workdir and $opt::workdir eq "...") {
5745 	$cleancmd .= "$sshcmd $serverlogin rm -rf " . ::shell_quote_scalar($workdir).';';
5763 sub workdir {  subroutine
5768 	my $workdir;
5769 	if(defined $opt::workdir) {
5770 	    if($opt::workdir eq ".") {
5775 		$workdir = $cwd;
5791 			    $workdir = join("/",@dir_parts);
5796 		if($workdir eq "") {
5797 		    $workdir = ".";
5799 	    } elsif($opt::workdir eq "...") {
5800 		$workdir = ".parallel/tmp/" . ::hostname() . "-" . $$
5803 		$workdir = $opt::workdir;
5805 		$workdir =~ s:/\./:/:g; # Remove /./
5806 		$workdir =~ s:/+$::; # Remove ending / if any
5807 		$workdir =~ s:^\./::g; # Remove starting ./ if any
5810 	    $workdir = ".";
5812 	$self->{'workdir'} = ::shell_quote_scalar($workdir);