52. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 9/24/2019 1:37:49 PM Eastern Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

52.1 Files compared

#	Location	File	Last Modified
1	PCL-5_v1_build_8.zip\v1_build 8\Unredacted\spp_mha_web-development.zip\spp_mha_web-development\Delphi\MHA	fMHA_Update.pas	Wed Jul 31 17:35:31 2019 UTC
2	PCL-5_v1_build_8.zip\v1_build 8\Unredacted\spp_mha_web-development.zip\spp_mha_web-development\Delphi\MHA	fMHA_Update.pas	Mon Sep 23 16:17:46 2019 UTC

52.2 Comparison summary

Description	Between Files 1 and 2
Description	Text Blocks	Lines
Unchanged	2	310
Changed	1	2
Inserted	0	0
Removed	0	0

52.3 Comparison options

Whitespace
Character case	Differences in character case are significant
Line endings	Differences in line endings (`CR` and `LF` characters) are ignored
CR/LF characters	Not shown in the comparison detail

52.4 Active regular expressions

No regular expressions were active.

52.5 Comparison detail

	1	unit fMHA_ Update;
	2
	3	interface
	4
	5	uses
	6	Windows,
	7	Messages ,
	8	SysUtils ,
	9	DateUtil s,
	10	Variants ,
	11	Classes,
	12	Graphics ,
	13	Controls ,
	14	Forms,
	15	Dialogs,
	16	IpUtils,
	17	IpSock,
	18	IpFtp,
	19	StdCtrls ;
	20
	21	type
	22	TfrmMHA_ Update = c lass(TForm )
	23	IpFtpC lient1: TI pFtpClient ;
	24	ReplyM emo: TMemo ;
	25	Button 1: TButton ;
	26	Button 2: TButton ;
	27	Button 3: TButton ;
	28	proced ure IpFtpC lient1FtpS tatus(Send er: TObjec t;
	29	Stat usCode: TI pFtpStatus Code; cons t Info: st ring);
	30	proced ure IpFtpC lient1FtpR eply(Sende r: TObject ; ReplyCod e: Integer ;
	31	cons t Reply: s tring);
	32	proced ure IpFtpC lient1FtpE rror(Sende r: TObject ; ErrorCod e: Integer ;
	33	cons t Error: s tring);
	34	proced ure FormCl ose(Sender : TObject; var Actio n: TCloseA ction);
	35	proced ure Button 3Click(Sen der: TObje ct);
	36	proced ure Button 2Click(Sen der: TObje ct);
	37	proced ure Button 1Click(Sen der: TObje ct);
	38	proced ure FormCr eate(Sende r: TObject );
	39	private
	40	{ Priv ate declar ations }
	41	public
	42	{ Publ ic declara tions }
	43	proced ure CheckF orUpdates;
	44	end;
	45
	46	var
	47	frmMHA_U pdate : TfrmMHA_ Update;
	48
	49	implementa tion
	50
	51	{$R *.dfm}
	52
	53	uses
	54	uMHA_Con st;
	55
	56	var
	57	lvTempDa te : TDate Time;
	58
	59
	60	procedure TfrmMHA_Up date.FormC reate(Send er: TObjec t);
	61	begin
	62	CheckFor Updates;
	63	showmoda l;
	64	end;
	65
	66	procedure TfrmMHA_Up date.Check ForUpdates ;
	67	// Check f or updates every wee k
	68
	69	begin
	70	lvTempDa te := gvUp date;
	71	// ShowMe ssage('cur rent serie s ' + gvUp dateSeries + #13 +
	72	// date tostr(gvUp date) + #1 3+
	73	// 'Day s between ' + inttos tr(DaysBet ween(strto date('04/0 1/2009'), gvUpdate)) );
	74
	75	if DaysB etween(str todate('04 /01/2009') , gvUpdate ) > 6 then
	76	begin
	77	IpFt pClient1.P assiveMode := True;
	78	IpFtpClien t1.Login(' URL ',
	79	'a nonymous', '', '');
	80	IpFt pClient1.F ileType := ftAscii;
	81	IpFt pClient1.T ransferTim eout := 10 92;
	82
	83	//Sl eep(10000) ; {- 10 se conds -}
	84
	85	end;
	86
	87	end;
	88
	89	procedure TfrmMHA_Up date.IpFtp Client1Ftp Status(Sen der: TObje ct;
	90	StatusCo de: TIpFtp StatusCode ; const In fo: string );
	91	begin
	92	case Sta tusCode of
	93	fscLog in: Button 3Click(Sen der);
	94
	95	fscCur rentDir: B utton1Clic k(Sender);
	96	fscTra nsferOK: B utton2Clic k(Sender);
	97
	98	// fscC lose : Caption := 'Close' ;
	99	// fscO pen : Caption := ' conne cted to ' + IpFtpCli ent1.Serve rAddress;
	100	// fscC omplete : if (Mult iFileOp = mfoDelete) then
	101	// Delete Next;
	102	// fscC urrentDir : Caption := Info;
	103	// fscL ogin : Caption := IpFtpCl ient1.User Name + ' l ogged on t o ' + IpFt pClient1.S erverAddre ss;
	104	// fscL ogout : Caption := IpFtpCl ient1.User Name + ' l ogged out' ;
	105	// fscD irList : ReplyMem o.Lines.Ad d(Info);
	106	// fscP rogress : Caption := IntToSt r(IpFtpCli ent1.Bytes Transferre d) + ' byt es Transfe rred';
	107	// fscT ransferOK : begin
	108	// Captio n := IntTo Str(IpFtpC lient1.Byt esTransfer red) + ' - transfer complete';
	109	//if (Mu ltiFileOp = mfoRetri eve) then
	110	// Retr ieveNext;
	111	/ / end;
	112	fscTim eout: Show Message('T ransfer ti med out');
	113	end;
	114	end;
	115
	116	procedure TfrmMHA_Up date.IpFtp Client1Ftp Reply(Send er: TObjec t; ReplyCo de: Intege r;
	117	const Re ply: strin g);
	118	begin
	119	ReplyMem o.Lines.Ad d(Reply);
	120	end;
	121
	122
	123	procedure TfrmMHA_Up date.IpFtp Client1Ftp Error(Send er: TObjec t; ErrorCo de: Intege r;
	124	const Er ror: strin g);
	125	begin
	126	MessageD lg(Error, mtError, [ mbOK], 0);
	127	Screen.C ursor := c rDefault;
	128	end;
	129
	130	procedure TfrmMHA_Up date.FormC lose(Sende r: TObject ; var Acti on: TClose Action);
	131	begin
	132	IpFtpCli ent1.Logou t;
	133	end;
	134
	135	procedure TfrmMHA_Up date.Butto n3Click(Se nder: TObj ect);
	136	begin
	137	IpFtpCli ent1.Chang eDir('ANON YMOUS');
	138	end;
	139
	140	procedure TfrmMHA_Up date.Butto n2Click(Se nder: TObj ect);
	141	begin
	142	gvUpdate := IncDay (lvTempDat e, 7);
	143	Close;
	144	end;
	145
	146	procedure TfrmMHA_Up date.Butto n1Click(Se nder: TObj ect);
	147	begin
	148	IpFtpCli ent1.Retri eve('\YS_M HA.TXT;1',
	149	'C:\Pr ojects\Pat ch 101 MHA 3 D7\' + ' YS_MHA.TXT ',
	150	TIpFtp RetrieveMo de(1), 0);
	151	end;
	152
	153
	154
	155	end.
	156