From 803287dcf31c8b0d613b4a53a07b637bad8a2afa Mon Sep 17 00:00:00 2001
From: stdweird <stijn.deweirdt@ugent.be>
Date: Thu, 22 May 2025 11:01:56 +0200
Subject: [PATCH] aii-dhcp: support setting the dhcp host filename

---
 aii-dhcp/src/main/pan/quattor/aii/dhcp/schema.pan | 1 +
 aii-dhcp/src/main/perl/dhcp.pm                    | 4 ++++
 2 files changed, 5 insertions(+)

diff --git a/aii-dhcp/src/main/pan/quattor/aii/dhcp/schema.pan b/aii-dhcp/src/main/pan/quattor/aii/dhcp/schema.pan
index 6e54e223..38205f97 100755
--- a/aii-dhcp/src/main/pan/quattor/aii/dhcp/schema.pan
+++ b/aii-dhcp/src/main/pan/quattor/aii/dhcp/schema.pan
@@ -8,6 +8,7 @@ unique template quattor/aii/${project.artifactId}/schema;
 # Information needed for creating the Kickstart file
 type structure_dhcp_dhcp_info = {
     "tftpserver" ? string
+    "filename" ? string
     "options" ? string{}
 };
 
diff --git a/aii-dhcp/src/main/perl/dhcp.pm b/aii-dhcp/src/main/perl/dhcp.pm
index 6b408078..83983361 100755
--- a/aii-dhcp/src/main/perl/dhcp.pm
+++ b/aii-dhcp/src/main/perl/dhcp.pm
@@ -318,6 +318,10 @@ sub Configure
     if ($opts->{tftpserver}) {
         $tftpserver = $opts->{tftpserver};
     }
+    if ($opts->{filename}) {
+        $additional .= "filename \"$opts->{filename}\";\n";
+    }
+
     if ($opts->{options}) {
         foreach my $k (sort keys %{$opts->{options}}) {
             $additional .= "option $k $opts->{options}->{$k};\n";