###################################################
#
# createServerOTs.pl
# authored by Eric Sebesta (esebesta@soe.sony.com
#
# Purpose: When run in a directory, it generates, and submits to
#          perforce a basic set of object templatesbased on the files in the
#          directory, which must be appearances.
#          The user must pass in client and server tdf files so that we can
#          generate object templates appropriate for the given appearances.
#
###################################################

use Cwd;

#initialize an array with all the possible extensions a valid appearance would have
#we use this array to check that a given file is actually an appearance
#@appearanceExtensions = (".lod", ".cmp", ".msh", ".sat");

#the template compiler must be run from the area where the tpf files should live, so make
#sure they are in a currently accepted location for them
$requiredSourceDir = "plt.shared\loc.shared\compiled\game\object";
$requiredSourceDirFront = "plt.shared/loc.shared/compiled/game/object";

#users must pass in 3 parameters, the appearance directory and the tdf file used to generate the tpfs
if (scalar(@ARGV) != 3)
{
    die "usage: createServerOTs <clientTemplateRelative dir, i.e. \"tangible\"> <appearance dir> <TDF> \nRequire 2 parameters, received $numArgs\n";
}

#if(!cwd() =~ "sys.server")
#{
#	die "must be in server template directory!\n";
#}

#TODO this isn't working?
#check the current directory against the required ones
if(!cwd() =~ $requiredSourceDir)
{
    if(!cwd() =~ $requiredSourceDirFront)
    {
        print "not in correct dir, must be in dsrc\"\\<blah blah blah>\\game\\object\" or below\n";
        die;
    }
}

#get the various command line parameters
my $clientTemplateRelativeDir = $ARGV[0];
print "client relative directory is $clientTemplateRelativeDir\n";

my $appearanceDir = $ARGV[1];
print "appearance directory is $appearanceDir\n";

$TDF = $ARGV[2];
print "Tdf is $TDF\n";

#we're all done with initial listing, delimite with a line
print "\n";

#make sure the appearance directory exists before proceeding, since we'll want to open all those files
#-e $appearanceDir or die "ERROR: appearance directory does not compute, I mean exist\n";

#read the files from the current directory
opendir CURRENTDIR, $appearanceDir or die "ERROR: can't read current directory, bad: $1";
my @files = readdir CURRENTDIR;
closedir CURRENTDIR;

#process each file, building, editing, compiling, and submitting the tpf and iff file
foreach $file (@files)
{
  print "processing $file...\n";

  createOT($file);

  #one line seperator between files
  print "\n";
}

############################################################################
sub createOT     #11/08/01 10:58:AM
############################################################################
{
  #the new server template name is passed in as a parameter
  my $fileName = @_[0];

  #turn the filename into a short server template name (i.e. remove any pathing info and remove the extension)
  $fileName =~ m/^(.*)\./;
  my $base = $1;

  my @args = ("templateCompiler", "-generate", $TDF, $base);
  print "@args...";
  if(system(@args) != 0)
  {
    print "\ncouldn't run templatecompiler for template, skipping)";
    return;
  }
  else
  {
    print "success\n";
  }

  #now get the actual iff filename
  my $templateSourceFileName = $base . ".tpf";
  my $compiledClientFileName = $base . ".iff";

  #the base template has been generated, now fill in the client template name
  my $TEMPLATE = $templateSourceFileName;
  if (-e $TEMPLATE)
  {
    #build the new line we want to write (the new appearance name
    $newLine = "clientTemplate = \"" . $clientTemplateRelativeDir . "\\" . $compiledClientFileName . "\"\n";
    #open the new tpf file for read, so we can set the appearance name
    open (TEMPLATE, '<' . $templateSourceFileName) or die "failed to open original tpf file for editing\n";
    #open a temporary file for us to write the new contents into
    my $tempPathname = $templateSourceFileName . '.tmp';
    open (TEMP, '>' . $tempPathname) or die "failed to open dest filename for writing [$destPathname]\n";

    #search the tpf the appearance line
    while ($line = <TEMPLATE>)
    {
        if($line =~ "clientTemplate =")
        {
            #output our new line with the client template name
            print TEMP $newLine;
        }
        else
        {
          #otherwise, write back out the original contents
          print TEMP $line;
        }
    }
    #close all filehandles
    close TEMPLATE;
    close TEMP;

    # rename dest filename to source filename, clobbering the original source
    rename $tempPathname, $templateSourceFileName;
  }

  @args = ("templateCompiler", "-compile", $templateSourceFileName);
  print "@args...";
  if(system(@args) != 0)
  {
    print "\ncouldn't run templatecompiler -compile for template, skipping)";
    return;
  }
  else
  {
    print "success\n";
  }

  @args = ("templateCompiler", "-submit", $templateSourceFileName);
  print "@args...";
  print "not run\n";
  #if(system(@args) != 0)
  #{
  #  print "couldn't run templatecompiler -submit for client template, skipping)";
  #  return;
  #}
  #else
  #{
  #  print "success\n";
  #}
}  ##createOT