#!/usr/bin/perl

my $dest = pop(@ARGV);
undef $/; 
$_=<> ; 
$ver=$1 if /rovidesPackage.geometry.*? v(\d\.\d)/;

if ($ver =~ /^2/) {
	system("sed -e \'s/compat2,//g\' -e \'s!..BASEDIR!$dest/}!\' diumthesis.sty > $dest/diumthesis.sty");
} else {
	system("sed -e \'s!..BASEDIR!$dest/}!\' diumthesis.sty > $dest/diumthesis.sty");
}