Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Rémy Oudompheng
texlive-localmanager
Commits
c7cb3635
Commit
c7cb3635
authored
Oct 24, 2008
by
firmicus
Browse files
changes for global packaging
darcs-hash:20081024191835-df5cb-86013266bf2653944a76757b82734a3af1ef0d5d.gz
parent
86c0e2f9
Changes
1
Hide whitespace changes
Inline
Side-by-side
tllocalmgr
View file @
c7cb3635
...
...
@@ -2,7 +2,7 @@
use
warnings
;
use
strict
;
use
lib
"
tlpkg
";
#FIXME
use
lib
"
/usr/share/texmf-var/arch/
tlpkg
";
use
TeXLive::
TLPDB
;
use
TeXLive::
TLPOBJ
;
our
$VERSION
=
"
0.2
";
...
...
@@ -40,7 +40,8 @@ my $CTANBASEURL="http://mirror.ctan.org/systems/texlive/tlnet/2008";
my
$ROOT
=
"
$ENV
{HOME}/.texlive/texmf-var/arch
";
my
$LOCALDB
=
"
$ROOT
/tlpkg/texlive.tlpdb
";
my
$LOCALDBLZMA
=
"
$LOCALDB
.lzma
";
my
$INSTALLEDPKGS
=
"
$ROOT
/installedpkgs
";
#my $INSTALLEDPKGS = "$ROOT/installedpkgs";
my
$INSTALLEDPKGS
=
"
/usr/share/texmf-var/arch/installedpkgs
";
my
$logfile
=
"
$ROOT
/tllocalmgr.log
";
my
$skipupdate
=
$opts
->
{'
skipupdate
'}
||
0
;
...
...
@@ -190,7 +191,9 @@ my %locallyinstalleddoc_versions; # version of each locally installed doc pkg
chomp
(
my
@pacman
=
`
pacman -Qs ^texlive- | egrep ^local | cut -d'/' -f2
`);
my
@localpacman
=
grep
{
/^texlive-local-/
}
@pacman
;
my
@collpacman
=
grep
{
!
/^texlive-local-/
}
@pacman
;
# To have the standard collections we get rid of
# texlive-local-<pkg> and texlive-localmanager:
my
@collpacman
=
grep
{
!
/^texlive-local/
}
@pacman
;
if
(
@localpacman
)
{
foreach
(
@localpacman
)
{
...
...
@@ -306,10 +309,14 @@ no strict 'refs';
if
(
@ARGV
)
{
my
$cmd
=
shift
@ARGV
;
my
$runcmd
=
"
run_
$cmd
";
eval
{
&$runcmd
(
@ARGV
)
};
die
"
Error: command
$cmd
is not defined
\n
"
if
$@
;
# &$runcmd(@ARGV);
exit
0
unless
$cmd
eq
'
status
';
if
(
$cmd
=~
/^(help|usage)/
)
{
print
usage
();
}
else
{
eval
{
&$runcmd
(
@ARGV
)
};
die
"
Error: command
$cmd
is not defined
\n
"
if
$@
;
exit
0
unless
$cmd
eq
'
status
';
}
}
print
"
Welcome to the TeXLive Local Manager shell. Type 'help' for assistance.
\n
";
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment