(*

Module: Sysconfig_Route

  Parses /etc/sysconfig/network-scripts/route-${device}

Author: Stephen P. Schaefer

About: Reference

    This lens allows manipulation of *one* IPv4 variant of the

/etc/sysconfig/network-scripts/route-${device} script found in RHEL5+, CentOS5+

and Fedora.

    The variant handled consists of lines like

    "destination_subnet/cidr via router_ip", e.g.,

    "10.132.11.0/24 via 10.10.2.1"

    There are other variants; if you use them, please enhance this lens.

    The natural key would be "10.132.11.0/24" with value "10.10.2.1", but since

    augeas cannot deal with slashes in the key value, I reverse them, so that the

    key is "10.10.2.1[1]" (and "10.10.2.1[2]"... if multiple subnets are reachable

    via that router).

About: License

   This file is licenced under the LGPL v2+, like the rest of Augeas.

About: Lens Usage

  Sample usage of this lens in augtool

    * Set the first subnet reachable by a router reachable on the eth0 subnet

      > set /files/etc/sysconfig/network-scripts/route-eth0/10.10.2.1[1] 172.16.254.0/24

    * List all the subnets reachable by a router reachable on eth0 subnet

      > match /files/etc/sysconfig/network-scripts/route-eth0/10.10.2.1

About: Configuration files

  This lens applies to /etc/sysconfig/network-scripts/route-*

About: Examples

  The <Test_Sysconfig_Route> file contains various examples and tests.

*)

module Sysconfig_Route =

	autoload xfm

(******************************************************************************

 * Group:                        USEFUL PRIMITIVES

 ******************************************************************************)

(* Variable: router

   A router *)

let router = Rx.ipv4

(* Variable: cidr

   A subnet mask can be 0 to 32 bits *)

let cidr = /(3[012]|[12][0-9]|[0-9])/

(* Variable: subnet

   Subnet specification *)

let subnet = Rx.ipv4 . "/" . cidr

(******************************************************************************

 * Group:                        ENTRY TYPES

 ******************************************************************************)

(* View: entry

   One route *)

let entry = [ store subnet . del /[ \t]*via[ \t]*/ " via "

            . key router . Util.del_str "\n" ]

(******************************************************************************

 * Group:                        LENS AND FILTER

 ******************************************************************************)

(* View: lns *)

let lns = entry+

(* View: filter *)

let filter = incl "/etc/sysconfig/network-scripts/route-*"

	   . Util.stdexcl

let xfm = transform lns filter