const DeleteAfterCopy=true;
      DeleteNoActionFiles=true;
      
      DeleteIfOlderThanDays=30;

function OnAfterFileCopy(const DirectionIsL2R:Boolean;
                         const Source,Dest,DestPath,LeftSubPath,RightSubPath:UnicodeString;
                         const ResultCode:Int64):Boolean;
begin
  Result:=true;
  if not DeleteAfterCopy or not DirectionIsL2R then
     Exit;
  Log('File Copy Complete: '+Source+', Result: '+IntToStr(ResultCode)+
      ', modified: '+DateTimeToStr(FileToCopyLeftModified));

  if FileToCopyLeftModified<NowUTC-DeleteIfOlderThanDays then begin
     Log('Source file is older than '+IntToStr(DeleteIfOlderThanDays)+' days, deleting: '+Source);
     if ConnDeleteFile(SourceConnector,Source) then
        CountDeletedFiles(1,0);
     end;
  end;


function OnSkipOrIgnoreItem(const FileName,RelativePath:UnicodeString;
                            const LExists,RExists,LisDir,RisDir:Boolean;
                            const LSize,RSize:Int64;
                            const LModified,RModified:Double):Boolean;
var WantToDeleteSourceFile:Boolean;
begin
  WantToDeleteSourceFile:=DeleteNoActionFiles and
                          LExists and RExists and 
                          not LisDir and not RisDir and
                          (LModified<NowUTC-DeleteIfOlderThanDays);

  // do not skip item if we want to delete the source file
  Result:=not WantToDeleteSourceFile; 

  if not Result then
     Log('Not skipping file older than '+IntToStr(DeleteIfOlderThanDays)+' days: '+FileName+ ' in '+RelativePath);
  end;

function OnNoActionItem(const FileName,RelativePath:UnicodeString;
                        const LExists,RExists,LisDir,RisDir:Boolean;
                        const LSize,RSize:Int64;
                        const LModified,RModified:Double):Boolean;
var WantToDeleteSourceFile:Boolean;
    FilePath:UnicodeString;
begin
  Result:=true;
  WantToDeleteSourceFile:=DeleteNoActionFiles and
                          LExists and RExists and 
                          not LisDir and not RisDir and
                          (LModified<NowUTC-DeleteIfOlderThanDays);

  if WantToDeleteSourceFile then begin
     FilePath:=ConcatPathWithDelim(ConcatPathWithDelim(LeftBasePath,RelativePath,LeftDelim),FileName,LeftDelim);
     Log('Deleting file older than '+IntToStr(DeleteIfOlderThanDays)+' days: '+FilePath);
     if ConnDeleteFile(LeftConnector,FilePath) then
        CountDeletedFiles(1,0);
     end;
  end;