cloudstack/vnet/src/vnet-module/vnet_eval.c

379 lines
9.1 KiB
C

/*
* Copyright (C) 2004, 2005 Mike Wray <mike.wray@hp.com>
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by the
* Free Software Foundation; either version 2 of the License, or (at your
* option) any later version.
*
* This program is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
* or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
* for more details.
*
* You should have received a copy of the GNU General Public License along
* with this program; if not, write to the Free software Foundation, Inc.,
* 59 Temple Place, suite 330, Boston, MA 02111-1307 USA
*
*/
#ifdef __KERNEL__
#include <linux/config.h>
#include <linux/module.h>
#include <linux/types.h>
#include <linux/kernel.h>
#include <linux/version.h>
#include <linux/errno.h>
#else
#include "sys_kernel.h"
#include "spinlock.h"
#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#endif
#include "vnet.h"
#include "varp.h"
#include "vif.h"
#include "vnet_forward.h"
#include "sa.h"
#include "iostream.h"
#ifdef __KERNEL__
#include "kernel_stream.h"
#else
#include "file_stream.h"
#endif
#include "sxpr_util.h"
#include "vnet_eval.h"
#define MODULE_NAME "VNET"
#define DEBUG 1
#undef DEBUG
#include "debug.h"
/** Create a vnet.
* It is an error if a vnet with the same id exists.
*
* @param vnet vnet id
* @param device vnet device name
* @param security security level
* @return 0 on success, error code otherwise
*/
static int ctrl_vnet_add(VnetId *vnet, char *device, int security){
int err = 0;
Vnet *vnetinfo = NULL;
if(strlen(device) >= IFNAMSIZ){
err = -EINVAL;
goto exit;
}
if(Vnet_lookup(vnet, NULL) == 0){
err = -EEXIST;
goto exit;
}
err = Vnet_alloc(&vnetinfo);
if(err) goto exit;
vnetinfo->vnet = *vnet;
vnetinfo->security = security;
strcpy(vnetinfo->device, device);
err = Vnet_create(vnetinfo);
exit:
if(vnetinfo) Vnet_decref(vnetinfo);
return err;
}
/** Create an entry for a vif with the given vnet and vmac.
*
* @param vnet vnet id
* @param vmac mac address
* @return 0 on success, error code otherwise
*/
static int ctrl_vif_add(VnetId *vnet, Vmac *vmac){
int err = 0;
Vif *vif = NULL;
err = Vnet_lookup(vnet, NULL);
if(err) goto exit;
err = vif_create(vnet, vmac, 0, &vif);
exit:
if(vif) vif_decref(vif);
return err;
}
/** Delete a vif.
*
* @param vnet vnet id
* @param vmac mac address
* @return 0 on success, error code otherwise
*/
static int ctrl_vif_del(VnetId *vnet, Vmac *vmac){
int err = 0;
Vif *vif = NULL;
err = Vnet_lookup(vnet, NULL);
if(err) goto exit;
err = vif_lookup(vnet, vmac, &vif);
if(err) goto exit;
vif_remove(vnet, vmac);
exit:
if(vif) vif_decref(vif);
return err;
}
/** (varp.print)
*/
static int eval_varp_print(Sxpr exp, IOStream *out, void *data){
int err = 0;
vnet_print(out);
vif_print(out);
varp_print(out);
return err;
}
static int eval_varp_list(Sxpr exp, IOStream *out, void *data){
int err = 0;
varp_print(out);
return err;
}
/** (varp.mcaddr (addr <addr>))
*/
static int eval_varp_mcaddr(Sxpr exp, IOStream *out, void *data){
int err =0;
Sxpr oaddr = intern("addr");
uint32_t addr;
err = child_addr(exp, oaddr, &addr);
if(err < 0) goto exit;
varp_set_mcast_addr(addr);
exit:
return err;
}
/** (varp.flush)
*/
static int eval_varp_flush(Sxpr exp, IOStream *out, void *data){
int err = 0;
varp_flush();
return err;
}
/** (vnet.add (id <id>)
* [(vnetif <name>)]
* [(security { none | auth | conf } )]
* )
*/
int eval_vnet_add(Sxpr exp, IOStream *out, void *data){
int err = 0;
Sxpr oid = intern("id");
Sxpr osecurity = intern("security");
Sxpr ovnetif = intern("vnetif");
Sxpr csecurity;
VnetId vnet = {};
char *device = NULL;
char dev[IFNAMSIZ] = {};
char *security = NULL;
int sec;
err = child_vnet(exp, oid, &vnet);
if(err) goto exit;
child_string(exp, ovnetif, &device);
if(!device){
snprintf(dev, IFNAMSIZ-1, "vnif%04x", ntohs(vnet.u.vnet16[VNETID_SIZE16 - 1]));
device = dev;
}
csecurity = sxpr_child_value(exp, osecurity, intern("none"));
err = stringof(csecurity, &security);
if(err) goto exit;
if(strcmp(security, "none")==0){
sec = 0;
} else if(strcmp(security, "auth")==0){
sec = SA_AUTH;
} else if(strcmp(security, "conf")==0){
sec = SA_CONF;
} else {
err = -EINVAL;
goto exit;
}
err = ctrl_vnet_add(&vnet, device, sec);
exit:
return err;
}
/** Delete a vnet.
*
* (vnet.del (id <id>))
*
* @param vnet vnet id
* @return 0 on success, error code otherwise
*/
static int eval_vnet_del(Sxpr exp, IOStream *out, void *data){
int err = 0;
Sxpr oid = intern("id");
VnetId vnet = {};
err = child_vnet(exp, oid, &vnet);
if(err) goto exit;
err = Vnet_del(&vnet);
exit:
return err;
}
static int eval_vnet_list(Sxpr exp, IOStream *out, void *data){
int err = 0;
vnet_print(out);
return err;
}
/** (vif.add (vnet <vnet>) (vmac <macaddr>))
*/
static int eval_vif_add(Sxpr exp, IOStream *out, void *data){
int err = 0;
Sxpr ovnet = intern("vnet");
Sxpr ovmac = intern("vmac");
VnetId vnet = {};
Vmac vmac = {};
err = child_vnet(exp, ovnet, &vnet);
if(err) goto exit;
err = child_mac(exp, ovmac, vmac.mac);
if(err) goto exit;
err = ctrl_vif_add(&vnet, &vmac);
exit:
return err;
}
/** (vif.del (vnet <vnet>) (vmac <macaddr>))
*/
static int eval_vif_del(Sxpr exp, IOStream *out, void *data){
int err = 0;
Sxpr ovnet = intern("vnet");
Sxpr ovmac = intern("vmac");
VnetId vnet = {};
Vmac vmac = {};
err = child_vnet(exp, ovnet, &vnet);
if(err) goto exit;
err = child_mac(exp, ovmac, vmac.mac);
if(err) goto exit;
err = ctrl_vif_del(&vnet, &vmac);
exit:
return err;
}
static int eval_vif_list(Sxpr exp, IOStream *out, void *data){
int err = 0;
vif_print(out);
return err;
}
/** Eval a vnet add request.
*
* (peer.add (addr <addr>) [(port <port>)])
*
* @param exp request
* @param out output stream
* @param data data
* @return 0 on success, error code otherwise
*/
int eval_peer_add(Sxpr exp, IOStream *out, void *data){
int err = 0;
Sxpr oaddr = intern("addr");
Sxpr oport = intern("port");
VarpAddr addr = { .family = AF_INET };
int port;
err = child_addr(exp, oaddr, &addr.u.ip4.s_addr);
if(err < 0) goto exit;
err = child_int(exp, oport, &port);
if(err < 0){
err = 0;
port = varp_port;
}
if(err) goto exit;
err = vnet_peer_add(&addr, port);
exit:
return err;
}
/** Eval a peer delete request.
*
* (peer.del (addr <addr>))
*
* @param vnetd vnetd
* @param exp request
* @param out output stream
* @param data data
* @return 0 on success, error code otherwise
*/
static int eval_peer_del(Sxpr exp, IOStream *out, void *data){
int err = 0;
Sxpr oaddr = intern("addr");
VarpAddr addr = { .family = AF_INET };
err = child_addr(exp, oaddr, &addr.u.ip4.s_addr);
if(err < 0) goto exit;
err = vnet_peer_del(&addr);
exit:
return err;
}
/** Eval a peer list request.
*
* (peer.list)
*
* @param exp request
* @param out output stream
* @param data data
* @return 0 on success, error code otherwise
*/
static int eval_peer_list(Sxpr exp, IOStream *out, void *data){
int err = 0;
vnet_peer_print(out);
return err;
}
int vnet_eval_defs(SxprEval *defs, Sxpr exp, IOStream *io, void *data){
int err = 0;
SxprEval *def;
iprintf("> "); objprint(iostdout, exp, 0); IOStream_print(iostdout, "\n");
err = -ENOSYS;
for(def = defs; !NONEP(def->name); def++){
if(sxpr_elementp(exp, def->name)){
err = def->fn(exp, io, data);
break;
}
}
iprintf("< err=%d\n", err);
return err;
}
int vnet_eval(Sxpr exp, IOStream *io, void *data){
SxprEval defs[] = {
{ .name = intern("peer.add"), .fn = eval_peer_add },
{ .name = intern("peer.del"), .fn = eval_peer_del },
{ .name = intern("peer.list"), .fn = eval_peer_list },
{ .name = intern("varp.flush"), .fn = eval_varp_flush },
{ .name = intern("varp.list"), .fn = eval_varp_list },
{ .name = intern("varp.mcaddr"), .fn = eval_varp_mcaddr },
{ .name = intern("varp.print"), .fn = eval_varp_print },
{ .name = intern("vif.add"), .fn = eval_vif_add },
{ .name = intern("vif.del"), .fn = eval_vif_del },
{ .name = intern("vif.list"), .fn = eval_vif_list },
{ .name = intern("vnet.add"), .fn = eval_vnet_add },
{ .name = intern("vnet.del"), .fn = eval_vnet_del },
{ .name = intern("vnet.list"), .fn = eval_vnet_list },
{ .name = ONONE, .fn = NULL } };
return vnet_eval_defs(defs, exp, io, data);
}