Updated letsencrypt custom file

This commit is contained in:
Brian Read 2024-11-17 14:46:05 +00:00
parent b33af4042e
commit 9e0b42a266

View File

@ -184,7 +184,7 @@ our $ddb = esmith::DomainsDB->open() || die("Couldn't open Domains db");
my %ret = ( my %ret = (
'Data1'=>'Data for CHECKONEDOMAIN', #Example 'Data1'=>'Data for CHECKONEDOMAIN', #Example
# fields from Inputs in CHECKONEDOMAIN $fields['CHECKONEDOMAIN'] # fields from Inputs in CHECKONEDOMAIN $fields['CHECKONEDOMAIN']
'OneDomainToCheck'=>'OneDomainToCheck contents', 'OneDomainToCheck'=>$c->param("CHECKONEDOMAIN"),
'OneDomainsCheck'=>'OneDomainsCheck contents', 'OneDomainsCheck'=>'OneDomainsCheck contents',
); );
@ -236,7 +236,7 @@ sub actual_DomainList {
my $dname= $_->key; my $dname= $_->key;
my $isincert = "N"; my $isincert = "N";
my $link = $c->create_link("letsencryptd","CHECKONEDOMAIN",""); my $link = $c->create_link("letsencryptd","CHECKONEDOMAIN","");
my $checklink = "<a href='".$link."&dom=".$_->key."'>".$check."</a>"; my $checklink = "<a href='".$link."&CHECKONEDOMAIN=".$_->key."'>".$check."</a>";
#my $checklink = "<a href=''>check</a>"; #my $checklink = "<a href=''>check</a>";
$isincert = "Y" if ( $dname ~~ @list); $isincert = "Y" if ( $dname ~~ @list);
# domain # domain