summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-update-tlpdb
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-11-26 19:20:50 +0000
committerKarl Berry <karl@freefriends.org>2009-11-26 19:20:50 +0000
commit5273fcd7dff0684b0cce66c6baa4b32589909357 (patch)
tree79f6c39f007d35b9129d25f0e796df603dd11747 /Master/tlpkg/bin/tl-update-tlpdb
parent4d30a52e12d8096007b9fbdae8311e7551b731e5 (diff)
(--dry-run): new option for testing.
git-svn-id: svn://tug.org/texlive/trunk@16177 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tl-update-tlpdb')
-rwxr-xr-xMaster/tlpkg/bin/tl-update-tlpdb23
1 files changed, 15 insertions, 8 deletions
diff --git a/Master/tlpkg/bin/tl-update-tlpdb b/Master/tlpkg/bin/tl-update-tlpdb
index c36dc1e0d42..375aed9bba9 100755
--- a/Master/tlpkg/bin/tl-update-tlpdb
+++ b/Master/tlpkg/bin/tl-update-tlpdb
@@ -27,19 +27,21 @@ use File::Path;
my $opt_catalogue = "";
chomp (my $opt_master = `cd $::mydir/../.. && pwd`);
my $help = 0;
-my $opt_nobinsplit = 0;
-my $opt_w32warning;
+my $opt_dry_run = 0;
+my $opt_fix_reverse_revisions = 0; # needs svn commit
my $opt_fromfiles = 0;
+my $opt_no_commit = 0; # do/don't commit the changes
my $opt_no_revision_check = 0;
-my $opt_tlpsrc_from_cmdline = 0;
+my $opt_nobinsplit = 0;
my $opt_output;
-my $opt_fix_reverse_revisions = 0; # needs svn commit
-my $opt_no_commit = 0; # do/don't commit the changes
my $opt_save_anyway = 0;
+my $opt_tlpsrc_from_cmdline = 0;
+my $opt_w32warning;
TeXLive::TLUtils::process_logging_options();
GetOptions(
"catalogue=s" => \$opt_catalogue,
+ "dry-run|n", => \$opt_dry_run,
"fix-reverse-revisions!" => \$opt_fix_reverse_revisions,
"from-files" => \$opt_fromfiles,
"master=s" => \$opt_master,
@@ -63,6 +65,14 @@ sub main
if (! -d $opt_master) {
die "$progname: Master $opt_master not a directory, goodbye.\n";
}
+
+ if ($opt_dry_run) {
+ $opt_no_commit = 1;
+ $opt_no_revision_check = 1;
+ $opt_output = "/tmp/tlut" if ! $opt_output;
+ $opt_catalogue = "/home/httpd/html/catalogue" if ! $opt_catalogue;
+ }
+
my $tlc = undef;
if (! -d $opt_catalogue) {
info ("$progname: -c /Cat/a/logue not given, continuing without it.\n");
@@ -237,9 +247,6 @@ sub create_tlpdb
info ("$progname: generating tlpdb in /tmp/tlut for @ARGV,\n");
info ("$progname: no commits, no rev check.\n");
$opt_tlpsrc_from_cmdline = 1;
- #$opt_no_commit = 1;
- #$opt_no_revision_check = 1;
- #$opt_output = "/tmp/tlut";
}
}
if (!$opt_tlpsrc_from_cmdline) {