// vim: sw=8 ts=8
char const *cvs_name = "$Name: $";
-char const *cvs_id_cli = "$Id: cli.c,v 1.54 2005/04/18 05:07:20 bodea Exp $";
+char const *cvs_id_cli = "$Id: cli.c,v 1.60 2005/06/02 11:32:30 bodea Exp $";
#include <stdio.h>
#include <stdarg.h>
cli_register_command(cli, c, "plugins", cmd_show_plugins, PRIVILEGE_UNPRIVILEGED, MODE_EXEC, "List all installed plugins");
cli_register_command(cli, c, "pool", cmd_show_pool, PRIVILEGE_UNPRIVILEGED, MODE_EXEC, "Show the IP address allocation pool");
cli_register_command(cli, c, "radius", cmd_show_radius, PRIVILEGE_UNPRIVILEGED, MODE_EXEC, "Show active radius queries");
- cli_register_command(cli, c, "running-config", cmd_show_run, PRIVILEGE_UNPRIVILEGED, MODE_EXEC, "Show the currently running configuration");
+ cli_register_command(cli, c, "running-config", cmd_show_run, PRIVILEGE_PRIVILEGED, MODE_EXEC, "Show the currently running configuration");
cli_register_command(cli, c, "session", cmd_show_session, PRIVILEGE_UNPRIVILEGED, MODE_EXEC, "Show a list of sessions or details for a single session");
cli_register_command(cli, c, "tbf", cmd_show_tbf, PRIVILEGE_UNPRIVILEGED, MODE_EXEC, "List all token bucket filters in use");
cli_register_command(cli, c, "throttle", cmd_show_throttle, PRIVILEGE_UNPRIVILEGED, MODE_EXEC, "List all throttled sessions and associated TBFs");
desc = va_arg(ap, char *);
if (desc && *desc)
- cli_print(cli, " %-20s %s", p, desc);
+ cli_error(cli, " %-20s %s", p, desc);
else
- cli_print(cli, " %s", p);
+ cli_error(cli, " %s", p);
entry = desc ? va_arg(ap, char *) : 0;
}
va_end(ap);
if (cr_ok)
- cli_print(cli, " <cr>");
+ cli_error(cli, " <cr>");
return CLI_OK;
}
cli_print(cli, "\tTunnel ID:\t%d", session[s].tunnel);
cli_print(cli, "\tIP address:\t%s", fmtaddr(htonl(session[s].ip), 0));
cli_print(cli, "\tUnique SID:\t%u", session[s].unique_id);
+ cli_print(cli, "\tOpened:\t\t%u seconds", abs(time_now - session[s].opened));
cli_print(cli, "\tIdle time:\t%u seconds", abs(time_now - session[s].last_packet));
cli_print(cli, "\tNext Recv:\t%u", session[s].nr);
cli_print(cli, "\tNext Send:\t%u", session[s].ns);
- cli_print(cli, "\tBytes In/Out:\t%u/%u", session[s].total_cout, session[s].total_cin);
+ cli_print(cli, "\tBytes In/Out:\t%u/%u", session[s].cout, session[s].cin);
cli_print(cli, "\tPkts In/Out:\t%u/%u", session[s].pout, session[s].pin);
cli_print(cli, "\tMRU:\t\t%d", session[s].mru);
- cli_print(cli, "\tRadius Session:\t%u", session[s].radius);
cli_print(cli, "\tRx Speed:\t%u", session[s].rx_connect_speed);
cli_print(cli, "\tTx Speed:\t%u", session[s].tx_connect_speed);
if (session[s].filter_in && session[s].filter_in <= MAXFILTER)
(session[i].walled_garden) ? "Y" : "N",
(session[i].flags & SF_IPV6CP_ACKED) ? "Y" : "N",
abs(time_now - (unsigned long)session[i].opened),
- (unsigned long)session[i].total_cout,
- (unsigned long)session[i].total_cin,
+ (unsigned long)session[i].cout,
+ (unsigned long)session[i].cin,
abs(time_now - (session[i].last_packet ? session[i].last_packet : time_now)),
fmtaddr(htonl(tunnel[ session[i].tunnel ].ip), 1),
session[i].calling[0] ? session[i].calling : "*");
}
else
{
- cli_print(cli, "Error writing configuration: %s", strerror(errno));
+ cli_error(cli, "Error writing configuration: %s", strerror(errno));
}
return CLI_OK;
}
"IPCP",
"START",
"STOP",
+ "INTRM",
"WAIT",
};
if (!config->cluster_iam_master)
{
- cli_print(cli, "Can't do this on a slave. Do it on %s",
+ cli_error(cli, "Can't do this on a slave. Do it on %s",
fmtaddr(config->cluster_master_address, 0));
return CLI_OK;
if (!argc)
{
- cli_print(cli, "Specify a user to drop");
+ cli_error(cli, "Specify a user to drop");
return CLI_OK;
}
{
if (!(s = sessionbyuser(argv[i])))
{
- cli_print(cli, "User %s is not connected", argv[i]);
+ cli_error(cli, "User %s is not connected", argv[i]);
continue;
}
if (!config->cluster_iam_master)
{
- cli_print(cli, "Can't do this on a slave. Do it on %s",
+ cli_error(cli, "Can't do this on a slave. Do it on %s",
fmtaddr(config->cluster_master_address, 0));
return CLI_OK;
if (!argc)
{
- cli_print(cli, "Specify a tunnel to drop");
+ cli_error(cli, "Specify a tunnel to drop");
return CLI_OK;
}
{
if ((t = atol(argv[i])) <= 0 || (t >= MAXTUNNEL))
{
- cli_print(cli, "Invalid tunnel ID (1-%d)", MAXTUNNEL-1);
+ cli_error(cli, "Invalid tunnel ID (1-%d)", MAXTUNNEL-1);
continue;
}
if (!tunnel[t].ip)
{
- cli_print(cli, "Tunnel %d is not connected", t);
+ cli_error(cli, "Tunnel %d is not connected", t);
continue;
}
if (tunnel[t].die)
{
- cli_print(cli, "Tunnel %d is already being shut down", t);
+ cli_error(cli, "Tunnel %d is already being shut down", t);
continue;
}
if (!config->cluster_iam_master)
{
- cli_print(cli, "Can't do this on a slave. Do it on %s",
+ cli_error(cli, "Can't do this on a slave. Do it on %s",
fmtaddr(config->cluster_master_address, 0));
return CLI_OK;
if (!argc)
{
- cli_print(cli, "Specify a session id to drop");
+ cli_error(cli, "Specify a session id to drop");
return CLI_OK;
}
{
if ((s = atol(argv[i])) <= 0 || (s > MAXSESSION))
{
- cli_print(cli, "Invalid session ID (1-%d)", MAXSESSION-1);
+ cli_error(cli, "Invalid session ID (1-%d)", MAXSESSION-1);
continue;
}
}
else
{
- cli_print(cli, "Session %d is not active.", s);
+ cli_error(cli, "Session %d is not active.", s);
}
}
if (!config->cluster_iam_master)
{
- cli_print(cli, "Can't do this on a slave. Do it on %s",
+ cli_error(cli, "Can't do this on a slave. Do it on %s",
fmtaddr(config->cluster_master_address, 0));
return CLI_OK;
if (argc < 3)
{
- cli_print(cli, "Specify username, ip and port");
+ cli_error(cli, "Specify username, ip and port");
return CLI_OK;
}
if (!(s = sessionbyuser(argv[0])))
{
- cli_print(cli, "User %s is not connected", argv[0]);
+ cli_error(cli, "User %s is not connected", argv[0]);
return CLI_OK;
}
ip = inet_addr(argv[1]);
if (!ip || ip == INADDR_NONE)
{
- cli_print(cli, "Cannot parse IP \"%s\"", argv[1]);
+ cli_error(cli, "Cannot parse IP \"%s\"", argv[1]);
return CLI_OK;
}
port = atoi(argv[2]);
if (!port)
{
- cli_print(cli, "Invalid port %s", argv[2]);
+ cli_error(cli, "Invalid port %s", argv[2]);
return CLI_OK;
}
if (!config->cluster_iam_master)
{
- cli_print(cli, "Can't do this on a slave. Do it on %s",
+ cli_error(cli, "Can't do this on a slave. Do it on %s",
fmtaddr(config->cluster_master_address, 0));
return CLI_OK;
if (!argc)
{
- cli_print(cli, "Specify a user to unsnoop");
+ cli_error(cli, "Specify a user to unsnoop");
return CLI_OK;
}
{
if (!(s = sessionbyuser(argv[i])))
{
- cli_print(cli, "User %s is not connected", argv[i]);
+ cli_error(cli, "User %s is not connected", argv[i]);
continue;
}
if (!config->cluster_iam_master)
{
- cli_print(cli, "Can't do this on a slave. Do it on %s",
+ cli_error(cli, "Can't do this on a slave. Do it on %s",
fmtaddr(config->cluster_master_address, 0));
return CLI_OK;
if (argc == 0)
{
- cli_print(cli, "Specify a user to throttle");
+ cli_error(cli, "Specify a user to throttle");
return CLI_OK;
}
if (!(s = sessionbyuser(argv[0])))
{
- cli_print(cli, "User %s is not connected", argv[0]);
+ cli_error(cli, "User %s is not connected", argv[0]);
return CLI_OK;
}
rate_in = rate_out = atoi(argv[1]);
if (rate_in < 1)
{
- cli_print(cli, "Invalid rate \"%s\"", argv[1]);
+ cli_error(cli, "Invalid rate \"%s\"", argv[1]);
return CLI_OK;
}
}
if (r < 1)
{
- cli_print(cli, "Invalid rate specification \"%s %s\"", argv[i], argv[i+1]);
+ cli_error(cli, "Invalid rate specification \"%s %s\"", argv[i], argv[i+1]);
return CLI_OK;
}
}
}
else
{
- cli_print(cli, "Invalid arguments");
+ cli_error(cli, "Invalid arguments");
return CLI_OK;
}
if ((rate_in && session[s].throttle_in) || (rate_out && session[s].throttle_out))
{
- cli_print(cli, "User %s already throttled, unthrottle first", argv[0]);
+ cli_error(cli, "User %s already throttled, unthrottle first", argv[0]);
return CLI_OK;
}
if (cli_session_actions[s].throttle_in == -1 &&
cli_session_actions[s].throttle_out == -1)
{
- cli_print(cli, "User %s already throttled at this rate", argv[0]);
+ cli_error(cli, "User %s already throttled at this rate", argv[0]);
return CLI_OK;
}
if (!config->cluster_iam_master)
{
- cli_print(cli, "Can't do this on a slave. Do it on %s",
+ cli_error(cli, "Can't do this on a slave. Do it on %s",
fmtaddr(config->cluster_master_address, 0));
return CLI_OK;
if (!argc)
{
- cli_print(cli, "Specify a user to unthrottle");
+ cli_error(cli, "Specify a user to unthrottle");
return CLI_OK;
}
{
if (!(s = sessionbyuser(argv[i])))
{
- cli_print(cli, "User %s is not connected", argv[i]);
+ cli_error(cli, "User %s is not connected", argv[i]);
continue;
}
}
else
{
- cli_print(cli, "User %s not throttled", argv[i]);
+ cli_error(cli, "User %s not throttled", argv[i]);
}
}
continue;
}
- cli_print(cli, "Invalid debugging flag \"%s\"", argv[i]);
+ cli_error(cli, "Invalid debugging flag \"%s\"", argv[i]);
}
return CLI_OK;
continue;
}
- cli_print(cli, "Invalid debugging flag \"%s\"", argv[i]);
+ cli_error(cli, "Invalid debugging flag \"%s\"", argv[i]);
}
return CLI_OK;
if (argc != 1)
{
- cli_print(cli, "Specify a plugin to load");
+ cli_error(cli, "Specify a plugin to load");
return CLI_OK;
}
firstfree = i;
if (strcmp(config->plugins[i], argv[0]) == 0)
{
- cli_print(cli, "Plugin is already loaded");
+ cli_error(cli, "Plugin is already loaded");
return CLI_OK;
}
}
if (argc != 1)
{
- cli_print(cli, "Specify a plugin to remove");
+ cli_error(cli, "Specify a plugin to remove");
return CLI_OK;
}
}
}
- cli_print(cli, "Plugin is not loaded");
+ cli_error(cli, "Plugin is not loaded");
return CLI_OK;
}
int len = strlen(argv[0])-1;
for (i = 0; config_values[i].key; i++)
if (!len || !strncmp(config_values[i].key, argv[0], len))
- cli_print(cli, " %s", config_values[i].key);
+ cli_error(cli, " %s", config_values[i].key);
}
return CLI_OK;
if (argc != 2)
{
- cli_print(cli, "Specify variable and value");
+ cli_error(cli, "Specify variable and value");
return CLI_OK;
}
*(int *) value = 0;
break;
default:
- cli_print(cli, "Unknown variable type");
+ cli_error(cli, "Unknown variable type");
break;
}
config->reload_config = 1;
}
}
- cli_print(cli, "Unknown variable \"%s\"", argv[0]);
+ cli_error(cli, "Unknown variable \"%s\"", argv[0]);
return CLI_OK;
}
if (!(p = strchr(m, '\n')))
p = m + strlen(p);
- cli_print(cli, "\r%s-%u-%u %.*s",
+ cli_error(cli, "\r%s-%u-%u %.*s",
debug_levels[(int)ringbuffer->buffer[i].level],
ringbuffer->buffer[i].tunnel,
ringbuffer->buffer[i].session,
if (argc != 1 || (as = atoi(argv[0])) < 1 || as > 65535)
{
- cli_print(cli, "Invalid autonomous system number");
+ cli_error(cli, "Invalid autonomous system number");
return CLI_OK;
}
if (bgp_configured && as != config->as_number)
{
- cli_print(cli, "Can't change local AS on a running system");
+ cli_error(cli, "Can't change local AS on a running system");
return CLI_OK;
}
if (argc < 3)
{
- cli_print(cli, "Invalid arguments");
+ cli_error(cli, "Invalid arguments");
return CLI_OK;
}
if ((i = find_bgp_neighbour(argv[0])) == -2)
{
- cli_print(cli, "Invalid neighbour");
+ cli_error(cli, "Invalid neighbour");
return CLI_OK;
}
if (i == -1)
{
- cli_print(cli, "Too many neighbours (max %d)", BGP_NUM_PEERS);
+ cli_error(cli, "Too many neighbours (max %d)", BGP_NUM_PEERS);
return CLI_OK;
}
int as = atoi(argv[2]);
if (as < 0 || as > 65535)
{
- cli_print(cli, "Invalid autonomous system number");
+ cli_error(cli, "Invalid autonomous system number");
return CLI_OK;
}
if (argc != 4 || !MATCH("timers", argv[1]))
{
- cli_print(cli, "Invalid arguments");
+ cli_error(cli, "Invalid arguments");
return CLI_OK;
}
if (!config->neighbour[i].name[0])
{
- cli_print(cli, "Specify remote-as first");
+ cli_error(cli, "Specify remote-as first");
return CLI_OK;
}
if (keepalive < 1 || keepalive > 65535)
{
- cli_print(cli, "Invalid keepalive time");
+ cli_error(cli, "Invalid keepalive time");
return CLI_OK;
}
if (hold < 3 || hold > 65535)
{
- cli_print(cli, "Invalid hold time");
+ cli_error(cli, "Invalid hold time");
return CLI_OK;
}
if (argc != 1)
{
- cli_print(cli, "Specify a BGP neighbour");
+ cli_error(cli, "Specify a BGP neighbour");
return CLI_OK;
}
if ((i = find_bgp_neighbour(argv[0])) == -2)
{
- cli_print(cli, "Invalid neighbour");
+ cli_error(cli, "Invalid neighbour");
return CLI_OK;
}
if (i < 0 || !config->neighbour[i].name[0])
{
- cli_print(cli, "Neighbour %s not configured", argv[0]);
+ cli_error(cli, "Neighbour %s not configured", argv[0]);
return CLI_OK;
}
if (argc != 2)
{
- cli_print(cli, "Specify access-list type and name");
+ cli_error(cli, "Specify access-list type and name");
return CLI_OK;
}
extended = 1;
else
{
- cli_print(cli, "Invalid access-list type");
+ cli_error(cli, "Invalid access-list type");
return CLI_OK;
}
if (strlen(argv[1]) > sizeof(ip_filters[0].name) - 1 ||
strspn(argv[1], "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_-") != strlen(argv[1]))
{
- cli_print(cli, "Invalid access-list name");
+ cli_error(cli, "Invalid access-list name");
return CLI_OK;
}
{
if (filt < 0)
{
- cli_print(cli, "Too many access-lists");
+ cli_error(cli, "Too many access-lists");
return CLI_OK;
}
}
else if (ip_filters[filt].extended != extended)
{
- cli_print(cli, "Access-list is %s",
+ cli_error(cli, "Access-list is %s",
ip_filters[filt].extended ? "extended" : "standard");
return CLI_OK;
if (filt < 0 || !*ip_filters[filt].name)
{
- cli_print(cli, "Access-list not defined");
+ cli_error(cli, "Access-list not defined");
return CLI_OK;
}
// racy
if (ip_filters[filt].used)
{
- cli_print(cli, "Access-list in use");
+ cli_error(cli, "Access-list in use");
return CLI_OK;
}
if (argc < 3)
{
- cli_print(cli, "Specify rule details");
+ cli_error(cli, "Specify rule details");
return NULL;
}
rule.proto = IPPROTO_TCP;
else
{
- cli_print(cli, "Invalid protocol \"%s\"", argv[0]);
+ cli_error(cli, "Invalid protocol \"%s\"", argv[0]);
return NULL;
}
port = &rule.dst_ports;
if (a >= argc)
{
- cli_print(cli, "Specify destination");
+ cli_error(cli, "Specify destination");
return NULL;
}
}
{
if (++a >= argc)
{
- cli_print(cli, "Specify host ip address");
+ cli_error(cli, "Specify host ip address");
return NULL;
}
if (!inet_aton(argv[a], &addr))
{
- cli_print(cli, "Cannot parse IP \"%s\"", argv[a]);
+ cli_error(cli, "Cannot parse IP \"%s\"", argv[a]);
return NULL;
}
{
if (a >= argc - 1)
{
- cli_print(cli, "Specify %s ip address and wildcard", i ? "destination" : "source");
+ cli_error(cli, "Specify %s ip address and wildcard", i ? "destination" : "source");
return NULL;
}
if (!inet_aton(argv[a], &addr))
{
- cli_print(cli, "Cannot parse IP \"%s\"", argv[a]);
+ cli_error(cli, "Cannot parse IP \"%s\"", argv[a]);
return NULL;
}
if (!inet_aton(argv[++a], &addr))
{
- cli_print(cli, "Cannot parse IP \"%s\"", argv[a]);
+ cli_error(cli, "Cannot parse IP \"%s\"", argv[a]);
return NULL;
}
if (++a >= argc)
{
- cli_print(cli, "Specify port");
+ cli_error(cli, "Specify port");
return NULL;
}
if (!(port->port = atoi(argv[a])))
{
- cli_print(cli, "Invalid port \"%s\"", argv[a]);
+ cli_error(cli, "Invalid port \"%s\"", argv[a]);
return NULL;
}
if (a >= argc)
{
- cli_print(cli, "Specify port");
+ cli_error(cli, "Specify port");
return NULL;
}
if (!(port->port2 = atoi(argv[a])) || port->port2 < port->port)
{
- cli_print(cli, "Invalid port \"%s\"", argv[a]);
+ cli_error(cli, "Invalid port \"%s\"", argv[a]);
return NULL;
}
if (++a >= argc)
{
- cli_print(cli, "Specify tcp flags");
+ cli_error(cli, "Specify tcp flags");
return NULL;
}
else if (MATCH("urg", &argv[a][1])) *f |= TCP_FLAG_URG;
else
{
- cli_print(cli, "Invalid tcp flag \"%s\"", argv[a]);
+ cli_error(cli, "Invalid tcp flag \"%s\"", argv[a]);
return NULL;
}
{
if (rule.src_ports.op || rule.dst_ports.op || rule.tcp_flag_op)
{
- cli_print(cli, "Can't specify \"fragments\" on rules with layer 4 matches");
+ cli_error(cli, "Can't specify \"fragments\" on rules with layer 4 matches");
return NULL;
}
if (a < argc)
{
- cli_print(cli, "Invalid flag \"%s\"", argv[a]);
+ cli_error(cli, "Invalid flag \"%s\"", argv[a]);
return NULL;
}
if (argc < 1)
{
- cli_print(cli, "Specify rule details");
+ cli_error(cli, "Specify rule details");
return NULL;
}
{
if (argc != 2)
{
- cli_print(cli, "Specify host ip address");
+ cli_error(cli, "Specify host ip address");
return NULL;
}
if (!inet_aton(argv[1], &addr))
{
- cli_print(cli, "Cannot parse IP \"%s\"", argv[1]);
+ cli_error(cli, "Cannot parse IP \"%s\"", argv[1]);
return NULL;
}
{
if (argc > 2)
{
- cli_print(cli, "Specify source ip address and wildcard");
+ cli_error(cli, "Specify source ip address and wildcard");
return NULL;
}
if (!inet_aton(argv[0], &addr))
{
- cli_print(cli, "Cannot parse IP \"%s\"", argv[0]);
+ cli_error(cli, "Cannot parse IP \"%s\"", argv[0]);
return NULL;
}
{
if (!inet_aton(argv[1], &addr))
{
- cli_print(cli, "Cannot parse IP \"%s\"", argv[1]);
+ cli_error(cli, "Cannot parse IP \"%s\"", argv[1]);
return NULL;
}
return CLI_OK;
}
- cli_print(cli, "Too many rules");
+ cli_error(cli, "Too many rules");
return CLI_OK;
}
if (!config->cluster_iam_master)
{
- cli_print(cli, "Can't do this on a slave. Do it on %s",
+ cli_error(cli, "Can't do this on a slave. Do it on %s",
fmtaddr(config->cluster_master_address, 0));
return CLI_OK;
if (argc != 3 && argc != 5)
{
- cli_print(cli, "Specify a user and filters");
+ cli_error(cli, "Specify a user and filters");
return CLI_OK;
}
if (!(s = sessionbyuser(argv[0])))
{
- cli_print(cli, "User %s is not connected", argv[0]);
+ cli_error(cli, "User %s is not connected", argv[0]);
return CLI_OK;
}
{
if (session[s].filter_in)
{
- cli_print(cli, "Input already filtered");
+ cli_error(cli, "Input already filtered");
return CLI_OK;
}
f = &cli_session_actions[s].filter_in;
{
if (session[s].filter_out)
{
- cli_print(cli, "Output already filtered");
+ cli_error(cli, "Output already filtered");
return CLI_OK;
}
f = &cli_session_actions[s].filter_out;
}
else
{
- cli_print(cli, "Invalid filter specification");
+ cli_error(cli, "Invalid filter specification");
return CLI_OK;
}
v = find_access_list(argv[i+1]);
if (v < 0 || !*ip_filters[v].name)
{
- cli_print(cli, "Access-list %s not defined", argv[i+1]);
+ cli_error(cli, "Access-list %s not defined", argv[i+1]);
return CLI_OK;
}
if (!config->cluster_iam_master)
{
- cli_print(cli, "Can't do this on a slave. Do it on %s",
+ cli_error(cli, "Can't do this on a slave. Do it on %s",
fmtaddr(config->cluster_master_address, 0));
return CLI_OK;
if (!argc)
{
- cli_print(cli, "Specify a user to remove filters from");
+ cli_error(cli, "Specify a user to remove filters from");
return CLI_OK;
}
{
if (!(s = sessionbyuser(argv[i])))
{
- cli_print(cli, "User %s is not connected", argv[i]);
+ cli_error(cli, "User %s is not connected", argv[i]);
continue;
}
}
else
{
- cli_print(cli, "User %s not filtered", argv[i]);
+ cli_error(cli, "User %s not filtered", argv[i]);
}
}
if (argc < 1)
{
- cli_print(cli, "Specify a filter name");
+ cli_error(cli, "Specify a filter name");
return CLI_OK;
}
if (f < 0 || !*ip_filters[f].name)
{
- cli_print(cli, "Access-list %s not defined", argv[i]);
+ cli_error(cli, "Access-list %s not defined", argv[i]);
return CLI_OK;
}