mux-garo.pl

#!/usr/bin/perl

$len = $#ARGV + 1;

if($len < 2)
{
    print("Usage: mux-garo.pl RAW SCRIPT\n$len\n");
    exit(1);
}

$rawIn = $ARGV[0];
$scriptIn = $ARGV[1];

if($rawIn =~ /\[[A-Z]+\] GARO MakaiSenki - (\d{2}) \[[0-9A-F]{8}\]\.mkv/)
{
    $epNum = $1;
}
else
{
    print "$rawIn didn't match, are you sure you're feeding me a GARO raw?\n";
    exit(1);
}

$outName = "[O-T-MCS] GARO MakaiSenki - $epNum";

`"mkvmerge" -o "$outName.mkv"  "--language" "1:jpn" "--default-track" "1:yes" "--forced-track" "1:no" "--display-dimensions" "1:1280x720" "--language" "2:jpn" "--default-track" "2:yes" "--forced-track" "2:no" "-a" "2" "-d" "1" "--attachments" "1,2,3,4,5" "-S" "-T" "--no-global-tags" "$rawIn" "--language" "0:eng" "--default-track" "0:yes" "--forced-track" "0:no" "-s" "0" "-D" "-A" "-T" "--no-global-tags" "--no-chapters" "$scriptIn" "--track-order" "0:1,0:2,1:0"`;

`mv "$scriptIn" "$outName.ass"`;
`./underscore.pl "$outName.ass"`;

`./crc.pl "$outName.mkv"`;

@mkvs = <*.mkv>;

foreach (@mkvs) {
    if (index($_,$outName) > -1) {
        $crcOut = $_;
        break;
    }
}

`./underscore.pl "$crcOut"`;

$crcOut =~ s/ /_/g;

`xdelta3 -e -s "$rawIn" "$crcOut" ms$epNum.patch`;

open (BAT, ">ms$epNum.RUNME.bat");
print BAT "xdelta3.exe -d ms$epNum.patch\r\n\@pause\r\n";
close(BAT);

$zipOut = "ms$epNum" . "patch.zip";

`zip -r $zipOut ms$epNum.*`;