Moving files from a watched folder/directory

I need a perl script to move files from a watched folder/directory to a holding directory on another machine. My requirements are:

the watched folder will have its contents processed every hour (i intend to use cron to do this)

the script processes each file one at at time but only if the file is complete (files may still be being copied to the directory over a wireless network, maybe use a date stamp, files older than 120sec or EOF?) and moves each file to a remote holding directory on another computer

The code i've attached is a script used by a program called TWiST as a custom move. The    #Transfer pdf command       i need to use BUT with tweeks as it triggers database actions on the receiving server. The files can be anything from pdfs to eps images.

Thanks in advance

#!/usr/bin/perl
 
use File::Basename;
 
# Input of variables from TWiST
 
# Source file
$src = $ARGV[0];
 
# Host        can we replace $ARGV[1] with the ip address of or destination server
$host = $ARGV[1];
 
# Destination file
$dest = $ARGV[2];
 
# User name
$user = "xxxxxxx"; #will fill in with user
 
# User password
$passwd = "xxxxxx"; #will fill in with users password
 
# Calc dirs
$src_dir = dirname($src);
$src_file = basename($src);
 
$dest_dir = dirname($dest);
 
# Set Variables      how to put a destination directory here eg  /RAID/holding/sort
$dest_dir =~ s/ /%20/g;
 
# Transfer pdf command
$send_pdf = "cd \"$src_dir\"; /usr/bin/curl " . "-F \"overwrite=1\" " . "-F \"filedata=\@$src_file\" " . "-u $user:$passwd " . " -s \"http://$host/webnative/upload?$dest_dir\" ";
# any need to use   \"cd \"$src_dir\";
 
# Send the pdf to the server
system (" $send_pdf > /tmp/send_pdf ");

Select allOpen in new window