BEGIN {
      y = 1;
      char x[ 128 ];
      char z[ 128 ];
      char n[ 128 ];
      cmp=0;
      }

/' /
   {
#
# get around the '13'-character of linefeed from File
#
   if (y==1)
      {
      x=$1;
      y=0;
      }
   else
      x=substr($1,2);
#
# Change all !- Characters in _-characters in last part of name
#
   cmp=0;
   i=split($2,s,".");
   while (index(s[i],"!")!=0)
      {
      sub("!","_",s[i]);
      cmp=1;
      }
   z=sprintf("%s%s",substr($2,1,length($2)-length(s[i])),s[i]);
#
# change last part of directoryname form "name" to "_name"
#
   if (x=="Directory")
      {
      if (cmp=0)
         z=$2;
      if (index(z,".")!=0)
         {
         i=split(z,s,".");
         n=s[i];
         }
      else
         n=z;
      if (substr(s[i],1,1)!="_")
         {
         if (length(n)<10)
            z=sprintf("%s_%s",substr(z,1,length(z)-length(n)),n);
         else
            z=sprintf("%s_%s",substr(z,1,length(z)-length(n)),substr(n,1,length(n)-1));
         }
      cmp=1;
      }
#
# put changed name to a rename-command
#
   if (cmp== 1)
      printf("rename %s %s\n",$2,z);
   }

END {printf("*quit");}