NAME

nav_tmpl_repl

DESCRITPION

find old style navigation file with contents lik

    # [% emacs_top_local_variables %]
    # Time-stamp: <2008-05-09 09:34:14 phm>

    @[% TArb %]

    [% TBrantc %]

    # [% TPoct %]       href:HM/index.html
    # [% TNDat %]       href:HM/date.html

     zeilen             href:zeilen.html
     svn_update href:svn_update.html
     svn_resolve        href:svn_update.html
     u2tex              href:u2tex.html
     checkout_..        href:checkout_svndirs.html
     prog               href:test_prog.html
     homdisk    href:test_homdisk.html
     dbmvals    href:dbmvals.html
     txt2dbm    href:txt2dbm.html

    [%# Local Variables: -%]
    [%# mode: fundamental -%]
    [%# srcfile: /adv/prg/bin/@nav.a2e_bin.txt -%]
    [%# dokl: A2eBinNav -%]
    [%# coding: utf-8 -%]
    [%# End: -%]

and replace it with new style phrases, in this case

    <!-- [% emacs_top_local_variables %] -->
    <!-- Time-stamp: <2008-05-09 09:34:14 phm> -->
    [% PROCESS 'nav_defs_tmpl.txt' -%]
    [% PROCESS dokarb -%]
    [% PROCESS hypermail -%]
    [% PROCESS rekspanel tit=TBrantc reks = [  { lab => 'zeilen', url => 'zeilen.html' } ,  { lab => 'svn_update', url => 'svn_update.html' } ,  { lab => 'svn_resolve', url => 'svn_update.html' } ,  { lab => 'u2tex', url => 'u2tex.html' } ,  { lab => 'checkout_..', url => 'checkout_svndirs.html' } ,  { lab => 'prog', url => 'test_prog.html' } ,  { lab => 'homdisk', url => 'test_homdisk.html' } ,  { lab => 'dbmvals', url => 'dbmvals.html' } ,  { lab => 'txt2dbm', url => 'txt2dbm.html' }  ] -%]
    [%# Local Variables: -%]
    [%# mode: fundamental -%]
    [%# srcfile: /adv/prg/bin/@nav.a2e_bin.txt -%]
    [%# dokl: A2eBinNav -%]
    [%# coding: utf-8 -%]
    [%# End: -%]

IMPLEMENTATION

Package NAV_TMPL_PERL