#!/usr/bin/perl

# Set this to 1 or 0 to use different licenses.
my $GPL = 1;

$version = `head README -n 7 | grep v`;
chomp $version;
$version =~ /v(\d.*\w)/;
$version = $1;
$name = "tclink-$version-php";

`mkdir $name`;
#`mkdir $name/doc`;
#`cp ../../doc/user/TC_Developers_Guide_v2.8.pdf $name/doc/`;
#`cp ../../doc/user/TC_Developers_Guide_v2.8.html $name/doc/`;
`cp -f \`cat MANIFEST | grep -v TCDevGuide\` $name`;

if (!$GPL) { `rm -f $name/LICENSE`; }

filelicense("$name/tclink.c");
filelicense("$name/tclink.h");

`tar czvf $name.tar.gz $name`;
`rm -rf $name`;

print  "$name.tar.gz packed\n";
exit 0;

######################################

sub filelicense
{
	my $file = shift @_ || die "no file passed to filelicense";

	my $licfile = $ENV{HOME} . "/tc/clients/C/header-" . ($GPL ? "GPL" : "nonGPL");
	my $license = loadfile($licfile);

	my $text = loadfile($file);
	$text =~ s/.*__LICENSE_HEADER__.*\n/$license/g;

	open F,">$file";
	print F $text;
	close F;
}

sub loadfile
{
	my $file = shift @_ || die "no file passed to loadfile";
	die "cant open $file" unless (-f $file);
	open F,"<$file";
	my @tmp = <F>;
	close F;
	return join "",@tmp;
}

