From f6bc14e1abf07895c34f8feb1549e34d65bf1889 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 19 Dec 2008 22:57:33 +0000 Subject: - add TLPDB->add_symlinks and TLPDB->remove_symlinks - add symlink information to tlmgr2 option - add comment if we should activate it or not git-svn-id: svn://tug.org/texlive/trunk@11657 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/tlmgr2.pl | 76 +++++++++++++++++++++++++++++++--- 1 file changed, 70 insertions(+), 6 deletions(-) (limited to 'Master/texmf') diff --git a/Master/texmf/scripts/texlive/tlmgr2.pl b/Master/texmf/scripts/texlive/tlmgr2.pl index dc6ae55ffa7..49b99664657 100755 --- a/Master/texmf/scripts/texlive/tlmgr2.pl +++ b/Master/texmf/scripts/texlive/tlmgr2.pl @@ -1685,6 +1685,14 @@ sub action_update { } } + # if the option for setting symlinks is called we create them + # SHOULD WE DO THAT OR ADD ANOTHER OPTION + # symlinks + # If we do it we have to add it to action_install and action_remove + # too!!! + # $localtlpdb->add_symlinks() if $localtlpdb->option_create_symlinks; + + # that already checks whether we actually have to do something close_w32_updater(); if (($nrupdated == 0) && ($tlmediasrc->media ne "NET") && $opts{"all"}) { @@ -1841,18 +1849,29 @@ sub action_option { $what = "show" unless defined($what); init_local_db(); if ($what =~ m/^show$/i) { - print "Default installation location (location): ", + print "Default installation location (location): ", $localtlpdb->option_location, "\n"; - print "Create formats on installation (formats): ", + print "Create formats on installation (formats): ", ($localtlpdb->option_create_formats ? "yes" : "no"), "\n"; - print "Install documentation files (docfiles): ", + print "Install documentation files (docfiles): ", ($localtlpdb->option_install_docfiles ? "yes": "no"), "\n"; - print "Install source files (srcfiles): ", + print "Install source files (srcfiles): ", ($localtlpdb->option_install_srcfiles ? "yes": "no"), "\n"; - print "Directory for backups (backupdir): ", + print "Create symlinks (symlinks): ", + ($localtlpdb->option_create_symlinks ? "yes": "no"), "\n"; + print "Destination for symlinks for binaries (sys_bin): ", + $localtlpdb->option_sys_bin, "\n" + if $localtlpdb->option_sys_bin; + print "Destination for symlinks for man pages (sys_man): ", + $localtlpdb->option_sys_man, "\n" + if $localtlpdb->option_sys_man; + print "Destination for symlinks for info docs (sys_info): ", + $localtlpdb->option_sys_info, "\n" + if $localtlpdb->option_sys_info; + print "Directory for backups (backupdir): ", $localtlpdb->option("backupdir"), "\n" if $localtlpdb->option("backupdir"); - print "Number of backups to keep (autobackup): ", + print "Number of backups to keep (autobackup): ", $localtlpdb->option("autobackup"), "\n" if $localtlpdb->option("autobackup"); } elsif ($what =~ m/^location$/i) { @@ -1913,6 +1932,51 @@ sub action_option { print "Create formats on installation: ", $localtlpdb->option_create_formats, "\n"; } + } elsif ($what =~ m/^symlinks$/i) { + # changes the default symlinks + my $loc = shift @ARGV; + if (defined($loc)) { + print "Defaulting to", ($loc ? "" : " not"), + " create symlinks in system paths.\n"; + $localtlpdb->option_create_symlinks($loc); + $localtlpdb->save; + } else { + print "Create symlinks in system paths on installation: ", + $localtlpdb->option_create_symlinks, "\n"; + } + } elsif ($what =~ m/^sys_man$/i) { + # changes the default sys_man + my $loc = shift @ARGV; + if (defined($loc)) { + info ( "Setting default destination for symlinks to man pages to $loc\n"); + $localtlpdb->option_sys_man ($loc); + $localtlpdb->save; + } else { + print "Default destination for symlinks to man pages: ", + $localtlpdb->option_sys_man, "\n"; + } + } elsif ($what =~ m/^sys_info$/i) { + # changes the default sys_info + my $loc = shift @ARGV; + if (defined($loc)) { + info ( "Setting default destination for symlinks to info pages to $loc\n"); + $localtlpdb->option_sys_info ($loc); + $localtlpdb->save; + } else { + print "Default destination for symlinks to info pages: ", + $localtlpdb->option_sys_info, "\n"; + } + } elsif ($what =~ m/^sys_bin$/i) { + # changes the default sys_bin + my $loc = shift @ARGV; + if (defined($loc)) { + info ( "Setting default destination for symlinks to binaries to $loc\n"); + $localtlpdb->option_sys_bin ($loc); + $localtlpdb->save; + } else { + print "Default destination for symlinks to binaries: ", + $localtlpdb->option_sys_bin, "\n"; + } } elsif (member($what, @AllowedConfigOptions)) { # for all further options not handled till now we check that they # appear in the list of allowed options and if they do, we set/read -- cgit v1.2.3