Lines Matching refs:serverlogin

2423 	my $sshcmd = "true $host;" . $sshlogin->sshcommand()." ".$sshlogin->serverlogin();
2527 	$ncpus{$sshlogin} or ::die_bug("ncpus missing: ".$obj->serverlogin());
2528 	$ncores{$sshlogin} or ::die_bug("ncores missing: ".$obj->serverlogin());
2529 	$time_to_login{$sshlogin} or ::die_bug("time_to_login missing: ".$obj->serverlogin());
2530 	$maxlen{$sshlogin} or ::die_bug("maxlen missing: ".$obj->serverlogin());
3548             $swap_activity = $self->sshcommand() . " " . $self->serverlogin() . " " .
3771 	    $cmd = $self->sshcommand() . " " . $self->serverlogin() . " ";
4081         my $serverlogin = $self->serverlogin();
4082         ::warning("ssh to $serverlogin only allows ",
4085 		  "/etc/ssh/sshd_config:MaxStartups and MaxSessions on $serverlogin.\n",
4103     my $serverlogin = $self->serverlogin();
4105 …my $cmd = "$sshdelay$sshcmd $serverlogin echo simultaneouslogin </dev/null 2>&1 &"x$wanted_process…
4106     ::debug("init", "Trying $wanted_processes logins at $serverlogin\n");
4173         my $serverlogin = $self->serverlogin();
4174         if($serverlogin eq ":") {
4184                 $ncpu = qx(echo|$sshcmd $serverlogin $sqe parallel --number-of-cpus);
4186 		::debug("init",qq(echo|$sshcmd $serverlogin $sqe parallel --number-of-cores\n));
4187                 $ncpu = qx(echo|$sshcmd $serverlogin $sqe parallel --number-of-cores);
4194 			  "number of cpus on $serverlogin ($ncpu). Using 1.\n");
4634 sub serverlogin {  subroutine
4652     my ($sshcmd, $serverlogin);
4655         $sshcmd = $1; $serverlogin = $2;
4662             $serverlogin = $self->{'string'};
4679 …            my @master = ("ssh", "-tt", "-MTS", $control_path, $serverlogin, "perl", "-e", $sleep);
4684             $sshcmd = "ssh"; $serverlogin = $self->{'string'};
4688     $self->{'serverlogin'} = $serverlogin;
4730     my $serverlogin = $self->serverlogin();
4732     return "( $sshcmd $serverlogin mkdir -p $rsync_destdir;" .
4733 	rsync()." $rsync_opt $file $serverlogin:$rsync_destdir )";
4769     my $serverlogin = $self->serverlogin();
4770     return "$sshcmd $serverlogin ".::shell_quote_scalar("(rm -f $f; $rmdir)");
5538 	my $serverlogin = $sshlogin->serverlogin();
5541 	if($serverlogin eq ":") {
5615 		 . "$sshcmd $ssh_options $serverlogin $parallel_env "
5695     my $serverlogin = $sshlogin->serverlogin();
5723 	$pre .= "mkdir -p $basedir$cd; ".$sshlogin->rsync()." $rsync_cd $rsync_opt $serverlogin:".
5736     my $serverlogin = $sshlogin->serverlogin();
5745 	$cleancmd .= "$sshcmd $serverlogin rm -rf " . ::shell_quote_scalar($workdir).';';