用CAPL写一个网络管理案例

假设我们有一个网络拓扑结构如下所示：

     R1
   /    \
  R2 --- R3

其中，R1、R2、R3是三个路由器，R1是中央管理者，R2和R3是被管理者。现在我们要进行以下网络管理操作：

1. R1向R2和R3发送ping命令，检测它们是否在线。
2. R1向R2和R3发送telnet命令，连接到它们并执行show version命令，获取版本信息。
3. R1向R2和R3发送snmp命令，获取它们的CPU利用率和内存利用率。

我们可以用CAPL脚本来模拟这个过程。首先，我们需要定义三个节点：

variables
{
  node R1 = node_create("R1");
  node R2 = node_create("R2");
  node R3 = node_create("R3");
}

然后，我们需要定义ping、telnet和snmp的函数：

on message ping(node dest)
{
  write("Ping " + dest.name + "...");
  if (node_ping(dest) == 0)
    write("Success.");
  else
    write("Failed.");
}

on message telnet(node dest)
{
  write("Telnet " + dest.name + "...");
  if (node_telnet(dest) == 0)
  {
    node_send(dest, "show version");
    write(node_receive(dest));
  }
  else
    write("Failed.");
}

on message snmp(node dest)
{
  write("SNMP " + dest.name + "...");
  if (node_snmp(dest, "CPU") == 0)
    write("CPU: " + node_receive(dest));
  if (node_snmp(dest, "Memory") == 0)
    write("Memory: " + node_receive(dest));
}

最后，我们可以在on start函数中调用这些函数：

on start
{
  ping(R2);
  ping(R3);
  telnet(R2);
  telnet(R3);
  snmp(R2);
  snmp(R3);
}

完整的代码如下所示：

variables
{
  node R1 = node_create("R1");
  node R2 = node_create("R2");
  node R3 = node_create("R3");
}

on message ping(node dest)
{
  write("Ping " + dest.name + "...");
  if (node_ping(dest) == 0)
    write("Success.");
  else
    write("Failed.");
}

on message telnet(node dest)
{
  write("Telnet " + dest.name + "...");
  if (node_telnet(dest) == 0)
  {
    node_send(dest, "show version");
    write(node_receive(dest));
  }
  else
    write("Failed.");
}

on message snmp(node dest)
{
  write("SNMP " + dest.name + "...");
  if (node_snmp(dest, "CPU") == 0)
    write("CPU: " + node_receive(dest));
  if (node_snmp(dest, "Memory") == 0)
    write("Memory: " + node_receive(dest));
}

on start
{
  ping(R2);
  ping(R3);
  telnet(R2);
  telnet(R3);
  snmp(R2);
  snmp(R3);
}