#!/usr/bin/perl
# $Id: activate-mfxtk 26674 2012-08-31 16:16:44Z vchepkov $

use strict;
use LWP::Simple;

unless (@ARGV > 0) {
  print STDERR "Usage: $0 path-to-license-file\n";
  exit(0);
}

unless (defined($ENV{APL_VAR})) {
  print STDERR "Environment variable APL_VAR is not defined\n";
  exit(1);
}

my $mkftklicense=$ENV{APL_VAR}."/license/opencube.mxftk.license.lcs";
my $mkftkoption=$ENV{APL_VAR}."/license/opencube.mxftk.option-avid.license.lcs";

my $url = $ARGV[0];

my $license;

if ($url =~ m@^(http|ftp)s?://@) {
  $license = get($url);
  die "Couldn't retrieve license file" unless defined $license;
} else {
  local $/=undef;
  open FILE, $url or die "Couldn't open file: $!";
  $license = <FILE>;  
  close FILE;
}

if ($license =~ m@MXFTK_SDK/.*#\s+(\S+)\s*]@) {
  open FILE, ">$mkftklicense" or die "Couldn't write into $mkftklicense: $!";
  print FILE $1,"\n";
  close FILE or die "Couldn't close $mkftklicense: $!";
} else { 
  print STDERR "MXFTK_SDK key not found\n";
}

if ($license =~ m@MXFTK_SDK_OPTION_AVID/.*#\s+(\S+)\s*]@) {
  open FILE, ">$mkftkoption" or die "Couldn't write into $mkftkoption: $!";
  print FILE $1,"\n";
  close FILE or die "Couldn't close $mkftkoption: $!";
} else { 
  print STDERR "MXFTK_SDK_OPTION_AVID key not found\n";
}
