Freeradius với máy chủ dhcp: Các cuộc gọi đến mô-đun perl trả về lỗi

Tôi đã đập đầu vào tường vài lần, nhưng ít nhất tôi đã làm cho mô-đun perl hoạt động, mặc dù tôi không hoàn toàn ở nơi mình muốn, vì định tuyến tĩnh qua DHCP không chuyển từ máy chủ Freeradius DHCP sang máy khách VPN qua Strongswan , nhưng việc gỡ lỗi các gói UDP từ máy chủ Freeradius DHCP có nghĩa là vấn đề nằm ở chỗ khác.

Nhưng dù sao đây là những gì tôi đã làm:

1. Kích hoạt mô-đun perl trong freeradius/3.0/đã bật mod và đặt ít nhất các dòng sau:

perl {
  # Vị trí mã Perl: ("freeradius/3.0/mods-config/dhcp/Options.pm")
  tên tệp = ${modconfdir}/${.:instance}/dhcp/Options.pm

  # Mô-đun DHCP được gọi trong freeradius post_auth
  func_post_auth = post_auth
}

2. Biến đổi freeradius/3.0/sites-enabled/dhcp Những nơi có liên quan là DHCP-Khám phá và Yêu cầu DHCP:

dhcp DHCP-Khám phá {

        cập nhật câu trả lời {
               DHCP-Message-Type = DHCP-Ưu đãi
        }

        # Nội dung ở đây được phát minh. Thay đổi chúng!
        cập nhật câu trả lời {
                &DHCP-Domain-Name-Server = 192.168.200.1
                &DHCP-Subnet-Mask = 255.255.255.0
                &DHCP-IP-Địa chỉ-Thời gian thuê = 86400
                &DHCP-DHCP-Số nhận dạng máy chủ = 192.168.200.4
        }

        # Hoặc, phân bổ IP từ nhóm DHCP trong SQL. bạn có thể cần phải
        # đặt tên nhóm ở đây nếu bạn chưa đặt ở nơi khác.
        kiểm soát cập nhật {
                &Tên nhóm := "vpn_pool"
        }

        dhcp_sqlippool

        # Gọi tạo tuyến đường tĩnh.
        perl

        Vâng
}

dhcp DHCP-Yêu cầu {

        # Loại gói phản hồi.Xem phần Khám phá DHCP ở trên.
        cập nhật câu trả lời {
               &DHCP-Message-Type = DHCP-Ack
        }

        # Nội dung ở đây được phát minh. Thay đổi chúng!
        cập nhật câu trả lời {
                &DHCP-Domain-Name-Server = 192.168.200.1
                &DHCP-Subnet-Mask = 255.255.255.0
                &DHCP-IP-Địa chỉ-Thời gian thuê = 86400
                &DHCP-DHCP-Số nhận dạng máy chủ = 192.168.200.4
        }

        # Hoặc, phân bổ IP từ nhóm DHCP trong SQL. bạn có thể cần phải
        # đặt tên nhóm ở đây nếu bạn chưa đặt ở nơi khác.
        kiểm soát cập nhật {
                &Tên nhóm := "vpn_pool"
        }
 
        dhcp_sqlippool

        # Gọi tạo tuyến đường tĩnh.
        perl

        Vâng
}

3. Tạo mã perl nằm ở freeradius/3.0/mods-config/perl/dhcp/Options.pm:

Sử dụng nghiêm ngặt;
sử dụng cảnh báo;
sử dụng Dữ liệu::Dumper;
sử dụng Mạng::IP;

# Mang giá trị băm toàn cầu vào phạm vi gói
của chúng tôi (%RAD_REQUEST, %RAD_REPLY, %RAD_CHECK);

#
# Đây là ánh xạ lại của các giá trị trả về
#
sử dụng hằng số {
    RLM_MODULE_REJECT => 0, # ngay lập tức từ chối yêu cầu
    RLM_MODULE_OK => 2, # mô-đun vẫn ổn, tiếp tục
    RLM_MODULE_HANDLED => 3, # mô-đun đã xử lý yêu cầu nên dừng
    RLM_MODULE_INVALID => 4, # mô-đun cho rằng yêu cầu không hợp lệ
    RLM_MODULE_USERLOCK => 5, # từ chối yêu cầu (người dùng bị khóa)
    RLM_MODULE_NOTFOUND => 6, # người dùng không tìm thấy
    RLM_MODULE_NOOP => 7, # mô-đun thành công mà không làm gì cả
    RLM_MODULE_UPDATED => 8, # OK (đã sửa cặp)
    RLM_MODULE_NUMCODES => 9 # Có bao nhiêu mã trả về
};

# Tương tự như src/include/radiusd.h
sử dụng hằng số L_DBG=> 1;
sử dụng hằng số L_AUTH=> 2;
sử dụng hằng số L_INFO=> 3;
sử dụng hằng số L_ERR=> 4;
sử dụng hằng số L_PROXY=> 5;
sử dụng hằng số L_ACCT=> 6;

# Hàm xử lý post_auth

phụ post_auth {

    # Nhận IP máy khách VPN từ máy chủ Freeradius DHCP.
    của tôi $client_ip = new Net::IP ( $RAD_REQUEST{'DHCP-Requested-IP-Address'} ) hoặc chết (Net::IP::Error());

    # Ví dụ về 2 quy tắc định tuyến đã gửi ('192.168.20.0/24' và '192.168.200.0/24') 
    @routes của tôi = (Mạng mới::IP('192.168.20/24'), Mạng mới::IP('192.168.200/24'));

    # Đo xem có bao nhiêu phần tử trong mảng route.
    kích thước $ của tôi = @routes;

    # Chuyển đổi ip máy khách thành mã hex.
    của tôi $client_octets = get_ip_octets ($client_ip->ip(),$client_ip->prefixlen());

    # Freeradius muốn chuỗi được mã hóa bắt đầu bằng '0x'
    # theo sau là các octet được mã hóa dưới dạng hex.
    của tôi $octet_str = "0x";

    for(của tôi $i = 0; $i < $size; $i++)
    {
        # Chuyển đổi mạng con thành octet, bỏ qua các số 0 ở cuối.
        của tôi $route_octets = get_ip_octets ($routes[$i]->ip(),$routes[$i]->prefixlen());

        # Chuyển đổi tiền tố mạng thành octet
        của tôi $hex_prefix = sprintf("%02x", $routes[$i]->prefixlen());

        # Tuyến đường được mã hóa bởi các octet mạng theo sau bởi các octet mạng con
        $route_octets = $hex_prefix . $route_octet;

        # Toàn bộ chuỗi tuyến đường là octet tuyến đường theo sau là octet cổng ('ipn vpn máy khách').
        $route_str = $route_octets của tôi. $client_octets;

        $octet_str = $octet_str . $route_str;
    }

    # Định tuyến tĩnh không phân loại (tùy chọn dhcp 121)
    $RAD_REPLY{'DHCP-Classless-Static-Route'} = $octet_str;

    # Định tuyến tĩnh không phân lớp của Microsoft (tùy chọn dhcp 249)
    $RAD_REPLY{'DHCP-Site-specific-25'} = $octet_str;

    trả về RLM_MODULE_OK;

}

phụ get_ip_octet {
    # Tham số đầu tiên: Địa chỉ ip nguồn
    của tôi $sip = $_[0];

    # Tham số thứ hai: Độ dài bit của mạng (còn gọi là ký hiệu CIDR).
    của tôi $cidr = $_[1];

    @decimals của tôi = split('\.', $sip);
    của tôi $index = int($cidr / 8) ;

    kết quả $ của tôi = '';
    for(của tôi $i = 0; $i < $index; $i++)
    {
        # Chuyển đổi từng số trong địa chỉ ip thành hex và định dạng có đầu
        # 0 trong trường hợp số chuyển đổi nhỏ hơn 16.
        $result = $result . sprintf("%02x", $decimals[$i]);
    }

    trả lại kết quả $;
}

Mã perl có thể được điều chỉnh từ đây, vì vậy tùy chọn 121 hoặc tùy chọn 249 được gửi tùy thuộc vào hệ điều hành máy khách.

Tôi cũng để lại khả năng làm cho mã chung chung hơn, vì vậy các tuyến tĩnh có thể được xác định trực tiếp trong tệp cấu hình Freeradius cho trình đọc.