Auto-refreshing FTP-mirror utility.
perl gus_ftp_mirror.pl
Auto-maintain a constantly-fresh FTP mirror of one or more files from a list.
Fatigue and durability testing is peformed by computer-controlled servohydraulic test stands that run 24/7. Often they run unobserved during 3rd shift and on weekends. The author needed to obtain their status remotely. Corporate IT policy restricted the firewall such that only FTP and SMTP availed for the purpose. I have scripts for both of these. This is the one for FTP. It works by maintaining an ever-fresh mirror of each test rig's status and log files on the corporate FTP server.
- Step Zero
-
Configure this script with your own defaults, the ones which you want to be true nearly all of the time. Find this near the top between the lines clearly labled: Begin/End stuff the user ought to configure.
- Step One
-
Run this script on whatever PC has the files you want to mirror.
- Step Two
-
The start-up window allows you to session-configure two things right away: (1) The header which you may want to be different if two or more instances of this script run on the same PC; (2) The minimum number of files that you expect to mirror. Then continue.
- Step Two
-
The start-up window will close and a new one will open with one or more rows (however many you chose at startup). At left on each row, type or browse to the file which you want mirrored. At right on each row, type a name for the mirrored file (or click Same).
- Step Three (optional)
-
If you need more rows, pull down the Configure menu and select New bottom row. If you want to depart from the built-in configs, from that same menue click Configure defaults.
- Step Four
-
Click at will the appropriate button to start or pause the mirroring process. Every N minutes the script will check on files in the left hand column. If any have changed, those will be mirrored to the FTP server under its alias-name from the right hand column. The reason for this aliasing is that on the source PC default named files are segregated in different paths, whereas on the FTP server they must share the same default path.
- Win32 OS
-
This script runs on Win32 [replace my use of Active State's
openFileDialog() to fix that].
- MultiPuprose TestWare software by MTS.
-
Not really requisite. It's just that I mostly configured defaults for use with that. You can undo them quite easily.
Perl script gus_mpt_ftp_get.pl for use in concert to download files. Perl script gus_mpt_ftp_put.pl for use in concert or as an alternative.
Gan Uesli Starling <gan@starling.us>
Copyright (c) 2004, Gan Uesli Starling. All rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Misc