diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-16 23:52:04 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-16 23:52:04 +0000 |
commit | 9a99847224b406851d3db3967c2e82ee8c1bb628 (patch) | |
tree | 8edf5c69d9f270a7decba756044e780313cb4e05 /upgrade.pl | |
parent | 62fe75d32f53b37cd90aa1135582bcc56d4aa8a7 (diff) |
upgrade.pl now called upgrade-templates.pl
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@918 4979c152-3d1c-0410-bac9-87ea11338e46
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` - } - } -} |