path: root/upgrade-templates.pl

#!/usr/bin/perl

my $dirpath = $ARGV[1];
$dirpath ||= 'templates';

&process_dir($dirpath);

sub process_dir {
    my $dirpath = shift @_;
    opendir DIR, $dirpath || die "can't open dir $dirpath for reading:$!";
    my @entries = readdir DIR;
    closedir DIR;
    for $entry(@entries){
        my $path = "$dirpath/$entry";
        if (-d $path && $entry !~ /^\./){
            &process_dir($path);
        } elsif  ($entry !~ /^\./){
            print "Processing path $path\n";
            `perl -ibak -pe 's|\<\%(.*)\%\>|<?lsmb \$1 ?>|g' $path`
        }
    }
}