6. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/2/2017 7:18:07 AM Central 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.

6.1 Files compared

# Location File Last Modified
1 CAPRI_CIF.zip\CAPRI_CIF\Source emailforward.pas Wed Nov 1 18:09:20 2017 UTC
2 CAPRI_CIF.zip\CAPRI_CIF\Source emailforward.pas Wed Nov 1 19:07:59 2017 UTC

6.2 Comparison summary

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

6.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

6.4 Active regular expressions

No regular expressions were active.

6.5 Comparison detail

  1   unit email forward;
  2  
  3   interface
  4  
  5   uses
  6     Windows,
  7     Messages ,
  8     SysUtils ,
  9     Classes,
  10     Graphics ,
  11     Controls ,
  12     Forms,
  13     DialogsC APRI,
  14     Dialogs,
  15     StdCtrls ,
  16     ExtCtrls ;
  17  
  18   type
  19     TfrmForw ardingAddr ess = clas s(TForm)
  20       Label1 : TLabel;
  21       Label2 : TLabel;
  22       Edit1:  TEdit;
  23       Button 1: TButton ;
  24       Label3 : TLabel;
  25       RadioB utton1: TR adioButton ;
  26       RadioB utton2: TR adioButton ;
  27       EditOt herEmailAd dress: TEd it;
  28       RadioB utton3: TR adioButton ;
  29       Label4 : TLabel;
  30       RadioB utton4: TR adioButton ;
  31       CCOWTi mer: TTime r;
  32       proced ure Button 1Click(Sen der: TObje ct);
  33       proced ure RadioB utton1Clic k(Sender:  TObject);
  34       proced ure RadioB utton2Clic k(Sender:  TObject);
  35       proced ure EditOt herEmailAd dressExit( Sender: TO bject);
  36       proced ure CCOWTi merTimer(S ender: TOb ject);
  37       proced ure FormAc tivate(Sen der: TObje ct);
  38       proced ure FormSh ow(Sender:  TObject);
  39     private
  40       { Priv ate declar ations }
  41     public
  42       { Publ ic declara tions }
  43     end;
  44  
  45   var
  46     frmForwa rdingAddre ss: TfrmFo rwardingAd dress;
  47  
  48   implementa tion
  49  
  50   uses main;
  51  
  52   {$R *.DFM}
  53  
  54   procedure  TfrmForwar dingAddres s.Button1C lick(Sende r: TObject );
  55   begin
  56     modalres ult := mrO K;
  57   end;
  58  
  59   procedure  TfrmForwar dingAddres s.RadioBut ton1Click( Sender: TO bject);
  60   begin
  61     editOthe rEmailAddr ess.Visibl e := False ;
  62   end;
  63  
  64   procedure  TfrmForwar dingAddres s.RadioBut ton2Click( Sender: TO bject);
  65   begin
  66     editOthe rEmailAddr ess.Visibl e := True;
  67   end;
  68  
  69   procedure  TfrmForwar dingAddres s.EditOthe rEmailAddr essExit(Se nder: TObj ect);
  70   var
  71     domain,  domain2: s tring;
  72  
  73   begin
  74     if editO therEmailA ddress.tex t = '' the n begin
  75       if rad iobutton3. visible =  true then  begin
  76         edit OtherEmail Address.vi sible := F alse;
  77         radi obutton3.c hecked :=  true;
  78         exit ;
  79       end
  80       else b egin
  81         radi obutton1.c hecked :=  true;
  82         exit ;
  83       end;
  84     end;
  85  
  86     domain : = frmMain. Piece(edit OtherEmail Address.te xt, '@', 2 );
  87     domain2  := frmMain .Piece(dom ain, '.',  2);
  88     //domain 3:=frmMain .Piece(dom ain,'.',3) ;
  89     if (uppe rcase(doma in) <> 'VA ') and (up percase(do main2) <>  'GOV') the n begin
  90         ShowMessag eCAPRI('Yo u can only  send to a n e-mail a ddress tha t ends wit h "@ DOMAIN "');
  91       editOt herEmailAd dress.setf ocus;
  92     end;
  93   end;
  94  
  95   procedure  TfrmForwar dingAddres s.CCOWTime rTimer(Sen der: TObje ct);
  96   begin
  97     if Shutd ownCAPRIMo dalDialogs  = true th en begin
  98       CCOWTi mer.Enable d := False ;
  99       frmFor wardingAdd ress.Visib le := Fals e;
  100       Contex torChangeM essage :=  '';
  101       ModalR esult := m rCancel;
  102     end;
  103   end;
  104  
  105   procedure  TfrmForwar dingAddres s.FormActi vate(Sende r: TObject );
  106   begin
  107     CCOWTime r.Enabled  := True;
  108  
  109   end;
  110  
  111   procedure  TfrmForwar dingAddres s.FormShow (Sender: T Object);
  112   begin
  113     if (Scre enReaderAc tive = Tru e) then be gin
  114       Showme ssageCAPRI (Label1.Ca ption);
  115     end;
  116   end;
  117  
  118   end.