summaryrefslogtreecommitdiff
path: root/upgrade.pl
diff options
context:
space:
mode:
Diffstat (limited to 'upgrade.pl')
-rw-r--r--upgrade.pl22
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`
- }
- }
-}