Freeradius cu serverul dhcp: Apelurile la modulul perl returnează eroare

M-am lovit cu capul de perete de câteva ori, dar cel puțin am făcut ca modulul perl să funcționeze, deși nu sunt complet unde vreau să fiu, deoarece rutarea statică prin DHCP nu trece de la serverul DHCP Freeradius la clientul VPN prin Strongswan , dar depanarea pachetelor UDP de pe serverul DHCP Freeradius implică că problema se află în altă parte.

Oricum, iată ce am făcut:

1. Activați modulul perl în freeradius/3.0/mods-enabled și setați cel puțin următoarele linii:

perl {
  # Locația codului Perl: ("freeradius/3.0/mods-config/dhcp/Options.pm")
  nume fișier = ${modconfdir}/${.:instance}/dhcp/Options.pm

  # Modulul DHCP este apelat în timpul freeradius post_auth
  func_post_auth = post_auth
}

2. Modifica freeradius/3.0/sites-enabled/dhcp Locurile relevante sunt DHCP-Descoperire și Solicitare DHCP:

dhcp DHCP-Descoperire {

        actualizare răspuns {
               DHCP-Message-Type = DHCP-Ofertă
        }

        # Conținutul de aici este inventat. Schimbă-le!
        actualizare răspuns {
                &DHCP-Domain-Name-Server = 192.168.200.1
                &DHCP-Subnet-Mask = 255.255.255.0
                &DHCP-IP-Address-Lease-Time = 86400
                &DHCP-DHCP-Server-Identifier = 192.168.200.4
        }

        # Sau alocați IP-uri din pool-ul DHCP în SQL. Poate ai nevoie
        # setați aici numele piscinei dacă nu l-ați setat în altă parte.
        controlul actualizării {
                &Pool-Name := „vpn_pool”
        }

        dhcp_sqlippool

        # Apelați generarea rutei statice.
        perl

        Bine
}

dhcp DHCP-Request {

        # Tip de pachet de răspuns.Consultați secțiunea DHCP-Discover de mai sus.
        actualizare răspuns {
               &DHCP-Message-Type = DHCP-Ack
        }

        # Conținutul de aici este inventat. Schimbă-le!
        actualizare răspuns {
                &DHCP-Domain-Name-Server = 192.168.200.1
                &DHCP-Subnet-Mask = 255.255.255.0
                &DHCP-IP-Address-Lease-Time = 86400
                &DHCP-DHCP-Server-Identifier = 192.168.200.4
        }

        # Sau alocați IP-uri din pool-ul DHCP în SQL. Poate ai nevoie
        # setați aici numele piscinei dacă nu l-ați setat în altă parte.
        controlul actualizării {
                &Pool-Name := „vpn_pool”
        }
 
        dhcp_sqlippool

        # Apelați generarea rutei statice.
        perl

        Bine
}

3. Creați codul perl situat la freeradius/3.0/mods-config/perl/dhcp/Options.pm:

folosiți strict;
folosiți avertismente;
utilizați Data::Dumper;
utilizați Net::IP;

# Aduceți hashurile globale în domeniul pachetului
nostru (%RAD_REQUEST, %RAD_REPLY, %RAD_CHECK);

#
# Aceasta este remaparea valorilor returnate
#
folosește constant {
    RLM_MODULE_REJECT => 0, # respinge imediat cererea
    RLM_MODULE_OK => 2, # modulul este OK, continua
    RLM_MODULE_HANDLED => 3, # modulul a gestionat cererea, deci opriți
    RLM_MODULE_INVALID => 4, # modulul consideră cererea nevalidă
    RLM_MODULE_USERLOCK => 5, # respinge cererea (utilizatorul este blocat)
    RLM_MODULE_NOTFOUND => 6, # utilizator nu a fost găsit
    RLM_MODULE_NOOP => 7, # modul a reușit fără a face nimic
    RLM_MODULE_UPDATED => 8, # OK (perechi modificate)
    RLM_MODULE_NUMCODES => 9 # Câte coduri de returnare există
};

# La fel ca src/include/radiusd.h
utilizați constanta L_DBG => 1;
utilizați constanta L_AUTH => 2;
utilizați constanta L_INFO => 3;
utilizați constanta L_ERR => 4;
utilizați constanta L_PROXY => 5;
utilizați constanta L_ACCT => 6;

# Funcție pentru a gestiona post_auth

sub post_auth {

    # Obțineți IP-ul clientului VPN de la serverul DHCP Freeradius.
    my $client_ip = new Net::IP ( $RAD_REQUEST{'DHCP-Requested-IP-Address'} ) sau die (Net::IP::Error());

    # Un exemplu de 2 reguli de rutare trimise („192.168.20.0/24” și „192.168.200.0/24”) 
    my @routes = (net nou::IP('192.168.20/24'), net net::IP('192.168.200/24'));

    # Măsurați câte elemente există în matricea de rute.
    my $size = @routes;

    # Convertiți ip-ul clientului în cod hex.
    my $client_octets = get_ip_octets ($client_ip->ip(),$client_ip->prefixlen());

    # Freeradius vrea ca șirul codificat să înceapă cu „0x”
    # urmat de octeții codificați ca hex.
    my $octet_str = "0x";

    pentru ($i meu = 0; $i < $dimensiune; $i++)
    {
        # Convertiți subrețeaua în octeți, sărind zerourile de sfârșit.
        my $route_octets = get_ip_octets ($routes[$i]->ip(),$routes[$i]->prefixlen());

        # Convertiți prefixul de rețea în octeți
        my $hex_prefix = sprintf("%02x", $routes[$i]->prefixlen());

        # Ruta este codificată de octeți de rețea urmați de octeți de subrețea
        $route_octets = $hex_prefix . $route_octete;

        # Întregul șir de rută este octeții de rută urmați de octeți de gateway („client vpn ip”).
        my $route_str = $route_octets . $octeți_client;

        $octet_str = $octet_str . $route_str;
    }

    # Rutare statică fără clasă (opțiunea dhcp 121)
    $RAD_REPLY{'DHCP-Classless-Static-Route'} = $octet_str;

    # Rutare statică fără clasă Microsoft (opțiunea dhcp 249)
    $RAD_REPLY{'DHCP-Site-specific-25'} = $octet_str;

    returnează RLM_MODULE_OK;

}

sub get_ip_octets {
    # Primul parametru: adresa IP sursă
    my $sip = $_[0];

    # Al doilea parametru: lungimea de biți a rețelei (alias notația CIDR).
    my $cidr = $_[1];

    my @zecimals = split('\.', $sip);
    my $index = int($cidr / 8) ;

    my $result = '';
    pentru ($i meu = 0; $i < $index; $i++)
    {
        # Convertiți fiecare număr din adresa IP în hexadecimal și formatați cu lider
        # zero în cazul în care numărul convertit este mai mic de 16.
        $rezultat = $rezultat . sprintf("%02x", $zecimale[$i]);
    }

    returnează $rezultat;
}

Codul perl poate fi modificat de aici, deci opțiunea 121 sau opțiunea 249 este trimisă în funcție de sistemul de operare client.

De asemenea, las posibilitatea de a face codul mai generic, astfel încât rutele statice pot fi definite direct în fișierul de configurare Freeradius cititorului.