blob: 8f41ef065dcba76781fe34495da2785d0dc52e11 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#!/usr/bin/env perl
# Tlmgr.pl can be loaded either by itself, as a program, or as a library,
# at least under Windows.
# An application of this is configuring a client Windows workstation
# for a pre-installed TeX Live installation on a local network.
# Currently, this script is just proof-of-concept.
# Public domain.
BEGIN {
$^W = 1;
require "tlmgr.pl";
}
# some examples of accessing tlmgr functionality
# Print some info
print "Version:\n" . give_version() . "\n";
print "Mirror:\n" . give_ctan_mirror() . "\n";
print "Master: " . $Master ."\n";
# Only make user-level changes
non_admin();
# Add TeX Live to path (not pretty...)
unshift @ARGV, 'add';
action_path();
# create a shortcut
execute_action('postaction', 'install', 'shortcut', 'dviout.win32');
|
