#!/usr/bin/perl # ***** BEGIN LICENSE BLOCK ***** # Version: MPL 1.1/GPL 2.0/LGPL 2.1 # # The contents of this file are subject to the Mozilla Public License Version # 1.1 (the "License"); you may not use this file except in compliance with # the License. You may obtain a copy of the License at # http://www.mozilla.org/MPL/ # # Software distributed under the License is distributed on an "AS IS" basis, # WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License # for the specific language governing rights and limitations under the # License. # # The Original Code is the Mozilla Mac OS X Universal Binary Packaging System # # The Initial Developer of the Original Code is Google Inc. # Portions created by the Initial Developer are Copyright (C) 2006 # the Initial Developer. All Rights Reserved. # # Contributor(s): # Mark Mentovai (Original Author) # # Alternatively, the contents of this file may be used under the terms of # either the GNU General Public License Version 2 or later (the "GPL"), or # the GNU Lesser General Public License Version 2.1 or later (the "LGPL"), # in which case the provisions of the GPL or the LGPL are applicable instead # of those above. If you wish to allow use of your version of this file only # under the terms of either the GPL or the LGPL, and not to allow others to # use your version of this file under the terms of the MPL, indicate your # decision by deleting the provisions above and replace them with the notice # and other provisions required by the GPL or the LGPL. If you do not delete # the provisions above, a recipient may use your version of this file under # the terms of any one of the MPL, the GPL or the LGPL. # # ***** END LICENSE BLOCK ***** use strict; use warnings; use Archive::Zip(':ERROR_CODES'); my ($BUILDCONFIG); sub fixBuildconfig($$$); $BUILDCONFIG = 'content/global/buildconfig.html'; if (scalar(@ARGV) != 3) { print STDERR ("usage: fix-buildconfig \n"); exit(1); } if (!fixBuildconfig($ARGV[0], $ARGV[1], $ARGV[2])) { exit(1); } exit(0); sub fixBuildconfig($$$) { my ($mode, $path1, $path2); ($mode, $path1, $path2) = @_; if ($mode ne 'jar' && $mode ne 'file') { print STDERR ($0.': must specify jar or file\n'); return 0; } my ($contents1, $contents2); my ($ze, $zip1, $zip2); if ($mode eq 'jar') { $zip1 = Archive::Zip->new(); if (($ze = $zip1->read($path1)) != AZ_OK) { print STDERR ($0.': could not read "'.$path1.'": error '.$ze."\n"); return 0; } $zip2 = Archive::Zip->new(); if (($ze = $zip2->read($path2)) != AZ_OK) { print STDERR ($0.': could not read "'.$path2.'": error '.$ze."\n"); return 0; } $contents1 = $zip1->contents($BUILDCONFIG); $contents2 = $zip2->contents($BUILDCONFIG); } elsif ($mode eq 'file') { local($/); my ($file1, $file2); open($file1, '<'.$path1.$BUILDCONFIG) or return 0; open($file2, '<'.$path2.$BUILDCONFIG) or return 0; $contents1 = <$file1>; $contents2 = <$file2>; close($file1); close($file2); } if (!defined($contents1)) { print STDERR ($0.': could not get "'.$BUILDCONFIG.'" from "'.$path1.'"'. "\n"); return 0; } if (!defined($contents2)) { print STDERR ($0.': could not get "'.$BUILDCONFIG.'" from "'.$path2.'"'. "\n"); return 0; } my (@lines1, @lines2); @lines1 = split(/\n/, $contents1); @lines2 = split(/\n/, $contents2); my ($line, @linesNew); @linesNew = (); # Copy everything from the first file up to the end of its . while ($line = shift(@lines1)) { if ($line eq '') { last; } push(@linesNew, $line); } # Insert a

between the two files. push (@linesNew, '

'); # Copy the second file's content beginning after its leading

and
. while ($line = shift(@lines2)) { if ($line eq '

') { last; } } while ($line = shift(@lines2)) { push(@linesNew, $line); } my ($contentsNew); $contentsNew = join("\n", @linesNew); if ($mode eq 'jar') { if (!defined($zip1->contents($BUILDCONFIG, $contentsNew))) { print STDERR ($0.': could not set "'.$BUILDCONFIG.'" to "'.$path1.'"'. "\n"); return 0; } if (!defined($zip2->contents($BUILDCONFIG, $contentsNew))) { print STDERR ($0.': could not set "'.$BUILDCONFIG.'" to "'.$path2.'"'. "\n"); return 0; } if (($ze = $zip1->overwrite()) != AZ_OK) { print STDERR ($0.': could not write "'.$path1.'": error '.$ze."\n"); return 0; } if (($ze = $zip2->overwrite()) != AZ_OK) { print STDERR ($0.': could not write "'.$path2.'": error '.$ze."\n"); return 0; } } elsif ($mode eq 'file') { my ($file1, $file2); open($file1, '>'.$path1.$BUILDCONFIG) or return 0; open($file2, '>'.$path2.$BUILDCONFIG) or return 0; print $file1 ($contentsNew); print $file2 ($contentsNew); close($file1); close($file2); } return 1; }