Log in

View Full Version : .70 and CCE 2.7 Workaround


dotcom
30th January 2005, 00:23
Currently since .72 is not public I have created a workaround temporarily so that people can batch process there items. Not sure that anyone would like to use them but heres the instructions.


Unzip these two files into whatever directory you wish to store them. I have put them in the base directory in this scenario.

1. Install Perl (ActivePerl has this for free at there site.)
2. Open Batch file attached and change the directory to where you have perl installed. If using default install should be just as written already.

ie. (c:\perl\bin\perl ccepl.pl "E:\temp\DVDRB Working2" "C:\Program Files\Custom Technology\Cinema Craft Encoder SP 2.7\cctspt.exe")

The first parameter for the perl script in the batch file is the directory location of the DVD Rebuilder Working Path. The second paramter is the location of your CCE executable.

3. Once installed in the Setup section of DVD Rebuilder for the CCE SP you would point that to the batch file you modified above

From there it should do the work needed.

dotcom
30th January 2005, 00:30
Well I tried to attach the zip file but doesnt seem to show up.

You can create it yourself with notepad.

ccestart.bat

c:\perl\bin\perl ccepl.pl "E:\temp\DVDRB Working2" "C:\Program Files\Custom Technology\Cinema Craft Encoder SP 2.7\cctspt.exe"


ccepl.pl

!#/perl/bin/perl
open(IF, "<$ARGV[0]\\d2vavs\\item.ecl");
open(OF, ">$ARGV[0]\\d2vavs\\item2.ecl");
$count = 0;
print "Patching ecl file\n";
while(<IF>)
{
$count = $count + 1;
if($count == 1){
}
elsif($count == 2){
print OF "; CCE SP Trial Version -- Encoder Control List\n";
}
else{
print OF $_;
}
}
close(IF);
close(OF);

system("xcopy /Y \"$ARGV[0]\\d2vavs\\item2.ecl\" \"$ARGV[0]\\d2vavs\\item.ecl\"");
print "Starting CCE $ARGV[1]\n";
system("\"$ARGV[1]\" -batch -ecl \"$ARGV[0]\\d2vavs\\item.ecl\"");

dotcom
31st January 2005, 19:51
I just noticed I have a change that will reduce a few calls. Probably wont make much difference system wise but instead of copying back to original you can just send the new ECL to the CCE program.


Steve

Replace the last 3 lines with this in the .pl file.
[code]
print "Starting CCE $ARGV[1]\n";
system("\"$ARGV[1]\" -batch -ecl \"$ARGV[0]\\d2vavs\\item2.ecl\"");
[\code]

jdobbs
31st January 2005, 20:04
Does this fix also adjust the quality_prec= parameter -- it needs to be adjusted to 156% of it's specified value (the scale changed back from 0-64 to 0-100).

dotcom
1st February 2005, 01:25
I will have a new update with this change in it.

dotcom
1st February 2005, 01:38
Replace your ccepl.pl with this code. I have also attached new zip file with the change.


!#/perl/bin/perl

open(IF, "<$ARGV[0]\\d2vavs\\item.ecl");
open(OF, ">$ARGV[0]\\d2vavs\\item2.ecl");
$count = 0;
print "Patching ecl file\n";
while(<IF>)
{

$count = $count + 1;
if($count == 1){

}
elsif($count == 2){
print OF "; CCE SP Trial Version -- Encoder Control List\n";
}
else{
if($_ =~ m/quality_prec=(.*)/)
{
$newquality = $1 * 1.56;
$newquality = sprintf("%d", $newquality);
print OF "quality_prec=$newquality\n";
}
else{
print OF $_;
}


}





}
close(IF);
close(OF);

print "Starting CCE $ARGV[1]\n";
system("\"$ARGV[1]\" -batch -ecl \"$ARGV[0]\\d2vavs\\item2.ecl\"");





EDITED Forgot to round to even number...

dotcom
1st February 2005, 01:56
The zip file.