This Perl script creates backup copy of file every N minutes.

The Perl script works on the Server console.

Files:

bcpspc.pl

bcpspc.cfg

Example:

\\server\docum\wrk\home\user1\file.sxc

will be created every 15 min from 8:00 to the 21:00 files here:

\\server\docum\wrk\home\user1\bcp\yyyymmddhhmm.sxc if file.sxc is opened by user.

How to configure:

1. create folder:
   
   sys:\etc\1bcpspc

• create file
  
  sys:\etc\1bcpspc\bcpspc.cfg
  
  with info as in the attachment: bcpspc.cfg

• put file bcpspc.pl to the folder: sys:\perl\scripts

• create file: sys:\system\1bcpspc.ncf with this text:
  
  perl sys:\perl\scripts\bcpspc.pl

• Create folders for BACKUP and LOG files (as in the example this will be:)
  
  \\server\docum\wrk\home\user1\bcp
  
  \\server\docum\wrk\home\user1\bcp\log

• Create empt files:
  
  \\server\docum\wrk\home\user1\bcp\log\tfile.tsk
  
  \\server\docum\wrk\home\user1\bcp\log\lfile.tsk

• Load from the server console: TBX.NLM

• Run from the server console script:
  
  1bcpspc.ncf

This script, from the example, will create a Backup copy of file.sxc every 15 min.

This will be if file LOCK by user application.

How to stop the script:

Create the file: SYS:\bcpspc.txt

Before Run the script again, need RENAME SYS:\bcpspc.txt to the SYS:\bcpspc.tx