summaryrefslogtreecommitdiff
path: root/Master/setuptl/TLPM
diff options
context:
space:
mode:
authorStaszek Wawrykiewicz <staw@gust.org.pl>2007-02-01 18:43:41 +0000
committerStaszek Wawrykiewicz <staw@gust.org.pl>2007-02-01 18:43:41 +0000
commit656e64167af42dfab2b6f669a3a0a2685fdc9520 (patch)
treec329ecd2ab48149552f9da0eb4d9b844bc341525 /Master/setuptl/TLPM
parent4ba9810c4ebe45bbc1043fbb1e32672f3062f86e (diff)
tlpmgui 1.67
git-svn-id: svn://tug.org/texlive/trunk@3859 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/setuptl/TLPM')
-rw-r--r--Master/setuptl/TLPM/blng.pm2
-rw-r--r--Master/setuptl/TLPM/check.pm2
-rw-r--r--Master/setuptl/TLPM/cmdl.pm2
-rw-r--r--Master/setuptl/TLPM/common.pm2
-rw-r--r--Master/setuptl/TLPM/constants.pm2
-rw-r--r--Master/setuptl/TLPM/help.pm6
-rw-r--r--Master/setuptl/TLPM/incl.pm2
-rw-r--r--Master/setuptl/TLPM/info.pm2
-rw-r--r--Master/setuptl/TLPM/inst.pm2
-rw-r--r--Master/setuptl/TLPM/list.pm2
-rw-r--r--Master/setuptl/TLPM/pkg.pm68
-rw-r--r--Master/setuptl/TLPM/reg.pm2
-rw-r--r--Master/setuptl/TLPM/uninst.pm2
13 files changed, 50 insertions, 46 deletions
diff --git a/Master/setuptl/TLPM/blng.pm b/Master/setuptl/TLPM/blng.pm
index a2b951d44a7..4cd56bfda06 100644
--- a/Master/setuptl/TLPM/blng.pm
+++ b/Master/setuptl/TLPM/blng.pm
@@ -1,4 +1,4 @@
-# This file belongs to TLPM v2.20, TeX Live Package Manager
+# This file belongs to TLPM v2.21, TeX Live Package Manager
# Public Domain, P.Jackowski@gust.org.pl
# blng [-pf] <name>
diff --git a/Master/setuptl/TLPM/check.pm b/Master/setuptl/TLPM/check.pm
index 5d89864d933..25d7e160284 100644
--- a/Master/setuptl/TLPM/check.pm
+++ b/Master/setuptl/TLPM/check.pm
@@ -1,4 +1,4 @@
-# This file belongs to TLPM v2.20, TeX Live Package Manager
+# This file belongs to TLPM v2.21, TeX Live Package Manager
# Public Domain, P.Jackowski@gust.org.pl
# check [-pf]
diff --git a/Master/setuptl/TLPM/cmdl.pm b/Master/setuptl/TLPM/cmdl.pm
index 80b96fc2b58..f3197b1b3ee 100644
--- a/Master/setuptl/TLPM/cmdl.pm
+++ b/Master/setuptl/TLPM/cmdl.pm
@@ -1,4 +1,4 @@
-# This file belongs to TLPM v2.20, TeX Live Package Manager
+# This file belongs to TLPM v2.21, TeX Live Package Manager
# Public Domain, P.Jackowski@gust.org.pl
# cmdline parsing
diff --git a/Master/setuptl/TLPM/common.pm b/Master/setuptl/TLPM/common.pm
index b3cfe655bc0..02b871ff891 100644
--- a/Master/setuptl/TLPM/common.pm
+++ b/Master/setuptl/TLPM/common.pm
@@ -1,4 +1,4 @@
-# This file belongs to TLPM v2.20, TeX Live Package Manager
+# This file belongs to TLPM v2.21, TeX Live Package Manager
# Public Domain, P.Jackowski@gust.org.pl
# common procedures;
diff --git a/Master/setuptl/TLPM/constants.pm b/Master/setuptl/TLPM/constants.pm
index 1b070aaf7db..bc7ec88907b 100644
--- a/Master/setuptl/TLPM/constants.pm
+++ b/Master/setuptl/TLPM/constants.pm
@@ -1,4 +1,4 @@
-# This file belongs to TLPM v2.20, TeX Live Package Manager
+# This file belongs to TLPM v2.21, TeX Live Package Manager
# Public Domain, P.Jackowski@gust.org.pl
# widely used constants
diff --git a/Master/setuptl/TLPM/help.pm b/Master/setuptl/TLPM/help.pm
index 48a97364ab2..6e9cc89ac30 100644
--- a/Master/setuptl/TLPM/help.pm
+++ b/Master/setuptl/TLPM/help.pm
@@ -1,4 +1,4 @@
-# This file belongs to TLPM v2.20, TeX Live Package Manager
+# This file belongs to TLPM v2.21, TeX Live Package Manager
# Public Domain, P.Jackowski@gust.org.pl
# help
@@ -149,7 +149,9 @@ Bugs reports and comments are welcome (tlpmgui\@gust.org.pl)
checked, since as hidden, it can be easily missed while copying;
debug messages added for detection; release date added to
welcome message
-
+01.02.2007, 2.21 -- yet another change to source detection; source remain
+ valid even if release info can't be retrieved from *.TL
+ files
* Known issues
1. Installation from DVD is much slower than from CD. Sorry...
2. Under Windows; if there are two CD drives (ie. 'E:\\' and 'F:\\') and TeX Live
diff --git a/Master/setuptl/TLPM/incl.pm b/Master/setuptl/TLPM/incl.pm
index cef11e58fad..0edc92261f0 100644
--- a/Master/setuptl/TLPM/incl.pm
+++ b/Master/setuptl/TLPM/incl.pm
@@ -1,4 +1,4 @@
-# This file belongs to TLPM v2.20, TeX Live Package Manager
+# This file belongs to TLPM v2.21, TeX Live Package Manager
# Public Domain, P.Jackowski@gust.org.pl
# incl <pkg> [-pfer] <mask>
diff --git a/Master/setuptl/TLPM/info.pm b/Master/setuptl/TLPM/info.pm
index 6b9a0c86744..7eeccd4c2cd 100644
--- a/Master/setuptl/TLPM/info.pm
+++ b/Master/setuptl/TLPM/info.pm
@@ -1,4 +1,4 @@
-# This file belongs to TLPM v2.20, TeX Live Package Manager
+# This file belongs to TLPM v2.21, TeX Live Package Manager
# Public Domain, P.Jackowski@gust.org.pl
# info <pkg>
diff --git a/Master/setuptl/TLPM/inst.pm b/Master/setuptl/TLPM/inst.pm
index 838b1a1dc4d..3b47a2d5961 100644
--- a/Master/setuptl/TLPM/inst.pm
+++ b/Master/setuptl/TLPM/inst.pm
@@ -1,4 +1,4 @@
-# This file belongs to TLPM v2.20, TeX Live Package Manager
+# This file belongs to TLPM v2.21, TeX Live Package Manager
# Public Domain, P.Jackowski@gust.org.pl
# inst <pkg> [-jrou]
diff --git a/Master/setuptl/TLPM/list.pm b/Master/setuptl/TLPM/list.pm
index 89fbf02d520..def946f0585 100644
--- a/Master/setuptl/TLPM/list.pm
+++ b/Master/setuptl/TLPM/list.pm
@@ -1,4 +1,4 @@
-# This file belongs to TLPM v2.20, TeX Live Package Manager
+# This file belongs to TLPM v2.21, TeX Live Package Manager
# Public Domain, P.Jackowski@gust.org.pl
# list [-pfe] <mask>
diff --git a/Master/setuptl/TLPM/pkg.pm b/Master/setuptl/TLPM/pkg.pm
index d91ce764963..ecf5115cee5 100644
--- a/Master/setuptl/TLPM/pkg.pm
+++ b/Master/setuptl/TLPM/pkg.pm
@@ -1,4 +1,4 @@
-# This file belongs to TLPM v2.20, TeX Live Package Manager
+# This file belongs to TLPM v2.21, TeX Live Package Manager
# Public Domain, P.Jackowski@gust.org.pl
# packages handling
@@ -205,40 +205,42 @@ sub is_tl_root
sub no_source # source detection heuristic
{
my $dir = shift;
- my ($inst,$live) = ("00INST.TL","00LIVE.TL");
+ my ($inst,$live) = ("00INST.TL","00LIVE.TL");
&norm_path($dir);
$dir = &rel2abs($dir);
- #if(-f "$dir$chr_dirsep.mkisofsrc")# hidden can be easily missed while copying...
- #{ # (Hartmut Henkel report)
- if(-f "$dir$chr_dirsep$inst")
- {
- $messdbg -> ("Found $inst in $dir");
- $tl_type = 'CD'; $tl_file = $inst;
- }
- elsif(-f "$dir$chr_dirsep$live")
- {
- $messdbg -> ("Found $live in $dir");
- $tl_type = 'DVD'; $tl_file = $live;
- }
- else
- {
- $messdbg -> ("Neither $inst nor $live found in $dir");
- return $true;
- }
- $tl_source = $dir; $tl_source_indeed = $true;
- local *INP;
- open(INP,"<$dir$chr_dirsep$tl_file") or return $error{'wrong_inp'} -> ($tl_file);
- my @lines = <INP>; close INP;
- foreach(@lines)
- {
- next unless /\ARelease date: (\d{8})/;
- $tl_date = $1;
- $tl_year = substr($tl_date,0,4);
- return $false;
- }
- $messdbg -> ("Cannot retrieve release info from $tl_file");
- #}
- return $true;
+ #if(-f "$dir$chr_dirsep.mkisofsrc")# hidden can be easily missed while copying (Hartmut Henkel report)
+ if(-f "$dir$chr_dirsep$inst")
+ {
+ $messdbg -> ("Found $inst in $dir");
+ $tl_type = 'CD'; $tl_file = $inst;
+ }
+ elsif(-f "$dir$chr_dirsep$live")
+ {
+ $messdbg -> ("Found $live in $dir");
+ $tl_type = 'DVD'; $tl_file = $live;
+ }
+ else
+ {
+ $messdbg -> ("Neither $inst nor $live found in $dir");
+ return $true;
+ }
+ $tl_source = $dir; $tl_source_indeed = $true;
+ local *INP;
+ open(INP,"<$dir$chr_dirsep$tl_file") or return $error{'wrong_inp'} -> ($tl_file);
+ my @lines = <INP>; close INP;
+ foreach(@lines)
+ {
+ next unless /\ARelease date: (\d{8})/;
+ $tl_date = $1;
+ $tl_year = substr($tl_date,0,4);
+ return $false;
+ }
+ #$messdbg -> ("Cannot retrieve release info from $tl_file");
+ #return $true; # inconvenient while playing with TL Master tree, where
+ # no release is yet defined
+ $warning -> ("Cannot retrieve release info from $tl_file");
+ $tl_date = "????.??.??"; $tl_year = "????";
+ return $false;
}
# in opposite to source packages, target is read whenever requested
diff --git a/Master/setuptl/TLPM/reg.pm b/Master/setuptl/TLPM/reg.pm
index 0db387e801a..edc63c3b5e5 100644
--- a/Master/setuptl/TLPM/reg.pm
+++ b/Master/setuptl/TLPM/reg.pm
@@ -1,4 +1,4 @@
-# This file belongs to TLPM v2.20, TeX Live Package Manager
+# This file belongs to TLPM v2.21, TeX Live Package Manager
# Public Domain, P.Jackowski@gust.org.pl
# regexp and mask related functions
diff --git a/Master/setuptl/TLPM/uninst.pm b/Master/setuptl/TLPM/uninst.pm
index bb0bc359cb8..b8b8f54d5ef 100644
--- a/Master/setuptl/TLPM/uninst.pm
+++ b/Master/setuptl/TLPM/uninst.pm
@@ -1,4 +1,4 @@
-# This file belongs to TLPM v2.20, TeX Live Package Manager
+# This file belongs to TLPM v2.21, TeX Live Package Manager
# Public Domain, P.Jackowski@gust.org.pl
# uninst <pkg> [-rjF] [dir]