Lines Matching refs:host
132 for my $sshlogin (values %Global::host) {
575 $Global::host{':'} = SSHLogin->new(":");
576 my $sem = Semaphore->new($Semaphore::name,$Global::host{':'}->max_jobs_running());
590 $sem = Semaphore->new($Semaphore::name,$Global::host{':'}->max_jobs_running());
1679 for my $sshlogin (values %Global::host) {
1696 for (values %Global::host) {
1715 for my $sshlogin (values %Global::host) {
1907 if(not %Global::host) {
1963 my @workers = sort keys %Global::host;
1971 ($Global::host{$w}->ncpus() || "-")." / ".
1972 $Global::host{$w}->max_jobs_running()."\n";
1982 my $completed = ($Global::host{$_}->jobs_completed()||0);
1983 my $running = $Global::host{$_}->jobs_running();
1998 my $completed = ($Global::host{$_}->jobs_completed()||0);
1999 my $running = $Global::host{$_}->jobs_running();
2014 $Global::host{$_}->jobs_running(),
2015 ($Global::host{$_}->jobs_completed()||0),
2016 ($Global::host{$_}->jobs_running()+
2017 ($Global::host{$_}->jobs_completed()||0))*100
2028 $Global::host{$_}->jobs_running(),
2029 ($Global::host{$_}->jobs_completed()||0),
2030 ($Global::host{$_}->jobs_running()+
2031 ($Global::host{$_}->jobs_completed()||0))*100
2041 $sshlogin{$_}, $Global::host{$_}->jobs_running(),
2042 ($Global::host{$_}->jobs_completed()||0)) }
2051 $sshlogin{$_}, $Global::host{$_}->jobs_running(),
2052 ($Global::host{$_}->jobs_completed()||0)) }
2061 $workerno{$_}, $Global::host{$_}->jobs_running(),
2062 ($Global::host{$_}->jobs_completed()||0)) }
2072 ($Global::host{$_}->jobs_completed()||0)) }
2082 ($Global::host{$_}->jobs_completed()||0)) }
2102 for(values %Global::host) { $completed += $_->jobs_completed() }
2219 if($no_of_failed_sshlogins == grep { $_->max_jobs_running() > 0 } values %Global::host
2321 if($Global::host{$sshlogin_string}) {
2328 $Global::host{$sshlogin_string}->set_ncpus($sshlogin->ncpus());
2330 $Global::host{$sshlogin_string}->set_max_jobs_running(undef);
2375 return grep !/^:$/, keys %Global::host;
2385 for my $sshlogin (values %Global::host) {
2406 for my $sshlogin (values %Global::host) {
2420 while (my ($host, $sshlogin) = each %Global::host) {
2421 if($host eq ":") { next }
2423 my $sshcmd = "true $host;" . $sshlogin->sshcommand()." ".$sshlogin->serverlogin();
2424 push(@cores, $host."\t".$sshcmd." ".$envvar." parallel --number-of-cores\n\0");
2425 push(@cpus, $host."\t".$sshcmd." ".$envvar." parallel --number-of-cpus\n\0");
2426 push(@maxline, $host."\t".$sshcmd." ".$envvar." parallel --max-line-length-allowed\n\0");
2428 push(@echo, $host."\t".$sshcmd." echo\n\0");
2466 my $host = $1;
2467 $host =~ tr/\\//d;
2468 $Global::host{$host} or next;
2472 ::debug("init", "--filtered $host\n");
2473 push(@down_hosts, $host);
2479 "number of cpus on $host. Using 1.\n");
2480 $ncores{$host} = 1;
2481 $ncpus{$host} = 1;
2482 $maxlen{$host} = Limits::Command::max_length();
2483 } elsif($col[0] =~ /^\d+$/ and $Global::host{$host}) {
2486 $time_to_login{$host} = ::min($time_to_login{$host},$col[3]);
2490 } elsif($Global::host{$col[0]}) {
2522 delete @Global::host{@down_hosts};
2525 while (my ($sshlogin, $obj) = each %Global::host) {
2611 for my $host (sort keys %Global::host) {
2612 my $sshlogin = $Global::host{$host};
3791 for my $sshlogin (values %Global::host) {
7736 my ($pid, $host) = ($1, $2);
7737 if($host eq ::hostname()) {