summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2012-05-31 08:16:00 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2012-05-31 08:16:00 +0000
commit165a8f158f50783176b4f9bd5a9ef43b0ed3f8ef (patch)
tree5ae3ca9465ff4e394e3746d200626d877e84ccca /Master/tlpkg/installer/install-menu-perltk.pl
parentbe1e9af1090f20ecf70d19a27f9f2b6d611fd4c6 (diff)
Perltk installer: warnings about antivirus and admin rights
git-svn-id: svn://tug.org/texlive/trunk@26739 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl30
1 files changed, 30 insertions, 0 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl
index c3f7cae702d..8d7cf6a3248 100644
--- a/Master/tlpkg/installer/install-menu-perltk.pl
+++ b/Master/tlpkg/installer/install-menu-perltk.pl
@@ -549,10 +549,40 @@ Please select a different mirror.', $TeXLive::TLConfig::ReleaseYear, $texlive_re
$subframe->pack(-expand => 1, -fill => "both");
$mainwindow->configure(-height => $rh, -width=>$rw);
#$mw->pack(-expand => 1, -fill => "both");
+
+ pre_warn($mainwindow) if win32();
+
Tk::MainLoop();
return($return);
}
+sub pre_warn() {
+ my $parent = shift;
+ require TeXLive::TLWinGoo;
+ my $pre_warning = $parent->Toplevel();
+ $pre_warning->title(
+ __("TeX Live %s Installation", $TeXLive::TLConfig::ReleaseYear));
+ my $wrn = __('Better turn off your virus scanner during installation');
+
+ if (!admin()) {
+ $wrn .= "\n\n".
+ __("The installer does not have adminstrative permissions;\ncan only install for current user");
+ if (is_vista()) {
+ $wrn .= "\n\n".
+ __("Right-click install-tl-advanced and select \"run as administrator\"\n if you want to install for all users.");
+ }
+ }
+ $pre_warning->Label(-textvariable=>\$wrn, -justify=>'left')->pack();
+ my $sf = $pre_warning->Frame;
+ $sf->Button(-text=>__('Quit'), -command=>sub{exit()})->pack(-side=>'left');
+ $sf->Button(-text=>__('Continue'), -command=>sub{
+ $parent->deiconify();
+ $parent->raise;
+ $pre_warning->withdraw();
+ })->pack(-side=>'right');
+ $sf->pack(-fill => 'x');
+}
+
sub installation_window {
# create a progress bar window
$::sww = $mainwindow->Toplevel(-title => __("Installation process"),