fix release year in tlmgrgui and update-w32.bat

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

2 files changed, 10 insertions, 7 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl
index cc031b1c224..19f73a554e8 100755
--- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl
@@ -18,6 +18,7 @@ use Tk::Balloon;
 use TeXLive::Splashscreen;
 
 use TeXLive::TLUtils qw(setup_programs platform_desc win32 debug);
+use TeXLive::TLConfig;
 
 our $Master;
 our $tlmediatlpdb;
@@ -72,10 +73,10 @@ $TRANS{'en'} = {
   papersettings => "Paper settings",
   pressbutton   => "Press this button to load the database from the specified location.",
   quit          => "Quit",
-  reallyremove  => "Really remove the complete TeX Live 2008 installation?\nYour last chance to change your mind!",
+  reallyremove  => "Really remove the complete TeX Live $TeXLive::TLConfig::ReleaseYear installation?\nYour last chance to change your mind!",
   remove        => "Remove",
   removesel     => "Remove selected",
-  removetl      => "Remove TeX Live 2008",
+  removetl      => "Remove TeX Live $TeXLive::TLConfig::ReleaseYear",
   rempkg        => "Removing packages",
   search        => "Search",
   remarchnotpos => "Select architectures to be added (removal not possible)",
@@ -212,7 +213,7 @@ if (defined($LANG) && (-r "$Master/texmf/scripts/texlive/tlmgrgui/lang/$LANG"))
 our @update_function_list;
 
 our $mw = MainWindow->new;
-$mw->title("TeX Live Manager 2008");
+$mw->title("TeX Live Manager $TeXLive::TLConfig::ReleaseYear");
 $mw->withdraw;
 
 # create a progress bar window
@@ -269,7 +270,9 @@ our $about = $top->Button(-text => ___"about",
                             -buttons => [ ___"ok" ]);
     $sw->add("Label", -text => "TeX Live Manager
 $tlmgrrev
-Copyright 2008 Tomasz Luczak, Norbert Preining
+Copyright 2008 Tomasz Luczak
+Copyright 2008, 2009 Norbert Preining
+
 License under the GNU General Public License version 2 or higher
 In case of problems, please contact: texlive\@tug.org"
       )->pack(-padx => "3m", -pady => "3m");
diff --git a/Master/texmf/scripts/texlive/updater-w32.bat b/Master/texmf/scripts/texlive/updater-w32.bat
index 163138bd2a7..691121e79fb 100644
--- a/Master/texmf/scripts/texlive/updater-w32.bat
+++ b/Master/texmf/scripts/texlive/updater-w32.bat
@@ -115,7 +115,7 @@ if errorlevel 1 goto :rollback
 call :foreachpkg incltlpobj "%tlroot%\tlpkg\tlpobj\" %pkgpartslist%
 if errorlevel 1 goto :rollback
 call :foreachpkg updateinfo "update" %pkglist%
-call :printmsg%guimode% "TeX Live infrastructure update complete." 0 "TeX Live Manager 2008"
+call :printmsg%guimode% "TeX Live infrastructure update complete." 0 "TeX Live Manager 2009"
 set exitcode=0
 goto :finish
 
@@ -127,13 +127,13 @@ if errorlevel 1 goto :panic
 call :foreachpkg incltlpobj "%tlroot%\tlpkg\tlpobj\" %pkglist%
 if errorlevel 1 goto :panic
 call :foreachpkg restoreinfo "restore" %pkglist%
-call :printmsg%guimode% "TeX Live infrastructure update failed.\nPrevious version has been restored." 16  "ERROR: TeX Live Manager 2008" >&2
+call :printmsg%guimode% "TeX Live infrastructure update failed.\nPrevious version has been restored." 16  "ERROR: TeX Live Manager 2009" >&2
 set exitcode=1
 goto :finish
 
 :panic
 call :foreachpkg restoreinfo "failed restore" %pkglist% >&2
-call :printmsg%guimode% "TeX Live infrastructure update failed and backup recovery failed as well.\nYour TeX Live installation may be broken, to repair it download and run:\nhttp://mirror.ctan.org/systems/texlive/tlnet/2008/update-tlmgr-latest.exe" 16 "FATAL ERROR: TeX Live Manager 2008" >&2
+call :printmsg%guimode% "TeX Live infrastructure update failed and backup recovery failed as well.\nYour TeX Live installation may be broken, to repair it download and run:\nhttp://mirror.ctan.org/systems/texlive/tlnet/update-tlmgr-latest.exe" 16 "FATAL ERROR: TeX Live Manager 2009" >&2
 rem Evil has taken over - emit adequate exit code
 exit /b 666