Modified to show that Code Snippets Database code is MIT licensed and copyright.

Author: delphidabbler

Src/USaveUnitMgr.pas

@@ -3,7 +3,7 @@
  * v. 2.0. If a copy of the MPL was not distributed with this file, You can
  * obtain one at http://mozilla.org/MPL/2.0/
  *
- * Copyright (C) 2006-2013, Peter Johnson (www.delphidabbler.com).
+ * Copyright (C) 2006-2014, Peter Johnson (www.delphidabbler.com).
  *
  * $Rev$
  * $Date$
@@ -115,17 +115,16 @@ implementation
   // Error message
   sErrorMsg = 'Filename is not valid for a Pascal unit';
   // Unit header comments
-  sLicense = 'This unit may be freely distributed and used on the condition '
-    + 'that this comment is not removed from the unit.';
-  sMainDescription = 'The unit was generated automatically from a '
+  sLicense = 'This unit is copyright © %0:s by the Code Snippets Database '
+    + 'Contributors (http://snippets.delphidabbler.com/contributors) and '
+    + 'is licensed under the MIT license '
+    + '(http://opensource.org/licenses/MIT).';
+  sMainDescription = 'The unit was generated automatically and incorporates a '
     + 'selection of source code taken from the Code Snippets Database at %0:s.';
-  sDisclaimer = 'The source code contained in this unit is made available on '
-    + 'an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or '
-    + 'implied. The code is used entirely at your own risk.';
   sGenerated = 'Generated on : %0:s.';
   sGenerator = 'Generated by : %0:s %1:s.';
-  sAdvert = 'The latest version of %0:s is available from the %1:s website '
-    + 'at %2:s.';
+  sAdvert = 'The latest version of %0:s is available from the %0:s website '
+    + 'at %1:s.';
   sUserDescription = 'This unit was generated automatically.';
   // Output document title
   sDocTitle = 'Pascal unit generated by %s';
@@ -152,12 +151,10 @@ function TSaveUnitMgr.CreateHeaderComments: IStringList;
   if fContainsMainDBSnippets then
   begin
     // Result used for units that contain at snippet(s) from main database
-    Result.Add(sLicense);
+    Result.Add(Format(sLicense, [FormatDateTime('YYYY', Now)]));
     Result.Add('');
     Result.Add(Format(sMainDescription, [TWebInfo.DatabaseURL]));
     Result.Add('');
-    Result.Add(sDisclaimer);
-    Result.Add('');
     Result.Add(Format(sGenerated, [RFC1123DateStamp]));
     Result.Add(
       Format(
@@ -166,10 +163,7 @@ function TSaveUnitMgr.CreateHeaderComments: IStringList;
     );
     Result.Add('');
     Result.Add(
-      Format(
-        sAdvert,
-        [TAppInfo.ProgramName, TAppInfo.CompanyName, TWebInfo.ProgramHomeURL]
-      )
+      Format(sAdvert, [TAppInfo.ProgramName, TWebInfo.ProgramHomeURL])
     );
   end
   else

Src/USnippetDoc.pas

@@ -3,7 +3,7 @@
  * v. 2.0. If a copy of the MPL was not distributed with this file, You can
  * obtain one at http://mozilla.org/MPL/2.0/
  *
- * Copyright (C) 2008-2012, Peter Johnson (www.delphidabbler.com).
+ * Copyright (C) 2008-2014, Peter Johnson (www.delphidabbler.com).
  *
  * $Rev$
  * $Date$
@@ -158,7 +158,9 @@ function TSnippetDoc.Generate(const Snippet: TSnippet): TEncodedData;
   sDependListTitle = 'Required snippets:';
   sXRefListTitle = 'See also:';
   sCompilers = 'Supported compilers:';
-  sMainDatabaseInfo = 'A snippet from the DelphiDabbler CodeSnip Database (%s)';
+  sMainDatabaseInfo = 'A snippet from the DelphiDabbler CodeSnip Database '
+   + '(%s), licensed under the MIT License '
+   + '(http://opensource.org/licenses/MIT).';
 begin
   Assert(Assigned(Snippet), ClassName + '.Create: Snippet is nil');
   // generate document

Src/USnippetSourceGen.pas

@@ -3,7 +3,7 @@
  * v. 2.0. If a copy of the MPL was not distributed with this file, You can
  * obtain one at http://mozilla.org/MPL/2.0/
  *
- * Copyright (C) 2006-2013, Peter Johnson (www.delphidabbler.com).
+ * Copyright (C) 2006-2014, Peter Johnson (www.delphidabbler.com).
  *
  * $Rev$
  * $Date$
@@ -104,9 +104,9 @@ function TSnippetSourceGen.BuildHeaderComments: IStringList;
 resourcestring
   // Comment to be included at top of snippet
   // header used if snippet includes code from main database
-  sMainHeader = 'This code snippet was generated by %0:s %1:s on %2:s. It is '
-    + 'made available on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, '
-    + 'either express or implied. The code is used entirely at your own risk.';
+  sMainHeader = 'This code snippet was generated by %0:s %1:s on %2:s. It '
+    + 'includes code taken from the DelphiDabbler Code Snippets database that '
+    + 'is covered by the MIT license (http://opensource.org/licenses/MIT).';
   // header used if snippet contains only user defined snippets
   sUserHeader = 'This user defined code snippet was generated by '
     + '%0:s %1:s on %2:s.';