summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-update-tlpdb
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2017-05-01 19:44:08 +0000
committerNorbert Preining <preining@logic.at>2017-05-01 19:44:08 +0000
commit2cdf469e54f3d9b21b305c75678577575149162f (patch)
tree87c2ef93eebb68d5a7c0502ddf3c4a9d56f9269c /Master/tlpkg/bin/tl-update-tlpdb
parent4e052b859bb3960916f2f41af1dfc6a49adb8916 (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-xMaster/tlpkg/bin/tl-update-tlpdb12
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;
}