From 2d5af561b2b27c5304c4faaaa539aeb2980b49fd Mon Sep 17 00:00:00 2001 From: Karl Cunningham Date: Sun, 24 Jul 2005 14:47:14 +0000 Subject: [PATCH] Changed to not try to make meaningful filenames for internally-generated images (math, superscripts, etc). --- docs/developers/translate_images.pl | 8 ++++++-- docs/manual-de/translate_images.pl | 8 ++++++-- docs/manual-fr/translate_images.pl | 8 ++++++-- docs/manual/translate_images.pl | 8 ++++++-- 4 files changed, 24 insertions(+), 8 deletions(-) diff --git a/docs/developers/translate_images.pl b/docs/developers/translate_images.pl index c4e7bf2c..c7225118 100755 --- a/docs/developers/translate_images.pl +++ b/docs/developers/translate_images.pl @@ -128,8 +128,12 @@ sub rename_images { my ($response); foreach (keys(%$translate)) { - $response = `mv -f $path$_ $path$translate->{$_} 2>&1`; - $response and print "ERROR from system $response\n"; + if (! $translate->{$_}) { + print " WARNING: No destination Filename for $_\n"; + } else { + $response = `mv -f $path$_ $path$translate->{$_} 2>&1`; + $response and print "ERROR from system $response\n"; + } } } diff --git a/docs/manual-de/translate_images.pl b/docs/manual-de/translate_images.pl index c4e7bf2c..c7225118 100755 --- a/docs/manual-de/translate_images.pl +++ b/docs/manual-de/translate_images.pl @@ -128,8 +128,12 @@ sub rename_images { my ($response); foreach (keys(%$translate)) { - $response = `mv -f $path$_ $path$translate->{$_} 2>&1`; - $response and print "ERROR from system $response\n"; + if (! $translate->{$_}) { + print " WARNING: No destination Filename for $_\n"; + } else { + $response = `mv -f $path$_ $path$translate->{$_} 2>&1`; + $response and print "ERROR from system $response\n"; + } } } diff --git a/docs/manual-fr/translate_images.pl b/docs/manual-fr/translate_images.pl index c4e7bf2c..c7225118 100755 --- a/docs/manual-fr/translate_images.pl +++ b/docs/manual-fr/translate_images.pl @@ -128,8 +128,12 @@ sub rename_images { my ($response); foreach (keys(%$translate)) { - $response = `mv -f $path$_ $path$translate->{$_} 2>&1`; - $response and print "ERROR from system $response\n"; + if (! $translate->{$_}) { + print " WARNING: No destination Filename for $_\n"; + } else { + $response = `mv -f $path$_ $path$translate->{$_} 2>&1`; + $response and print "ERROR from system $response\n"; + } } } diff --git a/docs/manual/translate_images.pl b/docs/manual/translate_images.pl index c4e7bf2c..c7225118 100755 --- a/docs/manual/translate_images.pl +++ b/docs/manual/translate_images.pl @@ -128,8 +128,12 @@ sub rename_images { my ($response); foreach (keys(%$translate)) { - $response = `mv -f $path$_ $path$translate->{$_} 2>&1`; - $response and print "ERROR from system $response\n"; + if (! $translate->{$_}) { + print " WARNING: No destination Filename for $_\n"; + } else { + $response = `mv -f $path$_ $path$translate->{$_} 2>&1`; + $response and print "ERROR from system $response\n"; + } } } -- 2.39.5