diff options
author | Karl Berry <karl@freefriends.org> | 2018-12-03 22:30:11 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2018-12-03 22:30:11 +0000 |
commit | 526cfb7ac8d644adaea426d705352af206a0d477 (patch) | |
tree | dfe6ef42917fb8d84e3f4cb105552bc768895348 /Master/texmf-dist/scripts/ketcindy/ketcindy.pl | |
parent | 5fc4d8142bde77451e56a8ebf0a2a227079639d4 (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-x | Master/texmf-dist/scripts/ketcindy/ketcindy.pl | 33 |
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); |