Remove formatting from controller

This commit is contained in:
John Crisp
2025-06-17 15:08:19 +02:00
parent 3cc63a7890
commit 2a99a49c7b
2 changed files with 11 additions and 3 deletions

View File

@@ -237,6 +237,7 @@ sub get_data_for_panel_CHECKONEDOMAIN {
# Get control data for table(s)
# Define a constant hash for field name mapping
use constant DomainList_FIELD_MAPPING => (
'Table1-TYPE' => 'Type',
'Table1-Domain name / HOSTNAME' => 'Domain',
'Table1-Brief description' => 'Description',
'Table1-Content' => 'Content',
@@ -246,6 +247,7 @@ use constant DomainList_FIELD_MAPPING => (
'Table1-IS_IN_CERT' => 'isincert',
'Table1-CHECK' => 'Check'
#'target_field2' => 'source_field2',
# Add more mappings as needed
);
@@ -280,7 +282,7 @@ sub actual_DomainList {
my $dname = $_->key;
my $isincert = "N";
my $link = $c->create_link("letsencryptd", "CHECKONEDOMAIN", "");
my $checklink = "<a href='" . $link . "&CHECKONEDOMAIN=" . $_->key . "'>" . $check . "</a>";
my $checklink = $link . "&CHECKONEDOMAIN=" . $_->key;
#my $checklink = "<a href=''>check</a>";
$isincert = "Y" if (grep(/^$dname$/, @list));
@@ -288,6 +290,7 @@ sub actual_DomainList {
# domain
push @data,
{
Type => "Domain",
Domain => $_->key,
$_->props,
letsencryptSSLcert => $le,
@@ -305,7 +308,8 @@ sub actual_DomainList {
$isincert = "N";
$isincert = "Y" if (grep(/^$hname$/, @list));
push @data, {
Domain => "--> " . $hname,
Type => "Host",
Domain => $hname,
$h->props,
Description => $h->prop('ExternalIP') || $h->prop('InternalIP') || "",
Content => $h->prop('HostType'),