config/build-list.pl

   1 #!env perl
   2
   3 #
   4 # ***** BEGIN LICENSE BLOCK *****
   5 # Version: MPL 1.1/GPL 2.0/LGPL 2.1
   6 #
   7 # The contents of this file are subject to the Mozilla Public License Version
   8 # 1.1 (the "License"); you may not use this file except in compliance with
   9 # the License. You may obtain a copy of the License at
  10 # http://www.mozilla.org/MPL/
  11 #
  12 # Software distributed under the License is distributed on an "AS IS" basis,
  13 # WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
  14 # for the specific language governing rights and limitations under the
  15 # License.
  16 #
  17 # The Original Code is mozilla.org code.
  18 #
  19 # The Initial Developer of the Original Code is
  20 # Netscape Communications Corporation.
  21 # Portions created by the Initial Developer are Copyright (C) 2001
  22 # the Initial Developer. All Rights Reserved.
  23 #
  24 # Contributor(s):
  25 #   Christopher Seawood <cls@seawood.org>
  26 #
  27 # Alternatively, the contents of this file may be used under the terms of
  28 # either of the GNU General Public License Version 2 or later (the "GPL"),
  29 # or the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
  30 # in which case the provisions of the GPL or the LGPL are applicable instead
  31 # of those above. If you wish to allow use of your version of this file only
  32 # under the terms of either the GPL or the LGPL, and not to allow others to
  33 # use your version of this file under the terms of the MPL, indicate your
  34 # decision by deleting the provisions above and replace them with the notice
  35 # and other provisions required by the GPL or the LGPL. If you do not delete
  36 # the provisions above, a recipient may use your version of this file under
  37 # the terms of any one of the MPL, the GPL or the LGPL.
  38 #
  39 # ***** END LICENSE BLOCK *****
  40
  41 #
  42 # A generic script to add entries to a file
  43 # if the entry does not already exist
  44 #
  45 # Usage: $0 [-l] <filename> <entry> [<entry> <entry>]
  46 #
  47 #   -l do not attempt flock the file.
  48
  49 use Fcntl qw(:DEFAULT :flock);
  50 use Getopt::Std;
  51 use mozLock;
  52
  53 sub usage() {
  54     print "$0 [-l] <filename> <entry>\n";
  55     exit(1);
  56 }
  57
  58 $nofilelocks = 0;
  59
  60 getopts("l");
  61
  62 $nofilelocks = 1 if defined($::opt_l);
  63
  64 $file = shift;
  65
  66 undef @entrylist;
  67 while (defined($entry = shift)) {
  68     push @entrylist, $entry;
  69 }
  70
  71 $lockfile = $file . ".lck";
  72
  73 # touch the file if it doesn't exist
  74 if ( ! -e "$file") {
  75     $now = time;
  76     utime $now, $now, $file;
  77 }
  78
  79 # This needs to be atomic
  80 mozLock($lockfile) unless $nofilelocks;
  81
  82 # Read entire file into mem
  83 undef @inbuf;
  84 if ( -e "$file" ) {
  85     open(IN, "$file") || die ("$file: $!\n");
  86     binmode(IN);
  87     while ($tmp = <IN>) {
  88         chomp($tmp);
  89         push @inbuf, $tmp;
  90     }
  91     close(IN);
  92 }
  93
  94 undef @outbuf;
  95 # Add each entry to file if it's not already there
  96 foreach $entry (@entrylist) {
  97     push @outbuf, $entry if (!grep(/^$entry$/, @inbuf));
  98 }
  99
 100 $count = $#outbuf + 1;
 101
 102 # Append new entry to file
 103 if ($count) {
 104     open(OUT, ">>$file") || die ("$file: $!\n");
 105     binmode(OUT);
 106     foreach $entry (@outbuf) {
 107         print OUT "$entry\n";
 108     }
 109     close(OUT);
 110 }
 111
 112 mozUnlock($lockfile) unless $nofilelocks;
 113
 114 exit(0);