#!/usr/bin/perl
use strict;
use warnings;
 
BEGIN {
  eval "require Path::Class; 1" or die "Please emerge dev-perl/Path-Class";
}
 
#==========VARIABLES============
 
my $gentoo_portage_profiles = "/usr/portage/profiles/";
 
my $normal_profile = "default/linux/amd64/2008.0";
 
my $fake_profile_dir = "/etc/paludis/profile-override";
 
my $fake_profile_name = "profile-faker";
 
my $override_name = "profile-override";
 
#+==============================+
 
use Path::Class qw( file dir );
 
my $g       = dir($gentoo_portage_profiles);
my $profile = $g->subdir($normal_profile);
 
printf "\nThis is the full path to your currently selected profile:\n\n\t%s\n\n", $profile;
 
my $fakeroot = dir($fake_profile_dir);
my $fakeprof = $fakeroot->subdir($fake_profile_name);
my $overprof = $fakeroot->subdir($override_name);
 
printf "Going to create these dirs:\n\n\t%s\n\n\t%s\n\n", $fakeprof, $overprof;
 
$fakeprof->mkpath(1);
$overprof->mkpath(1);
 
my $mask = $overprof->file('use.mask');
 
if ( not -e "$mask" ) {
 
  printf "Injecting a demo unmask of kdeprefix\n\n";
  {
    my $fh = $overprof->file('use.mask')->open('w');
    print {$fh} "-kdeprefix\n";
    close $fh;
  }
 
}
 
printf "Generating the profile faking\n\n";
printf "Path from fake-profile to real profile is:\n\n\t%s\n\n",     $profile->relative($fakeprof);
printf "Path from fake-profile to override profile is:\n\n\t%s\n\n", $overprof->relative($fakeprof);
 
{
  my $fh = $fakeprof->file('parent')->open('w');
  print {$fh} $profile->relative($fakeprof);
  print {$fh} "\n";
  print {$fh} $overprof->relative($fakeprof);
  print {$fh} "\n";
  close $fh;
}
 
print "All done!\n\n stick this in your /etc/paludis/repositories/gentoo.conf \n\n";
printf "\tprofiles = \${ROOT}%s\n\n", $fakeprof->absolute;