Skip to content
Snippets Groups Projects
Commit 789a939b authored by Karl Fogel's avatar Karl Fogel
Browse files

Change from Melissa O'Neill <oneill@cs.sfu.ca>:

Converted logfile header to be a global variable (in future, we might
allow the header to be omitted or altered).  It now uses a `here
document' too.
parent d7892cfe
No related branches found
No related tags found
No related merge requests found
......@@ -107,6 +107,17 @@ my $Input_From_Stdin = 0;
# than $Max_Checkin_Duration seconds apart.
my $Max_Checkin_Duration = 180;
my $ChangeLog_Header = <<'END_OF_HEADER';
-+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+-
NOTE: This file was automatically generated by `cvs2cl.pl'. If you
edit this file, your changes will be lost when someone next runs
cvs2cl.pl. See http://www.red-bean.com/~kfogel/cvs2cl.shtml for more.
-+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+-
END_OF_HEADER
## end vars set by options.
# In 'cvs log' output, one long unbroken line of equal signs separates
......@@ -265,14 +276,7 @@ sub derive_change_log ()
open (LOG_OUT, ">-") or die "Unable to open stdout for writing";
}
print LOG_OUT
"
-+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+-
NOTE: This file was automatically generated by `cvs2cl.pl'. If you
edit this file, your changes will be lost when someone next runs
cvs2cl.pl. See http://www.red-bean.com/~kfogel/cvs2cl.shtml for more.
-+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+- -+-
\n";
print LOG_OUT $ChangeLog_Header;
my $subhash = $grand_poobah{$dir};
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment