diff options
author | Norbert Preining <preining@logic.at> | 2017-05-01 19:44:08 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2017-05-01 19:44:08 +0000 |
commit | 2cdf469e54f3d9b21b305c75678577575149162f (patch) | |
tree | 87c2ef93eebb68d5a7c0502ddf3c4a9d56f9269c /Master/tlpkg/bin/tl-update-tlpdb | |
parent | 4e052b859bb3960916f2f41af1dfc6a49adb8916 (diff) |
TLTREE: support git/svn and git directly
git-svn-id: svn://tug.org/texlive/trunk@44137 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tl-update-tlpdb')
-rwxr-xr-x | Master/tlpkg/bin/tl-update-tlpdb | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/Master/tlpkg/bin/tl-update-tlpdb b/Master/tlpkg/bin/tl-update-tlpdb index 562da3af3e8..f8d95726b5e 100755 --- a/Master/tlpkg/bin/tl-update-tlpdb +++ b/Master/tlpkg/bin/tl-update-tlpdb @@ -31,6 +31,8 @@ my $help = 0; my $opt_dry_run = 0; my $opt_fix_reverse_revisions = 0; # needs svn commit my $opt_fromfiles = 0; +my $opt_fromgit = 0; +my $opt_fromgitsvn = 0; my $opt_no_commit = 0; # do/don't commit the changes my $opt_no_revision_check = 0; my $opt_nobinsplit = 0; @@ -48,6 +50,8 @@ GetOptions( "fix-reverse-revisions!" => \$opt_fix_reverse_revisions, "keep-revisions" => \$opt_keep_revisions, "from-files" => \$opt_fromfiles, + "from-git" => \$opt_fromgit, + "from-gitsvn" => \$opt_fromgitsvn, "master=s" => \$opt_master, "no-bin-split!" => \$opt_nobinsplit, "no-commit!" => \$opt_no_commit, @@ -70,6 +74,10 @@ sub main { die "$progname: Master $opt_master not a directory, goodbye.\n"; } + if ($opt_fromfiles + $opt_fromgit + $opt_fromgitsvn > 1) { + die "$progname: only one option --from[lines|git|gitsvn] can be given.\n"; + } + $opt_catalogue = "/home/httpd/html/catalogue" if ! $opt_catalogue; @@ -317,6 +325,10 @@ sub create_tlpdb { my $tltree = TeXLive::TLTREE->new ("svnroot" => $opt_master); if ($opt_fromfiles) { $tltree->init_from_files; + } elsif ($opt_fromgit) { + $tltree->init_from_git; + } elsif ($opt_fromgitsvn) { + $tltree->init_from_gitsvn; } else { $tltree->init_from_svn; } |