From 5273fcd7dff0684b0cce66c6baa4b32589909357 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 26 Nov 2009 19:20:50 +0000 Subject: (--dry-run): new option for testing. git-svn-id: svn://tug.org/texlive/trunk@16177 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/tl-update-tlpdb | 23 +++++++++++++++-------- 1 file changed, 15 insertions(+), 8 deletions(-) (limited to 'Master/tlpkg/bin/tl-update-tlpdb') 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) { -- cgit v1.2.3