commit - 2c54c47e6fbc505a003308f033305c0fabb93b04
commit + c8e9176570263fe014d2433fd99a008e2262ad70
blob - 4fd564078647a45b9e29ecf1cefc9a90ffb0797c
blob + 575e562477e906594406851c68b5caf0e3d7f87d
--- Shell.pm
+++ Shell.pm
my $newconf;
if ($relaydconf =~ /^.*tls\s+{\s+keypair\s+[.0-9a-zA-Z]+\s*}/m) {
$newconf = "$`$&\n\t$block$'";
+ } else {
+ $newconf = $relaydconf;
+ main::debug(ERROR, "ERROR: regex can't match tls { keypair \$username.$hostname }");
}
main::writefile($relaydconfpath, $newconf);
}