Version Info

gatherVersionInfo

	| packageTimeStampLocal configMapTimeStampLocal temp displayData |

	displayData := WriteStream on: (String new: 512).

	configMapTimeStampLocal := self fixVersionInfoData: self configMapTimeStamp.
	packageTimeStampLocal := self fixVersionInfoData: self class packageTimeStamp.

	displayData
		cr;
		nextPutAll: '-------------------------------------------------------------------';
		cr;
		nextPutAll: 'Configuration Map - ' , self class configMapName;
		cr;
		nextPutAll: '  TimeStamp - ' , configMapTimeStampLocal;
		cr;
		nextPutAll: '  Version - ' , self configMapVersionName;
		cr;
		cr;
		nextPutAll: 'Package TimeStamp - ' , packageTimeStampLocal;
		cr;
		nextPutAll: 'Packaging Instructions - ' , self packagingInstructionsClassAndVersion;
		cr;
		nextPutAll: '-------------------------------------------------------------------';
		cr.

	^displayData contents