diff options
| -rw-r--r-- | global-functions | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/global-functions b/global-functions index 3a2497e..daa6526 100644 --- a/global-functions +++ b/global-functions @@ -40,6 +40,7 @@ :global MkDir; :global NotificationFunctions; :global ParseKeyValueStore; +:global PrettyPrint; :global QuotedPrintable; :global RandomDelay; :global Read; @@ -648,6 +649,15 @@ :return $Result; } +# print lines with trailing carriage return +:set PrettyPrint do={ + :local Input [ :tostr $1 ]; + + :global CharacterReplace; + + :put [ $CharacterReplace $Input ("\n") ("\n\r") ]; +} + # convert string to quoted-printable :global QuotedPrintable do={ :local Input [ :tostr $1 ]; |