sendmail/contrib/smcontrol.pl

20 #		control socket filename, undef if not found
61 #  &do_command -- send command to sendmail daemon view control socket
200 #		control -- control socket name
208 	my $control = shift;
236 #  &stop_daemon -- stop the sendmail daemon using control socket
239 #		control -- control socket name
247 	my $control = shift;
250 	if (not defined $control)
252 		return "The control socket is not configured so the daemon can not be stopped.\n";
254 	return &do_command($control, "SHUTDOWN");
259 #  &restart_daemon -- restart the sendmail daemon using control socket
262 #		control -- control socket name
270 	my $control = shift;
273 	if (not defined $control)
275 		return "The control socket is not configured so the daemon can not be restarted.";
277 	return &do_command($control, "RESTART");
282 #  &memdump -- get memdump from the daemon using the control socket
285 #		control -- control socket name
293 	my $control = shift;
296 	if (not defined $control)
298 		return "The control socket is not configured so the daemon can not be queried for memdump.";
300 	return &do_command($control, "MEMDUMP");
305 #  &help -- get help from the daemon using the control socket
308 #		control -- control socket name
316 	my $control = shift;
319 	if (not defined $control)
321 		return "The control socket is not configured so the daemon can not be queried for help.";
323 	return &do_command($control, "HELP");
330 getopts('f:', $opts) || die "Usage: $0 [-f /path/to/control/socket] command\n";
332 my $control = $opts->{f} || &get_controlname;
335 if (not defined $control)
337 	die "No control socket available.\n";
341 	die "Usage: $0 [-f /path/to/control/socket] command\n";
345 	$status = &do_command($control, "STATUS");
348 		# Not responding on control channel, query via SMTP
360 		# Munge control channel output
366 	$status = &stop_daemon($control);
370 	$status = &restart_daemon($control);
374 	$status = &start_daemon($control);
378 	$status = &memdump($control);
382 	$status = &help($control);
386 	$status = &do_command($control, "mstat");
389 		# Not responding on control channel, query via SMTP