#!/usr/bin/perl -w
use strict;

# Usage: mkpublictrans.pl 
#        and it expects a pwd file called smtppwd.txt in a location specified
#        below. It runs on the HostRocket Linux machine every 5 minutes
#        and copies translators' files (listed in text file(s) in the MakePublic
#        directory of each testing directory) from their testing tree to their
#        corresponding language public tree.
#
# David Harris, Version of 12 Jul 2006 pm 05:50

#
foreach $transcode (@alltrcodes) {
# Get the list(s) from that transcode:
# Read the list
# and for each line in the list
# Verify that file is there
# And copy it to the public location
# and add to a log of moves made.
}