TYPEMAP
IPTables::libiptc  T_PTROBJ
ipt_chainlabel     IPT_CLABEL

INPUT
IPT_CLABEL
    if( SvPOK($arg) ) {
	char *temp;
	STRLEN len;
	temp = SvPV($arg, len);
	if (len > IPT_FUNCTION_MAXNAMELEN) {
	    SET_ERRSTR(\"Chainname too long ($var:%s)\", temp);
	    XSRETURN(FALSE);
	}
	memset($var, 0, IPT_FUNCTION_MAXNAMELEN + 1);
	strncpy($var, temp, len);
    }
    else {
	SET_ERRSTR(\"$var must be string\");
	XSRETURN(FALSE);
    }