first work on rollback, needs adjustments in TLPOBJ.pm

git-svn-id: svn://tug.org/texlive/trunk@8046 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 17 insertions, 0 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index c99159b7743..bb7c3bb3e62 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -438,9 +438,11 @@ sub action_update {
   my $opt_nodepends = 0;
   my $opt_dry = 0;
   my $opt_all = 0;
+  my $opt_rollback;
   Getopt::Long::Configure(qw(no_pass_through));
   GetOptions("no-depends" => \$opt_nodepends,
              "all" => \$opt_all,
+             "rollback=s" => \$opt_rollback,
              "dry-run" => \$opt_dry) or pod2usage(2);
   my %ret;
   $tlmediasrc = TeXLive::TLMedia->new($location);
@@ -472,6 +474,21 @@ sub action_update {
         # first remove the package, then reinstall it
         # this way we get rid of useless files
         # force the deinstallation since we will reinstall it
+        if ($opt_rollback) {
+          printf STDERR "rollback not implemented by now!!!\n";
+          if (0) {
+          if (! -d $opt_rollback) {
+            printf STDERR "rollback argument must be an existing directory!\n";
+          } else {
+            # TODO TODO TODO
+            # we need to change TLPOBJ so that it uses the same style
+            # as TLMedia with $::progs etc etc etc !!!!!!!!!!!!!!!!!
+            my $tlp = $localtlpdb->get_package($pkg);
+            $tlp->make_container("lzma", $localtlpdb->root, 
+                               $opt_rollback, "$pkg_" . $tlp->revision);
+            }
+          } # if 0, must be removed later
+        }
         merge_into(\%ret, &remove_package($pkg, $localtlpdb, 1));
         merge_into(\%ret, $tlmediasrc->install_package($pkg, $localtlpdb, $opt_nodepends, 1));
       }