Revision 469 (by ahitrov, 2014/12/24 13:57:26) Moving Contenido to Apache 2

#!/usr/bin/perl

#############################################
# convert old rewrite patterns ( like @FOO@ )
# to mtt-compatible syntax
# (keeping @@BAR@@ samples)
#############################################

use strict;
use warnings 'all';


while (<>) {
	s/(?<!\@)\@([^\s\@]+?)\@/<% \$$1 %>/g;
	print;
}