#!/opt/bin/perl -w

use strict;
use Getopt::Long;

my $clientname;
my $fdgid;

GetOptions ("clientname" => \$clientname,      # client name for directory
            "fdgid" => \$fdgid);                # client Filedrive GID number


mkdir "/home/jlk/tmp/data/stuff/archive/$clientname",0002;
mkdir "/home/jlk/tmp/data/stuff/archive/$clientname/tmp",0002;
mkdir "/home/jlk/tmp/data/stuff/archive/$clientname/not_proc",0002;
mkdir "/home/jlk/tmp/data/stuff/archive/$clientname/enc_arch_files",0002;
mkdir "/home/jlk/tmp/data/stuff/archive/$clientname/enc_arch_files/incoming",0002;

mkdir "/home/jlk/tmp/data/stuff/$fdgid/users/incoming",0002;
mkdir "/home/jlk/tmp/data/stuff/$fdgid/users/incoming/$clientname",0002;
mkdir "/home/jlk/tmp/data/stuff/$fdgid/users/outgoing",0002;
mkdir "/home/jlk/tmp/data/stuff/$fdgid/users/outgoing/history",0022;

system ("touch /home/jlk/tmp/data/stuff/archive/$clientname/$clientname.log");
system ("touch /home/jlk/tmp/data/stuff/archive/$clientname/${clientname}_ack.log");

chmod 0111, '/home/jlk/tmp/data/stuff/archive/$clientname/$clientname.log';
chmod 0111, '/home/jlk/tmp/data/stuff/archive/$clientname/${clientname}_ack.log';