1 files changed, 16 insertions, 0 deletions
diff --git a/util/scripts/unix_to_dos b/util/scripts/unix_to_dos
new file mode 100755
index 0000000..510037c
--- /dev/null
+++ b/util/scripts/unix_to_dos
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+undef $/;
+
+foreach $f ( @ARGV ) {
+    if ( open( F, "< $f" ) ) {
+	$i = <F>;
+	close F;
+	$i =~ s/\n/\r\n/g;
+	$i =~ s/\r+/\r/g;
+	if ( open( F, "> $f" ) ) {
+	    print F $i;
+	    close F;
+	}
+    }
+}