#!/bin/bash
# Time-stamp: <2009-04-15 01:23:09 phm>

# cd oas/09;find -name '@lng.*.txt' -follow | sh /sig/adv/prg/tratoks_pravigu.sh

set -x;
DIR=$PWD;
while read F;do 
    perl -pi -e 's(\A((tit|lab|sut|des|kws|fol|intro\w{0,2})\s+\:\=\s+\$\{\w+\})\s*\Z)(\# $1\n)g' $F;
done;

# Local Variables:
# coding: utf-8
# mode: shell-script
# srcfile: /sig/adv/prg/tratoks_pravigu.sh
# End:
