Add '-r' parameter to debugd.

Detail:
  In the debugd daemon specifying '-r' as an option will cause all output
  to have LFs converted to CRLF. This works better with non-Unix telnet
  clients. The daemon previously accepted '-r', but it did nothing.
Admin:
  Tested. Works.


Version 0.10. Tagged as 'remotedb-0_10'

VersionNum

-/* (0.09)
+/* (0.10)
  *
  * This file is automatically maintained by srccommit, do not edit manually.
+ * Last processed by srccommit version: 1.68.
  *
  */
-#define Module_MajorVersion_CMHG        0.09
+#define Module_MajorVersion_CMHG        0.10
 #define Module_MinorVersion_CMHG        
-#define Module_Date_CMHG                17 Jan 2001
+#define Module_Date_CMHG                04 Jul 2003
 
-#define Module_MajorVersion             "0.09"
-#define Module_Version                  9
+#define Module_MajorVersion             "0.10"
+#define Module_Version                  10
 #define Module_MinorVersion             ""
-#define Module_Date                     "17 Jan 2001"
+#define Module_Date                     "04 Jul 2003"
 
-#define Module_ApplicationDate2         "17-Jan-01"
-#define Module_ApplicationDate4         "17-Jan-2001"
+#define Module_ApplicationDate          "04-Jul-03"
 
 #define Module_ComponentName            "remotedb"
 #define Module_ComponentPath            "RiscOS/Sources/Lib/remotedb"
 
-#define Module_FullVersion              "0.09"
-#define Module_HelpVersion              "0.09 (17 Jan 2001)"
+#define Module_FullVersion              "0.10"
+#define Module_HelpVersion              "0.10 (04 Jul 2003)"
+#define Module_LibraryVersionInfo       "0:10"

daemon/debugd

@@ -279,6 +279,9 @@ sub doprint {
   my ($hash,$str)=@_;
   if(defined($hash)) {
 #  print "Writing string $str\n" if($debug);
+    if(defined($cr)) {
+      $str =~ s/\n/\r\n/g;
+    };
     $hash->{outbuf}.=$str;
     vec($wfdmask,fileno($hash->{fh}),1)=1;
   };