tools/migration-scripts/cache-munger.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 # Doesn't need to be a datestamp; could be anything that uniquely
   6 # qualifies the path
   7 my $datestamp = "2011-05-22";
   8
   9 # List the skins here that you want to munge
  10 my @skins = qw(
  11     default
  12 );
  13
  14 print "# Create date-stamped opac\/common path:\n";
  15 print "cd \/openils\/var\/web\/opac\n";
  16 print "ln -sf common common.$datestamp\n";
  17 print "\n";
  18
  19 print "# Create date-stamped dojo path:\n";
  20 print "cd \/openils\/var\/web\/js\n";
  21 print "ln -sf dojo dojo.$datestamp\n";
  22 print "\n";
  23
  24 foreach my $skin (@skins) {
  25     print "# Munging skin $skin:\n";
  26     print "cd \/openils\/var\/web\/opac\/theme\/$skin\n";
  27     print "ln -sf css css.$datestamp\n";
  28     print "cd \/openils\/var\/web\/opac\/skin\/$skin\/xml\n";
  29     print "ln -sf common common.$datestamp\n";
  30     print "cd \/openils\/var\/web\/opac\/skin\/$skin\n";
  31     print "ln -sf js js.$datestamp; ln -sf css css.$datestamp;\n";
  32     print "for i in `ack-grep -l \"\/$skin\/js\/\"`; do sed -i -e \"s\/\\/$skin\\/js\\/\/\\/$skin\\/js.$datestamp\\/\/\" \$i; done\n";
  33     print "for i in `ack-grep -l \"\/$skin\/css\/\"`; do sed -i -e \"s\/\\/$skin\\/css\\/\/\\/$skin\\/css.$datestamp\\/\/\" \$i; done\n";
  34     print "for i in `ack-grep -l '\/common\/'`; do sed -i -e \"s\/\\/common\\/\/\\/common.$datestamp\\/\/\" \$i; done\n";
  35     print "for i in `ack-grep -l '\/js\/dojo\/'`; do sed -i -e \"s\/\\/js\\/dojo\\/\/\\/js\\/dojo.$datestamp\\/\/\" \$i; done\n";
  36     print "\n";
  37 }