diff options
Diffstat (limited to 'functions')
-rw-r--r-- | functions/convert_to_rname.pp | 10 | ||||
-rw-r--r-- | functions/ensure_ending_period.pp | 8 |
2 files changed, 18 insertions, 0 deletions
diff --git a/functions/convert_to_rname.pp b/functions/convert_to_rname.pp new file mode 100644 index 0000000..fc3113d --- /dev/null +++ b/functions/convert_to_rname.pp @@ -0,0 +1,10 @@ +# Converts regular email addresses to dns format +function dns::convert_to_rname(String $x) >> String { + $s = if $x =~ /([^@]*)@(.*)/ { + "${1}.${2}" + } else { + $x + } + + dns::ensure_ending_period($s) +} diff --git a/functions/ensure_ending_period.pp b/functions/ensure_ending_period.pp new file mode 100644 index 0000000..76c0003 --- /dev/null +++ b/functions/ensure_ending_period.pp @@ -0,0 +1,8 @@ +# Adds a period to end of string if not already present +function dns::ensure_ending_period(String $s) >> String { + if $s[-1] == '.' { + $s + } else { + "${s}." + } +} |