diff options
Diffstat (limited to 'upgrade.pl')
-rw-r--r-- | upgrade.pl | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/upgrade.pl b/upgrade.pl deleted file mode 100644 index d6befb4f..00000000 --- a/upgrade.pl +++ /dev/null @@ -1,22 +0,0 @@ -#!/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` - } - } -} |