Permalink
Browse files

Added upgrade script to delete defunct .js files.

  • Loading branch information...
1 parent 2595e67 commit 0804df81b589afee805d36d3dd57e95f5153aa0c @theory theory committed Jun 22, 2006
Showing with 15 additions and 0 deletions.
  1. +15 −0 inst/upgrade/1.10.2/deleted_moved_js.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl -w
+
+use strict;
+use File::Spec::Functions qw(catdir updir);
+use FindBin;
+use lib catdir $FindBin::Bin, updir, 'lib';
+use Bric::Config qw(MASON_COMP_ROOT);
+use Bric::Util::Trans::FS;
+
+my $fs = Bric::Util::Trans::FS->new;
+
+$fs->del($_) for glob $fs->cat_file(
+ MASON_COMP_ROOT->[0][1],
+ qw(media js *_messages.js)
+);

0 comments on commit 0804df8

Please sign in to comment.