diff options
author | Karl Berry <karl@freefriends.org> | 2009-11-26 19:20:50 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2009-11-26 19:20:50 +0000 |
commit | 5273fcd7dff0684b0cce66c6baa4b32589909357 (patch) | |
tree | 79f6c39f007d35b9129d25f0e796df603dd11747 /Master/tlpkg/bin/tl-update-tlpdb | |
parent | 4d30a52e12d8096007b9fbdae8311e7551b731e5 (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-x | Master/tlpkg/bin/tl-update-tlpdb | 23 |
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) { |