*** empty log message ***

externalLinks

@@ -4,8 +4,8 @@
 
 version () {
     echo '$Author: zimoch $' >&2
-    echo '$Date: 2011/03/28 13:54:55 $' >&2
-    echo '$Revision: 1.7 $' >&2
+    echo '$Date: 2011/05/04 12:22:05 $' >&2
+    echo '$Revision: 1.8 $' >&2
     echo '$Source: /cvs/G/EPICS/App/scripts/externalLinks,v $' >&2
     exit 1
 }
@@ -342,8 +342,8 @@ function expandFile () {
             }
         }
         if (length(record)>maxNameLen) {
-            printf("record name \"%s\" too long (max %d)\n",
-                record, maxNameLen) > "/dev/stderr"
+            printf("record name \"%s\" %d chars too long (max %d)\n",
+                record, length(record)-maxNameLen, maxNameLen) > "/dev/stderr"
         }
         soft = 1
     }
@@ -413,9 +413,9 @@ function expandFile () {
             }
         } else if (isstring[rtype,field]) {
             if (length(value)>stringsize[rtype,field]) {
-                printf("string \"%s\" in %s.%s (%s) too long (max %d)\n",
+                printf("string \"%s\" in %s.%s (%s) %d chars too long (max %d)\n",
                     value, record, field, rtype,
-                    stringsize[rtype,field]) > "/dev/stderr"
+                    length(value)-stringsize[rtype,field], stringsize[rtype,field]) > "/dev/stderr"
             }
         } else {
             printf("unknown field %s in record %s (%s) should be one of:\n%s\n\n",