summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/ketcindy/ketcindy.pl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-12-03 22:30:11 +0000
committerKarl Berry <karl@freefriends.org>2018-12-03 22:30:11 +0000
commit526cfb7ac8d644adaea426d705352af206a0d477 (patch)
treedfe6ef42917fb8d84e3f4cb105552bc768895348 /Master/texmf-dist/scripts/ketcindy/ketcindy.pl
parent5fc4d8142bde77451e56a8ebf0a2a227079639d4 (diff)
ketcindy (3dec18)
git-svn-id: svn://tug.org/texlive/trunk@49309 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/ketcindy/ketcindy.pl')
-rwxr-xr-xMaster/texmf-dist/scripts/ketcindy/ketcindy.pl33
1 files changed, 17 insertions, 16 deletions
diff --git a/Master/texmf-dist/scripts/ketcindy/ketcindy.pl b/Master/texmf-dist/scripts/ketcindy/ketcindy.pl
index ad71b35c2e2..e5efbc0c98e 100755
--- a/Master/texmf-dist/scripts/ketcindy/ketcindy.pl
+++ b/Master/texmf-dist/scripts/ketcindy/ketcindy.pl
@@ -15,6 +15,7 @@ use File::Copy;
my $BinaryName = "Cinderella2";
my $TemplateFile = "template1basic.cdy";
my $devnull = "/dev/null";
+my $prog = "ketcindy";
my $systype;
if (win32()) {
$systype = "Windows";
@@ -48,11 +49,11 @@ if (! "$cinderella") {
}
if (! "$cinderella") {
- die "Cannot find $BinaryName!";
+ die "$prog: Cannot find $BinaryName!";
}
if ( ! -x "$cinderella" ) {
- die "Program $cinderella is not executable!";
+ die "$prog: Program $cinderella is not executable!";
}
# find real path
@@ -72,17 +73,17 @@ chomp(my $TempCdy = `kpsewhich -format=texmfscripts $TemplateFile`);
chomp(my $DirHead=`kpsewhich -format=texmfscripts ketcindy.ini`);
if (-z "$TempCdy" || -z "$KetCdyJar") {
- die "Cannot find $TemplateFile via kpsewhich, is ketpic installed?";
+ die "$prog: Cannot find $TemplateFile via kpsewhich, is ketpic installed?";
}
if ( ! -r "$plugin" || ! -r "$dirheadplugin" ) {
- print "Cinderella is *NOT* set up for KETCindy!\n";
- print "You need to copy\n";
- print " $KetCdyJar\n";
- print " $DirHead\n";
- print "into\n";
- print " $plugindir\n";
+ print "$prog: Cinderella is *NOT* set up for KETCindy!\n";
+ print "$prog: You need to copy\n";
+ print "$prog: $KetCdyJar\n";
+ print "$prog: $DirHead\n";
+ print "$prog: into\n";
+ print "$prog: $plugindir\n";
print "\n";
exit(1);
}
@@ -91,17 +92,17 @@ my $myjarmd = md5digest($KetCdyJar);
my $sysjarmd = md5digest($plugin);
if ( $myjarmd ne $sysjarmd ) {
- print "The installed version of the plugin in\n";
- print " $plugin\n";
- print "differs from the version shipped in\n";
- print " $KetCdyJar\n";
- print "You might need to update the former one with the later one!\n";
+ print "$prog: The installed version of the plugin in\n";
+ print "$prog: $plugin\n";
+ print "$prog: differs from the version shipped in\n";
+ print "$prog: $KetCdyJar\n";
+ print "$prog: You might need to update the former one with the later one!\n";
}
# print "DEBUG workdir =$workdir=\n";
# print "DEBUG TemplateFile =$TemplateFile=\n";
mkdir($workdir);
-copy($TempCdy, $workdir) or die "Copy failed: $!";
+copy($TempCdy, $workdir) or die "$prog: Copy failed: $!";
# print "Exec $cinderella $workdir/$TemplateFile\n";
if (win32()) {
@@ -114,7 +115,7 @@ if (win32()) {
sub md5digest {
my $file = shift;
- open(FILE, $file) || die "open($file) failed: $!";
+ open(FILE, $file) || die "$prog: open($file) failed: $!";
binmode(FILE);
my $out = Digest::MD5->new->addfile(*FILE)->hexdigest;
close(FILE);