#!/usr/bin/perl -w
use strict;
no strict "vars";
#
#  copy1file 
#  To copy 1 file from a tree to the same position on another parallel tree
#
#  Usage:  copy1file srctree destree filename
#
#  Version of 2007 Mar 22 pm 5:05
#
#  THIS Perl FILE IS MEANT TO RUN ON THE LINUX  HOST COMPUTER WHERE THE system()
#  commands are the way these are used below.  -dch
#
#
if ($#ARGV+1 != 3) {
  die "copy1file needs <sourcelang>, <destlang>, <filename> as arguments\n";
  };
# Check existence of the source file:
(open SRCFILE, "</home/darwind/public_html/$ARGV[0]/$ARGV[2]") or die "copy1file: /home/darwind/public_html/$ARGV[0]/$ARGV[2]) not found.\n";
@args = "cp /home/darwind/public_html/$ARGV[0]/$ARGV[2]  /home/darwind/public_html/$ARGV[1]/$ARGV[2]";
system(@args) == 0
  or die "system @args failed: $?";
print "Exiting!\n";
close STDOUT;
exit;