cvs: /CVSROOT dolog.pl

sas Thu Sep 30 15:18:10 1999 EDT Modified files: /CVSROOT dolog.pl Log: Change LF => CRLF Index: CVSROOT/dolog.pl diff -u CVSROOT/dolog.pl:1.1 CVSROOT/dolog.pl:1.2 --- CVSROOT/dolog.pl:1.1 Thu Sep 30 14:50:08 1999 +++ CVSROOT/dolog.pl Thu Sep 30 15:17:39 1999 @@ -196,19 +196,19 @@ } } close( LOG ); - push(@outlist, ("$stat|$time|$username|$cvsroot|$repository|$fn|$rev|$sticky|$tag|$lines_added|$lines_removed\n")); + push(@outlist, ("$stat|$time|$username|$cvsroot|$repository|$fn|$rev|$sticky|$tag|$lines_added|$lines_removed\r\n")); } } } close(ENT); for $i (@removed_files) { - push( @outlist, ("R|$time|$username|$cvsroot|$repository|$i|||$repository_tag\n")); + push( @outlist, ("R|$time|$username|$cvsroot|$repository|$i|||$repository_tag\r\n")); } - push (@outlist, "LOGCOMMENT\n"); - push (@outlist, join("\n",@log_lines)); - push (@outlist, "\n:ENDLOGCOMMENT\n"); + push (@outlist, "LOGCOMMENT\r\n"); + push (@outlist, join("\r\n",@log_lines)); + push (@outlist, "\r\n:ENDLOGCOMMENT\r\n"); } @@ -220,7 +220,7 @@ $part = shift @ARGV; $str .= "|" . $part; } - push (@outlist, ("$str\n")); + push (@outlist, ("$str\r\n")); } @@ -290,13 +290,13 @@ get_response_code(354); # Get one line starting with "354 ". if ($flag_tagcmd) { - print S "Subject: cvs tag in $repository\n"; + print S "Subject: cvs tag in $repository\r\n"; } else { - print S "Subject: cvs commit to $repository\n"; + print S "Subject: cvs commit to $repository\r\n"; } - print S "\n"; - print S @outlist, "\n"; - print S ".\n"; + print S "\r\n"; + print S @outlist, "\r\n"; + print S ".\r\n"; get_response_code(250); print S "QUIT\n"; close(S);