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