Lines Matching refs:message
134 my $message = '';
153 $message = request_job($message, $active_server, $active_port);
154 $server_is_active++ if ($message);
165 $message = '' if ($message eq 'No job');
166 } while ($message);
175 $message = request_job($message, $current_server, $current_port);
176 if ($message) {
183 $message = '' if ($message eq 'No job');
184 } while ($message);
270 my ($message, $current_server, $current_port) = @_;
271 $message = "platform=$ENV_BACKUP{OUTPATH} pid=$$ osname=$^O" if (!$message);
276 $message .= "\n";
277 syswrite SOCKET, $message, length $message;
411 my $message = shift;
412 print STDERR "\nERROR: $message\n";