diff options
author | Norbert Preining <preining@logic.at> | 2008-03-17 12:23:47 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-03-17 12:23:47 +0000 |
commit | 6115117d6486cc4249133b5404bfcdeafb26df40 (patch) | |
tree | cb57ba0147f76e7ddcf7c8081f6dbb5d69ac2f5f /Master/install-tl.pl | |
parent | 704adeb59d63b6af1f89d2e8da771ae3e603cf2e (diff) |
uninstaller work
git-svn-id: svn://tug.org/texlive/trunk@6982 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/install-tl.pl')
-rwxr-xr-x | Master/install-tl.pl | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/Master/install-tl.pl b/Master/install-tl.pl index 72d7fe42dcf..8197dce0237 100755 --- a/Master/install-tl.pl +++ b/Master/install-tl.pl @@ -362,6 +362,8 @@ sub do_installation { &$h(); } do_postinst_stuff(); + save_options_into_tlpdb(); + $localtlpdb->save; foreach my $h (@::end_install_hook) { &$h(); } @@ -707,6 +709,40 @@ sub do_install_packages { install_packages($tlpdb,$localtlpdb,\@what,\@netarchs,$vars{'option_src'},$vars{'option_doc'}); } +# for later complete removal we want to save some options and values +# into the local tlpdb: +# - should links be set, and if yes, the destination (bin,man,info) +sub save_options_into_tlpdb { + my $tlp = new TeXLive::TLPOBJ; + $tlp->name("00texlive-installation.config"); + $tlp->category("TLCore"); + my @deps; + if ($vars{'option_letter'}) { + push @deps, "option_letter"; + } + if ($vars{'option_fmt'}) { + push @deps, "option_fmt"; + } + if ($vars{'option_symlinks'}) { + push @deps, "option_symlinks"; + push @deps, "sys_bin/$vars{'sys_bin'}"; + push @deps, "sys_info/$vars{'sys_info'}"; + push @deps, "sys_man/$vars{'sys_man'}"; + } + if ($vars{'option_doc'}) { + push @deps, "option_doc"; + } + if ($vars{'option_src'}) { + push @deps, "option_src"; + } + push @deps, "TEXDIR/$vars{'TEXDIR'}"; + push @deps, "TEXMFSYSVAR/$vars{'TEXMFSYSVAR'}"; + push @deps, "TEXMFLOCAL/$vars{'TEXMFLOCAL'}"; + push @deps, "TEXMFHOME/$vars{'TEXMFHOME'}"; + $tlp->depends(@deps); + $localtlpdb->add_tlpobj($tlp); + $localtlpdb->save(); +} # do_postinst_stuff has to fix up the texmf tree and install some missing # files. The things to do are taken from the install-live.sh installer |